มีการลงรายการบัญชีค่าเผื่อการชําระเงินที่ไม่ถูกต้องเมื่อคุณใช้ใบแจ้งหนี้กับการชําระเงินใน Microsoft Dynamics NAV

นำไปใช้กับ

Dynamics NAV 2009 Service Pack 1 Microsoft Dynamics NAV 5.0 Service Pack 1

บทความที่เผยแพร่อย่างรวดเร็วให้ข้อมูลโดยตรงจากภายในองค์กรสนับสนุนของ Microsoft ข้อมูลที่อยู่ในที่นี้จะถูกสร้างขึ้นเพื่อตอบสนองต่อหัวข้อที่เกิดขึ้นใหม่หรือเฉพาะ หรือมีวัตถุประสงค์เพื่อเพิ่มเติมข้อมูลฐานความรู้อื่นๆ

บทความนี้ใช้กับ Microsoft Dynamics NAV สําหรับทุกประเทศและทุกภาษา

อาการ

เมื่อคุณใช้ใบแจ้งหนี้กับการชําระเงินใน Microsoft Dynamics NAV จะมีการลงรายการบัญชีค่าเผื่อการชําระเงินที่ไม่ถูกต้อง ปัญหานี้เกิดขึ้นในผลิตภัณฑ์ต่อไปนี้:

Microsoft Dynamics NAV 2009 Service Pack 1
Microsoft Dynamics NAV 2009
Microsoft Dynamics NAV 5.0 Service Pack 1

การแก้ปัญหา

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

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

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

ข้อมูลการติดตั้ง

Microsoft แสดงตัวอย่างการเขียนโปรแกรมสําหรับภาพประกอบเท่านั้น โดยไม่มีการรับประกันทั้งโดยชัดแจ้งหรือโดยนัย ซึ่งรวมถึงแต่ไม่จํากัดเพียงการรับประกันโดยนัยถึงความสามารถในเชิงพาณิชย์หรือความเหมาะสมสําหรับวัตถุประสงค์เฉพาะ บทความนี้จะถือว่าคุณคุ้นเคยกับภาษาการเขียนโปรแกรมที่กําลังแสดงอยู่ และมีเครื่องมือที่ใช้สําหรับสร้างและแก้ไขจุดบกพร่องของกระบวนการ วิศวกรฝ่ายสนับสนุนของ Microsoft สามารถช่วยอธิบายฟังก์ชันการทํางานของกระบวนการเฉพาะได้ แต่จะไม่ปรับเปลี่ยนตัวอย่างเหล่านี้เพื่อให้มีฟังก์ชันการทํางานที่เพิ่มขึ้นหรือสร้างขั้นตอนต่างๆ เพื่อตอบสนองความต้องการเฉพาะของคุณ

หมายเหตุ ก่อนที่คุณจะติดตั้งโปรแกรมแก้ไขด่วนนี้ ตรวจสอบว่าผู้ใช้ไคลเอนต์ Microsoft Navision ทั้งหมดออกจากระบบ ซึ่งรวมถึงผู้ใช้ไคลเอนต์ Microsoft Navision Application Services (NAS) คุณควรเป็นผู้ใช้ไคลเอนต์เท่านั้นที่เข้าสู่ระบบเมื่อคุณใช้โปรแกรมแก้ไขด่วนนี้

เมื่อต้องการใช้โปรแกรมแก้ไขด่วนนี้

เราขอแนะนําให้ใช้บัญชีผู้ใช้ในหน้าต่าง ล็อกอินของ Windows หรือในหน้าต่าง ล็อกอินของฐานข้อมูล ถูกกําหนด ID บทบาท "SUPER" หากบัญชีผู้ใช้ไม่สามารถกําหนดรหัสบทบาท "SUPER" ได้ คุณต้องตรวจสอบว่าบัญชีผู้ใช้มีสิทธิ์ต่อไปนี้:

