IVA nas estatísticas de compras é calculado de novo depois de efectuar uma alteração quando abre o formulário de estatísticas ou a página no Microsoft Dynamics NAV 2009

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.

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 de função UpdateVATAmounts na tabela Linha venda (37) do seguinte modo:
   Código existente 1

   ...END;
   
         LOCAL PROCEDURE UpdateVATAmounts@38();
         VAR
           SalesLine2@1000 : Record 37;
           TotalLineAmount@1005 : Decimal;
           TotalInvDiscAmount@1004 : Decimal;
           TotalAmount@1001 : Decimal;
           TotalAmountInclVAT@1002 : Decimal;
           TotalQuantityBase@1003 : Decimal;
   ...
   

   Código de substituição 1

   ...END;
   
         LOCAL PROCEDURE UpdateVATAmounts@38();
         VAR
           SalesLine2@1000 : Record 37;
   
   // Add the following line.
          CustPostingGr@1009 : Record 92;
   // End of the added line.
   
           TotalLineAmount@1005 : Decimal;
           TotalInvDiscAmount@1004 : Decimal;
           TotalAmount@1001 : Decimal;
           TotalAmountInclVAT@1002 : Decimal;
           TotalQuantityBase@1003 : Decimal;
   ...
   

   Código existente 2

   ...SalesLine2.SETFILTER(Amount,'>%1',0)
             ELSE
               SalesLine2.SETFILTER(Amount,'<%1',0);
           SalesLine2.SETRANGE("VAT Identifier","VAT Identifier");
           SalesLine2.SETRANGE("Tax Group Code","Tax Group Code");
   
           IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   ...
   

   Código de substituição 2

   ...SalesLine2.SETFILTER(Amount,'>%1',0)
             ELSE
               SalesLine2.SETFILTER(Amount,'<%1',0);
           SalesLine2.SETRANGE("VAT Identifier","VAT Identifier");
           SalesLine2.SETRANGE("Tax Group Code","Tax Group Code");
   
   // Add the following line.
          CustPostingGr.GET(SalesHeader."Customer Posting Group");
   // End of the added line.
   
           IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   ...
   

   Código existente 3

   ...IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   
   // Delete the following line.
            IF "Line No." <> 0 THEN
   // End of the deleted line.
   
               IF MODIFY THEN
                 IF SalesLine2.FINDLAST THEN BEGIN
                   SalesLine2.UpdateAmounts;
                   SalesLine2.MODIFY;
                 END;
   ...
   

   Código de substituição 3

   ...IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   
   // Add the following line.
            IF ("Line No." <> 0) AND NOT ((Type = Type::"G/L Account") AND ("No." = CustPostingGr."Service Charge Acc.")) THEN
   // End of the added line.
   
               IF MODIFY THEN
                 IF SalesLine2.FINDLAST THEN BEGIN
                   SalesLine2.UpdateAmounts;
                   SalesLine2.MODIFY;
                 END;
   ...
   

2. Altere o código de função UpdateVATAmounts na tabela Linha Compra (39) do seguinte modo:
   Código existente 1

   ...END;
   
         LOCAL PROCEDURE UpdateVATAmounts@38();
         VAR
           PurchLine2@1000 : Record 39;
           TotalLineAmount@1005 : Decimal;
           TotalInvDiscAmount@1004 : Decimal;
           TotalAmount@1001 : Decimal;
           TotalAmountInclVAT@1002 : Decimal;
           TotalQuantityBase@1003 : Decimal;
   ...
   

   Código de substituição 1

   ...END;
   
         LOCAL PROCEDURE UpdateVATAmounts@38();
         VAR
           PurchLine2@1000 : Record 39;
   
   // Add the following line.
          VendPostingGr@1009 : Record 93;
   // End of the added line.
   
           TotalLineAmount@1005 : Decimal;
           TotalInvDiscAmount@1004 : Decimal;
           TotalAmount@1001 : Decimal;
           TotalAmountInclVAT@1002 : Decimal;
           TotalQuantityBase@1003 : Decimal;
   ...
   

   Código existente 2

   ...PurchLine2.SETFILTER(Amount,'>%1',0)
             ELSE
               PurchLine2.SETFILTER(Amount,'<%1',0);
           PurchLine2.SETRANGE("VAT Identifier","VAT Identifier");
           PurchLine2.SETRANGE("Tax Group Code","Tax Group Code");
   
           IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   ...
   

   Código de substituição 2

   ...PurchLine2.SETFILTER(Amount,'>%1',0)
             ELSE
               PurchLine2.SETFILTER(Amount,'<%1',0);
           PurchLine2.SETRANGE("VAT Identifier","VAT Identifier");
           PurchLine2.SETRANGE("Tax Group Code","Tax Group Code");
   
   // Add the following line.
          VendPostingGr.GET(PurchHeader."Vendor Posting Group");
   // End of the added line.
   
           IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   ...
   

   Código existente 3

   ...IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   
   // Delete the following line.
            IF "Line No." <> 0 THEN
   // End of the deleted line.
   
               IF MODIFY THEN
                 IF PurchLine2.FINDLAST THEN BEGIN
                   PurchLine2.UpdateAmounts;
                   PurchLine2.MODIFY;
                 END;
   ...
   

   Código de substituição 3

   ...IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   
   // Add the following line.
            IF ("Line No." <> 0) AND NOT ((Type = Type::"G/L Account") AND ("No." = VendPostingGr."Service Charge Acc.")) THEN
   // End of the added line.
   
               IF MODIFY THEN
                 IF PurchLine2.FINDLAST THEN BEGIN
                   PurchLine2.UpdateAmounts;
                   PurchLine2.MODIFY;
                 END;
   ...