รายงานสมุดรายวันสภาพคล่องแบบเติมข้อมูล (5055250) แสดงค่าที่ไม่ถูกต้องเมื่อใบสั่งที่มีการเปิดใช้งานการชําระเงินล่วงหน้าที่เปิดใช้งานการชําระเงินล่วงหน้าเกี่ยวข้องกับ Microsoft Dynamics NAV 2009 เวอร์ชันภาษาเยอรมัน

บทความนี้ใช้กับ Microsoft Dynamics NAV สําหรับภาษาเยอรมัน (de) ภาษาท้องถิ่น

อาการ

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

• Microsoft Dynamics NAV 2009 R2 เวอร์ชันภาษาเยอรมัน
• Microsoft Dynamics NAV 2009 Service Pack 1 (SP1) เวอร์ชันภาษาเยอรมัน

การแก้ปัญหา

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

โปรแกรมแก้ไขด่วนที่ได้รับการสนับสนุนจาก 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

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

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

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

1. เพิ่มตัวแปรท้องถิ่นใหม่ในบรรทัดการขาย - ทริกเกอร์ OnAfterGetRecord ในรายงานสมุดรายวันสภาพคล่องแบบเติม (5055250) ให้ระบุตัวแปรดังนี้:

   • ชื่อ: CurrencyLCY
   • ชนิดข้อมูล: ระเบียน
   • ชนิดย่อย: สกุลเงิน (4)

2. เพิ่มตัวแปรท้องถิ่นใหม่ในบรรทัดการขาย - ทริกเกอร์ OnAfterGetRecord ในรายงานสมุดรายวันสภาพคล่องแบบเติม (5055250) ให้ระบุตัวแปรดังนี้:

   • ชื่อ: PrevDocNo
   • ชนิดข้อมูล: โค้ด
   • ความยาว: 20

3. เพิ่มตัวแปรท้องถิ่นใหม่ในบรรทัดการขาย - ทริกเกอร์ OnAfterGetRecord ในรายงานสมุดรายวันสภาพคล่องแบบเติม (5055250) ให้ระบุตัวแปรดังนี้:

   • ชื่อ: AmountLCY
   • ชนิดข้อมูล: ทศนิยม

4. เพิ่มตัวแปรท้องถิ่นใหม่ในบรรทัดการขาย - ทริกเกอร์ OnAfterGetRecord ในรายงานสมุดรายวันสภาพคล่องแบบเติม (5055250) ให้ระบุตัวแปรดังนี้:

   • ชื่อ: RemainderAmountLCY
   • ชนิดข้อมูล: ทศนิยม

5. เพิ่มตัวแปรท้องถิ่นใหม่ในบรรทัดการขาย - ทริกเกอร์ OnAfterGetRecord ในรายงานสมุดรายวันสภาพคล่องแบบเติม (5055250) ให้ระบุตัวแปรดังนี้:

   • ชื่อ: PrepmtAmtInclVAT
   • ชนิดข้อมูล: ทศนิยม

