รายการ G/L ที่ไม่ถูกต้อง - การเชื่อมโยงรายการ VAT ที่มีอยู่ใน Microsoft Dynamics NAV 2009

อาการ

หลังจากที่คุณดำเนินการแก้ไขในKB3001759และKB3036811ใน Microsoft Dynamics NAV 2009 รายการบัญชี G/L สามารถเป็นยังไม่ได้ใช้ อย่างไรก็ตาม มีรายการ G/L ที่ไม่ถูกต้อง - การเชื่อมโยงรายการ VAT ที่ลงรายการบัญชีในแอพลิเคชัน ทำตามขั้นตอนต่าง ๆ ในส่วนของการเปลี่ยนแปลงรหัสเพื่อแก้ไขปัญหานี้ ปัญหานี้เกิดขึ้นในผลิตภัณฑ์ต่อไปนี้:

Microsoft Dynamics NAV 2009 R2
Microsoft Dynamics NAV 2009 SP1

การแก้ปัญหา

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

โปรแกรมแก้ไขด่วนจะพร้อมใช้งานได้ในขณะนี้จาก 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 ของวัตถุ

วัตถุ

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

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

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

เมื่อต้องการแก้ไขปัญหานี้ ให้ทำตามขั้นตอนเหล่านี้:

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

...    NegativeLCYAppAmt@1021 : Decimal;
      PositiveACYAppAmt@1020 : Decimal;
      NegativeACYAppAmt@1019 : Decimal;

// Delete the following lines.
VatBaseSum@1008 : ARRAY [2] OF Decimal;
EntryNoBegin@1025 : ARRAY [2] OF Integer;
// End of the deleted lines.

      i@1027 : Integer;
      TempVatEntryNo@1028 : Integer;
    BEGIN
...

รหัสแทนที่ 1

...  NegativeLCYAppAmt@1021 : Decimal;
      PositiveACYAppAmt@1020 : Decimal;
      NegativeACYAppAmt@1019 : Decimal;

// Add the following lines.
VatBaseSum@1008 : ARRAY [3] OF Decimal;
EntryNoBegin@1025 : ARRAY [3] OF Integer;
// End of the added lines.

      i@1027 : Integer;
      TempVatEntryNo@1028 : Integer;
    BEGIN
...

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

... VATEntry2."Entry No." := NextVATEntryNo;
              NextVATEntryNo := NextVATEntryNo + 1;
              VATEntry2.INSERT;
              TempVatEntry.DELETE;
            END;
            IF (VATPostingSetup."Adjust for Payment Discount") AND
...

รหัสแทนที่ 2

...VATEntry2."Entry No." := NextVATEntryNo;
              NextVATEntryNo := NextVATEntryNo + 1;
              VATEntry2.INSERT;

// Add the following lines.
IF VATEntry2."Unrealized VAT Entry No." = 0 THEN BEGIN
GLEntryTmp."Entry No." := NextEntryNo;
GLEntryVatEntrylink.InsertLink(GLEntryTmp,VATEntry2);
END;
// End of the added lines.

              TempVatEntry.DELETE;
            END;
            IF (VATPostingSetup."Adjust for Payment Discount") AND
...

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

... IF TempVatEntry.FINDSET THEN BEGIN
            REPEAT
              CASE TRUE OF
                VatBaseSum[2] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
                  i := 3;
                VatBaseSum[1] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
...

รหัสแทนที่ 3

...IF TempVatEntry.FINDSET THEN BEGIN
            REPEAT
              CASE TRUE OF

// Add the followoing lines.
VATBaseSum[3] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
i := 4;
// End of the added lines.

                VatBaseSum[2] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
                  i := 3;
                VatBaseSum[1] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
...

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

...END;
                  TempVatEntry := VATEntrySaved;
                UNTIL TempVatEntry.NEXT = 0;

// Delete the following line.
FOR i := 1 TO 2 DO BEGIN
// End of the deleted line.

                  VatBaseSum[i] := 0;
                  EntryNoBegin[i] := 0;
                END;
...

รหัสแทนที่ 4

...END;
                  TempVatEntry := VATEntrySaved;
                UNTIL TempVatEntry.NEXT = 0;

// Add the following line.
FOR i := 1 TO 3 DO BEGIN
// End of the added line.

                  VatBaseSum[i] := 0;
                  EntryNoBegin[i] := 0;
                END;
...

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

...END;
                TempVatEntry.SETRANGE("Entry No.",0,999999);
              END ELSE BEGIN
                VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
                VatBaseSum[1] := TempVatEntry.Base;
                EntryNoBegin[2] := EntryNoBegin[1];
                EntryNoBegin[1] := TempVatEntry."Entry No.";
              END;
...

รหัสแทนที่ 5

...END;
                TempVatEntry.SETRANGE("Entry No.",0,999999);
              END ELSE BEGIN

// Add the following line.
VatBaseSum[3] += TempVATEntry.Base;
// End of the added line.

                VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
                VatBaseSum[1] := TempVatEntry.Base;

// Add the folloiwng lines.           
IF EntryNoBegin[3] > 0 THEN
EntryNoBegin[3] := TempVatEntry."Entry No.";
// End of the added lines.

EntryNoBegin[2] := EntryNoBegin[1];
                EntryNoBegin[1] := TempVatEntry."Entry No.";
              END;
...

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

...    NegativeLCYAppAmt@1021 : Decimal;
      PositiveACYAppAmt@1020 : Decimal;
      NegativeACYAppAmt@1019 : Decimal;

// Delete the following lines.
VatBaseSum@1029 : ARRAY [2] OF Decimal;
EntryNoBegin@1028 : ARRAY [2] OF Integer;
// End of the deleted lines.

      i@1027 : Integer;
      TempVatEntryNo@1025 : Integer;
    BEGIN