สิทธิ์ในการปรับเปลี่ยนสําหรับวัตถุที่คุณจะเปลี่ยนแปลง
สิทธิ์ Execute สําหรับวัตถุ System Object ID 5210 และสําหรับวัตถุ System Object ID 9015

หมายเหตุ คุณไม่มีสิทธิ์ในที่เก็บข้อมูล เว้นแต่คุณจะต้องดําเนินการซ่อมแซมข้อมูล

การเปลี่ยนแปลงโค้ด

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

เปลี่ยนรหัสในทริกเกอร์ OnRun ใน "ทั่วไป Jnl.-Apply" codeunit (225) ดังต่อไปนี้:
รหัสที่มีอยู่ 1

...
        IF CustLedgEntry.FIND('-') THEN BEGIN
          CurrencyCode2 := CustLedgEntry."Currency Code";
          IF Amount = 0 THEN BEGIN
            REPEAT
              CheckAgainstApplnCurrency(CurrencyCode2,CustLedgEntry."Currency Code",AccType::Customer,TRUE);
...

รหัสทดแทน 1

...
        IF CustLedgEntry.FIND('-') THEN BEGIN
          CurrencyCode2 := CustLedgEntry."Currency Code";
          IF Amount = 0 THEN BEGIN
            REPEAT

// Add the following line.
              PaymentToleranceMgt.DelPmtTolApllnDocNo(GenJnlLine,CustLedgEntry."Document No.");  

              CheckAgainstApplnCurrency(CurrencyCode2,CustLedgEntry."Currency Code",AccType::Customer,TRUE);
...

รหัสที่มีอยู่ 2

...
        IF VendLedgEntry.FIND('-') THEN BEGIN
          CurrencyCode2 := VendLedgEntry."Currency Code";
          IF Amount = 0 THEN BEGIN
            REPEAT
              CheckAgainstApplnCurrency(CurrencyCode2,VendLedgEntry."Currency Code",AccType::Vendor,TRUE);
...

รหัสทดแทน 2

...
        IF VendLedgEntry.FIND('-') THEN BEGIN
          CurrencyCode2 := VendLedgEntry."Currency Code";
          IF Amount = 0 THEN BEGIN
            REPEAT

// Add the following line.
              PaymentToleranceMgt.DelPmtTolApllnDocNo(GenJnlLine,VendLedgEntry."Document No.");

              CheckAgainstApplnCurrency(CurrencyCode2,VendLedgEntry."Currency Code",AccType::Vendor,TRUE);
...

เปลี่ยนรหัสในฟังก์ชัน CalcCustApplnAmount ในโค้ด unit "การจัดการค่าเผื่อการชําระเงิน" (426) ดังนี้:
รหัสที่มีอยู่

...
TempAmount := TempAmount + AppliedCustLedgEntry."Amount to Apply";
            UNTIL AppliedCustLedgEntry.NEXT = 0;

// Delete the following lines.
// Check Payment Tolerance
            IF (CustledgEntry."Document Type" = CustledgEntry."Document Type"::Payment) THEN BEGIN
              IF TempAmount - CustledgEntry."Remaining Amount" < MaxPmtTolAmount THEN
                MaxPmtTolAmount := TempAmount - CustledgEntry."Remaining Amount";
            END ELSE IF (CustledgEntry."Document Type" = CustledgEntry."Document Type"::Refund) THEN BEGIN
              IF TempAmount - CustledgEntry."Remaining Amount" > MaxPmtTolAmount THEN
                MaxPmtTolAmount := TempAmount - CustledgEntry."Remaining Amount";
            END;
// End of the deleted lines. 

         TempAmount := TempAmount + MaxPmtTolAmount;
            PositiveFilter := TempAmount <= 0;
...

รหัสทดแทน

...
TempAmount := TempAmount + AppliedCustLedgEntry."Amount to Apply";
            UNTIL AppliedCustLedgEntry.NEXT = 0;

