รายงาน "ชำระเงิน" แนะนำเป็นยอดดุลติดลบเป็นการชำระเงินถ้ายอดดุลของผู้จัดจำหน่ายเป็นค่าลบใน Microsoft Dynamics NAV 2009 Service Pack 1

ข้อมูลโปรแกรมแก้ไขด่วน

โปรแกรมแก้ไขด่วนจะพร้อมใช้งานได้ในขณะนี้จาก Microsoft อย่างไรก็ตาม มีเป้าหมายเพียงเพื่อการแก้ไขปัญหาที่อธิบายไว้ในบทความนี้ นำวิธีนี้ไปใช้กับระบบที่ประสบกับปัญหาที่เฉพาะเจาะจงเท่านั้น โปรแกรมแก้ไขด่วนนี้อาจได้รับการทดสอบเพิ่มเติม ดังนั้น ถ้าคุณจะไม่รุนแรงได้รับผลกระทบจากปัญหานี้ เราขอแนะนำให้ คุณรอ service pack ถัดไปของ Microsoft Dynamics NAV 2009 หรือเวอร์ชันถัดไป Microsoft Dynamics NAV ที่ประกอบด้วยโปรแกรมแก้ไขด่วนนี้

หมายเหตุ ในกรณีพิเศษ ค่าธรรมเนียมค่าใช้จ่ายสำหรับการสนับสนุนโทรศัพท์อาจถูกยกเลิกถ้า Technical Support Professional สำหรับ Microsoft Dynamics และผลิตภัณฑ์ที่เกี่ยวข้องตรวจพบว่าการปรับปรุงเฉพาะจะแก้ปัญหาของคุณ ค่าใช้จ่ายในการสนับสนุนตามปกติจะใช้กับคำถามและปัญหาในการสนับสนุนเพิ่มเติมซึ่งไม่สอดคล้องตามเกณฑ์สำหรับโปรแกรมปรับปรุงเฉพาะที่เกี่ยวข้อง

การเปลี่ยนแปลงรหัส

หมายเหตุ เสมอทดสอบรหัสแก้ไขในสภาพแวดล้อมการควบคุมก่อนที่คุณนำไปใช้แก้ไขปัญหากับคอมพิวเตอร์ของคุณผลิต
เมื่อต้องการแก้ไขปัญหานี้ ให้ทำตามขั้นตอนเหล่านี้:

1. เปลี่ยนรหัสในผู้จัดจำหน่าย - OnPostDataItemทริกเกอร์ในรายงาน "ชำระเงิน" (393) เป็นดังนี้:
   รหัสที่มีอยู่

   ...   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. เปลี่ยนแปลงรหัสนี้ในขั้นตอนGetVendLedgEntriesในรายงาน "ชำระเงิน" (393) เป็นดังนี้:
   รหัสที่มีอยู่

   ...  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. เปลี่ยนแปลงรหัสนี้ในขั้นตอนMakeGenJnlLinesในรายงาน "ชำระเงิน" (393) เป็นดังนี้:
   รหัสที่มีอยู่

   ...      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. เปลี่ยนแปลงรหัสนี้ในขั้นตอนClearNegativeในรายงาน "ชำระเงิน" (393) เป็นดังนี้:
   รหัสที่มีอยู่

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