Relatório de declaração de IVA discriminado utiliza o ID de formulário incorrecta na versão em húngaro do Microsoft Dynamics NAV 2009 R2

Este artigo aplica-se para o Microsoft Dynamics NAV para a região do idioma húngaro (hu).

Sintomas

Na versão em húngaro do Microsoft Dynamics NAV 2009 R2, o relatório de declaração de IVA discriminadas é conhecido como 1365M tem um nome incorrecto e utiliza o ID de formulário incorrecta quando exporta os dados para um ficheiro de texto. 1365 era um nome temporário que foi utilizado apenas durante o ano de 2013. Este ID altera todos os anos. Por exemplo:

De 2013, era 1365.
2014, é 1465.
2015, será 1565.

Aumentam os dois primeiros dígitos em todos os anos. Os nomes de objectos também estão incorrectos. Estes devem ser designados como "Declaração de IVA discriminadas" sem o número.

Resolução

Agora tem uma correcção suportada disponível na Microsoft. Contudo, destina-se apenas a corrigir o problema descrito neste artigo. Aplique-a apenas em sistemas que tenham este problema específico. Esta correcção poderá ser submetida a testes adicionais. Por conseguinte, se não estiver a ser gravemente afectado por este problema, recomendamos que aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contenha esta correcção.

Nota Em casos especiais, os custos normalmente inerentes para suporte chamadas poderão ser anuladas se um técnico de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma actualização específica resolverá o problema. Os custos de normais do suporte serão aplicados a questões de suporte adicionais e problemas que não se enquadrem na atualização específica em questão.

Informações de instalação

A Microsoft fornece exemplos de programação apenas a título ilustrativo, sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas que são utilizadas para criar e depurar procedimentos. Técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador.

Nota Antes de instalar esta correcção, certifique-se de que todos os utilizadores de cliente do Microsoft Dynamics NAV são registados no sistema. Isto inclui os serviços de servidor de aplicações (NAS) do Microsoft Dynamics NAV. Deve ser o único usuário do cliente que tem sessão iniciada quando implementar esta correcção.

Para implementar esta correcção, tem de ter uma licença de desenvolvedor.

Recomendamos que a conta de utilizador na janela Logins do Windows ou na janela Logins de base de dados seja atribuída a ID de função "SUPER". Se a conta de utilizador não é possível atribuir o ID de função "SUPER", tem de verificar que a conta de utilizador tem as seguintes permissões:

A permissão Modificar para o objecto que estará a alterar.
A permissão executar para o objecto 5210 de ID de objecto de sistema e para o 9015 de ID de objecto de sistema

objecto.

Nota Não tem de ter direitos para os arquivos de dados, excepto se tiver de efectuar a reparação de dados.

Alterações de código

Nota Sempre o código de ensaio corrige num ambiente controlado antes de aplicar as correcções para os computadores de produção.

Para resolver este problema, siga estes passos:

Altere o código nos campos no formulário de 1365 M de exportação/impressão (14550) do seguinte modo:
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 do formulário 14550 do seguinte modo:
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 controlos de formulário 14550 do seguinte modo:
Código existente 1

... }
CONTROLS
{

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



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

Código de substituição 1

... }
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
{
...

Código existente 2

... 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;
...

Código existente 3

... 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 discriminadas 1365 (14522) do seguinte modo:
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 de relatório 14522 do seguinte modo:
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 codeunit formulário 1365 exportação (14550) do seguinte modo:
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 codeunit formulário 1365 exportação (14550) do seguinte modo:
Código existente 1

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

            IF IsNewPartner AND Instantiated THEN BEGIN

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

              Instantiated := FALSE;
            END;
...

Código de substituição 1

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

            IF IsNewPartner AND Instantiated THEN BEGIN

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

              Instantiated := FALSE;
            END;

...

Código existente 2

...
            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;

...

Código existente 3

...            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 codeunit formulário 1365 exportação (14550) do seguinte modo:
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 codeunit formulário 1365 exportação (14550) do seguinte modo:
Código existente 1

...      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];

...

Código de substituição 1

...      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];

...

Código existente 2

...    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

...

Código existente 3

...        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 codeunit formulário 1365 exportação (14550) do seguinte modo:
Código existente 1

...      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';

...

Código de substituição 1

...      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';

...

Código existente 2

...      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 codeunit formulário 1365 exportação (14550) do seguinte modo:
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 em MenuSuite a Hungria (30) do seguinte modo:
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 em Dept – MenuSuite da Hungria (1030) do seguinte modo:
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 de 1365 M de exportação/impressão (14550) do seguinte modo:
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 da página de 1365 M de exportação/impressão (14550) do seguinte modo:
Código existente 2

...  }
  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

Tem de ter a versão em húngaro do Microsoft Dynamics NAV 2009 R2 instalado para aplicar esta correcção.

Informações de remoção

Não é possível remover esta correcção.

Estado

A Microsoft confirmou que este é um problema nos produtos da Microsoft listados na secção "Aplica-se a".

Nota Este é um artigo "Publicação rápida" criado diretamente a partir da organização de suporte da Microsoft. As informações contidas neste documento são fornecidas como-se em resposta a questões emergentes. Como resultado da urgência na sua disponibilização, os materiais podem incluir erros tipográficos e podem ser revistos em qualquer altura sem aviso prévio. Para outras considerações, consulte os Termos de utilização.

Relatório de declaração de IVA discriminado utiliza o ID de formulário incorrecta na versão em húngaro do Microsoft Dynamics NAV 2009 R2

Sintomas

Resolução

Informações de instalação

Alterações de código

Pré-requisitos

Informações de remoção

Estado

Precisa de mais ajuda?

Quer mais opções?

Estas informações foram úteis?

Obrigado pelo seu feedback!