การทำงานอย่างไม่ถูกต้องสำหรับรายการแก้ไขในเอกสารการขาย/การซื้อใน Microsoft Dynamics NAV 2009 R2 รุ่นภาษาเช็กการปัดเศษ VAT


บทความนี้นำไปใช้กับ Microsoft Dynamics NAV สำหรับภูมิภาคเช็ก (cz)

อาการ


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

การแก้ปัญหา


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

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

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



ข้อมูลการติดตั้ง

Microsoft ให้ตัวอย่างการเขียนโปรแกรมไว้สำหรับประกอบการอธิบายเท่านั้นโดยไม่มีการรับประกันไม่ว่าจะโดยชัดแจ้งหรือโดยนัย กรณีนี้รวมถึงแต่มิได้จำกัดเพียงแค่การการรับประกันโดยนัยเกี่ยวกับการจำหน่ายเป็นสินค้าหรือความเหมาะสำหรับวัตถุประสงค์เฉพาะ บทความนี้ตั้งสมมติฐานว่าคุณมีความคุ้นเคยกับภาษาการเขียนโปรแกรมที่กำลังแสดงและคุ้นเคยกับเครื่องมือที่ใช้ใน การสร้างและแก้จุดบกพร่องของขั้นตอนการดำเนินการ วิศวกรฝ่ายสนับสนุนของ Microsoft สามารถช่วยอธิบายฟังก์ชันการทำงานของกระบวนการเฉพาะได้ แต่จะไม่ปรับเปลี่ยนตัวอย่างเหล่านี้เพื่อให้ฟังก์ชันการทำงานเพิ่มเติมหรือสร้างกระบวนงานเพื่อตอบสนองความต้องการเฉพาะของคุณ

หมายเหตุ ก่อนที่คุณติดตั้งโปรแกรมแก้ไขด่วนนี้ โปรดตรวจสอบว่า ผู้ใช้ไคลเอนต์ของ Microsoft Navision ทั้งหมดเข้าสู่ระบบออกจากระบบ ข้อมูลนี้รวมถึงผู้ใช้ไคลเอ็นต์บริการแอพลิเคชัน Navision Microsoft (NAS) คุณควรไคลเอ็นต์เฉพาะผู้ใช้ที่เข้าสู่ระบบเมื่อคุณใช้โปรแกรมแก้ไขด่วนนี้

เมื่อต้องการใช้โปรแกรมแก้ไขด่วนนี้ คุณต้องมีสิทธิ์การใช้งานสำหรับนักพัฒนา

เราขอแนะนำว่า บัญชีผู้ใช้ ในหน้าต่างล็อกอินของ Windows หรือ ในหน้าต่างล็อกอินฐานข้อมูลสามารถกำหนดรหัสการเข้าถึงข้อมูล "ขั้นสูง" ถ้าบัญชีผู้ใช้ไม่สามารถกำหนดรหัสการบทบาท "SUPER" คุณต้องตรวจสอบว่า บัญชีผู้ใช้มีสิทธิ์ต่อไปนี้:
  • สิทธิ์การปรับเปลี่ยนสำหรับออปเจ็กต์ที่คุณจะสามารถเปลี่ยน
  • สิทธิ์ Execute สำหรับออบเจ็กต์5210 รหัสวัตถุของระบบและ สำหรับออบเจ็กต์ระบบ 9015 ID ของวัตถุ


หมายเหตุ คุณไม่จำเป็นต้องมีสิทธิ์ไปยังร้านค้าข้อมูลยกเว้นว่าคุณจำเป็นต้องซ่อมแซมข้อมูล

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

