Báo cáo "Đề nghị thanh toán nhà cung cấp" cho thấy một số dư âm như thanh toán nếu số dư trên nhà cung cấp tiêu cực trong Microsoft Dynamics NAV 2009 Service Pack 1

Thông tin về cập nhật nóng

Microsoft hiện đã cung cấp bản cập nhật nóng được hỗ trợ. Tuy nhiên, nó chỉ được dùng để khắc phục sự cố được mô tả trong bài viết này. Áp dụng cho các hệ thống đang gặp sự cố cụ thể này. Hotfix này có thể được kiểm tra thêm. Do đó, nếu bạn không bị ảnh hưởng bởi vấn đề này, chúng tôi khuyến nghị bạn đợi cho gói dịch vụ tiếp theo của Microsoft Dynamics NAV 2009 hoặc phiên bản Microsoft Dynamics NAV tiếp theo có chứa hotfix này.

Lưu ý Trong trường hợp đặc biệt, chi phí thường phát sinh để hỗ trợ cuộc gọi có thể bị hủy bỏ nếu chuyên viên hỗ trợ kỹ thuật cho Microsoft Dynamics và sản phẩm liên quan xác định rằng một Cập Nhật cụ thể sẽ giải quyết vấn đề của bạn. Chi phí hỗ trợ thông thường sẽ áp dụng cho các vấn đề không phù hợp với bản Cập Nhật cụ thể trong câu hỏi và câu hỏi hỗ trợ bổ sung.

Thay đổi mã

Lưu ý Luôn kiểm tra mã khắc phục trong một môi trường được kiểm soát trước khi bạn áp dụng bản vá để sản xuất máy tính của bạn.
Để khắc phục sự cố này, hãy làm theo các bước sau:

1. Thay đổi mã trong kích hoạt cung cấp - OnPostDataItem trong báo cáo "Đề nghị thanh toán nhà cung cấp" (393) như sau:
   Mã hiện tại

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

   Thay thế mã

   ...   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. Thay đổi mã trong quy trình GetVendLedgEntries trong báo cáo "Đề nghị thanh toán nhà cung cấp" (393) như sau:
   Mã hiện tại

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

   Thay thế mã

   ...  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. Thay đổi mã trong quy trình MakeGenJnlLines trong báo cáo "Đề nghị thanh toán nhà cung cấp" (393) như sau:
   Mã hiện tại

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

   Thay thế mã

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

4. Thay đổi mã trong quy trình ClearNegative trong báo cáo "Đề nghị thanh toán nhà cung cấp" (393) như sau:
   Mã hiện tại

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

   Thay thế mã

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