รายการคลังสินค้าจะได้รับสินค้าทั้งหมดที่การติดตามบรรทัดในสมุดรายวันงานเมื่อคุณลงรายการบัญชีรายการในสมุดรายวันงานกับช่องเก็บใน Microsoft Dynamics NAV 2009

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

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

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

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

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

1. เพิ่มตัวแปรส่วนกลางใหม่ในตารางบรรทัดสมุดรายวันงาน (210), และระบุตัวแปรดังนี้:

   • ชื่อ: WMSManagement

   • ชนิดข้อมูล:โค้ดยูนิต

   • ชนิดย่อย:จัดการ WMS (7302)

2. ลบรหัสต่อไปนี้ในคุณสมบัติTableRelationของรหัสช่องเก็บในฟิลด์ (5403) ในตารางบรรทัดสมุดรายวันงาน (210):

   Bin.Code WHERE (Location Code=FIELD(Location Code));

3. การเปลี่ยนแปลงรหัสนี้ในทริกเกอร์OnValidateสำหรับรหัสช่องเก็บในฟิลด์ (5403) ในตารางบรรทัดสมุดรายวันงาน (210) ดังต่อไปนี้:
   รหัสที่มีอยู่

   ...// Delete the following lines.
   TESTFIELD("Location Code");
   CheckItemAvailable;
   // End of the lines.
   ...
   

   รหัสแทน

   ...// Add the following lines.
   TESTFIELD("Location Code");
   IF "Bin Code" <> '' THEN BEGIN
   GetLocation("Location Code");
   Location.TESTFIELD("Bin Mandatory");
   END;
   TESTFIELD(Type,Type::Item);
   CheckItemAvailable;
   WMSManagement.FindBinContent("Location Code","Bin Code","No.","Variant Code",'')
   // End of the lines.
   ...
   

4. เพิ่มตัวแปรท้องถิ่นใหม่ใน triggerin OnLookupรหัสช่องเก็บ -ตารางบรรทัดสมุดรายวันงาน (210), และระบุตัวแปรดังนี้:

   • ชื่อ: BinCode

   • ชนิดข้อมูล:รหัส

   • ความยาว: 20

5. เพิ่มรหัสต่อไปนี้ในOnLookupรหัสช่องเก็บ -ทริกเกอร์ในตารางบรรทัดสมุดรายวันงาน (210):

   TESTFIELD("Location Code");TESTFIELD(Type,Type::Item);
   BinCode := WMSManagement.BinContentLookUp("Location Code","No.","Variant Code",'',"Bin Code");
   IF BinCode <> '' THEN
   VALIDATE("Bin Code",BinCode);
   

6. เปลี่ยนค่าในคุณสมบัติOptionStringของฟิลด์เอกสารต้นทาง(25) ในตารางบรรทัดสมุดรายวันคลังสินค้า (7311) ดังต่อไปนี้:
   OptionString= s ให้ใบสั่ง อิน วอยซ์ s ให้ s ให้ใบลดหนี้ ใบสั่งส่งคืนสินค้า s ให้ สั่งแป้น p แป้น p อินวอยซ์ บันทึกสินเชื่อแป้น p ใบสั่งส่งคืนสินค้าแป้น p, Inb โอนย้าย Outb โอนย้าย ใบสั่งผลิต ปริมาณการใช้ รายการสมุดรายวัน สินค้าคงคลังที่มีอยู่จริง สมุดรายวันงาน สมุดจัดสินค้าใหม่ สมุดรายวันงาน ปริมาณการใช้งานสมุดรายวัน สมุดรายวันงาน BOM งานสมุดรายวัน บริการใบสั่งผลผลิต สมุดรายวันที่งาน

