Valor do IVA é arredondado incorrectamente quando calcula as estatísticas de factura para uma factura registada na versão em húngaro do Microsoft Dynamics NAV 2009 R2

Modelo: CPR - modelo de correcção de código do Navision

BUGS #: 185432 (Manutenção do conteúdo)

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

Sintomas

Suponha que aplicar a correcção 2664466 na versão em húngaro do Microsoft Dynamics NAV 2009 R2. Quando calcular as estatísticas de factura para uma factura registada, o montante do imposto valor acrescentado (IVA) é arredondado incorrectamente.
Para mais informações sobre a correcção 2664466, clique no número de artigo seguinte para visualizar o artigo na Microsoft Knowledge Base:

2664466 o IVA está incorrecta quando é registada uma factura em divisa estrangeira na versão em húngaro do Microsoft Dynamics NAV 5.0 Service Pack 1

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.

Se esta correcção não está registada para transferência pública (ou seja, que um URL público para esta correcção não é fornecido neste artigo), a distribuição requer responsável técnico, o membro da equipa de escalamento ou aprovação do gestor e aplicam as seguintes informações:

  • Para receber a correcção, os clientes tem de estar a ocorrer o erro mencionada na secção "Sintomas".

  • Terá de controlar os clientes, esta opção para enviar e fornecer-lhes o próximo service pack quando se tornar disponível (se é lançado um service pack).

