Os seguintes problemas ocorre:

  • Os valores base e valor são arredondados.

  • O total de linhas estão incorrectas e gera o erro seguinte quando tentar enviar o ficheiro na página AT:

    60201201 777777777

Siga os passos na secção de alterações de código para resolver este problema. Este problema ocorre nos seguintes produtos:

  • A versão portuguesa do Microsoft Dynamics NAV 2009 R2

  • A versão portuguesa do Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

Resolução

Informações sobre correçã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:

  1. Altere o código na função InsertECDeclarationTrailer da tabela de Buffer Mapas IVA (13380) do seguinte modo:
    Existentes co de

    ...BEGIN
    NewLine;
    //NAVPTL005.001,o InsertIntegerValue (89, 2);

    // Delete the following line.
    InsertIntegerValue (98, 2); //NAVPTL005.001,n

    InsertIntegerValue (LineNumber, 9);
    PadLinetill134Characters(Blank);
    END;
    ...

    Código de substituição

    ...BEGIN
    NewLine;
    //NAVPTL005.001,o InsertIntegerValue (89, 2);

    // Add the following lines.
    //PT355807,o InsertIntegerValue (98, 2); //NAVPTL005.001,n
    InsertIntegerValue (89, 2); //PT355807,n
    // End of the added lines.

    InsertIntegerValue (LineNumber, 9);
    PadLinetill134Characters(Blank);
    END;
    ...
  2. Altere o código na função InsertAnnex4041CustomerLine da tabela de Buffer Mapas IVA (13380) do seguinte modo:
    Código existente

    ...InsertIntegerValue (pLineNumber, 5);
    InsertTextValue (pVATAnnexSetup."Tax Authority Code",2,Blank);
    InsertTextValue (pVATRegNo, 9,Blank);

    // Delete the following lines.
    InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
    InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
    // End of the deleted lines.

    InsertTextValue (Blank,92,Blank);
    END;
    ...

    Código de substituição

    ...InsertIntegerValue (pLineNumber, 5);
    InsertTextValue (pVATAnnexSetup."Tax Authority Code",2,Blank);
    InsertTextValue (pVATRegNo, 9,Blank);

    // Add the following lines.
    //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
    //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
    InsertIntegerValue(ABS(ROUND(pVATEntry.Base*100,1,'<')),12); //PT355807,n
    InsertIntegerValue(ABS(ROUND(pVATEntry.Amount*100,1,'<')),12); //PT355807,n
    // End of the added lines.

    InsertTextValue (Blank,92,Blank);
    END;
    ...
  3. Altere o código na função InsertAnnex4041DocumentLine da tabela de Buffer Mapas IVA (13380) do seguinte modo:
    Código existente

    ...InsertIntegerValue (pLineNumber, 5);
    InsertTextValue (pVATAnnexSetup."Tax Authority Code",2,Blank);
    InsertTextValue(pDocNo,13,Blank);

    // Delete the following line.
    InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);

    InsertTextValue (Blank,100,Blank);
    END;
    ...

    Código de substituição

    ...InsertIntegerValue (pLineNumber, 5);
    InsertTextValue (pVATAnnexSetup."Tax Authority Code",2,Blank);
    InsertTextValue(pDocNo,13,Blank);

    // Add the following lines.
    //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
    InsertIntegerValue(ABS(ROUND(pVATEntry.Amount*100,1,'<')),12); //PT355807,n
    // End of the added lines.

    InsertTextValue (Blank,100,Blank);
    END;
    ...
  4. Altere o código na função InsertAnnex4041ReasonLine da tabela de Buffer Mapas IVA (13380) do seguinte modo:
    Código existente 1

    ...InsertTextValue (Blank,100,Blank);
    END;

    // Delete the following lines.
    PROCEDURE InsertAnnex4041ReasonLine@1000000003(pVATAnnexSetup@1000000000 : Record 13386;pVATEntry@1000000003 : Record 254);
    BEGIN
    NewLine;
    InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
    IF pVATAnnexSetup.Frame = pVATAnnexSetup.Frame::"2" THEN BEGIN
    InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
    InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
    InsertTextValue (Blank,50,Blank);
    // End of the deleted lines.

    END;

    IF pVATAnnexSetup.Frame = pVATAnnexSetup.Frame::"3" THEN BEGIN
    ...

    Código de substituição 1

    ...InsertTextValue (Blank,100,Blank);
    END;

    // Add the following lines.
    PROCEDURE InsertAnnex4041ReasonLine@1000000003(pVATAnnexSetup@1000000000 : Record 13386;pVATEntry@1000000003 : Record 254;LineNo@1000000001 : Integer);
    BEGIN
    //PT355807,o NewLine;
    //PT355807,o InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
    IF pVATAnnexSetup.Frame = pVATAnnexSetup.Frame::"2" THEN BEGIN
    //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
    //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
    //PT355807,o InsertTextValue (Blank,50,Blank);
    //PT355807,sn
    IF (pVATAnnexSetup.SubSection = 'a') OR (pVATAnnexSetup.SubSection = '') THEN BEGIN
    NewLine;
    InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
    END;
    IF (pVATAnnexSetup.SubSection = 'b') AND (LineNo=1) THEN BEGIN
    NewLine;
    InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
    InsertIntegerValue(0,24);
    END;
    InsertIntegerValue(ABS(ROUND(pVATEntry.Base*100,1,'<')),12);
    InsertIntegerValue(ABS(ROUND(pVATEntry.Amount*100,1,'<')),12);
    //PT355807,en
    // End of the added lines.

    END;

    IF pVATAnnexSetup.Frame = pVATAnnexSetup.Frame::"3" THEN BEGIN
    ...

    Código existente 2

    ...IF pVATAnnexSetup.Frame = pVATAnnexSetup.Frame::"3" THEN BEGIN
    IF (pVATAnnexSetup.SubSection = 'a') OR (pVATAnnexSetup.SubSection = 'A') THEN BEGIN

    // Delete the following lines.
    InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
    InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
    END;
    IF (pVATAnnexSetup.SubSection = 'b') OR (pVATAnnexSetup.SubSection = 'B') THEN BEGIN
    InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
    InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
    // End of the deleted lines.

    END;
    END;
    ...

    Código de substituição 2

    ...IF pVATAnnexSetup.Frame = pVATAnnexSetup.Frame::"3" THEN BEGIN
    IF (pVATAnnexSetup.SubSection = 'a') OR (pVATAnnexSetup.SubSection = 'A') THEN BEGIN

    // Add the following lines.
    //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
    //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
    //PT355807,sn
    IF (LineNo=1) THEN BEGIN
    NewLine;
    InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
    InsertIntegerValue(0,24);
    END;
    InsertIntegerValue(ABS(ROUND(pVATEntry.Base*100,1,'<')),12);
    InsertIntegerValue(ABS(ROUND(pVATEntry.Amount*100,1,'<')),12);
    //PT355807,en
    END;
    IF (pVATAnnexSetup.SubSection = 'b') OR (pVATAnnexSetup.SubSection = 'B') THEN BEGIN
    //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
    //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
    //PT355807,sn
    IF (LineNo=1) THEN BEGIN
    NewLine;
    InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
    InsertIntegerValue(0,48);
    END;
    InsertIntegerValue(ABS(ROUND(pVATEntry.Base*100,1,'<')),12);
    InsertIntegerValue(ABS(ROUND(pVATEntry.Amount*100,1,'<')),12);
    //PT355807,en
    // End of the added lines.

    END;
    END;
    ...

    Código existente 3

    ...END;
    END;

    // Delete the following lines.
    InsertTextValue (Blank,48,Blank);;
    END;

    PROCEDURE LastVATAnnex40Line@1000000006(pVATregNo@1000000000 : Text[9];pResumes@1000000001 : ARRAY [10] OF Integer);
    BEGIN
    // End of the deleted lines.

    NewLine;
    InsertTextValue ('96',2,Blank);
    InsertIntegerValue (1, 5);
    ...

    Código de substituição 3

    ...END;
    END;

    // Add the following lines.
    //PT355807,o InsertTextValue (Blank,48,Blank);
    END;

    PROCEDURE LastVATAnnex40Line@1000000006(pTotalAmount@1000000002 : Decimal;pVATregNo@1000000000 : Text[9];pResumes@1000000001 : ARRAY [10] OF Integer);
    BEGIN
    //PT355807,o NewLine;
    InsertIntegerValue(ABS(ROUND(pTotalAmount*100,1,'<')),12);
    InsertTextValue (Blank,48,Blank);
    InsertVAT40LastLine(24);
    // End of the added lines.

    NewLine;
    InsertTextValue ('96',2,Blank);
    InsertIntegerValue (1, 5);
    ...
  5. Altere o código na função LastVATAnnex40Line da tabela de Buffer Mapas IVA (13380) do seguinte modo:
    Código existente 1

    ...InsertTextValue (Blank,118,Blank);
    NewLine;
    InsertTextValue ('69',2,Blank);

    // Delete the following line.
    InsertIntegerValue (pResumes[1], 5);

    InsertIntegerValue (pResumes[2], 5);
    InsertIntegerValue (pResumes[3], 5);
    InsertIntegerValue (pResumes[4], 5);
    ...

    Código de substituição 1

    ...InsertTextValue (Blank,118,Blank);
    NewLine;
    InsertTextValue ('69',2,Blank);

    // Add the following line.
    //PT355807,o InsertIntegerValue (pResumes[1], 5);

    InsertIntegerValue (pResumes[2], 5);
    InsertIntegerValue (pResumes[3], 5);
    InsertIntegerValue (pResumes[4], 5);
    ...

    Código existente 2

    ...InsertIntegerValue (pResumes[7], 5);
    InsertIntegerValue (pResumes[8], 5);
    InsertIntegerValue (1, 5);
    END;

    PROCEDURE LastVATAnnex41Line@1000000004(pVATAnnexSetup@1000000001 : Record 13386;pTotalAmount@1000000000 : Decimal;pResumes@1000000002 : ARRAY [10] OF Integer);
    ...

    Código de substituição 2

    ...InsertIntegerValue (pResumes[7], 5);
    InsertIntegerValue (pResumes[8], 5);
    InsertIntegerValue (1, 5);

    // Add the following line.
    InsertTextValue (Blank,94,Blank); //PT355807,n

    END;

    PROCEDURE LastVATAnnex41Line@1000000004(pVATAnnexSetup@1000000001 : Record 13386;pTotalAmount@1000000000 : Decimal;pResumes@1000000002 : ARRAY [10] OF Integer);
    ...
  6. Altere o código na função LastVATAnnex41Line da tabela de Buffer Mapas IVA (13380) do seguinte modo:
    Código existente 1

    ...PROCEDURE LastVATAnnex41Line@1000000004(pVATAnnexSetup@1000000001 : Record 13386;pTotalAmount@1000000000 : Decimal;pResumes@1000000002 : ARRAY [10] OF Integer);
    BEGIN

    // Delete the following lines.
    NewLine;
    InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
    InsertIntegerValue(ABS(ROUND(pTotalAmount,1,'<')*100),12);
    NewLine;
    InsertTextValue ('89',2,Blank);
    InsertIntegerValue (pResumes[1], 5);
    // End of the deleted lines.

    InsertIntegerValue (pResumes[2], 5);
    InsertIntegerValue (pResumes[3], 5);
    InsertIntegerValue (pResumes[4], 5);
    ...

    Código de substituição 1

    ...PROCEDURE LastVATAnnex41Line@1000000004(pVATAnnexSetup@1000000001 : Record 13386;pTotalAmount@1000000000 : Decimal;pResumes@1000000002 : ARRAY [10] OF Integer);
    BEGIN

    // Add the following lines.
    //PT355807,o NewLine;
    //PT355807,o InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
    InsertIntegerValue(ABS(ROUND(pTotalAmount*100,1,'<')),12);
    InsertTextValue (Blank,72,Blank);
    InsertVAT41LastLine(24);
    NewLine;
    InsertTextValue ('89',2,Blank);
    //PT355807,o InsertIntegerValue (pResumes[1], 5);
    // End of the added lines.

    InsertIntegerValue (pResumes[2], 5);
    InsertIntegerValue (pResumes[3], 5);
    InsertIntegerValue (pResumes[4], 5);
    ...

    Código existente 2

    ...InsertIntegerValue (pResumes[4], 5);
    InsertIntegerValue (pResumes[5], 5);
    InsertIntegerValue (pResumes[6], 5);
    END;

    BEGIN
    ...

    Código de substituição 2

    ...InsertIntegerValue (pResumes[4], 5);
    InsertIntegerValue (pResumes[5], 5);
    InsertIntegerValue (pResumes[6], 5);

    // Add the following lines.
    InsertIntegerValue (pResumes[7], 5); //PT355807,n
    InsertTextValue (Blank,104,Blank); //PT355807,n
    END;

    PROCEDURE InsertVAT40LastLine@1000000005(Size@1000000000 : Integer);
    BEGIN
    //PT355807,sn
    FIND('+');
    IF STRLEN("Line Value") <> 134 THEN BEGIN
    "Line Value" := COPYSTR("Line Value",1,50) + CONVERTSTR (FORMAT (0, Size, 0), Blank, HeadingZero) + COPYSTR("Line Value",51);
    MODIFY;
    END;
    //PT355807,en
    END;

    PROCEDURE InsertVAT41LastLine@1000000007(Size@1000000000 : Integer);
    BEGIN
    //PT355807,sn
    FIND('+');
    IF STRLEN("Line Value") <> 134 THEN BEGIN
    "Line Value" := COPYSTR("Line Value",1,26) + CONVERTSTR (FORMAT (0, Size, 0), Blank, HeadingZero) + COPYSTR("Line Value",27);
    MODIFY;
    END;
    //PT355807,en
    END;

    PROCEDURE LastVATAnnex40Line2@1000000009(pVATAnnexSetup@1000000003 : Record 13386;pTotalAmount@1000000002 : Decimal;pVATregNo@1000000000 : Text[9];pResumes@1000000001 : ARRAY [10] OF Integer);
    BEGIN
    //PT355807,sn
    NewLine;
    InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
    InsertIntegerValue(0,72);
    InsertIntegerValue(ABS(ROUND(pTotalAmount*100,1,'<')),12);
    InsertTextValue (Blank,48,Blank);
    NewLine;
    InsertTextValue ('96',2,Blank);
    InsertIntegerValue (1, 5);
    InsertTextValue(pVATregNo,9,Blank);
    InsertTextValue (Blank,118,Blank);
    NewLine;
    InsertTextValue ('69',2,Blank);
    InsertIntegerValue (pResumes[2], 5);
    InsertIntegerValue (pResumes[3], 5);
    InsertIntegerValue (pResumes[4], 5);
    InsertIntegerValue (pResumes[5], 5);
    InsertIntegerValue (pResumes[6], 5);
    InsertIntegerValue (pResumes[7], 5);
    InsertIntegerValue (pResumes[8], 5);
    InsertIntegerValue (1, 5);
    InsertTextValue (Blank,92,Blank);
    //PT355807,en
    END;

    PROCEDURE LastVATAnnex41Line2@1000000008(pVATAnnexSetup@1000000001 : Record 13386;pTotalAmount@1000000000 : Decimal;pResumes@1000000002 : ARRAY [10] OF Integer);
    BEGIN
    //PT355807,sn
    NewLine;
    InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
    InsertIntegerValue(0,48);
    InsertIntegerValue(ABS(ROUND(pTotalAmount*100,1,'<')),12);
    InsertTextValue (Blank,72,Blank);
    NewLine;
    InsertTextValue ('89',2,Blank);
    InsertIntegerValue (pResumes[2], 5);
    InsertIntegerValue (pResumes[3], 5);
    InsertIntegerValue (pResumes[4], 5);
    InsertIntegerValue (pResumes[5], 5);
    InsertIntegerValue (pResumes[6], 5);
    InsertIntegerValue (pResumes[7], 5);
    InsertTextValue (Blank,102,Blank);
    //NAVPTL005.002,en
    // End of the added lines.

    END;

    BEGIN
    ...
  7. Altere o código na declaração de IVA (PT) relatório (13398) do seguinte modo:
    Código existente 1

    ...IF recVATAnnexSetup."Record Type" = LastRecordType THEN
    LineNo += 1
    ELSE BEGIN

    //Delete the following lines.
    IndiceArray += 1;
    ResumeLines[IndiceArray] := LineNo;
    LastRecordType := recVATAnnexSetup."Record Type";
    LineNo := 1;
    // End of the deleted lines.

    END;

    VATRepBuffer.InsertAnnex4041CustomerLine(recVATAnnexSetup,LineNo,"VAT Registration No.","VAT Entry Customer");
    ...

    Código de substituição 1

    ...IF recVATAnnexSetup."Record Type" = LastRecordType THEN
    LineNo += 1
    ELSE BEGIN

    // Add the following lines.
    //PT355807,o IndiceArray += 1;
    //PT355807,sn
    EVALUATE(recType,recVATAnnexSetup."Record Type");
    IF AnnexFilter = 40 THEN
    IndiceArray := recType - 60
    ELSE
    IndiceArray := recType - 80;
    //PT355807,en
    ResumeLines[IndiceArray] := LineNo;
    LastRecordType := recVATAnnexSetup."Record Type";
    LineNo := 1;
    // End of the added lines.

    END;

    VATRepBuffer.InsertAnnex4041CustomerLine(recVATAnnexSetup,LineNo,"VAT Registration No.","VAT Entry Customer");
    ...

    Código existente 2

    ...IF recVATAnnexSetup."Record Type" = LastRecordType THEN
    LineNo += 1
    ELSE BEGIN

    // Delete the following lines.
    IndiceArray += 1;
    ResumeLines[IndiceArray] := LineNo;
    LastRecordType := recVATAnnexSetup."Record Type";
    LineNo := 1;
    // End of the deleted lines.

    END;

    VATRepBuffer.InsertAnnex4041DocumentLine(recVATAnnexSetup,LineNo,"External Document No.","VAT Entry Document No.");
    ...

    Código de substituição 2

    ...IF recVATAnnexSetup."Record Type" = LastRecordType THEN
    LineNo += 1
    ELSE BEGIN

    // Add the following lines.
    //PT355807,o IndiceArray += 1;
    //PT355807,sn
    EVALUATE(recType,recVATAnnexSetup."Record Type");
    IF AnnexFilter = 40 THEN
    IndiceArray := recType - 60
    ELSE
    IndiceArray := recType - 80;
    //PT355807,en
    ResumeLines[IndiceArray] := LineNo;
    LastRecordType := recVATAnnexSetup."Record Type";
    LineNo := 1;
    // End of the added lines.

    END;

    VATRepBuffer.InsertAnnex4041DocumentLine(recVATAnnexSetup,LineNo,"External Document No.","VAT Entry Document No.");
    ...

    Código existente 3

    ...OnPostDataItem=BEGIN
    CLEAR(recVATAnnexSetup);

    // Delete the following lines.
    recVATAnnexSetup.SETRANGE("Reason Code", "Reason Code");
    IF recVATAnnexSetup.FINDFIRST THEN

    IF AnnexFilter = 41 THEN
    VATRepBuffer.LastVATAnnex41Line(recVATAnnexSetup,TotalVATAnnexAmount,ResumeLines);
    // End of the deleted lines.

    END;

    TotalFields=Base,Amount;
    ...

    Código de substituição 3

    ...OnPostDataItem=BEGIN
    CLEAR(recVATAnnexSetup);

    // Add the following lines.
    booTotal := FALSE; //PT355807,n
    recVATAnnexSetup.SETRANGE("Reason Code", "Reason Code");
    //PT355807,o IF recVATAnnexSetup.FINDFIRST THEN
    //PT355807,o IF AnnexFilter = 41 THEN
    //PT355807,o VATRepBuffer.LastVATAnnex41Line(recVATAnnexSetup,TotalVATAnnexAmount,ResumeLines);
    //PT355807,sn
    IF recVATAnnexSetup.FINDFIRST THEN BEGIN
    IF AnnexFilter = 41 THEN BEGIN
    booTotal := TRUE;
    VATRepBuffer.LastVATAnnex41Line(recVATAnnexSetup,TotalVATAnnexAmount,ResumeLines);
    END;

    IF AnnexFilter = 40 THEN BEGIN
    booTotal := TRUE;
    VATRepBuffer.LastVATAnnex40Line(TotalVATAnnexAmount,FORMAT(FiscalNo),ResumeLines);
    END;
    END;
    //PT355807,en
    // End of the added lines.

    END;

    TotalFields=Base,Amount;
    ...

    Código existente 4

    ...IF recVATAnnexSetup."Record Type" = LastRecordType THEN
    LineNo += 1
    ELSE BEGIN

    // Delete the following lines.
    IndiceArray += 1;
    ResumeLines[IndiceArray] := LineNo;
    LastRecordType := recVATAnnexSetup."Record Type";
    LineNo := 1;
    // End of the deleted lines.

    END;

    TotalVATAnnexBase += Base;
    ...

    Código de substituição 4

    ...IF recVATAnnexSetup."Record Type" = LastRecordType THEN
    LineNo += 1
    ELSE BEGIN

    // Add the following lines.
    //PT355807,o IndiceArray += 1;
    //PT355807,sn
    EVALUATE(recType,recVATAnnexSetup."Record Type");
    IF AnnexFilter = 40 THEN
    IndiceArray := recType - 60
    ELSE
    IndiceArray := recType - 80;
    //PT355807,en
    ResumeLines[IndiceArray] := LineNo;
    LastRecordType := recVATAnnexSetup."Record Type";
    LineNo := 1;
    // End of the added lines.

    END;

    TotalVATAnnexBase += Base;
    ...

    Código existente 5

    ...RegistersNumber += 1;

    // Delete the following line.
    VATRepBuffer.InsertAnnex4041ReasonLine(recVATAnnexSetup,"VAT Entry Reason Code");

    END;

    }
    ...

    Código de substituição 5

    ...RegistersNumber += 1;


    + //PT355807,o VATRepBuffer.InsertAnnex4041ReasonLine(recVATAnnexSetup,"VAT Entry Reason Code");
    + VATRepBuffer.InsertAnnex4041ReasonLine(recVATAnnexSetup,"VAT Entry Reason Code",LineNo); //PT355807,n
    END;

    }

    Código existente 6

    ...WHERE(Number=CONST(1));
    DataItemVarName=TotalInteger;
    OnAfterGetRecord=BEGIN

    // Delete the following lines.
    IF AnnexFilter = 40 THEN
    VATRepBuffer.LastVATAnnex40Line(FORMAT(FiscalNo),ResumeLines);
    // End of the deleted lines.

    END;

    }
    ...

    Código de substituição 6

    ...WHERE(Number=CONST(1));
    DataItemVarName=TotalInteger;
    OnAfterGetRecord=BEGIN

    // Add the following lines.
    //PT355807,o IF AnnexFilter = 40 THEN
    //PT355807,o VATRepBuffer.LastVATAnnex40Line(FORMAT(FiscalNo),ResumeLines);
    //PT355807,sn
    IF NOT booTotal THEN BEGIN
    recVATAnnexSetup2.RESET;
    recVATAnnexSetup2.SETFILTER(Annex, FORMAT(AnnexFilter));
    IF recVATAnnexSetup2.FINDLAST THEN BEGIN
    IF AnnexFilter = 40 THEN
    VATRepBuffer.LastVATAnnex40Line2(recVATAnnexSetup2,TotalVATAnnexAmount,FORMAT(FiscalNo),ResumeLines);

    IF AnnexFilter = 41 THEN
    VATRepBuffer.LastVATAnnex41Line2(recVATAnnexSetup2,TotalVATAnnexAmount,ResumeLines);
    END;
    END;
    //PT355807,en
    // End of the added lines.

    END;

    }
    ...

    Código existente 7

    ...LastRecordType@1000000009 : Text[2];
    TotalVATAnnexBase@1000000005 : Decimal;
    TotalVATAnnexAmount@1000000006 : Decimal;

    PROCEDURE CalcLineTotal2C@1110001(VATStmtLine2@1110000 : Record 256;Level@1110001 : Integer) : Boolean;
    BEGIN
    ...

    Código de substituição 7

    ...LastRecordType@1000000009 : Text[2];
    TotalVATAnnexBase@1000000005 : Decimal;
    TotalVATAnnexAmount@1000000006 : Decimal;

    // Add the following lines.
    booTotal@1000000013 : Boolean;
    recVATAnnexSetup2@1000000014 : Record 13386;
    recType@1000000015 : Integer;
    // End of the added lines.

    PROCEDURE CalcLineTotal2C@1110001(VATStmtLine2@1110000 : Record 256;Level@1110001 : Integer) : Boolean;
    BEGIN
    ...


Pré-requisitos

Tem de ter um dos seguintes produtos instalado para aplicar esta correcção:

  • A versão portuguesa do Microsoft Dynamics NAV 2009 R2

  • A versão portuguesa do Microsoft Dynamics NAV 2009 SP1

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.

Precisa de mais ajuda?

Aumente os seus conhecimentos

Explore as formações >

Seja o primeiro a obter novas funcionalidades

Aderir ao Microsoft insiders >

As informações foram úteis?

Quão satisfeito está com a qualidade do idioma?
O que afetou a sua experiência?

Obrigado pelo seu feedback!

×