7. เปลี่ยนค่าในคุณสมบัติOptionStringของฟิลด์ข้อมูลอ้างอิงเอกสาร(60) ในตารางบรรทัดสมุดรายวันคลังสินค้า (7311) ดังต่อไปนี้:
   OptionString=ลงรายการบัญชีใบรับสินค้า การลงรายการบัญชีในใบแจ้งหนี้แป้น p, Rtrn รับ การลงรายการบัญชีใบลดหนี้แป้น p ลงรายการบัญชีการจัดส่ง s ให้ในใบแจ้งหนี้ Rtrn จัดส่ง s ให้เครดิตบันทึก รับการยอมรับ การจัดส่งการยอมรับ การลงรายการบัญชีการลงรายการบัญชีการลงรายการบัญชีการลงรายการบัญชีการลงรายการบัญชีการลงรายการบัญชีรายการสมุดรายวัน การลงรายการบัญชีผลิตภัณฑ์ การย้ายเก็บ รับของ การย้าย สมุดรายวัน BOM สมุดรายวันงาน

8. เปลี่ยนค่าในคุณสมบัติOptionStringของฟิลด์เอกสารต้นทาง (25) ในตารางรายการคลังสินค้า (7312) ดังต่อไปนี้:
   OptionString= s ให้ใบสั่ง อิน วอยซ์ s ให้ s ให้ใบลดหนี้ ใบสั่งส่งคืนสินค้า s ให้ สั่งแป้น p แป้น p อินวอยซ์ บันทึกสินเชื่อแป้น p ใบสั่งส่งคืนสินค้าแป้น p, Inb โอนย้าย Outb โอนย้าย ใบสั่งผลิต ปริมาณการใช้ รายการสมุดรายวัน สินค้าคงคลังที่มีอยู่จริง สมุดรายวันงาน สมุดจัดสินค้าใหม่ สมุดรายวันงาน ปริมาณการใช้งานสมุดรายวัน ผลผลิตงานสมุดรายวัน BOM สมุดรายวันงาน ใบสั่งบริการ งานสมุดรายวัน

9. เปลี่ยนค่าในคุณสมบัติOptionStringของฟิลด์ข้อมูลอ้างอิงเอกสาร (60) ในตารางรายการคลังสินค้า (7312) ดังต่อไปนี้:
   OptionString=ลงรายการบัญชีใบรับสินค้า การลงรายการบัญชีในใบแจ้งหนี้แป้น p, Rtrn รับ การลงรายการบัญชีใบลดหนี้แป้น p ลงรายการบัญชีการจัดส่ง s ให้ในใบแจ้งหนี้ Rtrn จัดส่ง s ให้เครดิตบันทึก รับการยอมรับ การจัดส่งการยอมรับ การลงรายการบัญชีการลงรายการบัญชีการลงรายการบัญชีการลงรายการบัญชีการลงรายการบัญชีการลงรายการบัญชีรายการสมุดรายวัน การลงรายการบัญชีผลิตภัณฑ์ การย้ายเก็บ รับของ การย้าย สมุดรายวัน BOM สมุดรายวันงาน

10. เปลี่ยนแปลงคุณสมบัติมองเห็นได้ของตัวควบคุมรหัสที่ตั้ง (60) ในแบบฟอร์มสมุดรายวันงาน (201) เป็นดังนี้:
    รหัสที่มีอยู่

    Visible = Yes

    รหัสแทน

    Visible = No

