本文适用于 Microsoft Dynamics 导航葡萄牙语 (pt) 语言区域设置。

症状

假定您将设置为计算 Pmt 光盘的付款折扣类型值。在行上Microsoft Dynamics 导航 2009年的葡萄牙语版本中的总帐设置对话框中。设置为具有多个线路带有小数的采购发票发票折扣。在计算统计信息的采购发票时,发票折扣金额计算错误。

下列产品中发生此问题︰

  • 葡萄牙语版本的 Microsoft Dynamics 导航 2009 R2

  • 葡萄牙语版本的 Microsoft Dynamics 导航 2009 Service Pack 1 (SP1)


解决方案

修补程序信息

受支持的修补程序现已从 Microsoft 推出。然而,它仅用于纠正本文中描述的问题。它仅应用于正经历此特定问题的系统。此修补程序可能会接受进一步的测试。因此,如果这个问题没有对您造成严重的影响,我们建议您等待下一个 Microsoft Dynamics 导航 2009 服务包 或包含此修复程序的下一步的 Microsoft Dynamics 导航版本。

注意: 在特殊情况下,可免收的支持电话,可免收如果技术支持专业人员对 Microsoft Dynamics 和相关的产品的费用确定某个特定的更新能够解决您的问题。照常收取支持费用将应用于其他支持问题和对于特定更新无法解决的问题。

安装信息

Microsoft 提供的编程示例仅用于说明,没有任何明示或暗示的担保。这包括但不限于适销性或特定用途适用性的暗示担保。本文假定您熟悉所演示的编程语言和用于创建和调试过程的工具。Microsoft 的支持工程师可以帮助解释某个特定过程的功能。但是,他们不会修改这些示例以提供额外的功能或构建过程以满足您的特定要求。

注意:安装此修复程序之前,请验证所有 Microsoft Dynamics 导航客户端用户都注销系统。这包括 Microsoft Dynamics 导航应用程序服务器 (NAS) 服务。要实现此修补程序时,在登录的唯一客户端用户。

若要实现此修补程序,必须使用开发人员许可证。

我们建议在 Windows 登录窗口或数据库登录窗口中的用户帐户将分配该"超级"角色 id。如果不能将用户帐户分配成"超级"角色 ID,则必须验证用户帐户具有下列权限:

  • 您将更改该对象的修改权限。

  • 为系统对象 ID™ 5210对象和系统对象 ID 9015执行权限

    对象。

注意:您不需要具有对数据存储区的权限,除非您需要执行数据修复。

代码更改

注意:始终测试代码修复在受控环境中应用之前与您的生产计算机的修补程序。

若要解决此问题,请执行以下步骤:

  1. 更改销售计算折扣 Codeunit (60) 中的CalculateInvoiceDiscount函数中的代码,如下所示︰
    现有代码 1

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

    替换代码 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
    ...

    现有代码 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" =
    ...

    替换代码 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

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

    替换代码 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;
    ...
  2. 在销售计算折扣 Codeunit (60) 中创建函数,如下所示︰

    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;
  3. 更改采购中的CalculateInvoiceDiscount函数中的代码-Calc.Discount Codeunit (70),如下所示︰
    现有代码 1

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

    替换代码 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
    ...

    现有代码 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;
    ...

    替换代码 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

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

    替换代码 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;
    ...
  4. 在采购。 创建一个函数的 Calc.Discount Codeunit (70),如下所示︰

    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;
  5. 更改服务计算折扣 Codeunit (5950) 中的CalculateInvoiceDiscount函数中的代码,如下所示︰
    现有代码 1

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

    替换代码 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
    ...

    现有代码 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" =
    ...

    替换代码 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

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

    替换代码 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;
    ...
  6. 在服务计算折扣 Codeunit (5950) 中创建函数,如下所示︰

    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;


系统必备组件

您必须具有要应用此修补程序的安装以下产品之一︰

  • 葡萄牙语版本的 Microsoft Dynamics 导航 2009 R2

  • Microsoft Dynamics 导航 2009 Service Pack 1 葡萄牙文版

删除信息

您不能删除此修补程序。

状态

Microsoft 已经确认这是“适用于”一节中列出的 Microsoft 产品中的问题。

注意:这是直接从创建 Microsoft 支持部门内的"快速发布"的文章。此处包含的信息是作为为了响应新出现的问题而提供的。由于以使其可用的速度,而材料可能包含印刷错误,恕不另行通知,随时可能进行修订。其他考虑因素,请参阅使用条款

Need more help?

Expand your skills
Explore Training
Get new features first
Join Microsoft Insiders

Was this information helpful?

How satisfied are you with the translation quality?
What affected your experience?

Thank you for your feedback!

×