Relatório de declaração de IVA discriminado usa identificação de forma incorreta na versão em húngaro do Microsoft Dynamics NAV 2009 R2

Este artigo se aplica ao Microsoft Dynamics NAV para a localidade do idioma húngaro (hu).

Sintomas

Na versão húngara do Microsoft Dynamics NAV 2009 R2, o relatório de declaração de IVA discriminado que é conhecido como 1365M tem um nome incorreto e usa a identificação de forma incorreta quando você exportar os dados para um arquivo de texto. 1365 era um nome temporário foi usado somente no ano de 2013. Essa identificação muda todo ano. Por exemplo:

Em 2013, era 1365.
Em 2014, é 1465.
Em 2015, ele pode estar 1565.

Os dois primeiros dígitos aumentam em cada ano. Os nomes de objeto também estão incorretos. Eles devem ser nomeados como "Declaração de IVA discriminado" sem o número.

Resolução

Um hotfix suportado está disponível agora na Microsoft. No entanto, apenas destina-se a corrigir o problema descrito neste artigo. Aplique-o somente aos sistemas que apresentarem esse problema específico. Esta correção poderá ser submetida a testes adicionais. Portanto, se esse problema não o prejudicar, recomendamos que você aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contém esse hotfix.

Observação: Em alguns casos, as taxas cobradas para suporte a chamadas podem ser canceladas se um profissional de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma atualização específica resolverá o problema. Os custos normais de suporte serão aplicados para questões de suporte adicionais e problemas que não se qualificam à atualização específica em questão.

Informações sobre a instalação

A Microsoft fornece exemplos de programação somente para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um propósito específico. Este artigo presume que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e com as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas.

Observação: Antes de instalar esse hotfix, verifique se todos os usuários do cliente do Microsoft Dynamics NAV estiver desconectados do sistema. Isso inclui os serviços do Microsoft Dynamics NAV Application Server (NAS). Você deve ser o único usuário do cliente conectado ao implementar esse hotfix.

Para implementar esse hotfix, você deve ter uma licença de desenvolvedor.

É recomendável que a conta de usuário na janela de Logins do Windows ou na janela banco de dados seja atribuída a ID de função "SUPER". Se a conta de usuário não pode ser atribuída a ID de função "SUPER", você deverá verificar se a conta de usuário tem as seguintes permissões:

A permissão Modificar para o objeto que será alterado.
A permissão de execução para o objeto 5210 de identificação de objeto de sistema e o sistema 9015 de identificação de objeto

objeto.

Observação: Você não precisa ter direitos para os armazenamentos de dados, a menos que você precise executar o reparo de dados.

Alterações de código

Observação: Sempre teste código correções em um ambiente controlado antes de aplicar as correções para os computadores de produção.

Para resolver esse problema, execute as seguintes etapas:

Altere o código nos campos no formulário exportação/impressão 1365 M (14550) da seguinte forma:
Código existente

...// Delete the following line.
OBJECT Form 14550 Export/Print 1365M

...

Código de substituição

...// Add the following line.
OBJECT Form 14550 Export/Print Item. VAT Stat.

...

Altere o código nas propriedades no formulário 14550 como a seguir:
Código existente

...  }
  PROPERTIES
  {

// Delete the following lines.
   Width=6270;
   Height=4510;
   CaptionML=[ENU=Export/Print VAT 1365M Statement;
// End of the lines.

               HUN=1365M  fakimutat s export l sa/nyomtat sa];
    OnInit=BEGIN
             ThresholdAmount := 2000000;

...

Código de substituição

...  }
  PROPERTIES
  {

// Add the following lines.
   Width=5720;
   Height=2750;
   CaptionML=[ENU=Export/Print Item. VAT Stat.;
// End of the lines.

               HUN=1365M  fakimutat s export l sa/nyomtat sa];
    OnInit=BEGIN
             ThresholdAmount := 2000000;

...

Altere o código de controles no formulário 14550 como a seguir:
1 de código existente

... }
CONTROLS
{

// Delete the following line.
 { 1360006;MenuButton;3740 ;3520 ;2200 ;550 ;CaptionML=[ENU=&Functions;



HUN=&Funkciï¿½k];
Menu=MENUITEMS
{
...

1 código de substituição

... }
CONTROLS
{

// Add the following lines.
 { 1360006;MenuButton;3300 ;1980 ;2200 ;550 ;HorzGlue=Right;
 VertGlue=Bottom;
 CaptionML=[ENU=&Functions;
// End of the lines.

HUN=&Funkciï¿½k];Menu=MENUITEMS
{
...

2 de código existente

... Visible=No }
}
}

// Delete the following line.
 { 1360017;TextBox ;3960 ;440 ;2000 ;500 ;CaptionML=[ENU=Start Date;

HUN=Kezdï¿½si d tum];DateFormula=No;
SourceExpr=StartDate;
...

Código de substituição 2

... Visible=No }
}
}

