ฟิลด์ "รหัสปลายทาง" ว่างเปล่าโดยไม่คาดหมายหลังจากที่คุณเรียกใช้ฟังก์ชันเรียกใบสั่งขายสำหรับใบสั่งพิเศษในใบสั่งซื้อพิเศษใน Microsoft Dynamics NAV 2009

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

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

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

การเปลี่ยนแปลงรหัส

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

1. เปลี่ยนแปลงรหัสนี้ใน funtion GetDescriptionAndRcptNameในการในโค้ดยูนิต ReqJnlManagement (330) ดัง:
   รหัสที่มีอยู่

   ...ELSE
   Description := '';
   
   // Delete the following lines.
   ReqLine.Type::Item: 
   IF Item.GET(ReqLine."No.") THEN
   Description := Item.Description
   ELSE 
   Description := '';
   // End of the lines.
   
   END;
   END;
   
   IF ReqLine."Vendor No." = '' THEN
   ...
   

   รหัสแทน

   ...ELSE
   Description := '';
   END;
   END;
   
   IF ReqLine."Vendor No." = '' THEN
   ...
   

2. เพิ่มตัวแปรส่วนกลางใหม่ในการจัดหาวัตถุดิบสำหรับแผ่นงาน-ทำให้โค้ดยูนิตใบสั่ง (333), และระบุตัวแปรดังนี้:

   • ชื่อ: DropShptSpecialOrderExists

   • ชนิดข้อมูล:บูลีน

3. เพิ่มตัวแปรท้องถิ่นใหม่ในฟังก์ชันInsertPurchOrderLineในการจัดหาวัตถุดิบสำหรับแผ่นงาน-ทำให้โค้ดยูนิตใบสั่ง (333), และระบุตัวแปรดังนี้:

   • ชื่อ: SalesHeader

   • ชนิดข้อมูล:เรกคอร์ด

   • ชนิดย่อย:หัวข้อการขาย

4. เพิ่มตัวแปรท้องถิ่นใหม่ในฟังก์ชันInsertPurchOrderLineในการจัดหาวัตถุดิบสำหรับแผ่นงาน-ทำให้โค้ดยูนิตใบสั่ง (333), และระบุตัวแปรดังนี้:

   • ชื่อ: DropShptSplOrderDiffAddress

   • ชนิดข้อมูล:บูลีน

5. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันInsertPurchOrderLineในการจัดหาวัตถุดิบสำหรับแผ่นงาน-ทำให้โค้ดยูนิตใบสั่ง (333) เป็นดังนี้:
   รหัสที่มีอยู่

   ...WITH ReqLine2 DO BEGIN
   IF ("No." = '') OR ("Vendor No." = '') OR (Quantity = 0) THEN
   EXIT;
   
   
   IF (PurchOrderHeader."Buy-from Vendor No." <> "Vendor No.") OR
   (PurchOrderHeader."Sell-to Customer No." <> "Sell-to Customer No.") OR
   (PrevShipToCode <> "Ship-to Code") OR
   (PurchOrderHeader."Order Address Code" <> "Order Address Code") OR
   (PurchOrderHeader."Currency Code" <> "Currency Code") OR
   
   // Delete the following line.
   (PrevPurchCode <> "Purchasing Code")
   
   THEN BEGIN
   ...
   

   รหัสแทน

   ...WITH ReqLine2 DO BEGIN
   IF ("No." = '') OR ("Vendor No." = '') OR (Quantity = 0) THEN
   EXIT;
   
   // Add the following lines.
   DropShptSpecialOrderExists := FALSE; 
   IF SalesHeader.GET(SalesHeader."Document Type"::Order,"Sales Order No.") THEN BEGIN 
   DropShptSpecialOrderExists := PurchOrderHeader.DropShptSplOrderExists(SalesHeader); 
   IF DropShptSpecialOrderExists THEN 
   DropShptSplOrderDiffAddress := 
   NOT PurchOrderHeader.CheckAndAddShipToAdd(SalesHeader,FALSE);
   END; 
   // End of the lines.
   
   IF (PurchOrderHeader."Buy-from Vendor No." <> "Vendor No.") OR
   (PurchOrderHeader."Sell-to Customer No." <> "Sell-to Customer No.") OR
   (PrevShipToCode <> "Ship-to Code") OR
   (PurchOrderHeader."Order Address Code" <> "Order Address Code") OR
   (PurchOrderHeader."Currency Code" <> "Currency Code") OR
   
   // Add the following lines.
   (PrevPurchCode <> "Purchasing Code") OR 
   (DropShptSplOrderDiffAddress) 
   // End of the lines.
   
   THEN BEGIN
   ...
   

