คำนวณและลงรายการบัญชีการชำระ VAT ลงรายการบัญชีเป็นฟิลด์ที่ไม่ถูกต้องใน Microsoft Dynamics NAV 2009 รุ่นโปรตุเกส

...VATEntry.SETFILTER("Document Type",'%1|%2',
                                           VATEntry."Document Type"::"Credit Memo",VATEntry."Document Type"::Payment);
                                         VATEntry.CALCSUMS(
                                           Base,Amount,
                                           "Additional-Currency Base","Additional-Currency Amount");

// Delete the following lines.
"VAT Posting Setup".TESTFIELD("Return VAT account (Purch.)");
GenJnlLine3.TRANSFERFIELDS(GenJnlLine);
GenJnlLine3."Account No." := "VAT Posting Setup"."Return VAT account (Purch.)";
// End of the deleted lines.

                                         GenJnlLine3.VALIDATE(Amount,-VATEntry.Amount);
                                         GenJnlLine3."VAT Amount" := -VATEntry.Amount;
                                         GenJnlLine3."VAT Base Amount" := -VATEntry.Base;
                                         GenJnlLine3."Source Currency Code" := GLSetup."Additional Reporting Currency";
                                         GenJnlLine3."Source Currency Amount" := -VATEntry."Additional-Currency Amount";
...

... VATEntry.SETFILTER("Document Type",'%1|%2',
                                           VATEntry."Document Type"::"Credit Memo",VATEntry."Document Type"::Payment);
                                         VATEntry.CALCSUMS(
                                           Base,Amount,
                                           "Additional-Currency Base","Additional-Currency Amount");

// Add the following lines.
"VAT Posting Setup".TESTFIELD("Purchase VAT Account");
GenJnlLine3.TRANSFERFIELDS(GenJnlLine);
GenJnlLine3."Account No." := "VAT Posting Setup"."Purchase VAT Account";
// End of the added lines.

                                         GenJnlLine3.VALIDATE(Amount,-VATEntry.Amount);
                                         GenJnlLine3."VAT Amount" := -VATEntry.Amount;
                                         GenJnlLine3."VAT Base Amount" := -VATEntry.Base;
                                         GenJnlLine3."Source Currency Code" := GLSetup."Additional Reporting Currency";
                                         GenJnlLine3."Source Currency Amount" := -VATEntry."Additional-Currency Amount";
...

...VATEntry.SETFILTER("UE Aquisition Not Accep.",'%1',FALSE);
                                         VATEntry.CALCSUMS(
                                          Base,Amount,
                                          "Additional-Currency Base","Additional-Currency Amount");

// Delete the following line.
"VAT Posting Setup".TESTFIELD("Return VAT account (Sales)");
// End of the deleted line.

                                         CLEAR(GenJnlLine2);
                                         GenJnlLine2."System-Created Entry" := TRUE;
                                         GenJnlLine2."Account Type" := GenJnlLine2."Account Type"::"G/L Account";
                                         GenJnlLine2.Description := GenJnlLine.Description;
                                         GenJnlLine2."Posting Date" := PostingDate;
...

... VATEntry.SETFILTER("UE Aquisition Not Accep.",'%1',FALSE);
                                         VATEntry.CALCSUMS(
                                          Base,Amount,
                                          "Additional-Currency Base","Additional-Currency Amount");

// Add the following line.
"VAT Posting Setup".TESTFIELD("Reverse Chrg. VAT Acc.");
// End of the added line.

                                         CLEAR(GenJnlLine2);
                                         GenJnlLine2."System-Created Entry" := TRUE;
                                         GenJnlLine2."Account Type" := GenJnlLine2."Account Type"::"G/L Account";
                                         GenJnlLine2.Description := GenJnlLine.Description;
                                         GenJnlLine2."Posting Date" := PostingDate;
...

...GenJnlLine2."Posting Date" := PostingDate;
                                         GenJnlLine2."Document Type" := 0;
                                         GenJnlLine2."Document No." := DocNo;
                                         GenJnlLine2."Source Code" := SourceCodeSetup."VAT Settlement";
                                         GenJnlLine2."VAT Posting" := GenJnlLine2."VAT Posting"::"Manual VAT Entry";

// Delete the following line.
GenJnlLine2."Account No." := "VAT Posting Setup"."Return VAT account (Sales)";
// End of the deleted line.

                                         GenJnlLine2.VALIDATE(
                                           Amount,CalcVATEntryAmount(FALSE,TRUE));
                                           //VATEntry.Amount + VATEntry.Base * VATEntry."ND %" / 100);
...

...GenJnlLine2."Posting Date" := PostingDate;
                                         GenJnlLine2."Document Type" := 0;
                                         GenJnlLine2."Document No." := DocNo;
                                         GenJnlLine2."Source Code" := SourceCodeSetup."VAT Settlement";
                                         GenJnlLine2."VAT Posting" := GenJnlLine2."VAT Posting"::"Manual VAT Entry";

// Add the following line.
GenJnlLine2."Account No." := "VAT Posting Setup"."Reverse Chrg. VAT Acc.";
// End of the added line.

                                         GenJnlLine2.VALIDATE(
                                           Amount,CalcVATEntryAmount(FALSE,TRUE));
                                           //VATEntry.Amount + VATEntry.Base * VATEntry."ND %" / 100);
...