TempAmount := TempAmount + MaxPmtTolAmount;
PositiveFilter := TempAmount <= 0;
...

เปลี่ยนรหัสในฟังก์ชัน CalcVendApplnAmount ในโค้ด unit "การจัดการค่าเผื่อการชําระเงิน" (426) ดังนี้:
รหัสที่มีอยู่

...
TempAmount := TempAmount + AppliedVendLedgEntry."Amount to Apply";
            UNTIL AppliedVendLedgEntry.NEXT = 0;

// Delete the following lines.
            // Check Payment Tolerance
            IF (VendledgEntry."Document Type" = VendledgEntry."Document Type"::Payment) THEN BEGIN
              IF TempAmount - VendledgEntry."Remaining Amount" > MaxPmtTolAmount THEN
                MaxPmtTolAmount := TempAmount - VendledgEntry."Remaining Amount";
            END ELSE IF (VendledgEntry."Document Type" = VendledgEntry."Document Type"::Refund) THEN BEGIN
              IF TempAmount - VendledgEntry."Remaining Amount" < MaxPmtTolAmount THEN
                MaxPmtTolAmount := TempAmount - VendledgEntry."Remaining Amount";
            END;
// End of the deleted lines. 

            TempAmount := TempAmount + MaxPmtTolAmount;
            PositiveFilter := TempAmount >= 0;
...

รหัสทดแทน

...
TempAmount := TempAmount + AppliedVendLedgEntry."Amount to Apply";
            UNTIL AppliedVendLedgEntry.NEXT = 0;

TempAmount := TempAmount + MaxPmtTolAmount;
PositiveFilter := TempAmount >= 0;
...

เปลี่ยนรหัสในฟังก์ชัน DelPmtTolApllnDocNo ในโค้ด unit "การจัดการค่าเผื่อการชําระเงิน" (426) ดังนี้:
รหัสที่มีอยู่

...
AppliedCustLedgEntry.SETRANGE(Open,TRUE);
AppliedCustLedgEntry.SETRANGE("Document No.",DocumentNo);
AppliedCustLedgEntry.LOCKTABLE;

// Delete the following lines. 

IF AppliedCustLedgEntry.FIND('-') THEN BEGIN
  AppliedCustLedgEntry."Accepted Payment Tolerance" := 0;
  AppliedCustLedgEntry."Accepted Pmt. Disc. Tolerance" := FALSE;
  AppliedCustLedgEntry.MODIFY;
// End of the deleted lines. 
  COMMIT; 
END;
...

รหัสทดแทน

...
AppliedCustLedgEntry.SETRANGE(Open,TRUE);
AppliedCustLedgEntry.SETRANGE("Document No.",DocumentNo);
AppliedCustLedgEntry.LOCKTABLE;

// Add the following lines. 
IF AppliedCustLedgEntry.FINDSET THEN BEGIN
  REPEAT
    AppliedCustLedgEntry."Accepted Payment Tolerance" := 0;
    AppliedCustLedgEntry."Accepted Pmt. Disc. Tolerance" := FALSE;
    AppliedCustLedgEntry.MODIFY;
  UNTIL AppliedCustLedgEntry.NEXT = 0;
//End of the added lines. 

  COMMIT; 
END;
...

เปลี่ยนรหัสในทริกเกอร์ DelPmtTolApllnDocNo ในโค้ดหน่วยโค้ด "การจัดการค่าเผื่อการชําระเงิน" (426) ดังนี้:
รหัสที่มีอยู่

...
AppliedVendLedgEntry.SETRANGE(Open,TRUE);
  AppliedVendLedgEntry.SETRANGE("Document No.",DocumentNo);
  AppliedVendLedgEntry.LOCKTABLE;

// Delete the following lines. 

  IF AppliedVendLedgEntry.FIND('-') THEN BEGIN
    AppliedVendLedgEntry."Accepted Payment Tolerance" := 0;
    AppliedVendLedgEntry."Accepted Pmt. Disc. Tolerance" := FALSE;
    AppliedVendLedgEntry.MODIFY;
