สร้างรายการ G/L ที่ไม่ถูกต้องเมื่อคุณชำระตั๋วใน Microsoft Dynamics NAV 2009 รุ่นภาษาสเปน

...PurchVATAccount@1100016 : Code[20];
        PurchVATUnrealAccount@1100017 : Code[20];
        LastConnectionNo@1100018 : Integer;
        Test1@1100019 : Boolean;
        Test2@1100020 : Boolean;
      BEGIN
        VendLedgEntry2.CALCFIELDS(
          Amount,
          "Amount (LCY)",
          "Remaining Amount",
...

...PurchVATAccount@1100016 : Code[20];
        PurchVATUnrealAccount@1100017 : Code[20];
        LastConnectionNo@1100018 : Integer;
        Test1@1100019 : Boolean;
        Test2@1100020 : Boolean;

// Add the following lines.
ReverseChrgVATAcc@1000000000 : Code[20];
ReverseChrgVATUnrealAcc@1000000001 : Code[20];
// End of the added lines.

      BEGIN
        VendLedgEntry2.CALCFIELDS(
          Amount,
          "Amount (LCY)",
          "Remaining Amount",
...

...VATEntry2."VAT Calculation Type"::"Reverse Charge VAT",
                    VATEntry2."VAT Calculation Type"::"Full VAT":
                      BEGIN
                        VATPostingSetup.TESTFIELD("Purchase VAT Account");
                        VATPostingSetup.TESTFIELD("Purch. VAT Unreal. Account");
                        PurchVATAccount := VATPostingSetup."Purchase VAT Account";
                        PurchVATUnrealAccount := VATPostingSetup."Purch. VAT Unreal. Account";
                      END;

                  END;
...

...VATEntry2."VAT Calculation Type"::"Reverse Charge VAT",
                    VATEntry2."VAT Calculation Type"::"Full VAT":
                      BEGIN
                        VATPostingSetup.TESTFIELD("Purchase VAT Account");
                        VATPostingSetup.TESTFIELD("Purch. VAT Unreal. Account");

// Add the following lines.
IF VATEntry2."VAT Calculation Type" = VATEntry2."VAT Calculation Type"::"Reverse Charge VAT" THEN BEGIN
VATPostingSetup.TESTFIELD("Reverse Chrg. VAT Acc.");
VATPostingSetup.TESTFIELD("Reverse Chrg. VAT Unreal. Acc.");
ReverseChrgVATAcc := VATPostingSetup."Reverse Chrg. VAT Acc.";
ReverseChrgVATUnrealAcc := VATPostingSetup."Reverse Chrg. VAT Unreal. Acc.";
END;
// End of the added lines.

                        PurchVATAccount := VATPostingSetup."Purchase VAT Account";
                        PurchVATUnrealAccount := VATPostingSetup."Purch. VAT Unreal. Account";
                      END;

                  END;
...

...NoRealVATBuffer.Amount := TotalVATAmount;
                    NoRealVATBuffer."Entry No." := VATEntry2."Entry No.";
                    NoRealVATBuffer.INSERT;
                  END;

                  VATEntry := VATEntry2;
                  VATEntry."Entry No." := VATEntryNo;
                  VATEntry."Posting Date" := GenJnlLine."Posting Date";
                  VATEntry."Document No." := GenJnlLine."Document No.";
                  VATEntry."External Document No." := GenJnlLine."External Document No.";
...

...NoRealVATBuffer.Amount := TotalVATAmount;
                    NoRealVATBuffer."Entry No." := VATEntry2."Entry No.";
                    NoRealVATBuffer.INSERT;
                  END;

// Add the following lines.
IF VATEntry2."VAT Calculation Type" = VATEntry2."VAT Calculation Type"::"Reverse Charge VAT" THEN BEGIN
IF NoRealVATBuffer.GET(ReverseChrgVATAcc,ReverseChrgVATUnrealAcc,VATEntry2."Entry No.") THEN
NoRealVATBuffer.Amount := NoRealVATBuffer.Amount + TotalVATAmount
ELSE BEGIN
NoRealVATBuffer.INIT;
NoRealVATBuffer.Account := ReverseChrgVATAcc;
NoRealVATBuffer."Balance Account" := ReverseChrgVATUnrealAcc;
NoRealVATBuffer.Amount := TotalVATAmount;
NoRealVATBuffer."Entry No." := VATEntry2."Entry No.";
NoRealVATBuffer.INSERT;
END;
END;

// End of the added lines.

                  VATEntry := VATEntry2;
                  VATEntry."Entry No." := VATEntryNo;
                  VATEntry."Posting Date" := GenJnlLine."Posting Date";
                  VATEntry."Document No." := GenJnlLine."Document No.";
                  VATEntry."External Document No." := GenJnlLine."External Document No.";
...