「仕入先支払提案」レポートは、仕入先の残高が Microsoft Dynamics NAV 2009 サービス パック 1 に否定的である場合支払として負のバランスを提示します。

修正プログラムの情報

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

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

コードの変更

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

1. 「仕入先支払提案」レポート (393) で仕入先 - OnPostDataItemのトリガーのコードを次のように変更します。
   既存のコード

   ...   IF FIND('-') THEN
        REPEAT
          Window.UPDATE(1,"No.");
          PayableVendLedgEntry.SETRANGE("Vendor No.","No.");
          GetVendLedgEntries(TRUE,TRUE);
          GetVendLedgEntries(FALSE,TRUE);
          CheckAmounts(TRUE);  
        UNTIL (NEXT = 0) OR StopPayments;
     END;
   
     ClearNegative;
   
     JnlLineDim.LOCKTABLE;
   ...
   
   

   置換用コード

   ...   IF FIND('-') THEN
        REPEAT
          Window.UPDATE(1,"No.");
          PayableVendLedgEntry.SETRANGE("Vendor No.","No.");
          GetVendLedgEntries(TRUE,TRUE);
          GetVendLedgEntries(FALSE,TRUE);
          CheckAmounts(TRUE);
          ClearNegative;
        UNTIL (NEXT = 0) OR StopPayments;
     END ELSE
      IF FIND('-') THEN
        REPEAT
          ClearNegative;
        UNTIL NEXT = 0;
   
     JnlLineDim.LOCKTABLE;
   ...
   
   

2. 「仕入先支払提案」レポート (393) のGetVendLedgEntriesの手順でコードを次のように変更します。
   既存のコード

   ...  VendLedgEntry.RESET;
     VendLedgEntry.SETCURRENTKEY("Vendor No.",Open,Positive,"Due Date");
     VendLedgEntry.SETRANGE("Vendor No.",Vendor."No.");
     VendLedgEntry.SETRANGE(Open,TRUE);
     VendLedgEntry.SETRANGE(Positive,Positive);
   
     IF Future THEN BEGIN
   ...
   
   

   置換用コード

   ...  VendLedgEntry.RESET;
     VendLedgEntry.SETCURRENTKEY("Vendor No.",Open,Positive,"Due Date");
     VendLedgEntry.SETRANGE("Vendor No.",Vendor."No.");
     VendLedgEntry.SETRANGE(Open,TRUE);
     VendLedgEntry.SETRANGE(Positive,Positive);
     VendLedgEntry.SETRANGE("Applies-to ID",'');
     IF Future THEN BEGIN
   ...
   
   

3. 「仕入先支払提案」レポート (393) のMakeGenJnlLinesの手順でコードを次のように変更します。
   既存のコード

   ...      Window.UPDATE(1,VendLedgEntry."Vendor No.");
         TempPaymentBuffer.INSERT;
       END;
       VendLedgEntry.TESTFIELD("Applies-to ID",'');
       VendLedgEntry."Applies-to ID" := TempPaymentBuffer."Document No.";
     END ELSE BEGIN
   ...
   
   

   置換用コード

   ...      Window.UPDATE(1,VendLedgEntry."Vendor No.");
         TempPaymentBuffer.INSERT;
       END;
   
       VendLedgEntry."Applies-to ID" := TempPaymentBuffer."Document No.";
     END ELSE BEGIN
   ...
   
   

4. 「仕入先支払提案」レポート (393) のClearNegativeの手順でコードを次のように変更します。
   既存のコード

   ...      WHILE PayableVendLedgEntry.NEXT <> 0 DO BEGIN
           TempCurrency.Code := PayableVendLedgEntry."Currency Code";
           CurrencyBalance := 0;
           PayableVendLedgEntry2 := PayableVendLedgEntry;
           IF TempCurrency.INSERT THEN BEGIN
   
             PayableVendLedgEntry.SETRANGE("Currency Code",PayableVendLedgEntry."Currency Code");
             REPEAT
               CurrencyBalance := CurrencyBalance + PayableVendLedgEntry."Amount (LCY)"
             UNTIL PayableVendLedgEntry.NEXT = 0;
             IF CurrencyBalance < 0 THEN
               PayableVendLedgEntry.DELETEALL;
           END;
           PayableVendLedgEntry.SETRANGE("Currency Code");
           PayableVendLedgEntry := PayableVendLedgEntry2;
         END;
   ...
   
   

   置換用コード

   ...      WHILE PayableVendLedgEntry.NEXT <> 0 DO BEGIN
           TempCurrency.Code := PayableVendLedgEntry."Currency Code";
           CurrencyBalance := 0;
   
           IF TempCurrency.INSERT THEN BEGIN
             PayableVendLedgEntry2 := PayableVendLedgEntry;
             PayableVendLedgEntry.SETRANGE("Currency Code",PayableVendLedgEntry."Currency Code");
             REPEAT
               CurrencyBalance := CurrencyBalance + PayableVendLedgEntry."Amount (LCY)"
             UNTIL PayableVendLedgEntry.NEXT = 0;
             IF CurrencyBalance < 0 THEN
               PayableVendLedgEntry.DELETEALL;
             PayableVendLedgEntry.SETRANGE("Currency Code");
             PayableVendLedgEntry := PayableVendLedgEntry2;
           END;
         END;
   ...