冲销交易记录函数运行 Microsoft Dynamics 导航 2009 年时，系统会创建不必要的总帐条目

修补程序信息

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

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

代码更改

注意：始终测试代码修复在受控环境中应用之前与您的生产计算机的修补程序。
若要解决此问题，请执行以下步骤：

1. 冲销条目表 (179) 中添加下面的全局变量︰

   Text013@1039 : TextConst 'ENU="You cannot reverse %1 No. %2 because the entry has an associated Realized Gain/Loss entry. "';

2. 更改冲销条目表 (179) 中的CheckDtldCustLedgEntry函数中的代码，如下所示︰
   现有代码

   ...DtldCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgEntry."Entry No.");
   DtldCustLedgEntry.SETFILTER("Entry Type",'<>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
   DtldCustLedgEntry.SETRANGE(Unapplied,FALSE);
   IF NOT DtldCustLedgEntry.ISEMPTY THEN
   ERROR(Text000,CustLedgEntry.TABLECAPTION,CustLedgEntry."Entry No.");
   END;
   
   LOCAL PROCEDURE CheckDtldVendLedgEntry@28(VendLedgEntry@1000 : Record 25) : Boolean;
   VAR
   DtldVendLedgEntry@1001 : Record 380;
   ...
   
   

   替换代码

   ...DtldCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgEntry."Entry No.");
   DtldCustLedgEntry.SETFILTER("Entry Type",'<>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
   DtldCustLedgEntry.SETRANGE(Unapplied,FALSE);
   IF NOT DtldCustLedgEntry.ISEMPTY THEN
   ERROR(Text000,CustLedgEntry.TABLECAPTION,CustLedgEntry."Entry No.");
   
   // Add the following lines.
   
     DtldCustLedgEntry.SETRANGE(Unapplied);
     DtldCustLedgEntry.SETFILTER("Entry Type",'%1|%2',
     DtldCustLedgEntry."Entry Type"::"Realized Gain",DtldCustLedgEntry."Entry Type"::"Realized Loss");
     IF NOT DtldCustLedgEntry.ISEMPTY THEN
     ERROR(Text013,CustLedgEntry.TABLECAPTION,CustLedgEntry."Entry No.");
   // End of the lines.
   
   END;
   
   LOCAL PROCEDURE CheckDtldVendLedgEntry@28(VendLedgEntry@1000 : Record 25) : Boolean;
   VAR
   DtldVendLedgEntry@1001 : Record 380;
   ...
   
   

3. 更改冲销条目表 (179) 中的CheckDtldVendLedgEntry函数中的代码，如下所示︰
   现有代码

   ...DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendLedgEntry."Entry No.");
   DtldVendLedgEntry.SETFILTER("Entry Type",'<>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
   DtldVendLedgEntry.SETRANGE(Unapplied,FALSE);
   IF NOT DtldVendLedgEntry.ISEMPTY THEN
   ERROR(Text000,VendLedgEntry.TABLECAPTION,VendLedgEntry."Entry No.");
   END;
   
   PROCEDURE SetReverseFilter@1(Number@1001 : Integer;RevType@1000 : 'Transaction,Register');
   BEGIN
   IF RevType = RevType::Transaction THEN BEGIN
   ...
   
   

   替换代码

   ...DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendLedgEntry."Entry No.");
   DtldVendLedgEntry.SETFILTER("Entry Type",'<>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
   DtldVendLedgEntry.SETRANGE(Unapplied,FALSE);
   IF NOT DtldVendLedgEntry.ISEMPTY THEN
   ERROR(Text000,VendLedgEntry.TABLECAPTION,VendLedgEntry."Entry No.");
   
   // Add the following lines.
   
     DtldVendLedgEntry.SETRANGE(Unapplied);
     DtldVendLedgEntry.SETFILTER("Entry Type",'%1|%2',
     DtldVendLedgEntry."Entry Type"::"Realized Gain",DtldVendLedgEntry."Entry Type"::"Realized Loss");
     IF NOT DtldVendLedgEntry.ISEMPTY THEN
     ERROR(Text013,VendLedgEntry.TABLECAPTION,VendLedgEntry."Entry No.");
   // End of the lines.
   
   END;
   
   PROCEDURE SetReverseFilter@1(Number@1001 : Integer;RevType@1000 : 'Transaction,Register');
   BEGIN
   IF RevType = RevType::Transaction THEN BEGIN
   ...