6. เปลี่ยนรหัสในบรรทัดการขาย - ทริกเกอร์ OnAfterGetRecord ในรายงานสมุดรายวันสภาพคล่องแบบเติม (5055250) ดังนี้:
   รหัสที่มีอยู่ 1

   ...
   PurchHeader.GET("Purchase Line"."Document Type","Purchase Line"."Document No.");
   WITH LiqLine2 DO BEGIN
   ...
   

   รหัสทดแทน 1

   ...
   PurchHeader.GET("Purchase Line"."Document Type","Purchase Line"."Document No.");
   
   // Add the following lines.
   IF (PurchHeader."Currency Code" <> '') AND (PrevDocNo <> PurchHeader."No.") THEN BEGIN
   RemainderAmountLCY := 0;
   PurchHeader.TESTFIELD("Currency Factor");
   CurrencyLCY.InitRoundingPrecision;
   PrevDocNo := PurchHeader."No.";
   END;
   // End of lines.
   
   WITH LiqLine2 DO BEGIN
   ...
   

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

   ...
   // Delete the following lines.
   IF "Purchase Line"."Prepmt. Amt. Inv." <> 0 THEN BEGIN
   PurchInvHeader.RESET;
   PurchInvHeader.SETCURRENTKEY("Prepayment Order No.");
   PurchInvHeader.SETRANGE("Prepayment Order No.","Purchase Line"."Document No.");
   IF PurchInvHeader.FIND('-') THEN REPEAT
   VendorLedgerEntry.RESET;
   VendorLedgerEntry.SETCURRENTKEY("Document No.");
   VendorLedgerEntry.SETRANGE("Document No.",PurchInvHeader."No.");
   VendorLedgerEntry.SETRANGE("Posting Date",PurchInvHeader."Posting Date");
   IF VendorLedgerEntry.FIND('-') THEN REPEAT
   VendorLedgerEntry.CALCFIELDS("Remaining Amt. (LCY)","Remaining Amount");
   "Amount (Currency)" := "Amount (Currency)" - VendorLedgerEntry."Remaining Amount";
   Amount := Amount - VendorLedgerEntry."Remaining Amt. (LCY)";
   UNTIL VendorLedgerEntry.NEXT = 0;
   UNTIL PurchInvHeader.NEXT = 0;
   END;
   // End of the lines.
   ...
   

   รหัสทดแทน 2

   ...
   // Add the following lines.
   PrepmtAmtInclVAT := ROUND("Purchase Line"."Prepmt. Amt. Inv." * (1 + ("Purchase Line"."Prepayment VAT %" / 100)),
   CurrencyLCY."Amount Rounding Precision");
   IF PrepmtAmtInclVAT <> 0 THEN BEGIN
   "Amount (Currency)" := "Amount (Currency)" - PrepmtAmtInclVAT;
   IF PurchHeader."Currency Code" = '' THEN
   Amount := Amount - PrepmtAmtInclVAT
   ELSE BEGIN
   AmountLCY := RemainderAmountLCY + PrepmtAmtInclVAT / PurchHeader."Currency Factor";
   RemainderAmountLCY := AmountLCY - ROUND(AmountLCY,CurrencyLCY."Amount Rounding Precision");
   Amount := Amount - ROUND(AmountLCY,CurrencyLCY."Amount Rounding Precision");
   END;
   END;
   // End of the lines.
   ...
   

7. เพิ่มตัวแปรท้องถิ่นใหม่ในทริกเกอร์ PurchaseLine - OnAfterGetRecord ในรายงานสมุดรายวันสภาพคล่องแบบเติม (5055250) ให้ระบุตัวแปรดังนี้:

   • ชื่อ: CurrencyLCY
   • ชนิดข้อมูล: ระเบียน
   • ชนิดย่อย: สกุลเงิน (4)

8. เพิ่มตัวแปรท้องถิ่นใหม่ในทริกเกอร์ PurchaseLine - OnAfterGetRecord ในรายงานสมุดรายวันสภาพคล่องแบบเติม (5055250) ให้ระบุตัวแปรดังนี้:

   • ชื่อ: PrevDocNo
   • ชนิดข้อมูล: โค้ด
   • ความยาว: 20

9. เพิ่มตัวแปรท้องถิ่นใหม่ในทริกเกอร์ PurchaseLine - OnAfterGetRecord ในรายงานสมุดรายวันสภาพคล่องแบบเติม (5055250) ให้ระบุตัวแปรดังนี้:

   • ชื่อ: AmountLCY
   • ชนิดข้อมูล: ทศนิยม

10. เพิ่มตัวแปรท้องถิ่นใหม่ในทริกเกอร์ PurchaseLine - OnAfterGetRecord ในรายงานสมุดรายวันสภาพคล่องแบบเติม (5055250) ให้ระบุตัวแปรดังนี้:

    • ชื่อ: RemainderAmountLCY
    • ชนิดข้อมูล: ทศนิยม

