คุณสามารถสร้างแอพพลิเคชันคงที่บางส่วนสำหรับสินค้าต้นทุนเฉลี่ยโดยไม่คาดคิดใน Microsoft Dynamics NAV 2009

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

โปรแกรมแก้ไขด่วนจะพร้อมใช้งานได้ในขณะนี้จาก 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 ของวัตถุ
  
  วัตถุ

หมายเหตุ คุณไม่จำเป็นต้องมีสิทธิ์ไปยังร้านค้าข้อมูลยกเว้นว่าคุณจำเป็นต้องซ่อมแซมข้อมูล

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

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

เมื่อต้องการแก้ไขปัญหานี้ ให้ทำตามขั้นตอนเหล่านี้:

1. เปลี่ยนแปลงรหัสนี้ในตัวแปรส่วนกลางในรายการสมุดรายวัน-ยูนิตบรรทัดการลงรายการบัญชี (22) ดัง:
   รหัสที่มีอยู่

   ...Text027@1086 : TextConst 'ENU=A fixed application was not unapplied and this prevented the reapplication. Use the Application Worksheet to remove the applications.';
   
           Text01@1087 : TextConst 'ENU=Checking for open entries.';
   
           Text028@1089 : TextConst 'ENU=Entries applied to a Job Purchase cannot be unapplied.';
   
           BlockRetrieveIT@1067 : Boolean;
   
           Text029@1091 : TextConst 'ENU=%1 %2 for %3 %4 is reserved for %5.';
   ...
   

   รหัสแทน

   ...Text027@1086 : TextConst 'ENU=A fixed application was not unapplied and this prevented the reapplication. Use the Application Worksheet to remove the applications.';
   
           Text01@1087 : TextConst 'ENU=Checking for open entries.';
   
           Text028@1089 : TextConst 'ENU=Entries applied to a Job Purchase cannot be unapplied.';
   
           BlockRetrieveIT@1067 : Boolean;
   
           Text029@1091 : TextConst 'ENU=%1 %2 for %3 %4 is reserved for %5.';
   
   // Add the following line.
           Text031@1093 : TextConst 'ENU=A fixed application was prevented, because multiple entries can not be applied.';
   // End of the added line.
   ...
   

2. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันApplyItemLedgEntryในรายการสมุดรายวัน-ยูนิตบรรทัดการลงรายการบัญชี (22) ดัง:
   รหัสที่มีอยู่

   ...OldItemLedgEntry.TESTFIELD("Serial No.",ItemLedgEntry."Serial No.");
   
                   IF ItemTrackingCode."Lot Specific Tracking" OR ItemLedgEntry."Drop Shipment" THEN
   
                     OldItemLedgEntry.TESTFIELD("Lot No.",ItemLedgEntry."Lot No.");
   
   
   
                   OldItemLedgEntry.CALCFIELDS("Reserved Quantity");
   
                   IF  NOT ((OldItemLedgEntry.Open) AND
   
                     (ABS(OldItemLedgEntry."Remaining Quantity" - OldItemLedgEntry."Reserved Quantity") >=
   
                      ABS(ItemLedgEntry."Remaining Quantity" - ItemLedgEntry."Reserved Quantity"))) THEN BEGIN
   
                     IF  (ABS(OldItemLedgEntry."Remaining Quantity" - OldItemLedgEntry."Reserved Quantity") <=
   
                        ABS(ItemLedgEntry."Remaining Quantity" - ItemLedgEntry."Reserved Quantity"))
   ...
   

   รหัสแทน

   ...OldItemLedgEntry.TESTFIELD("Serial No.",ItemLedgEntry."Serial No.");
   
                   IF ItemTrackingCode."Lot Specific Tracking" OR ItemLedgEntry."Drop Shipment" THEN
   
                     OldItemLedgEntry.TESTFIELD("Lot No.",ItemLedgEntry."Lot No.");
   
   
   
                   OldItemLedgEntry.CALCFIELDS("Reserved Quantity");
   
   // Add the following line.
                  CheckApplication(ItemLedgEntry,OldItemLedgEntry);       
   // End of the added line. 
   
                   IF  NOT ((OldItemLedgEntry.Open) AND
   
                     (ABS(OldItemLedgEntry."Remaining Quantity" - OldItemLedgEntry."Reserved Quantity") >=
   
                      ABS(ItemLedgEntry."Remaining Quantity" - ItemLedgEntry."Reserved Quantity"))) THEN BEGIN
   
                     IF  (ABS(OldItemLedgEntry."Remaining Quantity" - OldItemLedgEntry."Reserved Quantity") <=
   
                        ABS(ItemLedgEntry."Remaining Quantity" - ItemLedgEntry."Reserved Quantity"))
   ...
   

3. เพิ่มขั้นตอนต่อไปนี้:

   LOCAL PROCEDURE CheckApplication@84(ItemLedgEntry@1000 : Record 32;OldItemLedgEntry@1001 : Record 32);BEGIN
   
         IF ABS(OldItemLedgEntry."Remaining Quantity" - OldItemLedgEntry."Reserved Quantity") <     
   
             ABS(ItemLedgEntry.Quantity) THEN
   
            OldItemLedgEntry.FIELDERROR("Remaining Quantity",Text004);
   
         IF ItemLedgEntry.Quantity <> ItemLedgEntry."Remaining Quantity" THEN
   
            ERROR(Text031);
   
    END;
   

ข้อกำหนดเบื้องต้น

คุณต้องมีหนึ่งผลิตภัณฑ์ต่อไปนี้ติดตั้งอยู่เพื่อใช้โปรแกรมแก้ไขด่วนนี้:

• Microsoft Dynamics NAV 2009 Service Pack ที่ 1

• Microsoft Dynamics NAV 2009 R2

ข้อมูลการเอาออก

คุณไม่สามารถเอาโปรแกรมแก้ไขด่วนนี้