// Add the following line.
 { 1360017;TextBox ;3520 ;220 ;2000 ;440 ;CaptionML=[ENU=Start Date;

HUN=Kezdï¿½si d tum];DateFormula=No;
SourceExpr=StartDate;
...

3 de código existente

... EndDate := CALCDATE('<-1D>',VATPeriod."Starting Date");
END;
}

// Delete the following lines.
 { 1360018;Label ;660 ;440 ;3190 ;550 ;ParentControl=1360017 }
 { 1360020;Label ;660 ;1210 ;3190 ;550 ;ParentControl=1360021 }
 { 1360021;TextBox ;3960 ;1210 ;2000 ;500 ;CaptionML=[ENU=End Date;HUN=Z rï¿½ d tum]; SourceExpr=EndDate }
 { 1360000;Label ;660 ;2090 ;3190 ;550 ;ParentControl=1360001 }
 { 1360001;TextBox ;3960 ;2090 ;2000 ;500 ;CaptionML=[ENU=VAT Threshold Amount;
// End of the lines.

HUN=ï¿½fa kï¿½szï¿½bï¿½sszege];DateFormula=No;
SourceExpr=ThresholdAmount }
...

Código de substituição 3

... EndDate := CALCDATE('<-1D>',VATPeriod."Starting Date");
END;
}

// Add the following lines.
 { 1360018;Label ;220 ;220 ;3190 ;440 ;ParentControl=1360017 }
 { 1360020;Label ;220 ;770 ;3190 ;440 ;ParentControl=1360021 }
 { 1360021;TextBox ;3520 ;770 ;2000 ;440 ;CaptionML=[ENU=End Date;HUN=Z rï¿½ d tum]; SourceExpr=EndDate }
 { 1360000;Label ;220 ;1320 ;3190 ;440 ;ParentControl=1360001 }
 { 1360001;TextBox ;3520 ;1320 ;2000 ;440 ;CaptionML=[ENU=VAT Threshold Amount;
// End of the lines.

HUN=ï¿½fa kï¿½szï¿½bï¿½sszege];DateFormula=No;
SourceExpr=ThresholdAmount }
...

Altere o código no relatório de declaração de IVA discriminado 1365 (14522) da seguinte forma:
Código existente

...// Delete the following line.
OBJECT Report 14522 1365 Itemized VAT Statement

HUN=ï¿½fa kï¿½szï¿½bï¿½sszege];
DateFormula=No;
SourceExpr=ThresholdAmount }

...

Código de substituição

... EndDate := CALCDATE('<-1D>',VATPeriod."Starting Date");
END;
}

// Add the following line.
OBJECT Report 14522 Itemized VAT Statement

HUN=ï¿½fa kï¿½szï¿½bï¿½sszege];
DateFormula=No;
SourceExpr=ThresholdAmount }


...

Altere o código de propriedades em relatório 14522 da seguinte forma:
Código existente

...  }
  PROPERTIES
  {

// Delete the following lines.
   CaptionML=[ENU=1365 Itemized VAT Statement;
              HUN=1365 ti?½teles  fakimutat s];
// End of the lines.

    PaperSize=A4 210 x 297 mm;
  }
  DATAITEMS


...

Código de substituição