หมายเหตุ เสมอทดสอบรหัสแก้ไขในสภาพแวดล้อมการควบคุมก่อนที่คุณนำไปใช้แก้ไขปัญหากับคอมพิวเตอร์ของคุณผลิต
เมื่อต้องการแก้ไขปัญหานี้ ให้ทำตามขั้นตอนเหล่านี้:
  1. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันRoundAmountในโค้ดยูนิตลงรายการบัญชีการขาย(80) เป็นดังนี้:
    เพิ่มค่าคงข้อความดังนี้:
    Text054: TextConst ' ENU = %1 %2 ต้องมีการตั้งค่า VAT เป็นศูนย์'
    รหัสที่มีอยู่
    ...      IF ("VAT Calculation Type" = "VAT Calculation Type"::"Normal VAT") OR
    ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT")
    THEN BEGIN
    GetCurrency;
    GLSetup.GET;
    GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);

    IF SalesHeader."Prices Including VAT" THEN
    ...
    รหัสแทน
    ...   IF ("VAT Calculation Type" = "VAT Calculation Type"::"Normal VAT") OR
    ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT")
    THEN BEGIN
    GetCurrency;
    // Add the following lines.
    IF "System-Created Entry" THEN BEGIN
    RoundingPrecisionLCY := Currency."Amount Rounding Precision";
    RoundingDirectionLCY := Currency.VATRoundingDirection;
    END ELSE BEGIN
    // End of the added lines.

    GLSetup.GET;
    GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);
    // Add the following line.
    END;

    IF SalesHeader."Prices Including VAT" THEN
    ...
  2. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันInvoiceRoundingในโค้ดยูนิตลงรายการบัญชีการขาย(80) เป็นดังนี้:
    ลบตัวแปรท้องถิ่นดังต่อไปนี้:
    • ชื่อ: RoundingPrecision ชนิดข้อมูล: เลขฐานสิบ
    • ชื่อ: RoundingDirection ชนิดข้อมูล: ข้อความ [1]
    เพิ่มตัวแปรท้องถิ่นดังต่อไปนี้:
    • ชื่อ: VATPostingSetup ชนิดข้อมูล: ระเบียน (325)
    • ชื่อ: GLAcc ชนิดข้อมูล: ระเบียน (15)

    รหัสที่อยู่ 1
    ...// Delete the following line.
    GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);

    Currency.TESTFIELD("Invoice Rounding Precision");
    InvoiceRoundingAmount :=
    -ROUND(
    TotalSalesLine."Amount Including VAT" -
    ROUND(
    TotalSalesLine."Amount Including VAT",
    Currency."Invoice Rounding Precision",
    Currency.InvoiceRoundingDirection),
    // Delete the following line.
    RoundingPrecision);

    IF InvoiceRoundingAmount <>0 THEN BEGIN
    CustPostingGr.GET(SalesHeader."Customer Posting Group");
    CustPostingGr.TESTFIELD("Invoice Rounding Account");

    WITH SalesLine DO BEGIN
    ...
    รหัสแทนที่ 1
    ...  Currency.TESTFIELD("Invoice Rounding Precision");
    InvoiceRoundingAmount :=
    -ROUND(
    TotalSalesLine."Amount Including VAT" -
    ROUND(
    TotalSalesLine."Amount Including VAT",
    Currency."Invoice Rounding Precision",
    Currency.InvoiceRoundingDirection),

    // Add the following line.
    Currency."Amount Rounding Precision");

    IF InvoiceRoundingAmount <> 0 THEN BEGIN
    CustPostingGr.GET(SalesHeader."Customer Posting Group");
    CustPostingGr.TESTFIELD("Invoice Rounding Account");
    // Add the following lines.
    IF GLSetup."Rounding VAT (LCY)" <> GLSetup."Amount Rounding Precision" THEN BEGIN
    GLAcc.GET(CustPostingGr."Invoice Rounding Account");
    IF VATPostingSetup.GET(SalesHeader."VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group") THEN
    IF VATPostingSetup."VAT %" <> 0 THEN
    ERROR(Text054,CustPostingGr.FIELDCAPTION("Invoice Rounding Account"),CustPostingGr."Invoice Rounding Account");
    END;
    // End of the added lines.

    WITH SalesLine DO BEGIN
    ...
    รหัสที่มีอยู่ 2
    ...   ELSE
    VALIDATE(
    "Unit Price",
    ROUND(
    InvoiceRoundingAmount /
    (1 + (1 - SalesHeader."VAT Base Discount %" / 100) * "VAT %" / 100),
    // Delete the following line.
    RoundingPrecision));

    VALIDATE("Amount Including VAT",InvoiceRoundingAmount);
    ...
    รหัสแทนที่ 2
    ...  ELSE
    VALIDATE(
    "Unit Price",
    ROUND(
    InvoiceRoundingAmount /
    (1 + (1 - SalesHeader."VAT Base Discount %" / 100) * "VAT %" / 100),
    // Add the following line.
    Currency."Amount Rounding Precision"));

    VALIDATE("Amount Including VAT",InvoiceRoundingAmount);
    ...
  3. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันRoundAmountในการซื้อ-ไปรษณีย์โค้ดยูนิต (90) ดัง:
    เพิ่มค่าคงข้อความต่อไปนี้:

    Text061: TextConst ' ENU = %1 %2 ต้องมีการตั้งค่า VAT เป็นศูนย์'

    รหัสที่มีอยู่
    ...  IF ("VAT Calculation Type" = "VAT Calculation Type"::"Normal VAT") OR
    ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT")
    THEN BEGIN
    GetCurrency;
    GLSetup.GET;
    GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);

    IF PurchHeader."Prices Including VAT" THEN
    ...
    รหัสแทน
    ...  IF ("VAT Calculation Type" = "VAT Calculation Type"::"Normal VAT") OR
    ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT")
    THEN BEGIN
    GetCurrency;
    // Add the following lines.
    IF "System-Created Entry" THEN BEGIN
    RoundingPrecisionLCY := Currency."Amount Rounding Precision";
    RoundingDirectionLCY := Currency.VATRoundingDirection;
    END ELSE BEGIN
    // End of the added lines.
    GLSetup.GET;
    GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);
    // Add the following line.
    END;

    IF PurchHeader."Prices Including VAT" THEN
    ...
  4. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันInvoiceRoundingในการซื้อ-ไปรษณีย์โค้ดยูนิต (90) ดัง:
    ลบตัวแปรท้องถิ่นดังต่อไปนี้:
    • ชื่อ: RoundingPrecision ชนิดข้อมูล: เลขฐานสิบ
    • ชื่อ: RoundingDirection ชนิดข้อมูล: ข้อความ [1]
    เพิ่มตัวแปรท้องถิ่นดังต่อไปนี้:
    • ชื่อ: VATPostingSetup ชนิดข้อมูล: ระเบียน (325)
    • ชื่อ: GLAcc ชนิดข้อมูล: ระเบียน (15)

    รหัสที่มีอยู่
    ...   IF InvoiceRoundingAmount <> 0 THEN BEGIN
    VendPostingGr.GET(PurchHeader."Vendor Posting Group");
    VendPostingGr.TESTFIELD("Invoice Rounding Account");

    WITH PurchLine DO BEGIN
    ...
    รหัสแทน
    ...    IF InvoiceRoundingAmount <>  0 THEN BEGIN
    VendPostingGr.GET(PurchHeader."Vendor Posting Group");
    VendPostingGr.TESTFIELD("Invoice Rounding Account");
    // Add the following lines.
    IF GLSetup."Rounding VAT (LCY)" <> GLSetup."Amount Rounding Precision" THEN BEGIN
    GLAcc.GET(VendPostingGr."Invoice Rounding Account");
    IF VATPostingSetup.GET(PurchHeader."VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group") THEN
    IF VATPostingSetup."VAT %" <>0 THEN
    ERROR(Text061,VendPostingGr.FIELDCAPTION("Invoice Rounding Account"),VendPostingGr."Invoice Rounding Account");
    END;
    // End of the added lines.
    WITH PurchLine DO BEGIN
    ...
  5. เปลี่ยนแปลงรหัสนี้ในยอดเงินรวม VAT - OnValidateทริกเกอร์ในตารางบรรทัดการขาย (37) เป็นดังนี้:
    รหัสที่มีอยู่
    ...    CASE "VAT Calculation Type" OF
    "VAT Calculation Type"::"Normal VAT",
    "VAT Calculation Type"::"Reverse Charge VAT":
    BEGIN
    GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);

    Amount :=
    ...
    รหัสแทน
    ...  CASE "VAT Calculation Type" OF
    "VAT Calculation Type"::"Normal VAT",
    "VAT Calculation Type"::"Reverse Charge VAT":
    BEGIN
    // Add the following lines.
    IF "System-Created Entry" THEN
    RoundingPrecision := Currency."Amount Rounding Precision"
    ELSE
    // End of the added lines.
    GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);

    Amount :=
    ...
  6. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันCalcVATAmountLinesในตารางบรรทัดการขาย (37) เป็นดังนี้:
    รหัสที่อยู่ 1
    ...              END;
    END;
    // Delete the following line
    TotalVATAmount := TotalVATAmount + "Amount Including VAT" - Amount;
    VATCorrection := VATCorrection AND SalesLine."VAT Correction";
    END;
    UNTIL NEXT = 0;
    ...
    รหัสแทนที่ 1
    ...            END;
    END;
    // Add the following lines.
    IF GLSetup."Rounding VAT (LCY)" = GLSetup."Amount Rounding Precision" THEN
    TotalVATAmount := TotalVATAmount + "Amount Including VAT" - Amount + "VAT Difference";
    // End of the added lines.
    VATCorrection := VATCorrection AND SalesLine."VAT Correction";
    END;
    UNTIL NEXT = 0;
    ...
    รหัสที่มีอยู่ 2
    ...    END;
    END;
    // Delete the following line.
    IF RoundingLineInserted THEN
    TotalVATAmount := TotalVATAmount - "VAT Amount";
    "Calculated VAT Amount" := "VAT Amount" - "VAT Difference";
    ...
    รหัสแทนที่ 2
    ...     END;
    END;
    // Add the following line.
    IF RoundingLineInserted AND (GLSetup."Rounding VAT (LCY)" = GLSetup."Amount Rounding Precision") THEN
    TotalVATAmount := TotalVATAmount - "VAT Amount";
    "Calculated VAT Amount" := "VAT Amount" - "VAT Difference";
    ...
  7. เปลี่ยนแปลงรหัสนี้ในยอดเงินรวม VAT - OnValidateทริกเกอร์ในตารางบรรทัดการซื้อ (39) เป็นดังนี้:
    รหัสที่มีอยู่
    ...    CASE "VAT Calculation Type" OF
    "VAT Calculation Type"::"Normal VAT",
    "VAT Calculation Type"::"Reverse Charge VAT":
    BEGIN
    GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);

    Amount :=
    ...
    รหัสแทน
    ...  CASE "VAT Calculation Type" OF
    "VAT Calculation Type"::"Normal VAT",
    "VAT Calculation Type"::"Reverse Charge VAT":
    BEGIN
    // Add the following lines.
    IF "System-Created Entry" THEN
    RoundingPrecision := Currency."Amount Rounding Precision"
    ELSE
    // End of the added lines.
    GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);

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

    TotalVATAmount := TotalVATAmount + "Amount Including VAT" - Amount + "VAT Difference";
    VATCorrection := VATCorrection AND PurchLine."VAT Correction";
    ...
    รหัสแทนที่ 1
    ...       END;
    END;
    // Add the following line.
    IF GLSetup."Rounding VAT (LCY)" = GLSetup."Amount Rounding Precision" THEN
    TotalVATAmount := TotalVATAmount + "Amount Including VAT" - Amount + "VAT Difference";
    VATCorrection := VATCorrection AND PurchLine."VAT Correction";
    ...
    รหัสที่มีอยู่ 2
    ...   END;
    END;
    // Delete the following line.
    IF RoundingLineInserted THEN
    TotalVATAmount := TotalVATAmount - "VAT Amount";
    "Calculated VAT Amount" := "VAT Amount" - "VAT Difference";
    ...
    รหัสแทนที่ 2
    ...     END;
    END;
    // Add the following line
    IF RoundingLineInserted AND (GLSetup."Rounding VAT (LCY)" = GLSetup."Amount Rounding Precision") THEN
    TotalVATAmount := TotalVATAmount - "VAT Amount";
    "Calculated VAT Amount" := "VAT Amount" - "VAT Difference";
    ...

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

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

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

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

สถานะ


Microsoft ยืนยันว่านี่เป็นปัญหาในผลิตภัณฑ์ของ Microsoft ซึ่งแสดงไว้ในส่วน "นำไปใช้กับ"

ข้อมูลอ้างอิง


VSTF DynamicsNAV SE: 254108
หมายเหตุ นี่คือบทความ "เผยแพร่เร็ว" ที่สร้างขึ้นโดยตรงจากภายใน Microsoft สนับสนุนองค์กร ข้อมูลในที่นี้ให้ไว้ตามสภาพ เพื่อตอบสนองกับปัญหาที่เกิดขึ้นใหม่ เป็นผลมาจากความเร็วในการทำให้พร้อมใช้งาน วัสดุอาจรวมถึงข้อผิดพลาดการพิมพ์ผิด และอาจแก้ไขได้ตลอดเวลาโดยไม่ต้องแจ้งให้ทราบ ดูข้อตกลงการใช้สำหรับข้อควรพิจารณาอื่น ๆ