บทความนี้นำไปใช้กับ Microsoft Dynamics NAV สำหรับประเทศทั้งหมดและตำแหน่งที่ตั้งภาษาทั้งหมด
อาการ
สมมติว่า คุณตั้งค่านำไปใช้กับค่าเก่าที่สุดเป็นวิธีการแอพลิเคชันสำหรับผู้จัดจำหน่ายใน Microsoft Dynamics NAV 2009 และเมื่อคุณลงรายการบัญชีบันทึกสินเชื่อที่หนึ่งและใบแจ้งหนี้ที่สอง โดยใช้สมุดรายวัน เป็นผล ระบบใช้ใบลดหนี้กับใบแจ้งหนี้ทั้งสอง ในภายหลัง คุณยกเลิกเอกสารทั้งหมด ในสถานการณ์นี้ เมื่อคุณเรียกใช้ฟังก์ชันย้อนกลับธุรกรรมสำหรับบรรทัดบันทึกสินเชื่อ ระบบสร้างรายการบัญชีแยกประเภททั่วไปที่ไม่จำเป็น
ปัญหานี้เกิดขึ้นในผลิตภัณฑ์ต่อไปนี้:
-
Microsoft Dynamics NAV 2009
-
Microsoft Dynamics NAV 2009 R2
การแก้ปัญหา
ข้อมูลโปรแกรมแก้ไขด่วน
โปรแกรมแก้ไขด่วนจะพร้อมใช้งานได้ในขณะนี้จาก Microsoft อย่างไรก็ตาม มีเป้าหมายเพียงเพื่อการแก้ไขปัญหาที่อธิบายไว้ในบทความนี้ นำวิธีนี้ไปใช้กับระบบที่ประสบกับปัญหาที่เฉพาะเจาะจงเท่านั้น โปรแกรมแก้ไขด่วนนี้อาจได้รับการทดสอบเพิ่มเติม ดังนั้น ถ้าคุณจะไม่รุนแรงได้รับผลกระทบจากปัญหานี้ เราขอแนะนำให้ คุณรอ service pack ถัดไปของ Microsoft Dynamics NAV 2009 หรือเวอร์ชันถัดไป Microsoft Dynamics NAV ที่ประกอบด้วยโปรแกรมแก้ไขด่วนนี้
หมายเหตุ ในกรณีพิเศษ ค่าธรรมเนียมค่าใช้จ่ายสำหรับการสนับสนุนโทรศัพท์อาจถูกยกเลิกถ้า Technical Support Professional สำหรับ Microsoft Dynamics และผลิตภัณฑ์ที่เกี่ยวข้องตรวจพบว่าการปรับปรุงเฉพาะจะแก้ปัญหาของคุณ ค่าใช้จ่ายในการสนับสนุนตามปกติจะใช้กับคำถามและปัญหาในการสนับสนุนเพิ่มเติมซึ่งไม่สอดคล้องตามเกณฑ์สำหรับโปรแกรมปรับปรุงเฉพาะที่เกี่ยวข้อง
ข้อมูลการติดตั้ง
Microsoft ให้ตัวอย่างการเขียนโปรแกรมไว้สำหรับประกอบการอธิบายเท่านั้นโดยไม่มีการรับประกันไม่ว่าจะโดยชัดแจ้งหรือโดยนัย กรณีนี้รวมถึงแต่มิได้จำกัดเพียงแค่การการรับประกันโดยนัยเกี่ยวกับการจำหน่ายเป็นสินค้าหรือความเหมาะสำหรับวัตถุประสงค์เฉพาะ บทความนี้ตั้งสมมติฐานว่าคุณมีความคุ้นเคยกับภาษาการเขียนโปรแกรมที่กำลังแสดงและคุ้นเคยกับเครื่องมือที่ใช้ใน การสร้างและแก้จุดบกพร่องของขั้นตอนการดำเนินการ วิศวกรฝ่ายสนับสนุนของ Microsoft สามารถช่วยอธิบายเกี่ยวกับหน้าที่การใช้งานของกระบวนการเฉพาะ อย่างไรก็ตาม จะไม่แก้ไขตัวอย่างเหล่านี้เพื่อเพิ่มฟังก์ชัน หรือสร้างขั้นตอนเพื่อตอบสนองความต้องการเฉพาะของคุณ
หมายเหตุ ก่อนที่คุณติดตั้งโปรแกรมแก้ไขด่วนนี้ โปรดตรวจสอบว่า ผู้ใช้ไคลเอนต์ของ Microsoft Dynamics NAV ทั้งหมดเข้าสู่ระบบออกจากระบบ ข้อมูลนี้รวมถึงบริการ Microsoft Dynamics NAV แอพพลิเคชันเซิร์ฟเวอร์ (NAS) คุณควรไคลเอ็นต์เฉพาะผู้ใช้ที่เข้าสู่ระบบเมื่อคุณใช้โปรแกรมแก้ไขด่วนนี้
เมื่อต้องการใช้โปรแกรมแก้ไขด่วนนี้ คุณต้องมีสิทธิ์การใช้งานสำหรับนักพัฒนา
เราขอแนะนำว่า บัญชีผู้ใช้ ในหน้าต่างล็อกอินของ Windows หรือ ในหน้าต่างล็อกอินฐานข้อมูลสามารถกำหนดรหัสการเข้าถึงข้อมูล "ขั้นสูง" ถ้าบัญชีผู้ใช้ไม่สามารถกำหนดรหัสการบทบาท "SUPER" คุณต้องตรวจสอบว่า บัญชีผู้ใช้มีสิทธิ์ต่อไปนี้:
-
สิทธิ์การปรับเปลี่ยนสำหรับออปเจ็กต์ที่คุณจะสามารถเปลี่ยน
-
สิทธิ์ในการดำเนินการ สำหรับออบเจ็กต์5210 รหัสวัตถุของระบบและระบบ 9015 ID ของวัตถุ
วัตถุ
หมายเหตุ คุณไม่จำเป็นต้องมีสิทธิ์ไปยังร้านค้าข้อมูลยกเว้นว่าคุณจำเป็นต้องซ่อมแซมข้อมูล
การเปลี่ยนแปลงรหัส
หมายเหตุ เสมอทดสอบรหัสแก้ไขในสภาพแวดล้อมการควบคุมก่อนที่คุณนำไปใช้แก้ไขปัญหากับคอมพิวเตอร์ของคุณผลิต
เมื่อต้องการแก้ไขปัญหานี้ ให้ทำตามขั้นตอนเหล่านี้:
-
เปลี่ยนแปลงรหัสนี้ในฟังก์ชันInsertReversalEntryในตารางรายการการย้อนกลับ (179) เป็นดังนี้:
รหัสที่อยู่ 1...CLEAR(DtldCustLedgEntry);
DtldCustLedgEntry.SETCURRENTKEY("Transaction No.","Customer No.","Entry Type");
DtldCustLedgEntry.SETRANGE(DtldCustLedgEntry."Transaction No.",CustLedgEntry."Transaction No.");
DtldCustLedgEntry.SETRANGE(DtldCustLedgEntry."Customer No.",CustLedgEntry."Customer No.");
DtldCustLedgEntry.SETFILTER(
DtldCustLedgEntry."Entry Type",'<>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
// Delete the following line.
IF DtldCustLedgEntry.FIND('-') THEN BEGIN
// End of the deleted line.
IF RevType = RevType::Register THEN
ERROR(Text012,Number);
// Delete the following lines.
CLEAR(DtldCustLedgEntry);
DtldCustLedgEntry.SETCURRENTKEY("Cust. Ledger Entry No.");
DtldCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgEntry."Entry No.");
DtldCustLedgEntry.SETRANGE(Unapplied,TRUE);
IF DtldCustLedgEntry.FIND('-') THEN BEGIN
REPEAT
TempRevertTransactionNo.Number := DtldCustLedgEntry."Transaction No.";
IF TempRevertTransactionNo.INSERT THEN;
UNTIL DtldCustLedgEntry.NEXT = 0;
END;
END;
// End of the deleted lines.
UNTIL CustLedgEntry.NEXT = 0;
IF VendLedgEntry.FIND('-') THEN
REPEAT
CLEAR(ReversalEntry);
...รหัสแทนที่ 1
...CLEAR(DtldCustLedgEntry);
DtldCustLedgEntry.SETCURRENTKEY("Transaction No.","Customer No.","Entry Type");
DtldCustLedgEntry.SETRANGE(DtldCustLedgEntry."Transaction No.",CustLedgEntry."Transaction No.");
DtldCustLedgEntry.SETRANGE(DtldCustLedgEntry."Customer No.",CustLedgEntry."Customer No.");
DtldCustLedgEntry.SETFILTER(
DtldCustLedgEntry."Entry Type",'<>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
// Add the following line.
IF NOT DtldCustLedgEntry.ISEMPTY THEN
// End of the added line.
IF RevType = RevType::Register THEN
ERROR(Text012,Number);
// Add the following line.
CheckDtldCustLedgEntry(CustLedgEntry);
// End of the added line.
UNTIL CustLedgEntry.NEXT = 0;
IF VendLedgEntry.FIND('-') THEN
REPEAT
CLEAR(ReversalEntry);
...รหัสที่มีอยู่ 2
...CLEAR(DtldVendLedgEntry);
DtldVendLedgEntry.SETCURRENTKEY("Transaction No.","Vendor No.","Entry Type");
DtldVendLedgEntry.SETRANGE(DtldVendLedgEntry."Transaction No.",VendLedgEntry."Transaction No.");
DtldVendLedgEntry.SETRANGE(DtldVendLedgEntry."Vendor No.",VendLedgEntry."Vendor No.");
DtldVendLedgEntry.SETFILTER(
DtldVendLedgEntry."Entry Type",'<>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
// Delete the following line.
IF DtldVendLedgEntry.FIND('-') THEN BEGIN
// End of the deleted line.
IF RevType = RevType::Register THEN
ERROR(Text012,Number);
// Delete the following lines.
CLEAR(DtldVendLedgEntry);
DtldVendLedgEntry.SETCURRENTKEY("Vendor Ledger Entry No.");
DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendLedgEntry."Entry No.");
DtldVendLedgEntry.SETRANGE(Unapplied,TRUE);
IF DtldVendLedgEntry.FIND('-') THEN BEGIN
REPEAT
TempRevertTransactionNo.Number := DtldVendLedgEntry."Transaction No.";
IF TempRevertTransactionNo.INSERT THEN;
UNTIL DtldVendLedgEntry.NEXT = 0;
END;
END;
// End of the deleted lines.
UNTIL VendLedgEntry.NEXT = 0;
IF BankAccLedgEntry.FIND('-') THEN
REPEAT
CLEAR(ReversalEntry);
...รหัสแทนที่ 2
...CLEAR(DtldVendLedgEntry);
DtldVendLedgEntry.SETCURRENTKEY("Transaction No.","Vendor No.","Entry Type");
DtldVendLedgEntry.SETRANGE(DtldVendLedgEntry."Transaction No.",VendLedgEntry."Transaction No.");
DtldVendLedgEntry.SETRANGE(DtldVendLedgEntry."Vendor No.",VendLedgEntry."Vendor No.");
DtldVendLedgEntry.SETFILTER(
DtldVendLedgEntry."Entry Type",'<>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
// Add the following line.
IF NOT DtldVendLedgEntry.ISEMPTY THEN
// End of the added line.
IF RevType = RevType::Register THEN
ERROR(Text012,Number);
// Add the following line.
CheckDtldVendLedgEntry(VendLedgEntry);
// End of the added line.
UNTIL VendLedgEntry.NEXT = 0;
IF BankAccLedgEntry.FIND('-') THEN
REPEAT
CLEAR(ReversalEntry);
... -
เปลี่ยนแปลงรหัสนี้ในฟังก์ชันCheckDtldCustLedgEntryในตารางรายการการย้อนกลับ (179) เป็นดังนี้:
รหัสที่มีอยู่...LOCAL PROCEDURE CheckDtldCustLedgEntry@2(CustLedgEntry@1000 : Record 21) : Boolean;
VAR
DtldCustLedgEntry@1001 : Record 379;
BEGIN
// Delete the following lines.
DtldCustLedgEntry.SETCURRENTKEY("Cust. Ledger Entry No.");
DtldCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgEntry."Entry No.");
IF DtldCustLedgEntry.FIND('-') THEN
REPEAT
IF (DtldCustLedgEntry."Entry Type" <> DtldCustLedgEntry."Entry Type"::"Initial Entry") AND
(NOT DtldCustLedgEntry.Unapplied)
THEN
ERROR(
Text000,CustLedgEntry.TABLECAPTION,CustLedgEntry."Entry No.");
UNTIL DtldCustLedgEntry.NEXT = 0;
// End of the deleted lines.
END;
...รหัสแทน
...LOCAL PROCEDURE CheckDtldCustLedgEntry@2(CustLedgEntry@1000 : Record 21) : Boolean;
VAR
DtldCustLedgEntry@1001 : Record 379;
BEGIN
// Add the following lines.
DtldCustLedgEntry.SETCURRENTKEY("Cust. Ledger Entry No.","Entry Type");
DtldCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgEntry."Entry No.");
DtldCustLedgEntry.SETFILTER("Entry Type",'<>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
DtldCustLedgEntry.SETRANGE(Unapplied,FALSE);
IF NOT DtldCustLedgEntry.ISEMPTY THEN
ERROR(Text000,CustLedgEntry.TABLECAPTION,CustLedgEntry."Entry No.");
// End of the added lines.
END;
... -
เปลี่ยนแปลงรหัสนี้ในฟังก์ชันCheckDtldVendLedgEntryในตารางรายการการย้อนกลับ (179) เป็นดังนี้:
รหัสที่มีอยู่...LOCAL PROCEDURE CheckDtldVendLedgEntry@28(VendLedgEntry@1000 : Record 25) : Boolean;
VAR
DtldVendLedgEntry@1001 : Record 380;
BEGIN
// Delete the following lines.
DtldVendLedgEntry.SETCURRENTKEY("Vendor Ledger Entry No.");
DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendLedgEntry."Entry No.");
IF DtldVendLedgEntry.FIND('-') THEN
REPEAT
IF (DtldVendLedgEntry."Entry Type" <> DtldVendLedgEntry."Entry Type"::"Initial Entry") AND
(NOT DtldVendLedgEntry.Unapplied)
THEN
ERROR(
Text000,VendLedgEntry.TABLECAPTION,VendLedgEntry."Entry No.");
UNTIL DtldVendLedgEntry.NEXT = 0;
// End of the deleted lines.
END;
...รหัสแทน
...LOCAL PROCEDURE CheckDtldVendLedgEntry@28(VendLedgEntry@1000 : Record 25) : Boolean;
VAR
DtldVendLedgEntry@1001 : Record 380;
BEGIN
// Add the following lines.
DtldVendLedgEntry.SETCURRENTKEY("Vendor Ledger Entry No.","Entry Type");
DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendLedgEntry."Entry No.");
DtldVendLedgEntry.SETFILTER("Entry Type",'<>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
DtldVendLedgEntry.SETRANGE(Unapplied,FALSE);
IF NOT DtldVendLedgEntry.ISEMPTY THEN
ERROR(Text000,VendLedgEntry.TABLECAPTION,VendLedgEntry."Entry No.");
// End of the added lines.
END;
...
ข้อกำหนดเบื้องต้น
คุณต้องมี Microsoft Dynamics NAV 2009 ติดตั้งเมื่อต้องการใช้โปรแกรมแก้ไขด่วนนี้
ข้อมูลการเอาออก
คุณไม่สามารถเอาโปรแกรมแก้ไขด่วนนี้
สถานะ
Microsoft ยืนยันว่านี่เป็นปัญหาในผลิตภัณฑ์ของ Microsoft ซึ่งแสดงไว้ในส่วน "นำไปใช้กับ"
หมายเหตุ นี่คือบทความ "เผยแพร่เร็ว" ที่สร้างขึ้นโดยตรงจากภายใน Microsoft สนับสนุนองค์กร ข้อมูลในที่นี้ให้ไว้ตามสภาพ เพื่อตอบสนองกับปัญหาที่เกิดขึ้นใหม่ เป็นผลมาจากความเร็วในการทำให้พร้อมใช้งาน วัสดุอาจรวมถึงข้อผิดพลาดการพิมพ์ผิด และอาจแก้ไขได้ตลอดเวลาโดยไม่ต้องแจ้งให้ทราบ ดูข้อตกลงการใช้สำหรับข้อควรพิจารณาอื่น ๆ