「 建議的供應商付款 」 報表為付款建議負的餘額廠商餘額為負數，在 [Microsoft 動態航行點 2009 Service Pack 1

Hotfix 資訊

已經可以從 Microsoft 取得支援的 hotfix。不過，它只被用來修正本文所述的問題。它只適用於發生此特定問題的系統上。此 hotfix 可能會接受其他測試。因此，如果此問題不會嚴重影響，我們建議您等候下一步的 Microsoft 動態航行點 2009 service pack 或包含此 hotfix 的下一個 Microsoft 動態航行點版本。

注意 在特殊的情況下，通常會支援呼叫可能已被取消如果技術支援專業人員的 Microsoft 動態及相關的產品所產生的費用會決定某特定更新程式可以解決您的問題。收取支援費用會套用，如果有其他支援問題是，不能限定的特定更新程式。

程式碼變更

注意永遠測試程式碼修正在受控制的環境中才能套用到實際執行電腦的修正程式。
若要解決這個問題，請依照下列步驟執行：

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;
   ...