Esta correcção está agendada para ser incluída no Microsoft Dynamics NAV 2013.

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 nos campos da tabela Linha venda (37) do seguinte modo:
    Código existente 1

    ...
    // Delete the following line.
    CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...

    Código de substituição 1

    ...
    // Add the following line.
    CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...

    Código existente 2

    ...
    // Delete the following line.
    CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...

    Código de substituição 2

    ...
    // Add the following line.
    CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
  2. Altere o código de função UpdateVATAmounts na tabela Linha venda (37) do seguinte modo:
    Código existente

    ...
    // Delete the following line.
    CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...

    Código de substituição

    ...
    // Add the following line.
    CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
  3. Altere o código de função UpdateVATOnLines na tabela Linha venda (37) do seguinte modo:
    Código existente

    ..."VAT Base Amount" := NewVATBaseAmount;

    // Delete the following line.
    CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...

    Código de substituição

    ..."VAT Base Amount" := NewVATBaseAmount;

    // Add the following line.
    CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
  4. Altere o código de função CalcVATAmountLines na tabela Linha venda (37) do seguinte modo:
    Código existente

    ...
    // Delete the following line.CalcVATToReport(SalesHeader,"VAT Base","VAT Amount" - "VAT Difference",
    // End of the deleted line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...

    Código de substituição

    ...
    // Add the following line.
    CalcVATToReport(SalesHeader,"VAT Base","Amount Including VAT" - "VAT Difference",
    // End of the added line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
  5. Alterar o código de CalcVATToReportfuncionam na tabela Linha venda (37) do seguinte modo:
    Código existente 1

    ...
    // Delete the following line.
    PROCEDURE CalcVATToReport@1360001(SalesHeader@1360000 : Record 36;VATBaseAmount@1360001 : Decimal;VATAmount@1360002 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal);
    // End of the deleted line.

    BEGIN
    ...

    Código de substituição 1

    ...
    // Add the following lines.
    PROCEDURE CalcVATToReport@1360001(SalesHeader@1360000 : Record 36;VATBaseAmount@1360001 : Decimal;AmtInclVAT@1360005 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal);
    VAR
    AmountLCY@1360006 : Decimal;
    AmtInclVATLCY@1360007 : Decimal;
    // End of the added lines.

    BEGIN
    ...

    Código existente 2

    ...ROUND(VATBaseAmount / SalesHeader."VAT Currency Factor");

    // Delete the following lines.
    VATAmountToReport :=
    ROUND(VATAmount / SalesHeader."VAT Currency Factor");
    END ELSE BEGIN
    VATBaseAmountToReport := VATBaseAmount;
    VATAmountToReport := VATAmount;
    // End of the deleted lines.

    END;
    ...

    Código de substituição 2

    ...ROUND(VATBaseAmount / SalesHeader."VAT Currency Factor");

    // Add the following lines.
    AmountLCY :=
    ROUND(VATBaseAmount / SalesHeader."VAT Currency Factor");
    AmtInclVATLCY :=
    ROUND(AmtInclVAT / SalesHeader."VAT Currency Factor");
    VATAmountToReport :=
    AmtInclVATLCY - AmountLCY;
    END ELSE BEGIN
    VATBaseAmountToReport := VATBaseAmount;
    VATAmountToReport := AmtInclVAT - VATBaseAmount;
    // End of the added lines.

    END;
    ...
  6. Altere o código nos campos da tabela Linha Compra (39) do seguinte modo:
    Código existente 1

    ...
    // Delete the following line.
    CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
    ...

    Código de substituição 1

    ...
    // Add the following line.
    CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
    ...

    Código existente 2

    ...
    // Delete the following line.
    CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
    ...

    Código de substituição 2

    ...
    // Add the following line.
    CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
    ...
  7. Altere o código de função UpdateVATAmounts na tabela Linha Compra (39) do seguinte modo:
    Código existente

    ...
    // Delete the following line.
    CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
    ...

    Código de substituição

    ...
    // Add the following line.
    CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
    ...
  8. Altere o código de função UpdateVATOnLines na tabela Linha Compra (39) do seguinte modo:
    Código existente

    ...END;

    // Delete the following line.
    CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
    // End of the deleted line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
    ...

    Código de substituição

    ...END;

    // Add the following line.
    CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
    ...
  9. Altere o código de CalcVATAmountLines na tabela Linha Compra (39) do seguinte modo:
    Código existente

    ...
    // Delete the following line.
    CalcVATToReport(PurchHeader,"VAT Base","VAT Amount" - "VAT Difference",
    // End of the deleted line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
    ...

    Código de substituição

    ...
    // Add the following line.
    CalcVATToReport(PurchHeader,"VAT Base","Amount Including VAT" - "VAT Difference",
    // End of the added line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
    ...
  10. Altere o código de função CalcVATToReport na tabela Linha Compra (39) do seguinte modo:
    Código existente 1

    ...
    // Delete the following lines.
    PROCEDURE CalcVATToReport@1360000(PurchHeader@1360000 : Record 38;VATBaseAmount@1360001 : Decimal;VATAmount@1360002 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal;NonDeductableVATPct@1360005 : Decimal);
    VAR
    NonDeductableVATAmount@1360006 : Decimal;
    BEGIN
    NonDeductableVATAmount := VATAmount * NonDeductableVATPct / 100;
    // End of the deleted lines.

    IF PurchHeader."Currency Code" <> '' THEN BEGIN
    ...

    Código de substituição 1

    ...
    // Add the following lines.
    PROCEDURE CalcVATToReport@1360000(PurchHeader@1360000 : Record 38;VATBaseAmount@1360001 : Decimal;AmtInclVAT@1360007 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal;NonDeductableVATPct@1360005 : Decimal);
    VAR
    NonDeductableVATAmount@1360006 : Decimal;
    AmountLCY@1360008 : Decimal;
    AmtInclVATLCY@1360009 : Decimal;
    BEGIN
    NonDeductableVATAmount := (AmtInclVAT - VATBaseAmount) * NonDeductableVATPct / 100;
    // End of the added lines.

    IF PurchHeader."Currency Code" <> '' THEN BEGIN
    ...

    Código existente 2

    ...ROUND((VATBaseAmount + NonDeductableVATAmount) / PurchHeader."VAT Currency Factor");

    // Delete the following lines.
    VATAmountToReport :=
    ROUND((VATAmount - NonDeductableVATAmount) / PurchHeader."VAT Currency Factor");
    END ELSE BEGIN
    VATBaseAmountToReport := VATBaseAmount + ROUND(NonDeductableVATAmount);
    VATAmountToReport := VATAmount - ROUND(NonDeductableVATAmount);
    // End of the deleted lines.

    END
    ...

    Código de substituição 2

    ...ROUND((VATBaseAmount + NonDeductableVATAmount) / PurchHeader."VAT Currency Factor");

    // Add the following lines.
    AmountLCY :=
    ROUND(VATBaseAmount / PurchHeader."VAT Currency Factor");
    AmtInclVATLCY :=
    ROUND(AmtInclVAT / PurchHeader."VAT Currency Factor");
    VATAmountToReport :=
    AmtInclVATLCY - AmountLCY - ROUND(NonDeductableVATAmount / PurchHeader."VAT Currency Factor");
    END ELSE BEGIN
    VATBaseAmountToReport := VATBaseAmount + ROUND(NonDeductableVATAmount);
    VATAmountToReport := AmtInclVAT - VATBaseAmount - ROUND(NonDeductableVATAmount);
    // End of the added lines.

    END
    ...
  11. Altere o código nos campos da tabela Linha Serviço (5902) do seguinte modo:
    Código existente 1

    ...
    // Delete the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...

    Código de substituição 1

    ...
    // Add the following line.CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...

    Código existente 2

    ...
    // Delete the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...

    Código de substituição 2

    ...
    // Add the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
  12. Altere o código de função UpdateVATAmounts na tabela Linha Serviço (5902) do seguinte modo:
    Código existente

    ...
    // Delete the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...

    Código de substituição

    ...
    // Add the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
  13. Altere o código de função CalcVATAmountLines na tabela Linha Serviço (5902) do seguinte modo:
    Código existente

    ...
    // Delete the following line.
    CalcVATToReport(ServHeader,"VAT Base","VAT Amount" - "VAT Difference",
    // End of the deleted line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...

    Código de substituição

    ...
    // Add the following line.CalcVATToReport(ServHeader,"VAT Base","Amount Including VAT" - "VAT Difference",
    // End of the added line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
  14. Altere o código de função UpdateVATOnLines na tabela Linha Serviço (5902) do seguinte modo:
    Código existente

    ..."VAT Base Amount" := NewVATBaseAmount;

    // Delete the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...

    Código de substituição

    ..."VAT Base Amount" := NewVATBaseAmount;

    // Add the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.

    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
  15. Altere o código de função CalcVATToReport na tabela Linha Serviço (5902) do seguinte modo:
    Código existente 1

    ...
    // Delete the following line.
    PROCEDURE CalcVATToReport@1360000(ServHeader@1360004 : Record 5900;VATBaseAmount@1360003 : Decimal;VATAmount@1360002 : Decimal;VAR VATBaseAmountToReport@1360001 : Decimal;VAR VATAmountToReport@1360000 : Decimal);
    // End of the deleted line.

    BEGIN
    ...

    Código de substituição 1

    ...
    // Add the following lines.
    PROCEDURE CalcVATToReport@1360000(ServHeader@1360004 : Record 5900;VATBaseAmount@1360003 : Decimal;AmtInclVAT@1360007 : Decimal;VAR VATBaseAmountToReport@1360001 : Decimal;VAR VATAmountToReport@1360000 : Decimal);
    VAR
    AmountLCY@1360005 : Decimal;
    AmtInclVATLCY@1360006 : Decimal;
    // End of the added lines.

    BEGIN
    ...

    Código existente 2

    ...ROUND(VATBaseAmount / ServHeader."VAT Currency Factor");

    // Delete the following lines.
    VATAmountToReport :=
    ROUND(VATAmount / ServHeader."VAT Currency Factor");
    END ELSE BEGIN
    VATBaseAmountToReport := VATBaseAmount;
    VATAmountToReport := VATAmount;
    // End of the deleted lines.

    END;
    ...

    Código de substituição 2

    ...ROUND(VATBaseAmount / ServHeader."VAT Currency Factor");

    // Add the following lines.
    AmountLCY :=
    ROUND(VATBaseAmount / ServHeader."VAT Currency Factor");
    AmtInclVATLCY :=
    ROUND(AmtInclVAT / ServHeader."VAT Currency Factor");
    VATAmountToReport :=
    AmtInclVATLCY - AmountLCY;
    END ELSE BEGIN
    VATBaseAmountToReport := VATBaseAmount;
    VATAmountToReport := AmtInclVAT - VATBaseAmount;
    // End of the added lines.

    END;
    ...
  16. Altere o código na função DivideAmount na Codeunit vendas-Post (80) do seguinte modo:
    Código existente 1

    ...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';SalesLineQty@1001 : Decimal);

    // Delete the following lines.
    VAR
    TotalVATBaseAmtLCY@1360001 : Decimal;
    TotalVATAmountLCY@1360000 : Decimal;
    // End of the deleted lines.

    BEGIN
    ...

    Código de substituição 1

    ...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';SalesLineQty@1001 : Decimal);
    BEGIN
    ...

    Código existente 2

    ...END;

    // Delete the following lines.
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report" :=
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report" + "VAT Base Amount";
    TempVATAmountLineRemainder."Calc VAT Amount to Report" :=
    TempVATAmountLineRemainder."Calc VAT Amount to Report" + "Amount Including VAT" - "VAT Base Amount" - "VAT Difference";
    CalcVATToReport(SalesHeader,
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
    TempVATAmountLineRemainder."Calc VAT Amount to Report",
    TotalVATBaseAmtLCY,TotalVATAmountLCY);
    "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
    "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
    TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
    TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
    // End of the deleted lines.
    ...

    Código de substituição 2

    ...END;

    // Add the following line.
    CalcRoundedVATToReport(SalesLine,SalesHeader);
    // End of the added line.

    ...
  17. Crie uma função na Codeunit vendas-Post (80) do seguinte modo:

    LOCAL PROCEDURE CalcRoundedVATToReport@1360026(VAR SalesLine@1360002 : Record 37;SalesHeader@1360003 : Record 36);VAR
    TotalVATBaseAmtLCY@1360005 : Decimal;
    TotalVATAmountLCY@1360004 : Decimal;
    BEGIN
    WITH SalesLine DO BEGIN
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report" +=
    "VAT Base Amount";
    TempVATAmountLineRemainder."Calc VAT Amount to Report" +=
    "Amount Including VAT";
    CalcVATToReport(SalesHeader,
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
    TempVATAmountLineRemainder."Calc VAT Amount to Report",
    TotalVATBaseAmtLCY,TotalVATAmountLCY);
    "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
    "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
    TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
    TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
    END;
    END;
  18. Alterar o código de função DivideAmount na Compr.-Post Codeunit (90) do seguinte modo:
    Código existente 1

    ...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';PurchLineQty@1001 : Decimal);

    // Delete the following lines.
    VAR
    TotalVATBaseAmtLCY@1360001 : Decimal;
    TotalVATAmountLCY@1360000 : Decimal;
    // End of the deleted lines.

    BEGIN
    ...

    Código de substituição 1

    ...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';PurchLineQty@1001 : Decimal);
    BEGIN
    ...

    Código existente 2

    ...END;

    // Delete the following lines.
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report" :=
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report" + "VAT Base Amount";
    TempVATAmountLineRemainder."Calc VAT Amount to Report" :=
    TempVATAmountLineRemainder."Calc VAT Amount to Report" + "Amount Including VAT" - "VAT Base Amount" - "VAT Difference";
    PurchLine.CalcVATToReport(PurchHeader,
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
    TempVATAmountLineRemainder."Calc VAT Amount to Report",
    TotalVATBaseAmtLCY,TotalVATAmountLCY,"VAT % (Non Deductible)");
    "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
    "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
    TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
    TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
    // End of the deleted lines.
    ...

    Código de substituição 2

    ...END;

    // Add the following line.
    CalcRoundedVATToReport(PurchLine,PurchHeader);
    // End of the added line.
    ...
  19. Criar uma função no Compr.-Post Codeunit (90) do seguinte modo:

    LOCAL PROCEDURE CalcRoundedVATToReport@1360026(VAR PurchLine@1360002 : Record 39;PurchHeader@1360003 : Record 38);VAR
    TotalVATBaseAmtLCY@1360005 : Decimal;
    TotalVATAmountLCY@1360004 : Decimal;
    BEGIN
    WITH PurchLine DO BEGIN
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report" +=
    "VAT Base Amount";
    TempVATAmountLineRemainder."Calc VAT Amount to Report" +=
    "Amount Including VAT";
    CalcVATToReport(PurchHeader,
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
    TempVATAmountLineRemainder."Calc VAT Amount to Report",
    TotalVATBaseAmtLCY,TotalVATAmountLCY,"VAT % (Non Deductible)");
    "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
    "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
    TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
    TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
    END;
    END;
  20. Altere o código na função DivideAmount na Codeunit valores Serv manutenção (5986) do seguinte modo:
    Código existente 1

    ...ChargeableQty@1006 : Decimal;

    // Delete the following lines.
    TotalVATBaseAmtLCY@1360001 : Decimal;
    TotalVATAmountLCY@1360000 : Decimal;
    // End of the deleted lines.

    BEGIN
    ...

    Código de substituição 1

    ...ChargeableQty@1006 : Decimal;
    BEGIN
    ...

    Código existente 2

    ...END;

    // Delete the following lines.
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report" :=
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report" + "VAT Base Amount";
    TempVATAmountLineRemainder."Calc VAT Amount to Report" :=
    TempVATAmountLineRemainder."Calc VAT Amount to Report" + "Amount Including VAT" - "VAT Base Amount" - "VAT Difference";
    CalcVATToReport(ServiceHeader,
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
    TempVATAmountLineRemainder."Calc VAT Amount to Report",
    TotalVATBaseAmtLCY,TotalVATAmountLCY);
    "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
    "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
    TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
    TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
    // End of the deleted lines.
    ...

    Código de substituição 2

    ...END;

    // Add the following line.
    CalcRoundedVATToReport(ServiceLine,TempVATAmountLineRemainder,ServHeader);
    // End of the added line.
    ...
  21. Criar uma função na janela Config. Codeunit valores Serv. (5986) da seguinte forma:

    LOCAL PROCEDURE CalcRoundedVATToReport@1360001(VAR ServiceLine@1360002 : Record 5902;VAR TempVATAmountLineRemainder@1360004 : Record 290;ServHeader@1360003 : Record 5900);VAR
    TotalVATBaseAmtLCY@1360006 : Decimal;
    TotalVATAmountLCY@1360005 : Decimal;
    BEGIN
    WITH ServiceLine DO BEGIN
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report" +=
    "VAT Base Amount";
    TempVATAmountLineRemainder."Calc VAT Amount to Report" +=
    "Amount Including VAT";
    CalcVATToReport(ServHeader,
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
    TempVATAmountLineRemainder."Calc VAT Amount to Report",
    TotalVATBaseAmtLCY,TotalVATAmountLCY);
    "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
    "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
    TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
    TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
    END;
    END;


Pré-requisitos

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

Referências

DynamicsNAVSE VSFT: 333200

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.

Autor: vagarcia
Writer: v-six
Revisor técnico: vagarcia
Editor:

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?

Obrigado pelos seus comentários!

Obrigado pelo seu feedback! Parece que poderá ser benéfico reencaminhá-lo para um dos nossos agentes de suporte do Office.

×