...  }
  PROPERTIES
  {
// Add the following lines.
   CaptionML=[ENU=Itemized VAT Statement;
              HUN=Ti?½teles  fakimutat s];
// End of the lines.

    PaperSize=A4 210 x 297 mm;
  }
  DATAITEMS


...

Altere o código na função Create1365MFile na exportação de formulário 1365 codeunit (14550) da seguinte forma:
Código existente

...      FullClientFilePath@1360008 : Text[1024];
      SummaryFileName@1360009 : Text[30];
BEGIN

// Delete the following lines.
     SetFolderLocation(FolderLocation,FileExtension);

     SummaryFileName := 'Result1365M.txt';
// End of the lines.

      CREATE(FilesSysObj);
      SummaryTextStream := FilesSysObj.CreateTextFile(TEMPORARYPATH + SummaryFileName,TRUE,FALSE);

...

Código de substituição

...      FullClientFilePath@1360008 : Text[1024];
      SummaryFileName@1360009 : Text[30];
BEGIN

// Add the following lines.
     SetFolderLocation(PeriodFrom,FolderLocation,FileExtension);

     SummaryFileName := 'Result' + GetFormID(PeriodFrom) + '.txt';
// End of the lines.

      CREATE(FilesSysObj);
      SummaryTextStream := FilesSysObj.CreateTextFile(TEMPORARYPATH + SummaryFileName,TRUE,FALSE);

...

Altere o código na função CreateAndDownloadFiles na exportação de formulário 1365 codeunit (14550) da seguinte forma:
1 de código existente

...                              ("Partner ID" <> PreviousTemp1365MBuffer."Partner ID");

            IF IsNewPartner AND Instantiated THEN BEGIN

// Delete the following line.
             UpdateAndDownloadFile(SummaryTextStream,PreviousTemp1365MBuffer,FolderLocation,FileExtension);

              Instantiated := FALSE;
            END;
...

1 código de substituição

...                               ("Partner ID" <> PreviousTemp1365MBuffer."Partner ID");

            IF IsNewPartner AND Instantiated THEN BEGIN

// Add the following line.
             UpdateAndDownloadFile(PeriodFrom,SummaryTextStream,PreviousTemp1365MBuffer,FolderLocation,FileExtension);

              Instantiated := FALSE;
            END;

...

2 de código existente

...
            IF IsForPrint THEN BEGIN
              IF NOT Instantiated THEN BEGIN

// Delete the following line.
               TextStream := FilesSysObj.CreateTextFile(TEMPORARYPATH + '1365M.txt',TRUE,FALSE);

                WriteFileHeader(PeriodFrom,PeriodTo,Temp1365MBuffer);
                Instantiated := TRUE;
              END;

...

Código de substituição 2

...
            IF IsForPrint THEN BEGIN
              IF NOT Instantiated THEN BEGIN

// Add the following line.
               TextStream := FilesSysObj.CreateTextFile(TEMPORARYPATH + GetFormID(PeriodFrom) + '.txt',TRUE,FALSE);

                WriteFileHeader(PeriodFrom,PeriodTo,Temp1365MBuffer);
                Instantiated := TRUE;
              END;

...

3 de código existente

...            PreviousTemp1365MBuffer := Temp1365MBuffer;
          UNTIL NEXT = 0;
          IF Instantiated THEN

// Delete the following line.
           UpdateAndDownloadFile(SummaryTextStream,PreviousTemp1365MBuffer,FolderLocation,FileExtension);

        END;
      END;
    END;

...

Código de substituição 3

...            PreviousTemp1365MBuffer := Temp1365MBuffer;
          UNTIL NEXT = 0;
          IF Instantiated THEN

// Add the following line.
           UpdateAndDownloadFile(PeriodFrom,SummaryTextStream,PreviousTemp1365MBuffer,FolderLocation,FileExtension);

        END;
      END;
    END;

...

Altere o código na função WriteFileHeader na exportação de formulário 1365 codeunit (14550) da seguinte forma:
Código existente

...      InitVariables;
      CompanyInformation.GET;

// Delete the following line.
     WriteText('$ny_azon=1365M');

      WriteText(PADSTR('$sorok_sz ma=',STRLEN('$sorok_sz ma=') + 10));
      WriteText('$d_lapok_sz ma=4');
      WriteText('$d_lap1=01-K,1');

