Desconto de factura é calculado incorrectamente quando calcula as estatísticas de uma factura de compra na versão portuguesa do Microsoft Dynamics NAV 2009

Este artigo aplica-se para o Microsoft Dynamics NAV para a região do idioma português (pt).

Sintomas

Suponha que defina o valor de Tipo de desconto de pagamento a Calc. Desc. Nas linhas na caixa de diálogo Configuração Contabilidade Geral na versão portuguesa do Microsoft Dynamics NAV 2009. Definir um desconto de factura para uma factura de compra que tenha mais do que uma linha com casas decimais. Calcular as estatísticas da factura de compras, desconto de factura é calculado incorrectamente.

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:

Altere o código na função CalculateInvoiceDiscount de vendas-Calc. desconto Codeunit (60) do seguinte modo:
Código existente 1

...GLAcc@1110002 : Record 15;
      BEGIN
...

Código de substituição 1

...GLAcc@1110002 : Record 15;

// Add the following lines.
       TempSalesLineRemainder@1110000 : Record 37;
       TotRoundedInvDiscAmt@1110001 : Decimal;
       TotRoundedPmtDiscAmt@1110003 : Decimal;
// End of the added lines.

      BEGIN
...

Código existente 2

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

Código existente 3

...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 de vendas-Calc. desconto Codeunit (60) do seguinte modo:

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 de função CalculateInvoiceDiscount na Compr.-a Codeunit de Calc.Discount (70) do seguinte modo:
Código existente 1

...GLAcc@1110002 : Record 15;
      BEGIN
...

Código de substituição 1

...GLAcc@1110002 : Record 15;

// Add the following lines.
TempPurchLineRemainder@1110000 : Record 39;
TotRoundedInvDiscAmt@1110001 : Decimal;
TotRoundedPmtDiscAmt@1110004 : Decimal;
// End of the added lines.

      BEGIN
...

Código existente 2

...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;
...

Código existente 3

...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;
...

Crie uma função no Compr.-a Codeunit de Calc.Discount (70) do seguinte modo:

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 no serviço-Calc. desconto Codeunit (5950) do seguinte modo:
Código existente 1

...GLAcc@1110002 : Record 15;
      BEGIN
...

Código de substituição 1

...GLAcc@1110002 : Record 15;

// Add the following lines.
TempServLineRemainder@1110000 : Record 5902;
TotRoundedInvDiscAmt@1110001 : Decimal;
TotRoundedPmtDiscAmt@1110003 : Decimal;
// End of the added lines.

      BEGIN
...

Código existente 2

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

Código existente 3

...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 a Codeunit de desconto de serviço-Calc. (5950) do seguinte modo:

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

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 Service Pack 1

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.

Desconto de factura é calculado incorrectamente quando calcula as estatísticas de uma factura de compra na versão portuguesa do Microsoft Dynamics NAV 2009

Sintomas

Resolução

Informações sobre correção

Informações de instalação

Alterações de código

Pré-requisitos

Informações de remoção

Estado

Precisa de mais ajuda?

Quer mais opções?

Estas informações foram úteis?

Obrigado pelo seu feedback!