6. เพิ่มตัวแปรท้องถิ่นใหม่ในฟังก์ชันInsertHeaderในการจัดหาวัตถุดิบสำหรับแผ่นงาน-ทำให้โค้ดยูนิตใบสั่ง (333), และระบุตัวแปรดังนี้:

   • ชื่อ: SalesHeader

   • ชนิดข้อมูล:คอร์ด

   • ชนิดย่อย:หัวข้อการขาย

7. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันInsertHeaderในการจัดหาวัตถุดิบสำหรับแผ่นงาน-ทำให้โค้ดยูนิตใบสั่ง (333) เป็นดังนี้:
   รหัสที่มีอยู่

   ...PurchOrderHeader.SetShipToForSpecOrder;
   END;
   
   PurchOrderHeader.MODIFY;
   ...
   

   รหัสแทน

   ...PurchOrderHeader.SetShipToForSpecOrder;
   END;
   
   // Add the following lines.
   IF DropShptSpecialOrderExists THEN BEGIN 
   SalesHeader.GET(SalesHeader."Document Type"::Order,"Sales Order No.");
   PurchOrderHeader."Ship-to Name" := SalesHeader."Ship-to Name"; 
   PurchOrderHeader."Ship-to Name 2" := SalesHeader."Ship-to Name 2"; 
   PurchOrderHeader."Ship-to Address" := SalesHeader."Ship-to Address";
   PurchOrderHeader."Ship-to Address 2" := SalesHeader."Ship-to Address 2";
   PurchOrderHeader."Ship-to Post Code" := SalesHeader."Ship-to Post Code";
   PurchOrderHeader."Ship-to City" := SalesHeader."Ship-to City"; 
   PurchOrderHeader."Ship-to Contact" := SalesHeader."Ship-to Contact"; 
   END; 
   // End of the lines.
   
   PurchOrderHeader.MODIFY;
   ...
   

8. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันEnterPurchaseItemCrossRefในโค้ดยูนิตรวม Dist. (5702) เป็นดังนี้:
   รหัสที่มีอยู่

   ...IF Found THEN BEGIN
   "Cross-Reference No." := ItemCrossReference."Cross-Reference No.";
   "Unit of Measure (Cross Ref.)" := ItemCrossReference."Unit of Measure";
   "Cross-Reference Type" := ItemCrossReference."Cross-Reference Type";
   "Cross-Reference Type No." := ItemCrossReference."Cross-Reference Type No.";
   
   // Delete the following lines.
   IF ItemCrossReference.Description <> '' THEN BEGIN 
   Description := ItemCrossReference.Description;
   "Description 2" := '';
   END;
   // End of the lines.
   
   END ELSE BEGIN
   "Cross-Reference No." := '';
   "Cross-Reference Type" := "Cross-Reference Type"::" ";
   "Cross-Reference Type No." := '';
   
   // Delete the following lines.
   IF "Variant Code" <> '' THEN BEGIN 
   ItemVariant.GET("No.","Variant Code");
   Description := ItemVariant.Description;
   "Description 2" := ItemVariant."Description 2";
   END ELSE BEGIN
   Item.GET("No."); 
   Description := Item.Description;
   "Description 2" := Item."Description 2";
   END; 
   // End of the lines.
   
   GetItemTranslation;
   ...
   

   รหัสแทน

   ...IF Found THEN BEGIN
   "Cross-Reference No." := ItemCrossReference."Cross-Reference No.";
   "Unit of Measure (Cross Ref.)" := ItemCrossReference."Unit of Measure";
   "Cross-Reference Type" := ItemCrossReference."Cross-Reference Type";
   "Cross-Reference Type No." := ItemCrossReference."Cross-Reference Type No.";
   END ELSE BEGIN
   "Cross-Reference No." := '';
   "Cross-Reference Type" := "Cross-Reference Type"::" ";
   "Cross-Reference Type No." := '';
   GetItemTranslation;
   ...
   

9. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันGetSpecialOrdersในโค้ดยูนิตรวม Dist. (5702) เป็นดังนี้:
   รหัสที่มีอยู่

   ...TESTFIELD("Sell-to Customer No.",SalesHeader."Sell-to Customer No.");
   TESTFIELD("Ship-to Code",SalesHeader."Ship-to Code");
   
   // Delete the following line.
   PurchHeader.SetShipToForSpecOrder;
   
   PurchLine.LOCKTABLE;
   ...
   

   รหัสแทน

   ...TESTFIELD("Sell-to Customer No.",SalesHeader."Sell-to Customer No.");
   TESTFIELD("Ship-to Code",SalesHeader."Ship-to Code");
   
   // Add the following lines.
   IF DropShptSplOrderExists(SalesHeader) THEN 
   CheckAndAddShipToAdd(SalesHeader,TRUE);
   // End of the lines.
   
   PurchLine.LOCKTABLE;
   ...
   

10. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันTransfldsFromSalesToPurchLineในโค้ดยูนิตการจัดการเอกสารสำเนา (6620) ดังนี้:
    รหัสที่มีอยู่

    ...VALIDATE("Direct Unit Cost");
    END;
    ...
    

    รหัสแทน

    ...VALIDATE("Direct Unit Cost");
    
    // Add the following lines.
    Description := FromSalesLine.Description;
    "Description 2" := FromSalesLine."Description 2";
    // End of the lines.
    
    END;
    ...
    

11. เปลี่ยนแปลงรหัสในฟิลด์รหัสในการซื้อ-รับหลายหล่นโค้ดยูนิต (76) เป็นดังนี้:
    รหัสที่อยู่ 1

    ...TESTFIELD("Ship-to Code",SalesHeader."Ship-to Code");
    
    PurchLine.LOCKTABLE;
    ...
    

    รหัสแทนที่ 1

    ...TESTFIELD("Ship-to Code",SalesHeader."Ship-to Code");
    
    // Add the following line.
    IF DropShptSplOrderExists(SalesHeader) THEN 
    CheckAndAddShipToAdd(SalesHeader,TRUE); 
    // End of the lines.
    
    PurchLine.LOCKTABLE;
    ...
    

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

    ...CopyDocMgt.TransfldsFromSalesToPurchLine(SalesLine,PurchLine);
    PurchLine.Description := SalesLine.Description;
    PurchLine."Sales Order No." := SalesLine."Document No.";
    ...
    

    รหัสแทนที่ 2

    ...CopyDocMgt.TransfldsFromSalesToPurchLine(SalesLine,PurchLine);
    PurchLine.Description := SalesLine.Description;
    
    // Add the following line.
    PurchLine."Description 2" := SalesLine."Description 2";
    
    PurchLine."Sales Order No." := SalesLine."Document No.";
    ...
    

12. เปลี่ยนรหัสในInsertReqWkshLineในรายงานเรียกใบสั่งขาย (698) เป็นดังนี้:
    รหัสที่มีอยู่

    ..."Sell-to Customer No." := SalesLine."Sell-to Customer No.";
    SalesHeader.GET(1,SalesLine."Document No.");
    IF SpecOrder <> 1 THEN
    ...
    

    รหัสแทน

    ..."Sell-to Customer No." := SalesLine."Sell-to Customer No.";
    
    // Add the following lines.
    Description := SalesLine.Description;
    "Description 2" := SalesLine."Description 2";
    // End of the lines.
    
    SalesHeader.GET(1,SalesLine."Document No.");
    IF SpecOrder <> 1 THEN
    ...
    