...

Código de substituição

...      InitVariables;
      CompanyInformation.GET;

// Add the following line.
     WriteText('$ny_azon=' + GetFormID(PeriodFrom));

      WriteText(PADSTR('$sorok_sz ma=',STRLEN('$sorok_sz ma=') + 10));
      WriteText('$d_lapok_sz ma=4');
      WriteText('$d_lap1=01-K,1');

...

Altere o código na função UpdateAndDownloadFile na exportação de formulário 1365 codeunit (14550) da seguinte forma:
1 de código existente

...      Count1365M02K += 1;
    END;

// Delete the following line.
   PROCEDURE UpdateAndDownloadFile@1360041(VAR SummaryTextStream@1360004 : Automation "{F935DC20-1CF0-11D0-ADB9-00C04FD58A0B} 1.0:{0BB02EC0-EF49-11CF-8940-00A0C9054228}:'Windows Script Host Object Model'.TextStream";PreviousTemp1365MBuffer@1360001 : Record 14550;FolderLocation@1360000 : Text[1024];FileExtension@1360002 : Text[32]);

    VAR
      FullClientFilePath@1360003 : Text[1024];
      ServerFileName@1360005 : Text[1024];

...

1 código de substituição

...      Count1365M02K += 1;
    END;

// Add the following line.
   PROCEDURE UpdateAndDownloadFile@1360041(PeriodFrom@1360007 : Date;VAR SummaryTextStream@1360004 : Automation "{F935DC20-1CF0-11D0-ADB9-00C04FD58A0B} 1.0:{0BB02EC0-EF49-11CF-8940-00A0C9054228}:'Windows Script Host Object Model'.TextStream";PreviousTemp1365MBuffer@1360001 : Record 14550;FolderLocation@1360000 : Text[1024];FileExtension@1360002 : Text[32]);

    VAR
      FullClientFilePath@1360003 : Text[1024];
      ServerFileName@1360005 : Text[1024];

...

2 de código existente

...    BEGIN
      Write1365M;
      TextStream.Close;

// Delete the following line.
     ServerFileName := TEMPORARYPATH + '1365M.txt';

      UpdateCountLine(ServerFileName,CountLine);

      IF PreviousTemp1365MBuffer."VAT Registration No." <> '' THEN

...

Código de substituição 2

...    BEGIN
      Write1365M;
      TextStream.Close;

// Add the following line.
     ServerFileName := TEMPORARYPATH + GetFormID(PeriodFrom) + '.txt';

      UpdateCountLine(ServerFileName,CountLine);

      IF PreviousTemp1365MBuffer."VAT Registration No." <> '' THEN

...

3 de código existente

...        PartnerIdentification + '_' +
        FORMAT(TODAY,0,'<Year4,4><Month,2><Day,2>') + FileExtension;


// Delete the following line.
     DownloadFile(TextStream,FullClientFilePath,'1365M.txt');

      SummaryTextStream.WriteLine(FullClientFilePath);
    END;

...

Código de substituição 3

...        PartnerIdentification + '_' +
        FORMAT(TODAY,0,'<Year4,4><Month,2><Day,2>') + FileExtension;


// Add the following line.
     DownloadFile(TextStream,FullClientFilePath,GetFormID(PeriodFrom) + '.txt');

      SummaryTextStream.WriteLine(FullClientFilePath);
    END;

...

Altere o código na função SetFolderLocation na exportação de formulário 1365 codeunit (14550) da seguinte forma:
1 de código existente

...      CLEAR(NotItemizedPurchaseVATAmount);
    END;


// Delete the following line.
   LOCAL PROCEDURE SetFolderLocation@1360019(VAR ClientFileName@1360001 : Text[1024];VAR FileExtension@1360002 : Text[32]);

    VAR
      CommonDialogManagement@1360003 : Codeunit 412;
      DefaultFileType@1360004 : ' ,Text,Excel,Word,Custom,Xml,Htm,Xsd,Xslt';

...

1 código de substituição

...      CLEAR(NotItemizedPurchaseVATAmount);
    END;


