在计算中 Microsoft Dynamics 导航 2009 年葡萄牙文版的采购发票的统计信息时错误地计算发票折扣金额

修补程序信息

受支持的修补程序现已从 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 葡萄牙文版

删除信息

您不能删除此修补程序。