VAT ในสถิติการซื้อจะถูกคำนวณใหม่หลังจากที่คุณทำการเปลี่ยนแปลงเมื่อคุณเปิดแบบฟอร์มสถิติหรือหน้าใน Microsoft Dynamics NAV 2009

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

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

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

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

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

1. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันUpdateVATAmountsในตารางบรรทัดการขาย (37) เป็นดังนี้:
   รหัสที่อยู่ 1

   ...END;
   
         LOCAL PROCEDURE UpdateVATAmounts@38();
         VAR
           SalesLine2@1000 : Record 37;
           TotalLineAmount@1005 : Decimal;
           TotalInvDiscAmount@1004 : Decimal;
           TotalAmount@1001 : Decimal;
           TotalAmountInclVAT@1002 : Decimal;
           TotalQuantityBase@1003 : Decimal;
   ...
   

   รหัสแทนที่ 1

   ...END;
   
         LOCAL PROCEDURE UpdateVATAmounts@38();
         VAR
           SalesLine2@1000 : Record 37;
   
   // Add the following line.
          CustPostingGr@1009 : Record 92;
   // End of the added line.
   
           TotalLineAmount@1005 : Decimal;
           TotalInvDiscAmount@1004 : Decimal;
           TotalAmount@1001 : Decimal;
           TotalAmountInclVAT@1002 : Decimal;
           TotalQuantityBase@1003 : Decimal;
   ...
   

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

   ...SalesLine2.SETFILTER(Amount,'>%1',0)
             ELSE
               SalesLine2.SETFILTER(Amount,'<%1',0);
           SalesLine2.SETRANGE("VAT Identifier","VAT Identifier");
           SalesLine2.SETRANGE("Tax Group Code","Tax Group Code");
   
           IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   ...
   

   รหัสแทนที่ 2

   ...SalesLine2.SETFILTER(Amount,'>%1',0)
             ELSE
               SalesLine2.SETFILTER(Amount,'<%1',0);
           SalesLine2.SETRANGE("VAT Identifier","VAT Identifier");
           SalesLine2.SETRANGE("Tax Group Code","Tax Group Code");
   
   // Add the following line.
          CustPostingGr.GET(SalesHeader."Customer Posting Group");
   // End of the added line.
   
           IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   ...
   

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

   ...IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   
   // Delete the following line.
            IF "Line No." <> 0 THEN
   // End of the deleted line.
   
               IF MODIFY THEN
                 IF SalesLine2.FINDLAST THEN BEGIN
                   SalesLine2.UpdateAmounts;
                   SalesLine2.MODIFY;
                 END;
   ...
   

   รหัสแทนที่ 3

   ...IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   
   // Add the following line.
            IF ("Line No." <> 0) AND NOT ((Type = Type::"G/L Account") AND ("No." = CustPostingGr."Service Charge Acc.")) THEN
   // End of the added line.
   
               IF MODIFY THEN
                 IF SalesLine2.FINDLAST THEN BEGIN
                   SalesLine2.UpdateAmounts;
                   SalesLine2.MODIFY;
                 END;
   ...
   

2. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันUpdateVATAmountsในตารางบรรทัดการซื้อ (39) เป็นดังนี้:
   รหัสที่อยู่ 1

   ...END;
   
         LOCAL PROCEDURE UpdateVATAmounts@38();
         VAR
           PurchLine2@1000 : Record 39;
           TotalLineAmount@1005 : Decimal;
           TotalInvDiscAmount@1004 : Decimal;
           TotalAmount@1001 : Decimal;
           TotalAmountInclVAT@1002 : Decimal;
           TotalQuantityBase@1003 : Decimal;
   ...
   

   รหัสแทนที่ 1

   ...END;
   
         LOCAL PROCEDURE UpdateVATAmounts@38();
         VAR
           PurchLine2@1000 : Record 39;
   
   // Add the following line.
          VendPostingGr@1009 : Record 93;
   // End of the added line.
   
           TotalLineAmount@1005 : Decimal;
           TotalInvDiscAmount@1004 : Decimal;
           TotalAmount@1001 : Decimal;
           TotalAmountInclVAT@1002 : Decimal;
           TotalQuantityBase@1003 : Decimal;
   ...
   

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

   ...PurchLine2.SETFILTER(Amount,'>%1',0)
             ELSE
               PurchLine2.SETFILTER(Amount,'<%1',0);
           PurchLine2.SETRANGE("VAT Identifier","VAT Identifier");
           PurchLine2.SETRANGE("Tax Group Code","Tax Group Code");
   
           IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   ...
   

   รหัสแทนที่ 2

   ...PurchLine2.SETFILTER(Amount,'>%1',0)
             ELSE
               PurchLine2.SETFILTER(Amount,'<%1',0);
           PurchLine2.SETRANGE("VAT Identifier","VAT Identifier");
           PurchLine2.SETRANGE("Tax Group Code","Tax Group Code");
   
   // Add the following line.
          VendPostingGr.GET(PurchHeader."Vendor Posting Group");
   // End of the added line.
   
           IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   ...
   

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

   ...IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   
   // Delete the following line.
            IF "Line No." <> 0 THEN
   // End of the deleted line.
   
               IF MODIFY THEN
                 IF PurchLine2.FINDLAST THEN BEGIN
                   PurchLine2.UpdateAmounts;
                   PurchLine2.MODIFY;
                 END;
   ...
   

   รหัสแทนที่ 3

   ...IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   
   // Add the following line.
            IF ("Line No." <> 0) AND NOT ((Type = Type::"G/L Account") AND ("No." = VendPostingGr."Service Charge Acc.")) THEN
   // End of the added line.
   
               IF MODIFY THEN
                 IF PurchLine2.FINDLAST THEN BEGIN
                   PurchLine2.UpdateAmounts;
                   PurchLine2.MODIFY;
                 END;
   ...