13. เพิ่มตัวแปรส่วนกลางใหม่ในตารางหัวข้อการซื้อ (38), และระบุตัวแปรดังนี้:

    • ชื่อ: NameAddressDetails

    • ชนิดข้อมูล:ข้อความ

    • ความยาว: 512

14. เพิ่มตัวแปรส่วนกลางใหม่ในตารางหัวข้อการซื้อ (38), และระบุตัวแปรดังนี้:

    • ชื่อ: NameAddressDetails2

    • ชนิดข้อมูล:ข้อความ

    • ความยาว: 512

15. เพิ่มค่าคงข้อความใหม่ในตารางหัวข้อการซื้อ (38), และระบุค่าคงที่ข้อความดังนี้:

    • ชื่อ: Text051

    • ConstValue:ฟิลด์ %1 ในใบสั่งซื้อ %2 ต้องเหมือนกันเนื่องจากยอดขายในใบสั่ง %3

16. สร้างฟังก์ชันCheckAndAddShipToAddใหม่ในตารางหัวข้อการซื้อ (38) เมื่อต้องการทำเช่นนี้ ให้ทำตามขั้นตอนเหล่านี้

    1. เพิ่มพารามิเตอร์ภายในเครื่องใหม่ในฟังก์ชันCheckAndAddShipToAddในตารางหัวข้อการซื้อ (38), และระบุพารามิเตอร์ต่อไปนี้:

       • Var: No

       • ชื่อ: SalesHeader

       • ชนิดข้อมูล:เรกคอร์ด

       • ชนิดย่อย:หัวข้อการขาย

    2. เพิ่มพารามิเตอร์ภายในเครื่องใหม่ในฟังก์ชันCheckAndAddShipToAddในตารางหัวข้อการซื้อ (38), และระบุพารามิเตอร์ต่อไปนี้:

       • Var: No

       • ชื่อ: ShowError

       • ชนิดข้อมูล:บูลีน

    3. เพิ่มค่าส่งคืนในฟังก์ชันCheckAndAddShipToAddในตารางหัวข้อการซื้อ (38), และระบุค่าที่ส่งคืนดังนี้:

       • ชนิดการส่งคืน:บูลีน

    4. เพิ่มตัวแปรท้องถิ่นใหม่ในฟังก์ชันCheckAndAddShipToAddในตารางหัวข้อการซื้อ (38), และระบุตัวแปรดังนี้:

       • ชื่อ: PurchLine2

       • ชนิดข้อมูล:เรกคอร์ด

       • ชนิดย่อย: PurchLine2

    5. เพิ่มรหัสต่อไปนี้ในฟังก์ชันCheckAndAddShipToAddในตารางหัวข้อการซื้อ (38):

       IF ShowError THEN BEGINPurchLine2.RESET;
       PurchLine2.SETRANGE("Document Type","Document Type"::Order);
       PurchLine2.SETRANGE("Document No.","No.");
       IF NOT PurchLine2.ISEMPTY THEN BEGIN
       IF "Ship-to Name" <> SalesHeader."Ship-to Name" THEN
       ERROR(Text051,FIELDCAPTION("Ship-to Name"),"No.",SalesHeader."No.");
       IF "Ship-to Name 2" <> SalesHeader."Ship-to Name 2" THEN
       ERROR(Text051,FIELDCAPTION("Ship-to Name 2"),"No.",SalesHeader."No.");
       IF ("Ship-to Address" <> SalesHeader."Ship-to Address") THEN
       ERROR(Text051,FIELDCAPTION("Ship-to Address"),"No.",SalesHeader."No.");
       IF ("Ship-to Address 2" <> SalesHeader."Ship-to Address 2") THEN
       ERROR(Text051,FIELDCAPTION("Ship-to Address 2"),"No.",SalesHeader."No.");
       IF ("Ship-to Post Code" <> SalesHeader."Ship-to Post Code") THEN
       ERROR(Text051,FIELDCAPTION("Ship-to Post Code"),"No.",SalesHeader."No.");
       IF ("Ship-to City" <> SalesHeader."Ship-to City") THEN
       ERROR(Text051,FIELDCAPTION("Ship-to City"),"No.",SalesHeader."No.");
       IF ("Ship-to Contact" <> SalesHeader."Ship-to Contact") THEN
       ERROR(Text051,FIELDCAPTION("Ship-to Contact"),"No.",SalesHeader."No.");
       END ELSE BEGIN
       // no purchase line exists
       "Ship-to Name" := SalesHeader."Ship-to Name";
       "Ship-to Name 2" := SalesHeader."Ship-to Name 2";
       "Ship-to Address" := SalesHeader."Ship-to Address";
       "Ship-to Address 2" := SalesHeader."Ship-to Address 2";
       "Ship-to Post Code" := SalesHeader."Ship-to Post Code";
       "Ship-to City" := SalesHeader."Ship-to City";
       "Ship-to Contact" := SalesHeader."Ship-to Contact";
       END;
       END ELSE BEGIN
       NameAddressDetails :=
       SalesHeader."Ship-to Name" + SalesHeader."Ship-to Name 2" +
       SalesHeader."Ship-to Address" + SalesHeader."Ship-to Address 2" +
       SalesHeader."Ship-to Post Code" + SalesHeader."Ship-to City" +
       SalesHeader."Ship-to Contact";
       IF NameAddressDetails2 = '' THEN
       NameAddressDetails2 := NameAddressDetails;
       EXIT(NameAddressDetails2 = NameAddressDetails);
       END;
       

