ปริมาณคงเหลือในรายการ RG 23 D ไม่ถูกต้องหลังจากที่คุณลงรายการบัญชีบันทึกสินเชื่อการซื้อใน SP1 2009 นำทางของ Dynamics Microsoft รุ่นอินเดีย

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

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

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

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

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

1. เพิ่มตัวแปรส่วนกลางต่อไปนี้ในตารางบรรทัดการขาย (37):

   • ชื่อ: ExecuteExcise

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

2. เพิ่มตัวแปรต่อไปนี้ในฟังก์ชันCalculateStructuresในตารางบรรทัดการขาย (37):

   • ชื่อ: DetailRG23D

   • ชนิดข้อมูล: บันทึก 16533

   
   เปลี่ยนรหัสต่อไปนี้:

   ...                       END;
                         UNTIL StrOrderDetails.NEXT = 0;
                     END;
                     SalesLine.MODIFY;
                 UNTIL SalesLine.NEXT = 0;
   
   // Add the following l ines.
                IF NOT ExecuteExcise THEN BEGIN 
                  DetailRG23D.RESET; 
                  DetailRG23D.SETRANGE("Document Type","Document Type"); 
                  DetailRG23D.SETRANGE("Order No.","No."); 
                  DetailRG23D.SETRANGE("Document No.",''); 
                  DetailRG23D.DELETEALL; 
                END; 
   // End of the added lines.
   ...
   

3. เพิ่มตัวแปรต่อไปนี้ในฟังก์ชันCheckAvailableQtyForReturnในตารางบรรทัดการขาย (37):

   • ชื่อ: RG23D2

   • ชนิดข้อมูล: บันทึก 16537

   
   เปลี่ยนรหัสต่อไปนี้:

   ...           IF RG23D.FINDSET THEN
             REPEAT
   // Delete the following line.
                  QtyAllocated += ABS(RG23D.Quantity); 
   // End of the deleted line.
   
   // Add the following lines.
              RG23D2.GET(RG23D."Ref. Entry No."); 
              RG23D2.CALCFIELDS("Remaining Quantity"); 
              QtyAllocated += ABS(RG23D2.Quantity - RG23D2."Remaining Quantity");
   // End of the added lines.
   
             UNTIL RG23D.NEXT = 0;
   ...
   

4. สร้างฟังก์ชันSetExecuteExciseในตารางบรรทัดการขาย (37) จากนั้น เพิ่มพารามิเตอร์ต่อไปนี้:

   • ชื่อ: ExecuteExcise2

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

   
   เพิ่มรหัสต่อไปนี้:

   ExecuteExcise := ExecuteExcise2;

5. เพิ่มตัวแปรส่วนกลางต่อไปนี้ในตารางบรรทัดการซื้อ (39):

   • ชื่อ: ExecuteExcise

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

6. เพิ่มตัวแปรต่อไปนี้ในฟังก์ชันCalculateStructuresในตารางบรรทัดการซื้อ (39):

   • ชื่อ: DetailRG23D

   • ชนิดข้อมูล: บันทึก 16533

   
   เปลี่ยนรหัสต่อไปนี้:

   ...                        END;
                       UNTIL StrOrderDetails.NEXT = 0;
                   END;
                   PurchLine.MODIFY;
               UNTIL PurchLine.NEXT = 0;
   
   // Add the following lines.
                IF NOT ExecuteExcise THEN BEGIN 
                  DetailRG23D.RESET; 
                  DetailRG23D.SETRANGE("Document Type","Document Type"); 
                  DetailRG23D.SETRANGE("Order No.","No."); 
                  DetailRG23D.SETRANGE("Document No.",''); 
                  DetailRG23D.DELETEALL; 
                END; 
   // End of the added lines.
   
            END;
           END;
         END;
   ...
   

7. สร้างฟังก์ชันSetExecuteExciseในตารางบรรทัดการซื้อ (39) จากนั้น เพิ่มพารามิเตอร์ต่อไปนี้:

   • ชื่อ: ExecuteExcise2

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

   
   เพิ่มรหัสต่อไปนี้:

   ExecuteExcise := ExecuteExcise2;

8. เปลี่ยนแปลงรหัสนี้ในคุณสมบัติในการขาย - ไปรษณีย์โค้ดยูนิต (80) ดัง:

     ...                SalesLine.GetSalesPriceExclusiveTaxes(SalesHeader);
                     SalesLine.UpdateSalesLinesPIT(SalesHeader);
                   END;
   
                   IF Structure <> '' THEN BEGIN
   
   // Add the following lines.
                    SalesLine.SetExecuteExcise( 
                      ("Document Type" IN ["Document Type"::"Credit Memo","Document Type"::Invoice]) OR 
                      (("Document Type" IN ["Document Type"::"Return Order", 
                      "Document Type"::Order]) AND 
                      Invoice)); 
   // End of the added lines.
   
                     SalesLine.CalculateStructures(SalesHeader);
                     SalesLine.AdjustStructureAmounts(SalesHeader);
                     SalesLine.UpdateSalesLines(SalesHeader);
                     CheckVATSettled(SalesHeader);
                   END;
   ...
   
   

9. เปลี่ยนแปลงรหัสนี้ในคุณสมบัติในการซื้อ-ไปรษณีย์โค้ดยูนิต (90) ดัง:

     ...                   TESTFIELD("Document Date");
                   IF GenJnlCheckLine.DateNotAllowed("Posting Date") THEN
                     FIELDERROR("Posting Date",Text045);
   
                   IF Structure <> '' THEN BEGIN
   
   // Add the following lines.
                    PurchLine.SetExecuteExcise(("Document Type" = "Document Type"::"Credit Memo") OR 
                      (("Document Type" = "Document Type"::"Return Order") AND Invoice)); 
   // End of the added lines.
   
                     PurchLine.CalculateStructures(PurchHeader);
                     COMMIT;
                     CheckVATSettled;
                     PurchLine.AdjustStructureAmounts(PurchHeader);
                     PurchLine.UpdatePurchLines(PurchHeader);
   ...