บทความนี้นำไปใช้กับ Microsoft Dynamics NAV สำหรับประเทศทั้งหมดและตำแหน่งที่ตั้งภาษาทั้งหมด
อาการ
คุณสามารถสร้างใบสั่งขายสำหรับสินค้าที่ถูกบล็อคจะ มีใบเสนอราคาขายใน Microsoft Dynamics 2009 โดยไม่คาดคิด เมื่อคุณลงรายการบัญชีใบสั่งขาย คุณได้รับข้อความแสดงข้อผิดพลาดต่อไปนี้:
Shipped ปริมาณในใบสั่งแบบครอบคลุมที่เกี่ยวข้องต้องไม่มากกว่าปริมาณในชนิดเอกสารของรายการขาย = 'ใบ สั่งซื้อแบบล็อตใหญ่' หมาย เลขเอกสารnumber1' หมาย เลขบรรทัด =number2'
ปัญหานี้เกิดขึ้นในผลิตภัณฑ์ต่อไปนี้:
-
Microsoft Dynamics NAV 2009 Service Pack ที่ 1
-
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 ของวัตถุวัตถุ
หมายเหตุ คุณไม่จำเป็นต้องมีสิทธิ์ไปยังร้านค้าข้อมูลยกเว้นว่าคุณจำเป็นต้องซ่อมแซมข้อมูล
การเปลี่ยนแปลงรหัส
หมายเหตุ เสมอทดสอบรหัสแก้ไขในสภาพแวดล้อมการควบคุมก่อนที่คุณนำไปใช้แก้ไขปัญหากับคอมพิวเตอร์ของคุณผลิตเมื่อต้องการแก้ไขปัญหานี้ ให้ทำตามขั้นตอนเหล่านี้:
-
เปลี่ยนรหัสในคุณสมบัติในใบเสนอราคาขายเป็นใบสั่งโค้ดยูนิต (86) เป็นดังนี้:รหัสที่อยู่ 1
...Opp@1004 : Record 5092; OpportunityEntry@1006 : Record 5093; TempOpportunityEntry@1005 : TEMPORARY Record 5093; Cust@1008 : Record 18; BEGIN TESTFIELD("Document Type","Document Type"::Quote); Cust.GET("Sell-to Customer No."); Cust.CheckBlockedCustOnDocs(Cust,"Document Type"::Order,TRUE,FALSE);...
รหัสแทนที่ 2
...Opp@1004 : Record 5092; OpportunityEntry@1006 : Record 5093; TempOpportunityEntry@1005 : TEMPORARY Record 5093; Cust@1008 : Record 18;// Add the following line. Item@1010 : Record 27; // End of the added line. BEGIN TESTFIELD("Document Type","Document Type"::Quote); Cust.GET("Sell-to Customer No."); Cust.CheckBlockedCustOnDocs(Cust,"Document Type"::Order,TRUE,FALSE);...
รหัสที่มีอยู่ 2
...SalesQuoteLine.SETRANGE(Type,SalesQuoteLine.Type::Item); SalesQuoteLine.SETFILTER("No.",'<>%1',''); IF SalesQuoteLine.FINDSET THEN REPEAT IF (SalesQuoteLine."Outstanding Quantity" > 0) THEN BEGIN SalesLine := SalesQuoteLine; SalesLine.VALIDATE("Reserved Qty. (Base)",0); SalesLine."Line No." := 0;...
รหัสแทนที่ 2
...SalesQuoteLine.SETRANGE(Type,SalesQuoteLine.Type::Item); SalesQuoteLine.SETFILTER("No.",'<>%1',''); IF SalesQuoteLine.FINDSET THEN REPEAT IF Item.GET(SalesQuoteLine."No.") THEN //add line// Add the following line. Item.TESTFIELD(Blocked,FALSE); // End of the added line. IF (SalesQuoteLine."Outstanding Quantity" > 0) THEN BEGIN SalesLine := SalesQuoteLine; SalesLine.VALIDATE("Reserved Qty. (Base)",0); SalesLine."Line No." := 0;...
-
เปลี่ยนรหัสในคุณสมบัติในใบสั่งขายแบบครอบคลุมเป็นใบสั่งโค้ดยูนิต (87) เป็นดังนี้:รหัสที่อยู่ 1
...Cust@1001 : Record 18; TempSalesLine@1002 : TEMPORARY Record 37; Reservation@1005 : Form 498; PrepmtMgt@1004 : Codeunit 441; BEGIN TESTFIELD("Document Type","Document Type"::"Blanket Order"); Cust.GET("Sell-to Customer No."); Cust.CheckBlockedCustOnDocs(Cust,"Document Type"::Order,TRUE,FALSE);...
รหัสแทนที่ 1
...Cust@1001 : Record 18; TempSalesLine@1002 : TEMPORARY Record 37; Reservation@1005 : Form 498; PrepmtMgt@1004 : Codeunit 441;// Add the following line. Item@1006 : Record 27; // End of the added line. BEGIN TESTFIELD("Document Type","Document Type"::"Blanket Order"); Cust.GET("Sell-to Customer No."); Cust.CheckBlockedCustOnDocs(Cust,"Document Type"::Order,TRUE,FALSE);...
รหัสที่มีอยู่ 2
...SalesLine.SETRANGE("Blanket Order Line No.",BlanketOrderSalesLine."Line No."); QuantityOnOrders := 0; IF SalesLine.FINDSET THEN REPEAT IF SalesLine."Document Type" IN [SalesLine."Document Type"::"Return Order", SalesLine."Document Type"::"Credit Memo"] THEN...รหัสแทนที่ 2
...SalesLine.SETRANGE("Blanket Order Line No.",BlanketOrderSalesLine."Line No."); QuantityOnOrders := 0; IF SalesLine.FINDSET THEN REPEAT// Add the following lines. IF Item.GET(SalesLine."No.") THEN Item.TESTFIELD(Blocked,FALSE);// End of the added lines. IF SalesLine."Document Type" IN [SalesLine."Document Type"::"Return Order", SalesLine."Document Type"::"Credit Memo"] THEN...รหัสที่มีอยู่ 3
...TempSalesLine.DELETEALL; REPEAT SalesLine.SETCURRENTKEY("Document Type","Blanket Order No.","Blanket Order Line No."); SalesLine.SETRANGE("Blanket Order No.",BlanketOrderSalesLine."Document No."); SalesLine.SETRANGE("Blanket Order Line No.",BlanketOrderSalesLine."Line No.");// Delete the following lines. SalesLine.SETFILTER( "Document Type",'<>%1 & <>%2',SalesLine."Document Type"::Invoice,SalesLine."Document Type"::"Credit Memo");// End of the deleted lines. QuantityOnOrders := 0; IF SalesLine.FINDSET THEN REPEAT IF Item.GET(SalesLine."No.") THEN Item.TESTFIELD(Blocked,FALSE);...
รหัสแทนที่ 3
...TempSalesLine.DELETEALL; REPEAT SalesLine.SETCURRENTKEY("Document Type","Blanket Order No.","Blanket Order Line No."); SalesLine.SETRANGE("Blanket Order No.",BlanketOrderSalesLine."Document No."); SalesLine.SETRANGE("Blanket Order Line No.",BlanketOrderSalesLine."Line No."); QuantityOnOrders := 0; IF SalesLine.FINDSET THEN REPEAT IF Item.GET(SalesLine."No.") THEN Item.TESTFIELD(Blocked,FALSE);...
รหัสที่มีอยู่ 4
...QuantityOnOrders := 0; IF SalesLine.FINDSET THEN REPEAT IF Item.GET(SalesLine."No.") THEN Item.TESTFIELD(Blocked,FALSE);// Delete the following lines. IF SalesLine."Document Type" = SalesLine."Document Type"::"Return Order" THEN QuantityOnOrders := QuantityOnOrders - SalesLine."Outstanding Qty. (Base)" ELSE //Remove line QuantityOnOrders := QuantityOnOrders + SalesLine."Outstanding Qty. (Base)"; // End of the deleted lines. UNTIL SalesLine.NEXT = 0; IF (ABS(BlanketOrderSalesLine."Qty. to Ship (Base)" + QuantityOnOrders + BlanketOrderSalesLine."Qty. Shipped (Base)") > ABS(BlanketOrderSalesLine."Quantity (Base)")) OR (BlanketOrderSalesLine."Quantity (Base)" * BlanketOrderSalesLine."Outstanding Qty. (Base)" < 0)...
รหัสแทนที่ 4
...QuantityOnOrders := 0; IF SalesLine.FINDSET THEN REPEAT IF Item.GET(SalesLine."No.") THEN Item.TESTFIELD(Blocked,FALSE);// Add the following lines. IF (SalesLine."Document Type" = SalesLine."Document Type"::"Return Order") OR ((SalesLine."Document Type" = SalesLine."Document Type"::"Credit Memo") AND (SalesLine."Return Receipt No." = '')) THEN QuantityOnOrders := QuantityOnOrders - SalesLine."Outstanding Qty. (Base)" ELSE IF (SalesLine."Document Type" = SalesLine."Document Type"::Order) OR ((SalesLine."Document Type" = SalesLine."Document Type"::Invoice) AND (SalesLine."Shipment No." = '')) THEN QuantityOnOrders := QuantityOnOrders + SalesLine."Outstanding Qty. (Base)";// End of the added lines. UNTIL SalesLine.NEXT = 0; IF (ABS(BlanketOrderSalesLine."Qty. to Ship (Base)" + QuantityOnOrders + BlanketOrderSalesLine."Qty. Shipped (Base)") > ABS(BlanketOrderSalesLine."Quantity (Base)")) OR (BlanketOrderSalesLine."Quantity (Base)" * BlanketOrderSalesLine."Outstanding Qty. (Base)" < 0)...
-
เปลี่ยนแปลงรหัสนี้ในคุณสมบัติในใบสั่งซื้อ-ใบเสนอราคาใบสั่งโค้ดยูนิต (96) เป็นดังนี้:รหัสที่อยู่ 1
...OldPurchCommentLine@1001 : Record 43; FromDocDim@1000 : Record 357; ToDocDim@1003 : Record 357; Vend@1002 : Record 23; BEGIN TESTFIELD("Document Type","Document Type"::Quote); Vend.GET("Buy-from Vendor No."); Vend.CheckBlockedVendOnDocs(Vend,FALSE);...
รหัสแทนที่ 1
...OldPurchCommentLine@1001 : Record 43; FromDocDim@1000 : Record 357; ToDocDim@1003 : Record 357; Vend@1002 : Record 23;// Add the following line. Item@1004 : Record 27; // End of the added line. BEGIN TESTFIELD("Document Type","Document Type"::Quote); Vend.GET("Buy-from Vendor No."); Vend.CheckBlockedVendOnDocs(Vend,FALSE);
รหัสที่มีอยู่ 2
...ToDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line"); IF PurchQuoteLine.FINDSET THEN REPEAT PurchOrderLine := PurchQuoteLine; PurchOrderLine."Document Type" := PurchOrderHeader."Document Type"; PurchOrderLine."Document No." := PurchOrderHeader."No."; ReservePurchLine.TransferPurchLineToPurchLine(...รหัสแทนที่ 2
...ToDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line"); IF PurchQuoteLine.FINDSET THEN REPEAT// Add the following lines. IF Item.GET(PurchQuoteLine."No.") THEN Item.TESTFIELD(Blocked,FALSE); // End of the added lines. PurchOrderLine := PurchQuoteLine; PurchOrderLine."Document Type" := PurchOrderHeader."Document Type"; PurchOrderLine."Document No." := PurchOrderHeader."No."; ReservePurchLine.TransferPurchLineToPurchLine(... -
เปลี่ยนรหัสในคุณสมบัติในใบสั่งซื้อแบบครอบคลุม สั่งซื้อเพื่อสั่งโค้ดยูนิต (97) เป็นดังนี้:รหัสที่อยู่ 1
...FromDocDim@1000 : Record 357; ToDocDim@1002 : Record 357; Vend@1001 : Record 23; PrepmtMgt@1003 : Codeunit 441; BEGIN TESTFIELD("Document Type","Document Type"::"Blanket Order"); Vend.GET("Buy-from Vendor No."); Vend.CheckBlockedVendOnDocs(Vend,FALSE);...
รหัสแทนที่ 1
...FromDocDim@1000 : Record 357; ToDocDim@1002 : Record 357; Vend@1001 : Record 23; PrepmtMgt@1003 : Codeunit 441;// Add the following line. Item@1004 : Record 27; // End of the added line. BEGIN TESTFIELD("Document Type","Document Type"::"Blanket Order"); Vend.GET("Buy-from Vendor No."); Vend.CheckBlockedVendOnDocs(Vend,FALSE);...
รหัสที่มีอยู่ 2
...PurchLine.SETRANGE("Blanket Order Line No.",PurchBlanketOrderLine."Line No."); QuantityOnOrders := 0; IF PurchLine.FINDSET THEN REPEAT IF PurchLine."Document Type" IN [PurchLine."Document Type"::"Return Order", PurchLine."Document Type"::"Credit Memo"] THEN QuantityOnOrders := QuantityOnOrders - PurchLine."Outstanding Qty. (Base)"...รหัสแทนที่ 2
...PurchLine.SETRANGE("Blanket Order Line No.",PurchBlanketOrderLine."Line No."); QuantityOnOrders := 0; IF PurchLine.FINDSET THEN REPEAT// Add the following lines. IF Item.GET(PurchLine."No.") THEN Item.TESTFIELD(Blocked,FALSE); // End of the added lines. IF PurchLine."Document Type" IN [PurchLine."Document Type"::"Return Order", PurchLine."Document Type"::"Credit Memo"] THEN QuantityOnOrders := QuantityOnOrders - PurchLine."Outstanding Qty. (Base)"...รหัสที่มีอยู่ 3
...IF PurchBlanketOrderLine.FINDSET THEN REPEAT PurchLine.SETCURRENTKEY("Document Type","Blanket Order No.","Blanket Order Line No."); PurchLine.SETRANGE("Blanket Order No.",PurchBlanketOrderLine."Document No."); PurchLine.SETRANGE("Blanket Order Line No.",PurchBlanketOrderLine."Line No.");// Delete the following lines. PurchLine.SETFILTER( "Document Type",'<>%1 & <>%2',PurchLine."Document Type"::Invoice,PurchLine."Document Type"::"Credit Memo");// End of the deleted lines. QuantityOnOrders := 0; IF PurchLine.FINDSET THEN REPEAT IF Item.GET(PurchLine."No.") THEN Item.TESTFIELD(Blocked,FALSE);...
รหัสแทนที่ 3
...IF PurchBlanketOrderLine.FINDSET THEN REPEAT PurchLine.SETCURRENTKEY("Document Type","Blanket Order No.","Blanket Order Line No."); PurchLine.SETRANGE("Blanket Order No.",PurchBlanketOrderLine."Document No."); PurchLine.SETRANGE("Blanket Order Line No.",PurchBlanketOrderLine."Line No."); QuantityOnOrders := 0; IF PurchLine.FINDSET THEN REPEAT IF Item.GET(PurchLine."No.") THEN Item.TESTFIELD(Blocked,FALSE);...
รหัสที่มีอยู่ 4
...QuantityOnOrders := 0; IF PurchLine.FINDSET THEN REPEAT IF Item.GET(PurchLine."No.") THEN Item.TESTFIELD(Blocked,FALSE);// Delete the following lines. IF PurchLine."Document Type" = PurchLine."Document Type"::"Return Order" THEN QuantityOnOrders := QuantityOnOrders - PurchLine."Outstanding Qty. (Base)" ELSE QuantityOnOrders := QuantityOnOrders + PurchLine."Outstanding Qty. (Base)";// End of the deleted lines. UNTIL PurchLine.NEXT = 0; IF (ABS(PurchBlanketOrderLine."Qty. to Receive (Base)" + QuantityOnOrders + PurchBlanketOrderLine."Qty. Received (Base)") > ABS(PurchBlanketOrderLine."Quantity (Base)")) OR (PurchBlanketOrderLine."Quantity (Base)" * PurchBlanketOrderLine."Outstanding Qty. (Base)" < 0)...
รหัสแทนที่ 4
...QuantityOnOrders := 0; IF PurchLine.FINDSET THEN REPEAT IF Item.GET(PurchLine."No.") THEN Item.TESTFIELD(Blocked,FALSE);// Add the following lines. IF (PurchLine."Document Type" = PurchLine."Document Type"::"Return Order") OR ((PurchLine."Document Type" = PurchLine."Document Type"::"Credit Memo") AND (PurchLine."Return Shipment No." = '')) THEN QuantityOnOrders := QuantityOnOrders - PurchLine."Outstanding Qty. (Base)" ELSE IF (PurchLine."Document Type" = PurchLine."Document Type"::Order) OR ((PurchLine."Document Type" = PurchLine."Document Type"::Invoice) AND (PurchLine."Receipt No." = '')) THEN QuantityOnOrders := QuantityOnOrders + PurchLine."Outstanding Qty. (Base)";// End of the added lines. UNTIL PurchLine.NEXT = 0; IF (ABS(PurchBlanketOrderLine."Qty. to Receive (Base)" + QuantityOnOrders + PurchBlanketOrderLine."Qty. Received (Base)") > ABS(PurchBlanketOrderLine."Quantity (Base)")) OR (PurchBlanketOrderLine."Quantity (Base)" * PurchBlanketOrderLine."Outstanding Qty. (Base)" < 0)...
ข้อกำหนดเบื้องต้น
คุณต้องมีหนึ่งผลิตภัณฑ์ต่อไปนี้ติดตั้งอยู่เพื่อใช้โปรแกรมแก้ไขด่วนนี้และการปรับปรุงต่อไปนี้:
-
Microsoft Dynamics NAV 2009 Service Pack ที่ 1
-
Microsoft Dynamics NAV 2009 R2
-
2642368 "ปริมาณที่จะจัดส่ง (ฐาน) ของสินค้า [Item_Number] ในบรรทัดหมายเลข [Line_Number] ไม่มากกว่า [หมายเลข]" ข้อผิดพลาดเมื่อคุณพยายามที่จะสร้างใบสั่งจากครอบคลุมใบสั่งใน Microsoft Dynamics NAV
ข้อมูลการเอาออก
คุณไม่สามารถเอาโปรแกรมแก้ไขด่วนนี้
สถานะ
Microsoft ยืนยันว่านี่เป็นปัญหาในผลิตภัณฑ์ของ Microsoft ซึ่งแสดงไว้ในส่วน "นำไปใช้กับ"
หมายเหตุ นี่คือบทความ "เผยแพร่เร็ว" ที่สร้างขึ้นโดยตรงจากภายใน Microsoft สนับสนุนองค์กร ข้อมูลในที่นี้ให้ไว้ตามสภาพ เพื่อตอบสนองกับปัญหาที่เกิดขึ้นใหม่ เป็นผลมาจากความเร็วในการทำให้พร้อมใช้งาน วัสดุอาจรวมถึงข้อผิดพลาดการพิมพ์ผิด และอาจแก้ไขได้ตลอดเวลาโดยไม่ต้องแจ้งให้ทราบ ดูข้อตกลงการใช้สำหรับข้อควรพิจารณาอื่น ๆ