ยอด VAT จะถูกปัดเศษไม่ถูกต้องเมื่อคุณคำนวณสถิติใบแจ้งหนี้สำหรับใบแจ้งหนี้ที่ลงรายการบัญชีแล้วใน Microsoft Dynamics NAV 2009 R2 รุ่นฮังการี

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

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

   ...
   // Delete the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

   รหัสแทนที่ 1

   ...
   // Add the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

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

   ...
   // Delete the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

   รหัสแทนที่ 2

   ...
   // Add the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

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

   ...
   // Delete the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

   รหัสแทน

   ...
   // Add the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

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

   ..."VAT Base Amount" := NewVATBaseAmount;
   
   // Delete the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

   รหัสแทน

   ..."VAT Base Amount" := NewVATBaseAmount;
   
   // Add the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

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

   ...
   // Delete the following line.CalcVATToReport(SalesHeader,"VAT Base","VAT Amount" - "VAT Difference",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

   รหัสแทน

   ...
   // Add the following line.
   CalcVATToReport(SalesHeader,"VAT Base","Amount Including VAT" - "VAT Difference",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

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

   ...
   // Delete the following line.
   PROCEDURE CalcVATToReport@1360001(SalesHeader@1360000 : Record 36;VATBaseAmount@1360001 : Decimal;VATAmount@1360002 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal);
   // End of the deleted line.
   
   BEGIN
   ...
   

   รหัสแทนที่ 1

   ...
   // Add the following lines.
   PROCEDURE CalcVATToReport@1360001(SalesHeader@1360000 : Record 36;VATBaseAmount@1360001 : Decimal;AmtInclVAT@1360005 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal);
   VAR
   AmountLCY@1360006 : Decimal;
   AmtInclVATLCY@1360007 : Decimal;
   // End of the added lines.
   
   BEGIN
   ...
   

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

   ...ROUND(VATBaseAmount / SalesHeader."VAT Currency Factor");
   
   // Delete the following lines.
   VATAmountToReport :=
   ROUND(VATAmount / SalesHeader."VAT Currency Factor");
   END ELSE BEGIN
   VATBaseAmountToReport := VATBaseAmount;
   VATAmountToReport := VATAmount;
   // End of the deleted lines.
   
   END;
   ...
   

   รหัสแทนที่ 2

   ...ROUND(VATBaseAmount / SalesHeader."VAT Currency Factor");
   
   // Add the following lines.
   AmountLCY :=
   ROUND(VATBaseAmount / SalesHeader."VAT Currency Factor");
   AmtInclVATLCY :=
   ROUND(AmtInclVAT / SalesHeader."VAT Currency Factor");
   VATAmountToReport :=
   AmtInclVATLCY - AmountLCY;
   END ELSE BEGIN
   VATBaseAmountToReport := VATBaseAmount;
   VATAmountToReport := AmtInclVAT - VATBaseAmount;
   // End of the added lines.
   
   END;
   ...
   

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

   ...
   // Delete the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

   รหัสแทนที่ 1

   ...
   // Add the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

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

   ...
   // Delete the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

   รหัสแทนที่ 2

   ...
   // Add the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

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

   ...
   // Delete the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

   รหัสแทน

   ...
   // Add the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

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

   ...END;
   
   // Delete the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

   รหัสแทน

   ...END;
   
   // Add the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

9. เปลี่ยนรหัสในCalcVATAmountLinesในตารางบรรทัดการซื้อ (39) เป็นดังนี้:
   รหัสที่มีอยู่

   ...
   // Delete the following line.
   CalcVATToReport(PurchHeader,"VAT Base","VAT Amount" - "VAT Difference",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

   รหัสแทน

   ...
   // Add the following line.
   CalcVATToReport(PurchHeader,"VAT Base","Amount Including VAT" - "VAT Difference",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

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

    ...
    // Delete the following lines.
    PROCEDURE CalcVATToReport@1360000(PurchHeader@1360000 : Record 38;VATBaseAmount@1360001 : Decimal;VATAmount@1360002 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal;NonDeductableVATPct@1360005 : Decimal);
    VAR
    NonDeductableVATAmount@1360006 : Decimal;
    BEGIN
    NonDeductableVATAmount := VATAmount * NonDeductableVATPct / 100;
    // End of the deleted lines.
    
    IF PurchHeader."Currency Code" <> '' THEN BEGIN
    ...
    

    รหัสแทนที่ 1

    ...
    // Add the following lines.
    PROCEDURE CalcVATToReport@1360000(PurchHeader@1360000 : Record 38;VATBaseAmount@1360001 : Decimal;AmtInclVAT@1360007 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal;NonDeductableVATPct@1360005 : Decimal);
    VAR
    NonDeductableVATAmount@1360006 : Decimal;
    AmountLCY@1360008 : Decimal;
    AmtInclVATLCY@1360009 : Decimal;
    BEGIN
    NonDeductableVATAmount := (AmtInclVAT - VATBaseAmount) * NonDeductableVATPct / 100;
    // End of the added lines.
    
    IF PurchHeader."Currency Code" <> '' THEN BEGIN
    ...
    

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

    ...ROUND((VATBaseAmount + NonDeductableVATAmount) / PurchHeader."VAT Currency Factor");
    
    // Delete the following lines.
    VATAmountToReport :=
    ROUND((VATAmount - NonDeductableVATAmount) / PurchHeader."VAT Currency Factor");
    END ELSE BEGIN
    VATBaseAmountToReport := VATBaseAmount + ROUND(NonDeductableVATAmount);
    VATAmountToReport := VATAmount - ROUND(NonDeductableVATAmount);
    // End of the deleted lines.
    
    END
    ...
    

    รหัสแทนที่ 2

    ...ROUND((VATBaseAmount + NonDeductableVATAmount) / PurchHeader."VAT Currency Factor");
    
    // Add the following lines.
    AmountLCY :=
    ROUND(VATBaseAmount / PurchHeader."VAT Currency Factor");
    AmtInclVATLCY :=
    ROUND(AmtInclVAT / PurchHeader."VAT Currency Factor");
    VATAmountToReport :=
    AmtInclVATLCY - AmountLCY - ROUND(NonDeductableVATAmount / PurchHeader."VAT Currency Factor");
    END ELSE BEGIN
    VATBaseAmountToReport := VATBaseAmount + ROUND(NonDeductableVATAmount);
    VATAmountToReport := AmtInclVAT - VATBaseAmount - ROUND(NonDeductableVATAmount);
    // End of the added lines.
    
    END
    ...
    

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

    ...
    // Delete the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

    รหัสแทนที่ 1

    ...
    // Add the following line.CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

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

    ...
    // Delete the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

    รหัสแทนที่ 2

    ...
    // Add the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

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

    ...
    // Delete the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

    รหัสแทน

    ...
    // Add the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

13. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันCalcVATAmountLinesในตารางบรรทัดการบริการ (5902) เป็นดังนี้:
    รหัสที่มีอยู่

    ...
    // Delete the following line.
    CalcVATToReport(ServHeader,"VAT Base","VAT Amount" - "VAT Difference",
    // End of the deleted line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

    รหัสแทน

    ...
    // Add the following line.CalcVATToReport(ServHeader,"VAT Base","Amount Including VAT" - "VAT Difference",
    // End of the added line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

14. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันUpdateVATOnLinesในตารางบรรทัดการบริการ (5902) เป็นดังนี้:
    รหัสที่มีอยู่

    ..."VAT Base Amount" := NewVATBaseAmount;
    
    // Delete the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

    รหัสแทน

    ..."VAT Base Amount" := NewVATBaseAmount;
    
    // Add the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

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

    ...
    // Delete the following line.
    PROCEDURE CalcVATToReport@1360000(ServHeader@1360004 : Record 5900;VATBaseAmount@1360003 : Decimal;VATAmount@1360002 : Decimal;VAR VATBaseAmountToReport@1360001 : Decimal;VAR VATAmountToReport@1360000 : Decimal);
    // End of the deleted line.
    
    BEGIN
    ...
    

    รหัสแทนที่ 1

    ...
    // Add the following lines.
    PROCEDURE CalcVATToReport@1360000(ServHeader@1360004 : Record 5900;VATBaseAmount@1360003 : Decimal;AmtInclVAT@1360007 : Decimal;VAR VATBaseAmountToReport@1360001 : Decimal;VAR VATAmountToReport@1360000 : Decimal);
    VAR
    AmountLCY@1360005 : Decimal;
    AmtInclVATLCY@1360006 : Decimal;
    // End of the added lines.
    
    BEGIN
    ...
    

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

    ...ROUND(VATBaseAmount / ServHeader."VAT Currency Factor");
    
    // Delete the following lines.
    VATAmountToReport :=
    ROUND(VATAmount / ServHeader."VAT Currency Factor");
    END ELSE BEGIN
    VATBaseAmountToReport := VATBaseAmount;
    VATAmountToReport := VATAmount;
    // End of the deleted lines.
    
    END;
    ...
    

    รหัสแทนที่ 2

    ...ROUND(VATBaseAmount / ServHeader."VAT Currency Factor");
    
    // Add the following lines.
    AmountLCY :=
    ROUND(VATBaseAmount / ServHeader."VAT Currency Factor");
    AmtInclVATLCY :=
    ROUND(AmtInclVAT / ServHeader."VAT Currency Factor");
    VATAmountToReport :=
    AmtInclVATLCY - AmountLCY;
    END ELSE BEGIN
    VATBaseAmountToReport := VATBaseAmount;
    VATAmountToReport := AmtInclVAT - VATBaseAmount;
    // End of the added lines.
    
    END;
    ...
    

16. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันDivideAmountในโค้ดยูนิตลงรายการบัญชีการขาย (80) เป็นดังนี้:
    รหัสที่อยู่ 1

    ...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';SalesLineQty@1001 : Decimal);
    
    // Delete the following lines.
    VAR
    TotalVATBaseAmtLCY@1360001 : Decimal;
    TotalVATAmountLCY@1360000 : Decimal;
    // End of the deleted lines.
    
    BEGIN
    ...
    

    รหัสแทนที่ 1

    ...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';SalesLineQty@1001 : Decimal);
    BEGIN
    ...
    

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

    ...END;
    
    // Delete the following lines.
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report" :=
      TempVATAmountLineRemainder."Calc VAT Base Amount to Report" + "VAT Base Amount";
    TempVATAmountLineRemainder."Calc VAT Amount to Report" :=
      TempVATAmountLineRemainder."Calc VAT Amount to Report" + "Amount Including VAT" - "VAT Base Amount" - "VAT Difference";
    CalcVATToReport(SalesHeader,
      TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
      TempVATAmountLineRemainder."Calc VAT Amount to Report",
      TotalVATBaseAmtLCY,TotalVATAmountLCY);
    "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
    "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
    TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
    TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
    // End of the deleted lines.
    ...
    

    รหัสแทนที่ 2

    ...END;
    
    // Add the following line.
    CalcRoundedVATToReport(SalesLine,SalesHeader);
    // End of the added line.
    
    ...
    

17. สร้างฟังก์ชันในโค้ดยูนิตลงรายการบัญชีการขาย (80) เป็นดังนี้:

    LOCAL PROCEDURE CalcRoundedVATToReport@1360026(VAR SalesLine@1360002 : Record 37;SalesHeader@1360003 : Record 36);VAR
      TotalVATBaseAmtLCY@1360005 : Decimal;
      TotalVATAmountLCY@1360004 : Decimal;
    BEGIN
      WITH SalesLine DO BEGIN
        TempVATAmountLineRemainder."Calc VAT Base Amount to Report" +=
          "VAT Base Amount";
        TempVATAmountLineRemainder."Calc VAT Amount to Report" +=
          "Amount Including VAT";
        CalcVATToReport(SalesHeader,
          TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
          TempVATAmountLineRemainder."Calc VAT Amount to Report",
          TotalVATBaseAmtLCY,TotalVATAmountLCY);
        "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
        "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
        TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
        TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
      END;
    END;
    

18. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันDivideAmountในการซื้อ-ลงรายการบัญชีโค้ดยูนิต (90) ดัง:
    รหัสที่อยู่ 1

    ...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';PurchLineQty@1001 : Decimal);
    
    // Delete the following lines.
    VAR
    TotalVATBaseAmtLCY@1360001 : Decimal;
    TotalVATAmountLCY@1360000 : Decimal;
    // End of the deleted lines.
    
    BEGIN
    ...
    

    รหัสแทนที่ 1

    ...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';PurchLineQty@1001 : Decimal);
    BEGIN
    ...
    

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

    ...END;
    
    // Delete the following lines.
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report" :=
      TempVATAmountLineRemainder."Calc VAT Base Amount to Report" + "VAT Base Amount";
    TempVATAmountLineRemainder."Calc VAT Amount to Report" :=
      TempVATAmountLineRemainder."Calc VAT Amount to Report" + "Amount Including VAT" - "VAT Base Amount" - "VAT Difference";
    PurchLine.CalcVATToReport(PurchHeader,
      TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
      TempVATAmountLineRemainder."Calc VAT Amount to Report",
      TotalVATBaseAmtLCY,TotalVATAmountLCY,"VAT % (Non Deductible)");
    "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
    "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
    TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
    TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
    // End of the deleted lines.
    ...
    

    รหัสแทนที่ 2

    ...END;
    
    // Add the following line.
    CalcRoundedVATToReport(PurchLine,PurchHeader);
    // End of the added line.
    ...
    

19. สร้างฟังก์ชันในตัวในการซื้อ-ลงรายการบัญชีโค้ดยูนิต (90) ดัง:

    LOCAL PROCEDURE CalcRoundedVATToReport@1360026(VAR PurchLine@1360002 : Record 39;PurchHeader@1360003 : Record 38);VAR
      TotalVATBaseAmtLCY@1360005 : Decimal;
      TotalVATAmountLCY@1360004 : Decimal;
    BEGIN
      WITH PurchLine DO BEGIN
        TempVATAmountLineRemainder."Calc VAT Base Amount to Report" +=
          "VAT Base Amount";
        TempVATAmountLineRemainder."Calc VAT Amount to Report" +=
          "Amount Including VAT";
        CalcVATToReport(PurchHeader,
          TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
          TempVATAmountLineRemainder."Calc VAT Amount to Report",
          TotalVATBaseAmtLCY,TotalVATAmountLCY,"VAT % (Non Deductible)");
        "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
        "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
        TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
        TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
      END;
    END;
    

20. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันDivideAmountในโค้ดยูนิตการจัดการบริการยอด (5986) เป็นดังนี้:
    รหัสที่อยู่ 1

    ...ChargeableQty@1006 : Decimal;
    
    // Delete the following lines.
    TotalVATBaseAmtLCY@1360001 : Decimal;
    TotalVATAmountLCY@1360000 : Decimal;
    // End of the deleted lines.
    
    BEGIN
    ...
    

    รหัสแทนที่ 1

    ...ChargeableQty@1006 : Decimal;
    BEGIN
    ...
    

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

    ...END;
    
    // Delete the following lines.
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report" :=
      TempVATAmountLineRemainder."Calc VAT Base Amount to Report" + "VAT Base Amount";
    TempVATAmountLineRemainder."Calc VAT Amount to Report" :=
      TempVATAmountLineRemainder."Calc VAT Amount to Report" + "Amount Including VAT" - "VAT Base Amount" - "VAT Difference";
    CalcVATToReport(ServiceHeader,
      TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
      TempVATAmountLineRemainder."Calc VAT Amount to Report",
      TotalVATBaseAmtLCY,TotalVATAmountLCY);
    "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
    "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
    TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
    TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
    // End of the deleted lines.
    ...
    

    รหัสแทนที่ 2

    ...END;
    
    // Add the following line.
    CalcRoundedVATToReport(ServiceLine,TempVATAmountLineRemainder,ServHeader);
    // End of the added line.
    ...
    

21. สร้างฟังก์ชันในตัวในยูนิตจัดการบริการยอด (5986) ดัง:

    LOCAL PROCEDURE CalcRoundedVATToReport@1360001(VAR ServiceLine@1360002 : Record 5902;VAR TempVATAmountLineRemainder@1360004 : Record 290;ServHeader@1360003 : Record 5900);VAR
      TotalVATBaseAmtLCY@1360006 : Decimal;
      TotalVATAmountLCY@1360005 : Decimal;
    BEGIN
      WITH ServiceLine DO BEGIN
        TempVATAmountLineRemainder."Calc VAT Base Amount to Report" +=
          "VAT Base Amount";
        TempVATAmountLineRemainder."Calc VAT Amount to Report" +=
          "Amount Including VAT";
        CalcVATToReport(ServHeader,
          TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
          TempVATAmountLineRemainder."Calc VAT Amount to Report",
          TotalVATBaseAmtLCY,TotalVATAmountLCY);
        "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
        "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
        TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
        TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
      END;
    END;
    

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

คุณต้องมี Microsoft Dynamics NAV 2009 R2 ติดตั้งเมื่อต้องการใช้โปรแกรมแก้ไขด่วนนี้รุ่นฮังการี

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

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