11. เพิ่มฟิลด์รหัสช่องเก็บที่อยู่ระหว่างฟิลด์รหัสตั้งและฟิลด์รหัสชนิดงานในแบบฟอร์มสมุดรายวันงาน (201), และจากนั้น ระบุเขตข้อมูลเป็นการปฏิบัติตาม:

    ...{ 61 ;Label ;0 ;0 ;0 ;0 ;ParentControl=60;
    InColumnHeading=Yes }
    
    // Add the following lines.
    { 102 ;TextBox ;35507;1650 ;1700 ;440 ;ParentControl=1;
    InColumn=Yes;
    SourceExpr="Bin Code" }
    { 103 ;Label ;0 ;0 ;0 ;0 ;ParentControl=102;
    InColumnHeading=Yes }
    // End of the lines.
    
    { 48 ;TextBox ;11430;2530 ;1650 ;440 ;ParentControl=1;
    ...
    

12. เพิ่มตัวแปรส่วนกลางใหม่ในงานสมุดรายวันขึ้น-ลงรายการบัญชีบรรทัดโค้ดยูนิต (1012), แล้ว ระบุตัวแปรดังนี้:

    • ชื่อ:ตำแหน่งที่ตั้ง

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

    • ชนิดย่อย:ตำแหน่งที่ตั้ง(14)

13. สร้างฟังก์ชันGetLocationใหม่ในงานสมุดรายวันขึ้น-ลงรายการบัญชีบรรทัดโค้ดยูนิต (1012) ดัง:

    LOCAL PROCEDURE GetLocation@25(LocationCode@1000 : Code[10]);
    

14. เพิ่มรหัสต่อไปนี้ในฟังก์ชันGetLocationในงานสมุดรายวันขึ้น-ลงรายการบัญชีบรรทัดโค้ดยูนิต (1012):

    IF LocationCode = '' THENCLEAR(Location)
    ELSE
    IF Location.Code <> LocationCode THEN
    Location.GET(LocationCode);
    

15. สร้างฟังก์ชันPostWhseJnlLineใหม่ในงานสมุดรายวันขึ้น-ลงรายการบัญชีบรรทัดโค้ดยูนิต (1012) ดัง:

    LOCAL PROCEDURE PostWhseJnlLine@24(ItemJnlLine@1000 : Record 83;OriginalQuantity@1001 : Decimal;OriginalQuantityBase@1002 : Decimal;VAR TempTrackingSpecification@1003 : TEMPORARY Record 336);

16. สร้างตัวแปรท้องถิ่นดังต่อไปนี้ในฟังก์ชันPostWhseJnlLineในงานสมุดรายวันขึ้น-ลงรายการบัญชีบรรทัดโค้ดยูนิต (1012):

    1. เพิ่มตัวแปรท้องถิ่นในฟังก์ชันPostWhseJnlLineในงานสมุดรายวันขึ้น-ลงรายการบัญชีบรรทัดโค้ดยูนิต (1012), แล้ว ระบุตัวแปรดังนี้:

       • ชื่อ: WarehouseJournalLine

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

       • ชนิดย่อย:บรรทัดสมุดรายวันคลังสินค้า(7311)

    2. เพิ่มตัวแปรท้องถิ่นในฟังก์ชันPostWhseJnlLineในงานสมุดรายวันขึ้น-ลงรายการบัญชีบรรทัดโค้ดยูนิต (1012), แล้ว ระบุตัวแปรดังนี้:

       • ชื่อ: TempWarehouseJournalLine

       • ชนิดข้อมูล:ระเบียนชั่วคราว

       • ชนิดย่อย:บรรทัดสมุดรายวันคลังสินค้า(7311)

    3. เพิ่มตัวแปรท้องถิ่นในฟังก์ชันPostWhseJnlLineในงานสมุดรายวันขึ้น-ลงรายการบัญชีบรรทัดโค้ดยูนิต (1012), แล้ว ระบุตัวแปรดังนี้:

       • ชื่อ: ItemTrackingManagement

       • ชนิดข้อมูล:โค้ดยูนิต

       • ชนิดย่อย:จัดการการติดตามสินค้า(6500)

    4. เพิ่มตัวแปรท้องถิ่นในฟังก์ชันPostWhseJnlLineในงานสมุดรายวันขึ้น-ลงรายการบัญชีบรรทัดโค้ดยูนิต (1012), แล้ว ระบุตัวแปรดังนี้:

       • ชื่อ: WMSManagement

       • ชนิดข้อมูล:โค้ดยูนิต

       • ชนิดย่อย:จัดการ WMS (7302)

    5. เพิ่มตัวแปรท้องถิ่นในฟังก์ชันPostWhseJnlLineในงานสมุดรายวันขึ้น-ลงรายการบัญชีบรรทัดโค้ดยูนิต (1012), แล้ว ระบุตัวแปรดังนี้:

       • ชื่อ: WhseJnlRegisterLine

       • ชนิดข้อมูล:โค้ดยูนิต

       • ชนิดย่อย: การปรับปรุงคลังสินค้า สมุดรายวัน-บรรทัดการลงทะเบียน(7301)

17. เพิ่มรหัสต่อไปนี้ในฟังก์ชันPostWhseJnlLineในงานสมุดรายวันขึ้น-ลงรายการบัญชีบรรทัดโค้ดยูนิต (1012) ดัง:

    WITH ItemJnlLine DO BEGINIF "Entry Type" IN ["Entry Type"::Consumption,"Entry Type"::Output] THEN
    EXIT;
    Quantity := OriginalQuantity;
    "Quantity (Base)" := OriginalQuantityBase;
    GetLocation("Location Code");
    IF Location."Bin Mandatory" THEN
    IF WMSManagement.CreateWhseJnlLine(ItemJnlLine,0,WarehouseJournalLine,FALSE,FALSE) THEN BEGIN
    TempTrackingSpecification.MODIFYALL("Source Type",DATABASE::"Job Journal Line");
    ItemTrackingManagement.SplitWhseJnlLine(WarehouseJournalLine,TempWarehouseJournalLine,TempTrackingSpecification,FALSE);
    IF TempWarehouseJournalLine.FIND('-') THEN
    REPEAT
    WMSManagement.CheckWhseJnlLine(TempWarehouseJournalLine,1,0,FALSE);
    WhseJnlRegisterLine.RUN(TempWarehouseJournalLine);
    UNTIL TempWarehouseJournalLine.NEXT = 0;
    END;
    END;
    

18. เพิ่มตัวแปรท้องถิ่นใหม่ในฟังก์ชันรหัสในงานสมุดรายวันขึ้น-ลงรายการบัญชีบรรทัดโค้ดยูนิต (1012), แล้ว ระบุตัวแปรดังนี้:

    • ชื่อ: TempTrackingSpecification

    • ชนิดข้อมูล:ระเบียนชั่วคราว

    • ชนิดย่อย:ข้อมูลจำเพาะเกี่ยวกับการติดตาม(336)

19. เพิ่มตัวแปรท้องถิ่นใหม่ในฟังก์ชันรหัสในงานสมุดรายวันขึ้น-ลงรายการบัญชีบรรทัดโค้ดยูนิต (1012), แล้ว ระบุตัวแปรดังนี้:

    • ชื่อ: ItemJnlLine2

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

    • ชนิดย่อย:บรรทัดสมุดรายวันสินค้า(83)

20. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันรหัสในงานสมุดรายวันขึ้น-ลงรายการบัญชีบรรทัดโค้ดยูนิต (1012) ดังต่อไปนี้:
    รหัสที่อยู่ 1

    ...ItemJnlLine.INIT;
    ItemJnlLine."Item No." := JobJnlLine2."No.";
    ...
    
    

    รหัสแทนที่ 1

    ...ItemJnlLine.INIT;
    
    // Add the following line.
    ItemJnlLine."Line No." := "Line No.";
    
    ItemJnlLine."Item No." := JobJnlLine2."No.";
    ...
    

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

    ...ItemLedgEntry.LOCKTABLE;
    ItemJnlPostLine.RunWithCheck(ItemJnlLine,TempJnlLineDim);
    END;
    ...
    

    รหัสแทนที่ 2

    ...ItemLedgEntry.LOCKTABLE;
    
    // Add the following line.
    ItemJnlLine2 := ItemJnlLine;
    
    ItemJnlPostLine.RunWithCheck(ItemJnlLine,TempJnlLineDim);
    
    // Add the following lines.
    ItemJnlPostLine.CollectTrackingSpecification(TempTrackingSpecification);
    PostWhseJnlLine(ItemJnlLine2,ItemJnlLine2.Quantity,ItemJnlLine2."Quantity (Base)",TempTrackingSpecification);
    // End of the lines.
    ...
    

21. เปลี่ยนค่าในคุณสมบัติOptionStringของเอกสารอ้างอิงพารามิเตอร์ในฟังก์ชันGetSourceDocumentในการปรับปรุงคลังสินค้า โค้ดยูนิตการจัดการ (5775) ต่อไปนี้:
    OptionString= s ให้ใบสั่ง อิน วอยซ์ s ให้ s ให้ใบลดหนี้ ใบสั่งส่งคืนสินค้า s ให้ สั่งแป้น p แป้น p อินวอยซ์ บันทึกสินเชื่อแป้น p ใบสั่งส่งคืนสินค้าแป้น p, Inb โอนย้าย Outb โอนย้าย ใบสั่งผลิต ปริมาณการใช้ รายการสมุดรายวัน สินค้าคงคลังที่มีอยู่จริง สมุดรายวันงาน สมุดจัดสินค้าใหม่ สมุดรายวันงาน ปริมาณการใช้งานสมุดรายวัน ผลผลิตงานสมุดรายวัน BOM สมุดรายวันงาน ใบสั่งบริการ งานสมุดรายวัน

22. เปลี่ยนรหัสในฟังก์ชันGetSourceDocumentในการปรับปรุงคลังสินค้า โค้ดยูนิตการจัดการ (5775) ดังต่อไปนี้:
    รหัสที่มีอยู่

    ...EXIT;
    END;
    END;
    ERROR(Text000);
    ...
    

    รหัสแทน

    ...EXIT;
    END;
    
    // Add the following lines.
    DATABASE::"Job Journal Line":
    BEGIN 
    SourceDocument := SourceDocument::"Job Jnl.";
    EXIT;
    END;
    // End of the lines.
    
    END;
    ERROR(Text000);
    ...
    

23. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันCreateWhseJnlLineในโค้ดยูนิตการจัดการ WMS (7302) เป็นการปฏิบัติตาม:
    รหัสที่มีอยู่

    ...WhseJnlLine."Source Line No." := "Line No.";
    END;
    WhseJnlLine."Source Code" := "Source Code";
    WhseJnlLine."Reason Code" := "Reason Code";
    WhseJnlLine."Registering No. Series" := "Posting No. Series";
    WhseJnlLine."Whse. Document Type" := WhseJnlLine."Whse. Document Type"::" ";
    
    // Delete the following line.
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Item Journal";
    
    WhseJnlLine."Reference No." := "Document No.";
    ...
    

    รหัสแทน

    ...WhseJnlLine."Source Line No." := "Line No.";
    
    // Add the following lines.
    END ELSE
    IF "Job No." <> '' THEN BEGIN
    WhseJnlLine."Source Type" := DATABASE::"Job Journal Line";
    WhseJnlLine."Source Subtype" := ItemJnlTemplateType;
    WhseMgt.GetSourceDocument(WhseJnlLine."Source Document",WhseJnlLine."Source Type",WhseJnlLine."Source Subtype");
    WhseJnlLine."Source No." := "Document No.";
    WhseJnlLine."Source Line No." := "Line No.";
    // End of the lines.
    END;WhseJnlLine."Source Code" := "Source Code";
    WhseJnlLine."Reason Code" := "Reason Code";
    WhseJnlLine."Registering No. Series" := "Posting No. Series";
    WhseJnlLine."Whse. Document Type" := WhseJnlLine."Whse. Document Type"::" ";
    
    // Add the following lines.
    IF "Job No." = '' THEN
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Item Journal"
    ELSE
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Job Journal";
    // End of the lines.
    
    WhseJnlLine."Reference No." := "Document No.";
    ...ine."Source Code" := "Source Code";
    WhseJnlLine."Reason Code" := "Reason Code";
    WhseJnlLine."Registering No. Series" := "Posting No. Series";
    WhseJnlLine."Whse. Document Type" := WhseJnlLine."Whse. Document Type"::" ";
    
    // Add the following lines.
    IF "Job No." = '' THEN
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Item Journal"
    ELSE
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Job Journal";
    // End of the lines.
    
    WhseJnlLine."Reference No." := "Document No.";
    ...