...

รหัสแทนที่ 1

...    NegativeLCYAppAmt@1021 : Decimal;
      PositiveACYAppAmt@1020 : Decimal;
      NegativeACYAppAmt@1019 : Decimal;
      V
// Add the following lines.
atBaseSum@1029 : ARRAY [3] OF Decimal;
EntryNoBegin@1028 : ARRAY [3] OF Integer;
// End of the added lines.

      i@1027 : Integer;
      TempVatEntryNo@1025 : Integer;
    BEGIN
...

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

...VatEntry2."Entry No." := NextVATEntryNo;
              NextVATEntryNo := NextVATEntryNo + 1;
              VatEntry2.INSERT;
              TempVatEntry.DELETE;
            END;
            IF (VATPostingSetup."Adjust for Payment Discount") AND
...

รหัสแทนที่ 2

...VatEntry2."Entry No." := NextVATEntryNo;
              NextVATEntryNo := NextVATEntryNo + 1;
              VatEntry2.INSERT;

// Add the following lines.
IF VatEntry2."Unrealized VAT Entry No." = 0 THEN BEGIN
GLEntryTmp."Entry No." := NextEntryNo;
GLEntryVatEntrylink.InsertLink(GLEntryTmp,VatEntry2);
END;
// End of the added lines.

              TempVatEntry.DELETE;
            END;
            IF (VATPostingSetup."Adjust for Payment Discount") AND
...

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

...  IF TempVatEntry.FINDSET THEN BEGIN
            REPEAT
              CASE TRUE OF
                VatBaseSum[2] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
                  i := 3;
                VatBaseSum[1] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
...

รหัสแทนที่ 3

...IF TempVatEntry.FINDSET THEN BEGIN
            REPEAT
              CASE TRUE OF

// Add the following lines.
VATBaseSum[3] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
i := 4;
// End of the added lines.

                VatBaseSum[2] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
                  i := 3;
                VatBaseSum[1] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
...

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

...END;
                TempVatEntry.SETRANGE("Entry No.",0,999999);
              END ELSE BEGIN
                VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
                VatBaseSum[1] := TempVatEntry.Base;
                EntryNoBegin[2] := EntryNoBegin[1];
                EntryNoBegin[1] := TempVatEntry."Entry No.";
              END;
...

รหัสแทนที่ 4

... END;
                TempVatEntry.SETRANGE("Entry No.",0,999999);
              END ELSE BEGIN

// Add the following line.
VatBaseSum[3] += TempVATEntry.Base;
// End of the added line.

                VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
                VatBaseSum[1] := TempVatEntry.Base;

// Add the following lines.
IF EntryNoBegin[3] > 0 THEN
EntryNoBegin[3] := TempVatEntry."Entry No.";
// End of the added lines.

                EntryNoBegin[2] := EntryNoBegin[1];
                EntryNoBegin[1] := TempVatEntry."Entry No.";
              END;
...

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

... DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance (VAT Excl.)":
          TempVatEntry.SETRANGE("Entry No.",2000000,2999999)
      END;

// Delete the following line.
TempVatEntry.FINDSET;
// End of the deleted line.

      REPEAT
        VATEntry := TempVatEntry;
        VATEntry."Entry No." := NextVATEntryNo;
        VATEntry.INSERT;
        NextVATEntryNo := NextVATEntryNo + 1;
        IF VATEntry."Unrealized VAT Entry No." = 0 THEN
          GLEntryVatEntrylink.InsertLink(GLEntry,VATEntry);
        TempVatEntry.DELETE;
        LinkedAmount := LinkedAmount + VATEntry.Base;
        Complete := LinkedAmount = -DtldCVLedgEntryBuf."Amount (LCY)";
      UNTIL Complete OR (TempVatEntry.NEXT = 0);
    END;

    LOCAL PROCEDURE CaptureOrRefundCreditCardPmnt@85() : Integer;
...

รหัสแทน

...DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance (VAT Excl.)":
          TempVatEntry.SETRANGE("Entry No.",2000000,2999999)
      END;

// Add the following line.
IF TempVatEntry.FINDSET THEN
// End of the added line.

        REPEAT
          VATEntry := TempVatEntry;
          VATEntry."Entry No." := NextVATEntryNo;
          VATEntry.INSERT;
          NextVATEntryNo := NextVATEntryNo + 1;
          IF VATEntry."Unrealized VAT Entry No." = 0 THEN
            GLEntryVatEntrylink.InsertLink(GLEntry,VATEntry);
          TempVatEntry.DELETE;
          LinkedAmount := LinkedAmount + VATEntry.Base;
          Complete := LinkedAmount = -DtldCVLedgEntryBuf."Amount (LCY)";
        UNTIL Complete OR (TempVatEntry.NEXT = 0);
    END;

    LOCAL PROCEDURE CaptureOrRefundCreditCardPmnt@85() : Integer;
...

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

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

Microsoft Dynamics NAV 2009 R2
Microsoft Dynamics NAV 2009 SP1

นอกจากนี้ คุณต้องมีKB3001759และKB3036811ที่ติดตั้งอยู่

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

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

สถานะ

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

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

รายการ G/L ที่ไม่ถูกต้อง - การเชื่อมโยงรายการ VAT ที่มีอยู่ใน Microsoft Dynamics NAV 2009

อาการ

การแก้ปัญหา

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

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

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

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

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

สถานะ

ต้องการความช่วยเหลือเพิ่มเติมหรือไม่

ต้องการตัวเลือกเพิ่มเติมหรือไม่

ข้อมูลนี้เป็นประโยชน์หรือไม่

ขอบคุณสำหรับคำติชมของคุณ!