// Add the following line.
   LOCAL PROCEDURE SetFolderLocation@1360019(PeriodFrom@1360000 : Date;VAR ClientFileName@1360001 : Text[1024];VAR FileExtension@1360002 : Text[32]);

    VAR
      CommonDialogManagement@1360003 : Codeunit 412;
      DefaultFileType@1360004 : ' ,Text,Excel,Word,Custom,Xml,Htm,Xsd,Xslt';

...

2 de código existente

...      Action@1360005 : 'Open,Save';
    BEGIN
      IF ClientFilePath <> '' THEN BEGIN

// Delete the following line.
       ClientFileName := ClientFilePath + '\1365M';

        FileExtension := '.imp';
      END ELSE BEGIN
        ClientFileName := CommonDialogManagement.OpenFile('',ClientFileName,DefaultFileType::Custom,FileType,Action::Save);

...

Código de substituição 2

...      Action@1360005 : 'Open,Save';
    BEGIN
      IF ClientFilePath <> '' THEN BEGIN

// Add the following line.
       ClientFileName := ClientFilePath + '\' + GetFormID(PeriodFrom);

        FileExtension := '.imp';
      END ELSE BEGIN
        ClientFileName := CommonDialogManagement.OpenFile('',ClientFileName,DefaultFileType::Custom,FileType,Action::Save);

...

Altere o código na função GetFormID na exportação de formulário 1365 codeunit (14550) da seguinte forma:
Código existente

...      EXIT(ROUND(Amount/1000,1));
    END;

    BEGIN
    END.
  }

...

Código de substituição

...      EXIT(ROUND(Amount/1000,1));
    END;

// Add the following lines.
   LOCAL PROCEDURE GetFormID@1360012(PeriodFrom@1360000 : Date) : Text[5];
   BEGIN
     EXIT(FORMAT(PeriodFrom,0,'<Year>') + '65M');
   END;
// End of the lines.

    BEGIN
    END.
  }

...

Altere o código de propriedades da MenuSuite a Hungria (30) da seguinte forma:
Código existente

...                                                                NextNodeID=[{00000000-0000-0000-0000-000000000000}] }
    {                ;[{698579F1-8311-4B43-AA7F-DA71B371DAB4}] ;NextNodeID=[{53D31DD1-62C5-45F8-AE69-D9716DFDAEFA}] }
{ MenuItem       ;[{53D31DD1-62C5-45F8-AE69-D9716DFDAEFA}] ;Name=Export/Print VAT 1365M Statement;

// Delete the following line.
                                                               CaptionML=[ENU=Export/Print VAT 1365M Stmt.;

                                                                           HUN=1365M  fakimutat s export l sa/nyomtat sa];
                                                                MemberOfMenu=[{F8D2429D-034B-4C58-9B5E-81BE962DB1BC}];
                                                                RunObjectType=Form;

...

Código de substituição

...                                                                NextNodeID=[{00000000-0000-0000-0000-000000000000}] }
    {                ;[{698579F1-8311-4B43-AA7F-DA71B371DAB4}] ;NextNodeID=[{53D31DD1-62C5-45F8-AE69-D9716DFDAEFA}] }
{ MenuItem       ;[{53D31DD1-62C5-45F8-AE69-D9716DFDAEFA}] ;Name=Export/Print VAT 1365M Statement;

// Add the following line.
                                                               CaptionML=[ENU=Export/Print Item. VAT Stat.;

                                                                           HUN=1365M  fakimutat s export l sa/nyomtat sa];
                                                                MemberOfMenu=[{F8D2429D-034B-4C58-9B5E-81BE962DB1BC}];
                                                                RunObjectType=Form;

...

Altere o código de propriedades no departamento – Hungria MenuSuite (1030) da seguinte forma:
Código existente

...                                                                DepartmentCategory=Reports and Analysis }
    {                ;[{698579F1-8311-4B43-AA7F-DA71B371DAB4}] ;NextNodeID=[{53D31DD1-62C5-45F8-AE69-D9716DFDAEFA}] }
{ MenuItem       ;[{53D31DD1-62C5-45F8-AE69-D9716DFDAEFA}] ;Name=Export/Print VAT 1365M Statement;

// Delete the following line.
                                                               CaptionML=[ENU=Export/Print VAT 1365M Stmt.;

                                                                           HUN=1365M  fakimutat s export l sa/nyomtat sa];
                                                                MemberOfMenu=[{F8D2429D-034B-4C58-9B5E-81BE962DB1BC}];
                                                                RunObjectType=Page;

...

Código de substituição 2

...                                                                DepartmentCategory=Reports and Analysis }
    {                ;[{698579F1-8311-4B43-AA7F-DA71B371DAB4}] ;NextNodeID=[{53D31DD1-62C5-45F8-AE69-D9716DFDAEFA}] }
{ MenuItem       ;[{53D31DD1-62C5-45F8-AE69-D9716DFDAEFA}] ;Name=Export/Print VAT 1365M Statement;

// Add the following line.
                                                               CaptionML=[ENU=Export/Print Item. VAT Stat.;

                                                                           HUN=1365M  fakimutat s export l sa/nyomtat sa];
                                                                MemberOfMenu=[{F8D2429D-034B-4C58-9B5E-81BE962DB1BC}];
                                                                RunObjectType=Page;

...

Altere o código na página exportação/impressão 1365 M (14550) da seguinte forma:
Código existente

...// Delete the following line.
OBJECT Page 14550 Export/Print 1365M

                                                                           HUN=1365M  fakimutat s export l sa/nyomtat sa];
                                                                MemberOfMenu=[{F8D2429D-034B-4C58-9B5E-81BE962DB1BC}];
                                                                RunObjectType=Page;

