当反转在意大利语版本的 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. 更改全局变量中冲销条目表 (179) 中的代码，如下所示︰
   现有代码

   ...PostApplied@1029 : Boolean;
           Text012@1028 : TextConst 'ENU=You cannot reverse register No. %1 because it contains customer or vendor ledger entries that have been posted and applied in the same transaction.\\You must reverse each transaction in register No. %1 separately.;ITA=Impossibile stornare il registro Nr. %1 perch‚ contiene movimenti contabili clienti o fornitori che sono stati registrati e collegati nella stessa transazione.\\Ô necessario stornare separatamente ogni transazione nel registro Nr. %1.';
   
         PROCEDURE ReverseTransaction@8(TransactionNo@1000 : Integer);
   ...
   

   替换代码

   ...PostApplied@1029 : Boolean;
           Text012@1028 : TextConst 'ENU=You cannot reverse register No. %1 because it contains customer or vendor ledger entries that have been posted and applied in the same transaction.\\You must reverse each transaction in register No. %1 separately.;ITA=Impossibile stornare il registro Nr. %1 perch‚ contiene movimenti contabili clienti o fornitori che sono stati registrati e collegati nella stessa transazione.\\Ô necessario stornare separatamente ogni transazione nel registro Nr. %1.';
   
   // Add the following line.
          Text013@1039 : TextConst 'ENU=You cannot reverse %1 No. %2 because the entry has an associated Realized Gain/Loss entry.';
   
         PROCEDURE ReverseTransaction@8(TransactionNo@1000 : Integer);
   ...
   

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

   ...DtldCustLedgEntry.SETFILTER(
                 DtldCustLedgEntry."Entry Type",'<>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
   
   // Delete the following lines.
              IF DtldCustLedgEntry.FIND('-') THEN BEGIN
                IF RevType = RevType::Register THEN
                  ERROR(Text012,Number);
                CLEAR(DtldCustLedgEntry);
                DtldCustLedgEntry.SETCURRENTKEY("Cust. Ledger Entry No.");
                DtldCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgEntry."Entry No.");
                DtldCustLedgEntry.SETRANGE(Unapplied,TRUE);
                IF DtldCustLedgEntry.FIND('-') THEN BEGIN
                  REPEAT
                    TempRevertTransactionNo.Number := DtldCustLedgEntry."Transaction No.";
                    IF TempRevertTransactionNo.INSERT THEN;
                  UNTIL DtldCustLedgEntry.NEXT = 0;
                END;
              END;
   // End of the deleted lines.
   
             UNTIL CustLedgEntry.NEXT = 0;
   ...
   

   替换代码 1

   ...DtldCustLedgEntry.SETFILTER(
                 DtldCustLedgEntry."Entry Type",'<>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
   
   // Add the following lines.
              IF NOT DtldCustLedgEntry.ISEMPTY THEN
                IF RevType = RevType::Register THEN
                  ERROR(Text012,Number);
              CheckDtldCustLedgEntry(CustLedgEntry);
   // End of the added lines.
   
             UNTIL CustLedgEntry.NEXT = 0;
   ...
   

   现有代码 2

   ...DtldVendLedgEntry.SETFILTER(
                 DtldVendLedgEntry."Entry Type",'<>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
   
   // Delete the following lines.
              IF DtldVendLedgEntry.FIND('-') THEN BEGIN
                IF RevType = RevType::Register THEN
                  ERROR(Text012,Number);
                CLEAR(DtldVendLedgEntry);
                DtldVendLedgEntry.SETCURRENTKEY("Vendor Ledger Entry No.");
                DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendLedgEntry."Entry No.");
                DtldVendLedgEntry.SETRANGE(Unapplied,TRUE);
                IF DtldVendLedgEntry.FIND('-') THEN BEGIN
                  REPEAT
                    TempRevertTransactionNo.Number := DtldVendLedgEntry."Transaction No.";
                    IF TempRevertTransactionNo.INSERT THEN;
                  UNTIL DtldVendLedgEntry.NEXT = 0;
                END;
              END;
   // End of the deleted lines.
   
             UNTIL VendLedgEntry.NEXT = 0;
   ...
   

   替换代码 2

   ...DtldVendLedgEntry.SETFILTER(
                 DtldVendLedgEntry."Entry Type",'<>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
   
   // Add the following lines.
              IF NOT DtldVendLedgEntry.ISEMPTY THEN
                IF RevType = RevType::Register THEN
                  ERROR(Text012,Number);
              CheckDtldVendLedgEntry(VendLedgEntry);
   // End of the added lines.
   
             UNTIL VendLedgEntry.NEXT = 0;
   ...
   

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

   ...DtldCustLedgEntry@1001 : Record 379;
         BEGIN
   
   // Delete the following lines.
          DtldCustLedgEntry.SETCURRENTKEY("Cust. Ledger Entry No.");
          DtldCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgEntry."Entry No.");
          IF DtldCustLedgEntry.FIND('-') THEN
            REPEAT
              IF (DtldCustLedgEntry."Entry Type" <> DtldCustLedgEntry."Entry Type"::"Initial Entry") AND
                 (NOT DtldCustLedgEntry.Unapplied)
              THEN
                ERROR(
                  Text000,CustLedgEntry.TABLECAPTION,CustLedgEntry."Entry No.");
            UNTIL DtldCustLedgEntry.NEXT = 0;
   // End of the deleted lines.
   
         END;
   ...
   

   替换代码

   ...DtldCustLedgEntry@1001 : Record 379;
         BEGIN
   
   // Add the following lines.
          DtldCustLedgEntry.SETCURRENTKEY("Cust. Ledger Entry No.","Entry Type");
          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.");
   
          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 added lines.
   
         END;
   ...
   

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

   ...DtldVendLedgEntry@1001 : Record 380;
         BEGIN
   
   // Delete the following lines.
          DtldVendLedgEntry.SETCURRENTKEY("Vendor Ledger Entry No.");
          DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendLedgEntry."Entry No.");
          IF DtldVendLedgEntry.FIND('-') THEN
            REPEAT
              IF (DtldVendLedgEntry."Entry Type" <> DtldVendLedgEntry."Entry Type"::"Initial Entry") AND
                 (NOT DtldVendLedgEntry.Unapplied)
              THEN
                ERROR(
                  Text000,VendLedgEntry.TABLECAPTION,VendLedgEntry."Entry No.");
            UNTIL DtldVendLedgEntry.NEXT = 0;
   // End of the deleted lines.
   
         END;
   ...
   

   替换代码

   ...DtldVendLedgEntry@1001 : Record 380;
         BEGIN
   
   // Add the following lines.
          DtldVendLedgEntry.SETCURRENTKEY("Vendor Ledger Entry No.","Entry Type");
          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.");
   
          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 added lines.
   
         END;
   ...
   

系统必备组件

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

• 意大利语版 Microsoft Dynamics 导航 2009 R2

• 意大利语版 Microsoft Dynamics 导航 2009 SP1

删除信息

您不能删除此修补程序。