มีคำนวณยอดเงินส่วนลดในใบแจ้งหนี้ไม่ถูกต้องเมื่อคุณคำนวณสถิติของอินวอยซ์การซื้อใน 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. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันCalculateInvoiceDiscountในโค้ดยูนิตส่วนลดขายคำนวณ (60) เป็นดังนี้:
   รหัสที่อยู่ 1

   ...GLAcc@1110002 : Record 15;
         BEGIN
   ...
   

   รหัสแทนที่ 1

   ...GLAcc@1110002 : Record 15;
   
   // Add the following lines.
          TempSalesLineRemainder@1110000 : Record 37;
          TotRoundedInvDiscAmt@1110001 : Decimal;
          TotRoundedPmtDiscAmt@1110003 : Decimal;
   // End of the added lines.
   
         BEGIN
   ...
   

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

   ...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
   
   // Delete the following lines.
   SalesLine2."Inv. Discount Amount" :=
     ROUND(SalesLine2."Line Amount" * CustInvDisc."Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
     SalesLine2."Inv. Discount Amount" :=
       ROUND(
         (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) *
         CustInvDisc."Discount %" / 100,0.01);
       END;
   // End of the deleted lines.
   
                     IF GLSetup."Payment Discount Type" =
   ...
   

   รหัสแทนที่ 2

   ...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
   
   // Add the following lines.
   BEGIN
     TempSalesLineRemainder."Inv. Discount Amount" +=
       SalesLine2."Line Amount" * CustInvDisc."Discount %" / 100;
     SalesLine2."Inv. Discount Amount" :=
       CalcRoundedAmt(TempSalesLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
   END;
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
   BEGIN
     TempSalesLineRemainder."Inv. Discount Amount" +=
         (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) *
         CustInvDisc."Discount %" / 100;
     SalesLine2."Inv. Discount Amount" :=
       CalcRoundedAmt(TempSalesLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
   END;
   END;
   // End of the added lines.
   
                     IF GLSetup."Payment Discount Type" =
   ...
   

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

   ...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
   
   // Delete the following lines.
     SalesLine2."Pmt. Disc. Given Amount" :=
       ROUND(
         (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount")
         * SalesHeader."Payment Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
     SalesLine2."Pmt. Disc. Given Amount" :=
       ROUND(
         (SalesLine2."Line Amount" - SalesLine2."Inv. Discount Amount") *
         SalesHeader."Payment Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
     SalesLine2."Pmt. Disc. Given Amount" :=
       ROUND(
         (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount") *
         SalesHeader."Payment Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
     SalesLine2."Pmt. Disc. Given Amount" :=
       ROUND(
         (SalesLine2."Line Amount" - SalesLine2."Inv. Discount Amount") *
         SalesHeader."Payment Discount %" / 100,0.01);
   // End of the deleted lines.
   
                       END;
   ...
   

   รหัสแทนที่ 3

   ...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
   
   // Add the following lines.
      BEGIN
       TempSalesLineRemainder."Pmt. Disc. Given Amount" +=
           (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) *
           SalesHeader."Payment Discount %" / 100;
       SalesLine2."Pmt. Disc. Given Amount" :=
         CalcRoundedAmt(TempSalesLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
     BEGIN
       TempSalesLineRemainder."Pmt. Disc. Given Amount" +=
           (SalesLine2."Line Amount" - SalesLine2."Line Discount Amount" ) *
           SalesHeader."Payment Discount %" / 100;
       SalesLine2."Pmt. Disc. Given Amount" :=
         CalcRoundedAmt(TempSalesLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
     BEGIN
       TempSalesLineRemainder."Pmt. Disc. Given Amount" +=
           (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) *
           SalesHeader."Payment Discount %" / 100;
       SalesLine2."Pmt. Disc. Given Amount" :=
         CalcRoundedAmt(TempSalesLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
     BEGIN
       TempSalesLineRemainder."Pmt. Disc. Given Amount" +=
           (SalesLine2."Line Amount" - SalesLine2."Line Discount Amount" ) *
           SalesHeader."Payment Discount %" / 100;
       SalesLine2."Pmt. Disc. Given Amount" :=
         CalcRoundedAmt(TempSalesLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   // End of the added lines.
   
                       END;
   ...
   

2. สร้างฟังก์ชันในโค้ดยูนิตส่วนลดขายคำนวณ (60) เป็นดังนี้:

   PROCEDURE CalcRoundedAmt@1110000(TotAmt@1110000 : Decimal;VAR TotAmtRnded@1110001 : Decimal;AmountRoundingPrecision@1110002 : Decimal) RndAmt : Decimal;BEGIN
   RndAmt := ROUND(TotAmt,AmountRoundingPrecision) - TotAmtRnded;
   TotAmtRnded := TotAmtRnded + RndAmt;
   END;
   

3. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันCalculateInvoiceDiscountในการซื้อ-โค้ดยูนิต Calc.Discount (70) ดัง:
   รหัสที่อยู่ 1

   ...GLAcc@1110002 : Record 15;
         BEGIN
   ...
   

   รหัสแทนที่ 1

   ...GLAcc@1110002 : Record 15;
   
   // Add the following lines.
   TempPurchLineRemainder@1110000 : Record 39;
   TotRoundedInvDiscAmt@1110001 : Decimal;
   TotRoundedPmtDiscAmt@1110004 : Decimal;
   // End of the added lines.
   
         BEGIN
   ...
   

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

   ...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
   
   // Delete the following lines.
     PurchLine2."Inv. Discount Amount" :=
       ROUND(PurchLine2."Line Amount" * VendInvDisc."Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
       PurchLine2."Inv. Discount Amount" :=
         ROUND(
           (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) *
           VendInvDisc."Discount %" / 100,0.01);
   // End of the deleted lines.
   
                 END;
   ...
   

   รหัสแทนที่2

   ...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
   
   // Add the following lines.
     BEGIN
       TempPurchLineRemainder."Inv. Discount Amount" +=
         PurchLine2."Line Amount" * VendInvDisc."Discount %" / 100;
       PurchLine2."Inv. Discount Amount" :=
         CalcRoundedAmt(TempPurchLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
     END;
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
     BEGIN
       TempPurchLineRemainder."Inv. Discount Amount" +=
           (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) *
           VendInvDisc."Discount %" / 100;
       PurchLine2."Inv. Discount Amount" :=
         CalcRoundedAmt(TempPurchLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
     END;
   // End of the added lines.
   
                 END;
   ...
   

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

   ...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
   
   // Delete the following lines.
     PurchLine2."Pmt. Disc. Rcd. Amount" :=
       ROUND(
         (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount") *
         PurchHeader."Payment Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
      PurchLine2."Pmt. Disc. Rcd. Amount" :=
        ROUND(
          (PurchLine2."Line Amount" - PurchLine2."Inv. Discount Amount") *
          PurchHeader."Payment Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
      PurchLine2."Pmt. Disc. Rcd. Amount" :=
          ROUND(
          (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount") *
          PurchHeader."Payment Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
      PurchLine2."Pmt. Disc. Rcd. Amount" :=
        ROUND(
          (PurchLine2."Line Amount" - PurchLine2."Inv. Discount Amount") *
          PurchHeader."Payment Discount %" / 100,0.01);
   // End of the deleted lines.
   
                        END;
   ...
   

   รหัสแทนที่ 3

   ...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
   
   // Add the following lines.
     BEGIN
       TempPurchLineRemainder."Pmt. Disc. Rcd. Amount" +=
           (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) *
           PurchHeader."Payment Discount %" / 100;
       PurchLine2."Pmt. Disc. Rcd. Amount" :=
         CalcRoundedAmt(TempPurchLineRemainder."Pmt. Disc. Rcd. Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
     BEGIN
       TempPurchLineRemainder."Pmt. Disc. Rcd. Amount" +=
           (PurchLine2."Line Amount" - PurchLine2."Line Discount Amount" ) *
           PurchHeader."Payment Discount %" / 100;
       PurchLine2."Pmt. Disc. Rcd. Amount" :=
         CalcRoundedAmt(TempPurchLineRemainder."Pmt. Disc. Rcd. Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
     BEGIN
       TempPurchLineRemainder."Pmt. Disc. Rcd. Amount" +=
           (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) *
           PurchHeader."Payment Discount %" / 100;
       PurchLine2."Pmt. Disc. Rcd. Amount" :=
         CalcRoundedAmt(TempPurchLineRemainder."Pmt. Disc. Rcd. Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
     BEGIN
       TempPurchLineRemainder."Pmt. Disc. Rcd. Amount" +=
           (PurchLine2."Line Amount" - PurchLine2."Line Discount Amount" ) *
           PurchHeader."Payment Discount %" / 100;
       PurchLine2."Pmt. Disc. Rcd. Amount" :=
         CalcRoundedAmt(TempPurchLineRemainder."Pmt. Disc. Rcd. Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   // End of the added lines.
   
                        END;
   ...
   

4. สร้างฟังก์ชันในการซื้อ-โค้ดยูนิต Calc.Discount (70) ดัง:

   PROCEDURE CalcRoundedAmt@1110000(TotAmt@1110000 : Decimal;VAR TotAmtRnded@1110001 : Decimal;AmountRoundingPrecision@1110002 : Decimal) RndAmt : Decimal;BEGIN
   RndAmt := ROUND(TotAmt,AmountRoundingPrecision) - TotAmtRnded;
   TotAmtRnded := TotAmtRnded + RndAmt;
   END;
   

5. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันCalculateInvoiceDiscountในโค้ดยูนิตส่วนลดบริการคำนวณ (5950) เป็นดังนี้:
   รหัสที่อยู่ 1

   ...GLAcc@1110002 : Record 15;
         BEGIN
   ...
   

   รหัสแทนที่ 1

   ...GLAcc@1110002 : Record 15;
   
   // Add the following lines.
   TempServLineRemainder@1110000 : Record 5902;
   TotRoundedInvDiscAmt@1110001 : Decimal;
   TotRoundedPmtDiscAmt@1110003 : Decimal;
   // End of the added lines.
   
         BEGIN
   ...
   

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

   ...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
   
   // Delete the following lines.
   ServiceLine2."Inv. Discount Amount" :=
     ROUND(ServiceLine2."Line Amount" * CustInvDisc."Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
     ServiceLine2."Inv. Discount Amount" :=
       ROUND(
         (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) *
         CustInvDisc."Discount %" / 100,0.01);
       END;
   // End of the deleted lines.
   
                     IF GLSetup."Payment Discount Type" =
   ...
   

   รหัสแทนที่ 2

   ...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
   
   // Add the following lines.
   BEGIN
   TempServLineRemainder."Inv. Discount Amount" +=
   ServiceLine2."Line Amount" * CustInvDisc."Discount %" / 100;
   ServiceLine2."Inv. Discount Amount" :=
   CalcRoundedAmt(TempServLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
   END;
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
   BEGIN
   TempServLineRemainder."Inv. Discount Amount" +=
   (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) *
   CustInvDisc."Discount %" / 100;
   ServiceLine2."Inv. Discount Amount" :=
   CalcRoundedAmt(TempServLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
   END;
   END;
   // End of the added lines.
   
   IF GLSetup."Payment Discount Type" =
   ...
   

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

   ...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
   
   // Delete the following lines.
     ServiceLine2."Pmt. Disc. Given Amount" :=
       ROUND(
         (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount")
         * ServHeader."Payment Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
     ServiceLine2."Pmt. Disc. Given Amount" :=
       ROUND(
         (ServiceLine2."Line Amount" - ServiceLine2."Inv. Discount Amount") *
         ServHeader."Payment Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
     ServiceLine2."Pmt. Disc. Given Amount" :=
       ROUND(
         (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount") *
         ServHeader."Payment Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
     ServiceLine2."Pmt. Disc. Given Amount" :=
       ROUND(
         (ServiceLine2."Line Amount" - ServiceLine2."Inv. Discount Amount") *
         ServHeader."Payment Discount %" / 100,0.01);
   // End of the deleted lines.
   
                       END;
   

   รหัสแทนที่ 3

   ...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
   
   // Add the following lines.
     BEGIN
       TempServLineRemainder."Pmt. Disc. Given Amount" +=
           (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) *
           ServHeader."Payment Discount %" / 100;
       ServiceLine2."Pmt. Disc. Given Amount" :=
         CalcRoundedAmt(TempServLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
     BEGIN
       TempServLineRemainder."Pmt. Disc. Given Amount" +=
           (ServiceLine2."Line Amount" - ServiceLine2."Line Discount Amount" ) *
           ServHeader."Payment Discount %" / 100;
       ServiceLine2."Pmt. Disc. Given Amount" :=
         CalcRoundedAmt(TempServLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
     BEGIN
       TempServLineRemainder."Pmt. Disc. Given Amount" +=
           (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) *
           ServHeader."Payment Discount %" / 100;
       ServiceLine2."Pmt. Disc. Given Amount" :=
         CalcRoundedAmt(TempServLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
     BEGIN
       TempServLineRemainder."Pmt. Disc. Given Amount" +=
           (ServiceLine2."Line Amount" - ServiceLine2."Line Discount Amount" ) *
           ServHeader."Payment Discount %" / 100;
       ServiceLine2."Pmt. Disc. Given Amount" :=
         CalcRoundedAmt(TempServLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   // End of the added lines.
   
                       END;
   ...
   

6. สร้างฟังก์ชันในโค้ดยูนิตส่วนลดบริการคำนวณ (5950) เป็นดังนี้:

   PROCEDURE CalcRoundedAmt@1110000(TotAmt@1110000 : Decimal;VAR TotAmtRnded@1110001 : Decimal;AmountRoundingPrecision@1110002 : Decimal) RndAmt : Decimal;BEGIN
     RndAmt := ROUND(TotAmt,AmountRoundingPrecision) - TotAmtRnded;
     TotAmtRnded := TotAmtRnded + RndAmt;
   END;
   

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

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

• Microsoft Dynamics NAV 2009 R2 รุ่นโปรตุเกส

• Microsoft Dynamics NAV 2009 Service Pack 1 รุ่นโปรตุเกส

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

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