...

Código de substituição

...                                                                DepartmentCategory=Reports and Analysis }
    {                ;[{698579F1-8311-4B43-AA7F-DA71B371DAB4}] ;NextNodeID=[{53D31DD1-62C5-45F8-AE69-D9716DFDAEFA}] }
{ MenuItem       ;[{53D31DD1-62C5-45F8-AE69-D9716DFDAEFA}] ;Name=Export/Print VAT 1365M Statement;

// Add the following line.
OBJECT Page 14550 Export/Print Item. VAT Stat.

                                                                           HUN=1365M  fakimutat s export l sa/nyomtat sa];
                                                                MemberOfMenu=[{F8D2429D-034B-4C58-9B5E-81BE962DB1BC}];
                                                                RunObjectType=Page;

...

Altere o código de propriedades na página exportação/impressão 1365 M (14550) da seguinte forma:
2 de código existente

...  }
  PROPERTIES
  {

// Delete the following line.
   CaptionML=[ENU=Export/Print VAT 1365M Statement;

               HUN=1365M  fakimutat s export l sa/nyomtat sa];
    PageType=Card;
    OnInit=BEGIN

...

Código de substituição 2

...  }
  PROPERTIES
  {

// Add the following line.
   CaptionML=[ENU=Export/Print Item. VAT Stat.;

               HUN=1365M  fakimutat s export l sa/nyomtat sa];
    PageType=Card;
    OnInit=BEGIN

...

Pré-requisitos:

Você deve ter a versão em húngaro do Microsoft Dynamics NAV 2009 R2 instalado para aplicar esse hotfix.

Informações sobre remoção

Você não pode remover esse hotfix.

Status

A Microsoft confirma que este é um problema em seus produtos listados na seção "Aplica-se a".

Observação: Este é um artigo de "PUBLICAÇÃO RÁPIDA" criado diretamente de dentro da organização de suporte da Microsoft. As informações contidas neste documento são fornecidas desta maneira, em resposta a problemas emergentes. Como um dos resultados da velocidade da publicação, os materiais podem incluir erros tipográficos e podem ser revisados a qualquer momento sem aviso prévio. Consulte os Termos de usopara outras considerações.

Relatório de declaração de IVA discriminado usa identificação de forma incorreta na versão em húngaro do Microsoft Dynamics NAV 2009 R2

Sintomas

Resolução

Informações sobre a instalação

Alterações de código

Pré-requisitos:

Informações sobre remoção

Status

Precisa de mais ajuda?

Quer mais opções

Essas informações foram úteis?

Agradecemos seus comentários!