// End of the deleted lines

  COMMIT; 
END; 
END; 
...

รหัสทดแทน

...
AppliedVendLedgEntry.SETRANGE(Open,TRUE);
  AppliedVendLedgEntry.SETRANGE("Document No.",DocumentNo);
  AppliedVendLedgEntry.LOCKTABLE; 

// Add the following lines. 

  IF AppliedVendLedgEntry.FINDSET THEN BEGIN
    REPEAT
      AppliedVendLedgEntry."Accepted Payment Tolerance" := 0;
      AppliedVendLedgEntry."Accepted Pmt. Disc. Tolerance" := FALSE;
      AppliedVendLedgEntry.MODIFY;
    UNTIL AppliedVendLedgEntry.NEXT = 0;
//End of the added lines. 

    COMMIT; 
  END; 
END;
...

ข้อกำหนดเบื้องต้น

คุณต้องติดตั้งผลิตภัณฑ์ใดผลิตภัณฑ์หนึ่งต่อไปนี้เพื่อใช้โปรแกรมแก้ไขด่วนนี้:

Microsoft Dynamics NAV 2009 Service Pack 1
Microsoft Dynamics NAV 2009
Microsoft Dynamics NAV 5.0 Service Pack 1

ลบข้อมูลออก

คุณไม่สามารถลบโปรแกรมแก้ไขด่วนนี้ได้

สถานะ

Microsoft ได้ยืนยันว่านี่เป็นปัญหาที่เกิดขึ้นกับผลิตภัณฑ์ของ Microsoft ที่แสดงไว้ในส่วน "นำไปใช้กับ"

MICROSOFT และ/หรือผู้จําหน่ายของ MICROSOFT ไม่ได้รับรองหรือรับประกันเกี่ยวกับความเหมาะสม ความน่าเชื่อถือ หรือความถูกต้องของข้อมูลที่มีอยู่ในเอกสารและกราฟิกที่เกี่ยวข้องที่เผยแพร่บนเว็บไซต์นี้ ("เนื้อหา") เพื่อวัตถุประสงค์ใดๆ

วัสดุอาจรวมถึงความไม่ถูกต้องทางเทคนิคหรือข้อผิดพลาดในการพิมพ์ และอาจมีการแก้ไขได้ตลอดเวลาโดยไม่ต้องแจ้งให้ทราบ ภายใต้ขอบเขตสูงสุดที่กฎหมายที่บังคับใช้อนุญาต MICROSOFT และ/หรือผู้จําหน่ายของไมโครซอฟท์จะปฏิเสธความรับผิดชอบและแยกการรับรอง การรับประกัน และเงื่อนไขทั้งหมดไม่ว่าจะโดยชัดแจ้ง โดยนัย หรือโดยกฎหมาย รวมถึงแต่ไม่จํากัดเพียงการแสดง การรับประกัน หรือเงื่อนไขของชื่อเรื่อง การไม่ละเมิด เงื่อนไขหรือคุณภาพที่น่าพอใจ ความสามารถในเชิงพาณิชย์และความเหมาะสมสําหรับวัตถุประสงค์เฉพาะ ที่เกี่ยวข้องกับวัสดุ

มีการลงรายการบัญชีค่าเผื่อการชําระเงินที่ไม่ถูกต้องเมื่อคุณใช้ใบแจ้งหนี้กับการชําระเงินใน Microsoft Dynamics NAV

อาการ

การแก้ปัญหา

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

ข้อมูลการติดตั้ง

การเปลี่ยนแปลงโค้ด

ข้อกำหนดเบื้องต้น

ลบข้อมูลออก

สถานะ

ข้อมูลนี้มีประโยชน์หรือไม่

ขอบคุณสำหรับคำติชมของคุณ!