อาการ
เมื่อรายการเป็นค่าลบ (การแก้ไข), ระบบจะโดยอัตโนมัติถือว่าเป็นการส่งออก อย่างไรก็ตาม แนวทาง CBS ประกาศเป็นการนำเข้าที่เป็นค่าลบ ดังนั้น จึงควรมีฟังก์ชันการทำงานที่ระบุเครื่องหมายของรายการ (ค่าลบ หรือค่าบวก) และเครื่องหมายควรมีผลกระทบต่อสถานะการนำเข้าหรือส่งออก ปัญหานี้เกิดขึ้นในผลิตภัณฑ์ต่อไปนี้:
-
Microsoft Dynamics NAV 2009 R2 รุ่นภาษาดัตช์
-
Microsoft Dynamics NAV 2009 Service Pack 1 รุ่นภาษาดัตช์
การแก้ปัญหา
ข้อมูลโปรแกรมแก้ไขด่วน
โปรแกรมแก้ไขด่วนจะพร้อมใช้งานได้ในขณะนี้จาก 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 ของวัตถุ
วัตถุ
หมายเหตุ คุณไม่จำเป็นต้องมีสิทธิ์ไปยังร้านค้าข้อมูลยกเว้นว่าคุณจำเป็นต้องซ่อมแซมข้อมูล
การเปลี่ยนแปลงรหัส
หมายเหตุ เสมอทดสอบรหัสแก้ไขในสภาพแวดล้อมการควบคุมก่อนที่คุณนำไปใช้แก้ไขปัญหากับคอมพิวเตอร์ของคุณผลิต
เมื่อต้องการแก้ไขปัญหานี้ ให้ทำตามขั้นตอนเหล่านี้:
-
เปลี่ยนแปลงรหัสนี้ในการสร้างอินทราสแทต Decl. ดิสก์รายงาน (11413) เป็นดังนี้:
รหัสที่อยู่ 1...SpecialUnit@1000002 : Decimal;
RoundedWeight@1000001 : Integer;
ItemDirection@1000004 : Integer;
BEGIN
TESTFIELD("Item No.");
TESTFIELD("Tariff No.");
...รหัสแทนที่ 1
...SpecialUnit@1000002 : Decimal;
RoundedWeight@1000001 : Integer;
ItemDirection@1000004 : Integer;
// Add the following line
IsCorrection@1000005 : Boolean;
// End of the added line.
BEGIN
TESTFIELD("Item No.");
TESTFIELD("Tariff No.");
...รหัสที่มีอยู่ 2
...ZeroShipment := FALSE;
END;
END;
Write(FORMAT(Date, 0, '<Year4><Month,2>'));
Write(FORMAT(ItemDirection));
...รหัสแทนที่ 2
...
ZeroShipment := FALSE;
END;
END;
// Add the following line.
IsCorrection := CheckCorrection("Source Entry No.",ItemDirection);
// End of the added line.
Write(FORMAT(Date, 0, '<Year4><Month,2>'));
Write(FORMAT(ItemDirection));
...รหัสที่มีอยู่ 3
...Write(PADSTR2("Transaction Type", 1, '', '>'));
Write(PADSTR2(DELCHR("Tariff No."), 8, '0', '<'));
Write('00');
Write(Sign(RoundedWeight)); // DELETED
Write(PADSTR2(FORMAT(RoundedWeight, 0, '<Integer>'), 10, ' ', '<'));
...รหัสแทนที่ 3
...Write(PADSTR2("Transaction Type", 1, '', '>'));
Write(PADSTR2(DELCHR("Tariff No."), 8, '0', '<'));
Write('00');
// Add the following line.
Write(Sign(RoundedWeight,IsCorrection));
// End of the added line.
Write(PADSTR2(FORMAT(RoundedWeight, 0, '<Integer>'), 10, ' ', '<'));
...รหัสที่มีอยู่ 4
...Write(PADSTR2(FORMAT(RoundedWeight, 0, '<Integer>'), 10, ' ', '<'));
// Delete the following line.
Write(Sign(SpecialUnit));
// End of the deleted line.
Write(PADSTR2(FORMAT(SpecialUnit, 0, '<Integer>'), 10, ' ', '<'));
...รหัสแทนที่ 4
...Write(PADSTR2(FORMAT(RoundedWeight, 0, '<Integer>'), 10, ' ', '<'));
// Add the following line.
Write(Sign(SpecialUnit,IsCorrection));
// End of the added line.
Write(PADSTR2(FORMAT(SpecialUnit, 0, '<Integer>'), 10, ' ', '<'));
...รหัสที่มีอยู่ 5
...
Write(PADSTR2(FORMAT(SpecialUnit, 0, '<Integer>'), 10, ' ', '<'));
// Delete the following line.
Write(Sign(Amount));
// End of the deleted line.
Write(PADSTR2(FORMAT(Amount, 0, '<Integer>'), 10, ' ', '<'));
...รหัสแทนที่ 5
...
Write(PADSTR2(FORMAT(SpecialUnit, 0, '<Integer>'), 10, ' ', '<'));
// Add the following line.
Write(Sign(Amount,IsCorrection));
// End of the added line.
Write(PADSTR2(FORMAT(Amount, 0, '<Integer>'), 10, ' ', '<'));
...รหัสที่มีอยู่ 6
...Write(PADSTR2(FORMAT(Amount, 0, '<Integer>'), 10, ' ', '<'));
// Delete the following line.
Write('+');
// End of the deleted line.
Write(PADSTR2('0', 10, ' ', '<'));
Write(PADSTR2("Document No.", 10, ' ', '<'));
...รหัสแทน 6
...Write(PADSTR2(FORMAT(Amount, 0, '<Integer>'), 10, ' ', '<'));
// Add the following lines.
IF IsCorrection THEN
Write('-')
ELSE // ADDED
Write('+');
// End of the added lines.
Write(PADSTR2('0', 10, ' ', '<'));
Write(PADSTR2("Document No.", 10, ' ', '<'));
...รหัสที่มีอยู่ 7
...Write(PADSTR2('0', 10, ' ', '<'));
Write(PADSTR2("Document No.", 10, ' ', '<'));
// Delete the following line.
Write(PADSTR2('', 4, ' ', '>'));
// End of the deleted line.
Write('000');
Write(PADSTR2("Intrastat Jnl. Batch"."Currency Identifier", 1, ' ', '>'));
Write(PADSTR2('', 6, ' ', '>'));
...รหัสแทนที่ 7
...Write(PADSTR2('0', 10, ' ', '<'));
Write(PADSTR2("Document No.", 10, ' ', '<'));
// Add the following lines.
Write(PADSTR2('', 3, ' ', '>'));
IF IsCorrection THEN
Write('C')
ELSE
Write(' ');
// End of the added lines.
Write('000');
Write(PADSTR2("Intrastat Jnl. Batch"."Currency Identifier", 1, ' ', '>'));
Write(PADSTR2('', 6, ' ', '>'));
... -
เปลี่ยนแปลงรหัสนี้ในฟังก์ชันลงชื่อเข้าใช้ในการสร้างอินทราสแทต Decl. ดิสก์รายงาน (11413) เป็นดังนี้:
รหัสที่อยู่ 1...ExportFile.SEEK(ExportFile.POS - 1);
END;
// Delete the following line.
LOCAL PROCEDURE Sign@1000006(Number@1000000 : Decimal) : Text[1];
// End of the deleted line.
BEGIN
CASE Number < 0 OF
TRUE:
...รหัสแทนที่ 1
... ExportFile.SEEK(ExportFile.POS - 1);
END;
// Add the following line.
LOCAL PROCEDURE Sign@1000006(Number@1000000 : Decimal;IsCorrection@1000001 : Boolean) : Text[1];
// End of the added line.
BEGIN
CASE Number < 0 OF
TRUE:
...รหัสที่มีอยู่ 2
...BEGIN
CASE Number < 0 OF
TRUE:
// Delete the following line.
EXIT('-');
// End of the deleted line.
FALSE:
...รหัสแทนที่ 2
...BEGIN
CASE Number < 0 OF
TRUE:
// Add the following lines.
IF NOT IsCorrection THEN
EXIT('-')
ELSE
EXIT('+');
// End of the added lines.
FALSE:
...รหัสที่มีอยู่ 3
...FALSE:
// Delete the following line.
EXIT('+');
// End of the deleted line.
END;
END;
...รหัสแทนที่ 3
...FALSE:
// Add the following lines.
IF NOT IsCorrection THEN
EXIT('+')
ELSE
EXIT('-');
// End of the added lines.
END;
END;
... -
เปลี่ยนแปลงรหัสนี้ในฟังก์ชันCheckCorrectionในการสร้างอินทราสแทต Decl. ดิสก์รายงาน (11413) เป็นดังนี้:
รหัสที่มีอยู่...CrLf[2] := 10;
END;
BEGIN
...รหัสแทน
...CrLf[2] := 10;
END;
// Add the following lines.
PROCEDURE CheckCorrection@1000018(SourceEntryNo@1000000 : Integer;VAR ItemDirection@1000001 : Integer) : Boolean;
VAR
ItemLedgerEntry@1000002 : Record 32;
// End of the added lines.
BEGIN
... -
เปลี่ยนแปลงรหัสนี้ในฟังก์ชันCrLfในการสร้างอินทราสแทต Decl. ดิสก์รายงาน (11413) เป็นดังนี้:
รหัสที่มีอยู่...BEGIN
// Delete the following lines.
{
// Note: Intrastat Jnl. Batch dataitem has MaxIteration = 1
}
END.
}
RDLDATA
{
}
}
// End of the deleted lines.
...รหัสแทน
...BEGIN
// Add the following lines.
WITH ItemLedgerEntry DO BEGIN
GET(SourceEntryNo);
CASE "Document Type" OF
"Document Type"::"Purchase Return Shipment":
BEGIN
ItemDirection := 6;
EXIT(TRUE);
END;
"Document Type"::"Sales Return Receipt":
BEGIN
ItemDirection := 7;
EXIT(TRUE);
END;
END;
END;
END;
// End of the added lines.
... -
เปลี่ยนแปลงรหัสนี้ในฟังก์ชันCheckCorrectionในการสร้างอินทราสแทต Decl. ดิสก์รายงาน (11413) เป็นดังนี้:
รหัสแทน...// Add the following lines.
BEGIN
{
// Note: Intrastat Jnl. Batch dataitem has MaxIteration = 1
}
END.
}
RDLDATA
{
}
}
// End of the added lines.
...
ข้อกำหนดเบื้องต้น
คุณต้องมีหนึ่งผลิตภัณฑ์ต่อไปนี้ติดตั้งอยู่เพื่อใช้โปรแกรมแก้ไขด่วนนี้:
-
Microsoft Dynamics NAV 2009 R2 รุ่นภาษาดัตช์
-
SP1 2009 นำทางของ Dynamics Microsoft รุ่นภาษาดัตช์
ข้อมูลการเอาออก
คุณไม่สามารถเอาโปรแกรมแก้ไขด่วนนี้
สถานะ
Microsoft ยืนยันว่านี่เป็นปัญหาในผลิตภัณฑ์ของ Microsoft ซึ่งแสดงไว้ในส่วน "นำไปใช้กับ"
หมายเหตุ นี่คือบทความ "เผยแพร่เร็ว" ที่สร้างขึ้นโดยตรงจากภายใน Microsoft สนับสนุนองค์กร ข้อมูลในที่นี้ให้ไว้ตามสภาพ เพื่อตอบสนองกับปัญหาที่เกิดขึ้นใหม่ เป็นผลมาจากความเร็วในการทำให้พร้อมใช้งาน วัสดุอาจรวมถึงข้อผิดพลาดการพิมพ์ผิด และอาจแก้ไขได้ตลอดเวลาโดยไม่ต้องแจ้งให้ทราบ ดูข้อตกลงการใช้สำหรับข้อควรพิจารณาอื่น ๆ
