Este artigo se aplica ao Microsoft Dynamics NAV para a localidade do idioma português (Portugal).
Sintomas
Suponha que você defina o valor do Tipo de desconto de pagamento para calc. PGTO disco. Linhas de na caixa de diálogo Configuração da contabilidade na versão português do Microsoft Dynamics NAV 2009. Configurar um desconto de nota fiscal para uma fatura de compra que tenha mais de uma linha com casas decimais. Quando você calcula as estatísticas da nota fiscal de compra, o valor do desconto da fatura é calculado incorretamente.
Esse problema ocorre nos seguintes produtos:
-
A versão em português do Microsoft Dynamics NAV 2009 R2
-
A versão em português do Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
Resolução
Informações sobre o hotfix
Um hotfix suportado está disponível agora na Microsoft. No entanto, apenas destina-se a corrigir o problema descrito neste artigo. Aplique-o somente aos sistemas que apresentarem esse problema específico. Esta correção poderá ser submetida a testes adicionais. Portanto, se esse problema não o prejudicar, recomendamos que você aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contém esse hotfix.
Observação: Em alguns casos, as taxas cobradas para suporte a chamadas podem ser canceladas se um profissional de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma atualização específica resolverá o problema. Os custos normais de suporte serão aplicados para questões de suporte adicionais e problemas que não se qualificam à atualização específica em questão.
Informações sobre a instalação
A Microsoft fornece exemplos de programação somente para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um propósito específico. Este artigo presume que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e com as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas.
Observação: Antes de instalar esse hotfix, verifique se todos os usuários do cliente do Microsoft Dynamics NAV estiver desconectados do sistema. Isso inclui os serviços do Microsoft Dynamics NAV Application Server (NAS). Você deve ser o único usuário do cliente conectado ao implementar esse hotfix.
Para implementar esse hotfix, você deve ter uma licença de desenvolvedor.
É recomendável que a conta de usuário na janela de Logins do Windows ou na janela banco de dados seja atribuída a ID de função "SUPER". Se a conta de usuário não pode ser atribuída a ID de função "SUPER", você deverá verificar se a conta de usuário tem as seguintes permissões:
-
A permissão Modificar para o objeto que será alterado.
-
A permissão de execução para o objeto 5210 de identificação de objeto de sistema e o sistema 9015 de identificação de objeto
objeto.
Observação: Você não precisa ter direitos para os armazenamentos de dados, a menos que você precise executar o reparo de dados.
Alterações de código
Observação: Sempre teste código correções em um ambiente controlado antes de aplicar as correções para os computadores de produção.
Para resolver esse problema, execute as seguintes etapas:
-
Altere o código na função CalculateInvoiceDiscount o código de desconto calc. vendas (60) da seguinte forma:
1 de código existente...GLAcc@1110002 : Record 15;
BEGIN
...1 código de substituição
...GLAcc@1110002 : Record 15;
// Add the following lines.
TempSalesLineRemainder@1110000 : Record 37;
TotRoundedInvDiscAmt@1110001 : Decimal;
TotRoundedPmtDiscAmt@1110003 : Decimal;
// End of the added lines.
BEGIN
...2 de código existente
...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
// Delete the following lines.
SalesLine2."Inv. Discount Amount" :=
ROUND(SalesLine2."Line Amount" * CustInvDisc."Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
SalesLine2."Inv. Discount Amount" :=
ROUND(
(SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) *
CustInvDisc."Discount %" / 100,0.01);
END;
// End of the deleted lines.
IF GLSetup."Payment Discount Type" =
...Código de substituição 2
...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
// Add the following lines.
BEGIN
TempSalesLineRemainder."Inv. Discount Amount" +=
SalesLine2."Line Amount" * CustInvDisc."Discount %" / 100;
SalesLine2."Inv. Discount Amount" :=
CalcRoundedAmt(TempSalesLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
BEGIN
TempSalesLineRemainder."Inv. Discount Amount" +=
(SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) *
CustInvDisc."Discount %" / 100;
SalesLine2."Inv. Discount Amount" :=
CalcRoundedAmt(TempSalesLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
END;
END;
// End of the added lines.
IF GLSetup."Payment Discount Type" =
...3 de código existente
...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
// Delete the following lines.
SalesLine2."Pmt. Disc. Given Amount" :=
ROUND(
(SalesLine2."Line Amount" + SalesLine2."Line Discount Amount")
* SalesHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
SalesLine2."Pmt. Disc. Given Amount" :=
ROUND(
(SalesLine2."Line Amount" - SalesLine2."Inv. Discount Amount") *
SalesHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
SalesLine2."Pmt. Disc. Given Amount" :=
ROUND(
(SalesLine2."Line Amount" + SalesLine2."Line Discount Amount") *
SalesHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
SalesLine2."Pmt. Disc. Given Amount" :=
ROUND(
(SalesLine2."Line Amount" - SalesLine2."Inv. Discount Amount") *
SalesHeader."Payment Discount %" / 100,0.01);
// End of the deleted lines.
END;
...Código de substituição 3
...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
// Add the following lines.
BEGIN
TempSalesLineRemainder."Pmt. Disc. Given Amount" +=
(SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) *
SalesHeader."Payment Discount %" / 100;
SalesLine2."Pmt. Disc. Given Amount" :=
CalcRoundedAmt(TempSalesLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
BEGIN
TempSalesLineRemainder."Pmt. Disc. Given Amount" +=
(SalesLine2."Line Amount" - SalesLine2."Line Discount Amount" ) *
SalesHeader."Payment Discount %" / 100;
SalesLine2."Pmt. Disc. Given Amount" :=
CalcRoundedAmt(TempSalesLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
BEGIN
TempSalesLineRemainder."Pmt. Disc. Given Amount" +=
(SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) *
SalesHeader."Payment Discount %" / 100;
SalesLine2."Pmt. Disc. Given Amount" :=
CalcRoundedAmt(TempSalesLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
BEGIN
TempSalesLineRemainder."Pmt. Disc. Given Amount" +=
(SalesLine2."Line Amount" - SalesLine2."Line Discount Amount" ) *
SalesHeader."Payment Discount %" / 100;
SalesLine2."Pmt. Disc. Given Amount" :=
CalcRoundedAmt(TempSalesLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
END;
// End of the added lines.
END;
... -
Crie uma função na calc. vendas de desconto Codeunit (60) da seguinte forma:
PROCEDURE CalcRoundedAmt@1110000(TotAmt@1110000 : Decimal;VAR TotAmtRnded@1110001 : Decimal;AmountRoundingPrecision@1110002 : Decimal) RndAmt : Decimal;BEGIN
RndAmt := ROUND(TotAmt,AmountRoundingPrecision) - TotAmtRnded;
TotAmtRnded := TotAmtRnded + RndAmt;
END; -
Alterar o código da função CalculateInvoiceDiscount na compra.-Calc.Discount Codeunit (70) da seguinte maneira:
1 de código existente...GLAcc@1110002 : Record 15;
BEGIN
...1 código de substituição
...GLAcc@1110002 : Record 15;
// Add the following lines.
TempPurchLineRemainder@1110000 : Record 39;
TotRoundedInvDiscAmt@1110001 : Decimal;
TotRoundedPmtDiscAmt@1110004 : Decimal;
// End of the added lines.
BEGIN
...2 de código existente
...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
// Delete the following lines.
PurchLine2."Inv. Discount Amount" :=
ROUND(PurchLine2."Line Amount" * VendInvDisc."Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
PurchLine2."Inv. Discount Amount" :=
ROUND(
(PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) *
VendInvDisc."Discount %" / 100,0.01);
// End of the deleted lines.
END;
...Código de substituição 2
...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
// Add the following lines.
BEGIN
TempPurchLineRemainder."Inv. Discount Amount" +=
PurchLine2."Line Amount" * VendInvDisc."Discount %" / 100;
PurchLine2."Inv. Discount Amount" :=
CalcRoundedAmt(TempPurchLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
BEGIN
TempPurchLineRemainder."Inv. Discount Amount" +=
(PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) *
VendInvDisc."Discount %" / 100;
PurchLine2."Inv. Discount Amount" :=
CalcRoundedAmt(TempPurchLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
END;
// End of the added lines.
END;
...3 de código existente
...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
// Delete the following lines.
PurchLine2."Pmt. Disc. Rcd. Amount" :=
ROUND(
(PurchLine2."Line Amount" + PurchLine2."Line Discount Amount") *
PurchHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
PurchLine2."Pmt. Disc. Rcd. Amount" :=
ROUND(
(PurchLine2."Line Amount" - PurchLine2."Inv. Discount Amount") *
PurchHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
PurchLine2."Pmt. Disc. Rcd. Amount" :=
ROUND(
(PurchLine2."Line Amount" + PurchLine2."Line Discount Amount") *
PurchHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
PurchLine2."Pmt. Disc. Rcd. Amount" :=
ROUND(
(PurchLine2."Line Amount" - PurchLine2."Inv. Discount Amount") *
PurchHeader."Payment Discount %" / 100,0.01);
// End of the deleted lines.
END;
...Código de substituição 3
...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
// Add the following lines.
BEGIN
TempPurchLineRemainder."Pmt. Disc. Rcd. Amount" +=
(PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) *
PurchHeader."Payment Discount %" / 100;
PurchLine2."Pmt. Disc. Rcd. Amount" :=
CalcRoundedAmt(TempPurchLineRemainder."Pmt. Disc. Rcd. Amount",TotRoundedPmtDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
BEGIN
TempPurchLineRemainder."Pmt. Disc. Rcd. Amount" +=
(PurchLine2."Line Amount" - PurchLine2."Line Discount Amount" ) *
PurchHeader."Payment Discount %" / 100;
PurchLine2."Pmt. Disc. Rcd. Amount" :=
CalcRoundedAmt(TempPurchLineRemainder."Pmt. Disc. Rcd. Amount",TotRoundedPmtDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
BEGIN
TempPurchLineRemainder."Pmt. Disc. Rcd. Amount" +=
(PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) *
PurchHeader."Payment Discount %" / 100;
PurchLine2."Pmt. Disc. Rcd. Amount" :=
CalcRoundedAmt(TempPurchLineRemainder."Pmt. Disc. Rcd. Amount",TotRoundedPmtDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
BEGIN
TempPurchLineRemainder."Pmt. Disc. Rcd. Amount" +=
(PurchLine2."Line Amount" - PurchLine2."Line Discount Amount" ) *
PurchHeader."Payment Discount %" / 100;
PurchLine2."Pmt. Disc. Rcd. Amount" :=
CalcRoundedAmt(TempPurchLineRemainder."Pmt. Disc. Rcd. Amount",TotRoundedPmtDiscAmt,0.01);
END;
// End of the added lines.
END;
... -
Criar uma função na compra.-Calc.Discount Codeunit (70) da seguinte maneira:
PROCEDURE CalcRoundedAmt@1110000(TotAmt@1110000 : Decimal;VAR TotAmtRnded@1110001 : Decimal;AmountRoundingPrecision@1110002 : Decimal) RndAmt : Decimal;BEGIN
RndAmt := ROUND(TotAmt,AmountRoundingPrecision) - TotAmtRnded;
TotAmtRnded := TotAmtRnded + RndAmt;
END; -
Altere o código na função CalculateInvoiceDiscount na calc. serviço de desconto Codeunit (5950) da seguinte forma:
1 de código existente...GLAcc@1110002 : Record 15;
BEGIN
...1 código de substituição
...GLAcc@1110002 : Record 15;
// Add the following lines.
TempServLineRemainder@1110000 : Record 5902;
TotRoundedInvDiscAmt@1110001 : Decimal;
TotRoundedPmtDiscAmt@1110003 : Decimal;
// End of the added lines.
BEGIN
...2 de código existente
...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
// Delete the following lines.
ServiceLine2."Inv. Discount Amount" :=
ROUND(ServiceLine2."Line Amount" * CustInvDisc."Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
ServiceLine2."Inv. Discount Amount" :=
ROUND(
(ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) *
CustInvDisc."Discount %" / 100,0.01);
END;
// End of the deleted lines.
IF GLSetup."Payment Discount Type" =
...Código de substituição 2
...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
// Add the following lines.
BEGIN
TempServLineRemainder."Inv. Discount Amount" +=
ServiceLine2."Line Amount" * CustInvDisc."Discount %" / 100;
ServiceLine2."Inv. Discount Amount" :=
CalcRoundedAmt(TempServLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
BEGIN
TempServLineRemainder."Inv. Discount Amount" +=
(ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) *
CustInvDisc."Discount %" / 100;
ServiceLine2."Inv. Discount Amount" :=
CalcRoundedAmt(TempServLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
END;
END;
// End of the added lines.
IF GLSetup."Payment Discount Type" =
...3 de código existente
...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
// Delete the following lines.
ServiceLine2."Pmt. Disc. Given Amount" :=
ROUND(
(ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount")
* ServHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
ServiceLine2."Pmt. Disc. Given Amount" :=
ROUND(
(ServiceLine2."Line Amount" - ServiceLine2."Inv. Discount Amount") *
ServHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
ServiceLine2."Pmt. Disc. Given Amount" :=
ROUND(
(ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount") *
ServHeader."Payment Discount %" / 100,0.01);
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
ServiceLine2."Pmt. Disc. Given Amount" :=
ROUND(
(ServiceLine2."Line Amount" - ServiceLine2."Inv. Discount Amount") *
ServHeader."Payment Discount %" / 100,0.01);
// End of the deleted lines.
END;Código de substituição 3
...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
// Add the following lines.
BEGIN
TempServLineRemainder."Pmt. Disc. Given Amount" +=
(ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) *
ServHeader."Payment Discount %" / 100;
ServiceLine2."Pmt. Disc. Given Amount" :=
CalcRoundedAmt(TempServLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
BEGIN
TempServLineRemainder."Pmt. Disc. Given Amount" +=
(ServiceLine2."Line Amount" - ServiceLine2."Line Discount Amount" ) *
ServHeader."Payment Discount %" / 100;
ServiceLine2."Pmt. Disc. Given Amount" :=
CalcRoundedAmt(TempServLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
BEGIN
TempServLineRemainder."Pmt. Disc. Given Amount" +=
(ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) *
ServHeader."Payment Discount %" / 100;
ServiceLine2."Pmt. Disc. Given Amount" :=
CalcRoundedAmt(TempServLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
END;
GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
BEGIN
TempServLineRemainder."Pmt. Disc. Given Amount" +=
(ServiceLine2."Line Amount" - ServiceLine2."Line Discount Amount" ) *
ServHeader."Payment Discount %" / 100;
ServiceLine2."Pmt. Disc. Given Amount" :=
CalcRoundedAmt(TempServLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
END;
// End of the added lines.
END;
... -
Crie uma função na calc. serviço de desconto Codeunit (5950) da seguinte forma:
PROCEDURE CalcRoundedAmt@1110000(TotAmt@1110000 : Decimal;VAR TotAmtRnded@1110001 : Decimal;AmountRoundingPrecision@1110002 : Decimal) RndAmt : Decimal;BEGIN
RndAmt := ROUND(TotAmt,AmountRoundingPrecision) - TotAmtRnded;
TotAmtRnded := TotAmtRnded + RndAmt;
END;
Pré-requisitos:
Você deve ter um dos seguintes produtos instalados para aplicar esse hotfix:
-
A versão em português do Microsoft Dynamics NAV 2009 R2
-
A versão em português do Microsoft Dynamics NAV 2009 Service Pack 1
Informações sobre remoção
Você não pode remover esse hotfix.
Status
A Microsoft confirma que este é um problema em seus produtos listados na seção "Aplica-se a".
Observação: Este é um artigo de "PUBLICAÇÃO RÁPIDA" criado diretamente de dentro da organização de suporte da Microsoft. As informações contidas neste documento são fornecidas desta maneira, em resposta a problemas emergentes. Como um dos resultados da velocidade da publicação, os materiais podem incluir erros tipográficos e podem ser revisados a qualquer momento sem aviso prévio. Consulte os Termos de usopara outras considerações.
