Diferença de arredondamento existe depois de alterar manualmente um valor de IVA de uma factura que tenha uma compra não deductable IVA aplicada na versão portuguesa do 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.

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. Alterar o código de função PostItemJnlLine na Compr.-registar codeunit (90) do seguinte modo:
   Código existente

   ...ELSE
     Factor := QtyToBeInvoiced / "Qty. to Invoice";
   IF (GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines") AND
      (PurchSetup."Post Payment Discount") THEN
   ItemJnlLine.Amount :=
   
   // Delete the following lines.
     Amount * (100 + TempVATAmountLine."ND %") / 100 * Factor + RemAmt + PurchLine."Pmt. Disc. Rcd. Amount"
   ELSE
     ItemJnlLine.Amount :=
     Amount * (100 + TempVATAmountLine."ND %") / 100 * Factor + RemAmt;
   // End of the lines.
   
   IF PurchHeader."Prices Including VAT" THEN
     ItemJnlLine."Discount Amount" :=
     ("Line Discount Amount" + "Inv. Discount Amount") / (1 + "VAT %" / 100) * Factor + RemDiscAmt
   ...
   

   Código de substituição

   ...ELSE
     Factor := QtyToBeInvoiced / "Qty. to Invoice";
   IF (GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines") AND
      (PurchSetup."Post Payment Discount") THEN
   ItemJnlLine.Amount :=
   
   // Add following lines
     Amount * (100 + TempVATAmountLine."ND %") / 100 * Factor + RemAmt + PurchLine."Pmt. Disc. Rcd. Amount" +
     PurchLine."ND Difference"
   ELSE
      ItemJnlLine.Amount :=
   Amount * (100 + TempVATAmountLine."ND %") / 100 * Factor + RemAmt + PurchLine."ND Difference";
   // End of the lines.
   
   IF PurchHeader."Prices Including VAT" THEN
      ItemJnlLine."Discount Amount" :=
      ("Line Discount Amount" + "Inv. Discount Amount") / (1 + "VAT %" / 100) * Factor + RemDiscAmt
   ...
   

2. Alterar o código de função PostItemChargePerOrder na Compr.-registar codeunit (90) do seguinte modo:
   Código existente

   ...IF ItemJnlLine2."Invoiced Quantity" = 0 THEN BEGIN
       ItemJnlLine2."Invoiced Quantity" := ItemJnlLine2.Quantity;
       ItemJnlLine2."Invoiced Qty. (Base)" := ItemJnlLine2."Quantity (Base)";
   END;
   ItemJnlLine2.Amount :=
        ("Amount to Assign" * ItemJnlLine2."Invoiced Qty. (Base)" / QtyToInvoice) *
   
   // Delete the following line.
   (100 + TempVATAmountLine."ND %") / 100;                    
   
   IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN
        ItemJnlLine2.Amount := -ItemJnlLine2.Amount;
        ItemJnlLine2."Unit Cost (ACY)" :=
        ROUND(
        ItemJnlLine2.Amount / ItemJnlLine2."Invoiced Qty. (Base)",
   ...
   

   Código de substituição

   ...IF ItemJnlLine2."Invoiced Quantity" = 0 THEN BEGIN
       ItemJnlLine2."Invoiced Quantity" := ItemJnlLine2.Quantity;
       ItemJnlLine2."Invoiced Qty. (Base)" := ItemJnlLine2."Quantity (Base)";
   END;
       ItemJnlLine2.Amount :=
      ("Amount to Assign" * ItemJnlLine2."Invoiced Qty. (Base)" / QtyToInvoice) *
   
   // Add the following line.
      (100 + ItemChargePurchLine."ND %") / 100;        
   
   IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN
        ItemJnlLine2.Amount := -ItemJnlLine2.Amount;
        ItemJnlLine2."Unit Cost (ACY)" :=
        ROUND(
        ItemJnlLine2.Amount / ItemJnlLine2."Invoiced Qty. (Base)",
   ...
   

Pré-requisitos

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

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

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

Além disso, tem de ter correcção 2479082 e 2479102 instalado para aplicar esta correcção. Para mais informações sobre a correcção 2479082 e 2479102 de correcção, clique nos números de artigo que se segue para visualizar os artigos na Microsoft Knowledge Base:

2479082 o valor do campo "Valor de custo (Actual)" é calculado incorrectamente em movimentos de valor depois de registar uma nota de crédito de compra na versão portuguesa do Microsoft Dynamics NAV 2009 Service Pack 1

2479102 o valor do campo "Valor de custo (Actual)" é calculado incorrectamente em movimentos de valor se um item na nota de crédito de compra registada utiliza o método de custeio médio, na versão portuguesa do Microsoft Dynamics NAV 2009 Service Pack 1