提案しない仕入先支払レポート (393) ハンドル寸法正しく Microsoft Dynamics NAV 2009 年に次元の請求書に対する支払を転記すると、

修正プログラムの情報

サポートされている修正プログラムはマイクロソフトから現在入手可能です。ただし、この資料に記載されている問題を解決するためのものはのみ。この特定の問題が発生したシステムにのみ適用してください。この修正プログラムは、今後さらにテストを行うことがあります。この問題で深刻な影響を受けていない場合は、次の Microsoft Dynamics NAV 2009 サービス パックまたは修正プログラムを含む次の Microsoft Dynamics NAV バージョン待つことを勧めします。

注: かかる料金が免除されるテクニカル サポート担当者 Microsoft Dynamics および関連製品のことは、通常は特別な場合は、特定の更新プログラムは、問題を解決するにを決定します。追加の質問および問題の特定のアップデートの対象にはなりませんが、通常のサポート料金が適用されます。

コードの変更

注: 常にテスト コードを修正、管理された環境で適用する前に、運用コンピューターに修正プログラムします。
この問題を解決するには、次の手順を実行します。

1. 仕入先の支払提案レポート (393) 内のMakeGenJnlLines関数内のコードを次のように変更します。
   既存のコード

   ...Description :=
                     STRSUBSTNO(
                       Text015,
                       TempPaymentBuffer."Vendor Ledg. Entry Doc. Type",
                       TempPaymentBuffer."Vendor Ledg. Entry Doc. No.");
   
   // Delete the following lines.
                "Shortcut Dimension 1 Code" := TempPaymentBuffer."Global Dimension 1 Code";
                "Shortcut Dimension 2 Code" := TempPaymentBuffer."Global Dimension 2 Code";
   // End of the deleted lines.
   
                 "Source Code" := GenJnlTemplate."Source Code";
                 "Reason Code" := GenJnlBatch."Reason Code";
                 VALIDATE(Amount,TempPaymentBuffer.Amount);
                 "Applies-to Doc. Type" := TempPaymentBuffer."Vendor Ledg. Entry Doc. Type";
                 "Applies-to Doc. No." := TempPaymentBuffer."Vendor Ledg. Entry Doc. No.";
   ...
   

   置換用コード

   ...Description :=
                     STRSUBSTNO(
                       Text015,
                       TempPaymentBuffer."Vendor Ledg. Entry Doc. Type",
                       TempPaymentBuffer."Vendor Ledg. Entry Doc. No.");
                 "Source Code" := GenJnlTemplate."Source Code";
                 "Reason Code" := GenJnlBatch."Reason Code";
                 VALIDATE(Amount,TempPaymentBuffer.Amount);
                 "Applies-to Doc. Type" := TempPaymentBuffer."Vendor Ledg. Entry Doc. Type";
                 "Applies-to Doc. No." := TempPaymentBuffer."Vendor Ledg. Entry Doc. No.";
   ...
   

2. 仕入先の支払提案レポート (393) 内のMakeGenJnlLines関数内のコードを次のように変更します。
   既存のコード

   ...
   DimMgt.TypeToTableID1("Account Type"),"Account No.",
                   DimMgt.TypeToTableID1("Bal. Account Type"),"Bal. Account No.",
                   DATABASE::Job,"Job No.",
                   DATABASE::"Salesperson/Purchaser","Salespers./Purch. Code",
                   DATABASE::Campaign,"Campaign No.");
               END;
             UNTIL TempPaymentBuffer.NEXT = 0;
         END;
   
         LOCAL PROCEDURE SetBankAccCurrencyFilter@11(BalAccType@1000 : 'G/L Account,Customer,Vendor,Bank Account';BalAccNo@1001 : Code[20];VAR TmpPayableVendLedgEntry@1002 : Record 317);
   ...
   

   置換用コード

   ...DimMgt.TypeToTableID1("Account Type"),"Account No.",
                   DimMgt.TypeToTableID1("Bal. Account Type"),"Bal. Account No.",
                   DATABASE::Job,"Job No.",
                   DATABASE::"Salesperson/Purchaser","Salespers./Purch. Code",
                   DATABASE::Campaign,"Campaign No.");
   
   // Add the following lines.
                VALIDATE("Shortcut Dimension 1 Code",TempPaymentBuffer."Global Dimension 1 Code");
                VALIDATE("Shortcut Dimension 2 Code",TempPaymentBuffer."Global Dimension 2 Code");
   // End of the added lines.
   
               END;
             UNTIL TempPaymentBuffer.NEXT = 0;
         END;
   
         LOCAL PROCEDURE SetBankAccCurrencyFilter@11(BalAccType@1000 : 'G/L Account,Customer,Vendor,Bank Account';BalAccNo@1001 : Code[20];VAR TmpPayableVendLedgEntry@1002 : Record 317);
   ...