17. สร้างฟังก์ชันDropShptSplOrderExistsใหม่ในตารางหัวข้อการซื้อ (38) เมื่อต้องการทำเช่นนี้ ให้ทำตามขั้นตอนเหล่านี้

    1. เพิ่มพารามิเตอร์ภายในเครื่องใหม่ในฟังก์ชันDropShptSplOrderExistsในตารางหัวข้อการซื้อ (38), และระบุพารามิเตอร์ต่อไปนี้:

       • Var: No

       • ชื่อ: SalesHeader

       • ชนิดข้อมูล:เรกคอร์ด

       • ชนิดย่อย:หัวข้อการขาย

    2. เพิ่มชนิดค่าที่ส่งคืนในฟังก์ชันDropShptSplOrderExistsในตารางหัวข้อการซื้อ (38), และระบุค่าที่ส่งคืนดังนี้:

       • ชนิดการส่งคืน:บูลีน

    3. เพิ่มตัวแปรท้องถิ่นใหม่ในฟังก์ชันDropShptSplOrderExistsในตารางหัวข้อการซื้อ (38), และระบุตัวแปรดังนี้:

       • ชื่อ: SalesLine2

       • ชนิดข้อมูล:เรกคอร์ด

       • ชนิดย่อย:บรรทัดการขาย

    4. เพิ่มรหัสต่อไปนี้ในฟังก์ชันDropShptSplOrderExistsในตารางหัวข้อการซื้อ (38):

       // returns TRUE if sales is either Drop Shipment of Special OrderSalesLine2.RESET;
       SalesLine2.SETRANGE("Document Type",SalesLine2."Document Type"::Order);
       SalesLine2.SETRANGE("Document No.",SalesHeader."No.");
       SalesLine2.SETRANGE("Drop Shipment",TRUE);
       IF NOT SalesLine2.ISEMPTY THEN
       EXIT(TRUE);
       
       SalesLine2.SETRANGE("Drop Shipment");
       SalesLine2.SETRANGE("Special Order",TRUE);
       EXIT(NOT SalesLine2.ISEMPTY);