11. เพิ่มตัวแปรท้องถิ่นใหม่ในทริกเกอร์ PurchaseLine - OnAfterGetRecord ในรายงานสมุดรายวันสภาพคล่องแบบเติม (5055250) ให้ระบุตัวแปรดังนี้:

    • ชื่อ: PrepmtAmtInclVAT
    • ชนิดข้อมูล: ทศนิยม

12. เปลี่ยนรหัสในทริกเกอร์ PurchaseLine - OnAfterGetRecord ในรายงานสมุดรายวันสภาพคล่องแบบเติม (5055250) ดังนี้:
    รหัสที่มีอยู่ 1

    ...
    PurchHeader.GET("Purchase Line"."Document Type","Purchase Line"."Document No.");
    WITH LiqLine2 DO BEGIN
    ...
    

    รหัสทดแทน 1

    ...
    PurchHeader.GET("Purchase Line"."Document Type","Purchase Line"."Document No.");
    
    // Add the following lines.
    IF (PurchHeader."Currency Code" <> '') AND (PrevDocNo <> PurchHeader."No.") THEN BEGIN
    RemainderAmountLCY := 0;
    PurchHeader.TESTFIELD("Currency Factor");
    CurrencyLCY.InitRoundingPrecision;
    PrevDocNo := PurchHeader."No.";
    END;
    // End of the lines.
    
    WITH LiqLine2 DO BEGIN
    ...
    

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

    ...
    // Delete the following lines.
    IF "Purchase Line"."Prepmt. Amt. Inv." <> 0 THEN BEGIN
    PurchInvHeader.RESET;
    PurchInvHeader.SETCURRENTKEY("Prepayment Order No.");
    PurchInvHeader.SETRANGE("Prepayment Order No.","Purchase Line"."Document No.");
    IF PurchInvHeader.FIND('-') THEN REPEAT
    VendorLedgerEntry.RESET;
    VendorLedgerEntry.SETCURRENTKEY("Document No.");
    VendorLedgerEntry.SETRANGE("Document No.",PurchInvHeader."No.");
    VendorLedgerEntry.SETRANGE("Posting Date",PurchInvHeader."Posting Date");
    IF VendorLedgerEntry.FIND('-') THEN REPEAT
    VendorLedgerEntry.CALCFIELDS("Remaining Amt. (LCY)","Remaining Amount");
    "Amount (Currency)" := "Amount (Currency)" - VendorLedgerEntry."Remaining Amount";
    Amount := Amount - VendorLedgerEntry."Remaining Amt. (LCY)";
    UNTIL VendorLedgerEntry.NEXT = 0;
    UNTIL PurchInvHeader.NEXT = 0;
    END;
    // End of the lines.
    ...
    

    รหัสทดแทน 2

    ...
    // Add the following lines.
    PrepmtAmtInclVAT := ROUND("Purchase Line"."Prepmt. Amt. Inv." * (1 + ("Purchase Line"."Prepayment VAT %" / 100)),
    CurrencyLCY."Amount Rounding Precision");
    IF PrepmtAmtInclVAT <> 0 THEN BEGIN
    "Amount (Currency)" := "Amount (Currency)" + PrepmtAmtInclVAT;
    IF PurchHeader."Currency Code" = '' THEN
    Amount := Amount + PrepmtAmtInclVAT
    ELSE BEGIN
    AmountLCY := RemainderAmountLCY + PrepmtAmtInclVAT / PurchHeader."Currency Factor";
    RemainderAmountLCY := AmountLCY - ROUND(AmountLCY,CurrencyLCY."Amount Rounding Precision");
    Amount := Amount + ROUND(AmountLCY,CurrencyLCY."Amount Rounding Precision");
    END;
    END;
    // End of the lines.
    ...
    

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

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

• Microsoft Dynamics NAV 2009 R2 เวอร์ชันภาษาเยอรมัน
• Microsoft Dynamics NAV 2009 Service Pack 1 (SP1) เวอร์ชันภาษาเยอรมัน

ลบข้อมูลออก

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

สถานะ

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

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