ปริมาณเป็นศูนย์ในขณะที่ค่าไม่เป็นศูนย์เมื่อคุณรันรายงานการคิดมูลค่าสินค้าคงคลังใน Microsoft Dynamics NAV 2009

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

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

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

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

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

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

   PROCEDURE SetValuationDateAllValueEntrie@95(ItemLedgerEntryNo@1000 : Integer;ValuationDate@1001 : Date;FixedApplication@1003 : Boolean);

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

   ...        IF FINDSET THEN
             REPEAT
               IF ("Valuation Date" <> "Posting Date") OR
   
   // Delete the following line.
                  ("Valuation Date" < ValuationDate) 
   
               THEN BEGIN
                 "Valuation Date" := ValuationDate;
                 MODIFY;
               END;
             UNTIL NEXT = 0;
   ...
   
   

   รหัสแทน

   ...        IF FINDSET THEN
             REPEAT
               IF ("Valuation Date" <> "Posting Date") OR
   
   // Add the following lines.
                  ("Valuation Date" < ValuationDate) OR     // Add an OR in this condition. 
                  (("Valuation Date" > ValuationDate) AND FixedApplication) // Add a new condition.
   // End of the lines.
   
               THEN BEGIN
                 "Valuation Date" := ValuationDate;
                 MODIFY;
               END;
             UNTIL NEXT = 0;
   ...
   
   

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

   ...// Delete the following line.
          SetValuationDateAllValueEntrie(CostItemLedgEntry."Entry No.",Valuationdate);
   ...
   
   

   รหัสแทน

   ...// Add the following line.
          SetValuationDateAllValueEntrie(CostItemLedgEntry."Entry No.",Valuationdate,FALSE); 
   ...
   
   

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

   ...// Delete the following line.
          SetValuationDateAllValueEntrie(GlobalItemLedgEntry."Entry No.",ValueEntry."Valuation Date"); 
   ...
   
   

   รหัสแทน

   ...// Add the following line.
          SetValuationDateAllValueEntrie(GlobalItemLedgEntry."Entry No.",ValueEntry."Valuation Date",FALSE);   
   ...
   
   

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

   ...        IF Positive THEN BEGIN
             IF (ValueEntry."Posting Date" < OldValueEntry."Valuation Date") OR
                (ItemJnlLine."Applies-to Entry" <> 0)
   
   // Delete the following lines.
             THEN BEGIN
               ValueEntry."Valuation Date" := OldValueEntry."Valuation Date";
               SetValuationDateAllValueEntrie(ValueEntry."Item Ledger Entry No.",OldValueEntry."Valuation Date");
             END ELSE
             BEGIN
               ValueEntry."Valuation Date" := ValueEntry."Posting Date";
               SetValuationDateAllValueEntrie(ValueEntry."Item Ledger Entry No.",ValueEntry."Posting Date");
             END
   // End of the lines.
   ...
   
   

   รหัสแทน

   ...        IF Positive THEN BEGIN
             IF (ValueEntry."Posting Date" < OldValueEntry."Valuation Date") OR
                (ItemJnlLine."Applies-to Entry" <> 0)
   
   // Add the following lines.
             THEN BEGIN
               ValueEntry."Valuation Date" := OldValueEntry."Valuation Date";
               SetValuationDateAllValueEntrie(
                 ValueEntry."Item Ledger Entry No.",
                 OldValueEntry."Valuation Date",
                 ItemJnlLine."Applies-to Entry" <> 0)
             END ELSE BEGIN
               ValueEntry."Valuation Date" := ValueEntry."Posting Date";
               SetValuationDateAllValueEntrie(
                 ValueEntry."Item Ledger Entry No.",
                 ValueEntry."Posting Date",
                 ItemJnlLine."Applies-to Entry" <> 0)
             END
   // End of the lines.
   ...