...
VATBase := ROUND((VATEntry2."Remaining Unrealized Base"* VATPart),GLSetup."Amount Rounding Precision");
TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
IF VATAmount <> 0 THEN BEGIN
// IT0037.end
// Delete the following lines.
InitGLEntry(PurchVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
GLEntry."Bal. Account No." := PurchVATAccount;
SummarizeVAT(
GLSetup."Summarize G/L Entries",GLEntry,TempGLEntryVAT,InsertedTempGLEntryVAT);
// End of the deleted lines.
InitGLEntry(PurchVATAccount,VATAmount,0,FALSE,TRUE);
GLEntry."Additional-Currency Amount" := VATAmountAddCurr;
GLEntry."Gen. Posting Type" := VATEntry2.Type;
GLEntry."Gen. Bus. Posting Group" := VATEntry2."Gen. Bus. Posting Group";
GLEntry."Gen. Prod. Posting Group" := VATEntry2."Gen. Prod. Posting Group";
...
...
VATBase := ROUND((VATEntry2."Remaining Unrealized Base"* VATPart),GLSetup."Amount Rounding Precision");
TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
IF VATAmount <> 0 THEN BEGIN
// IT0037.end
// Add the following lines.
IF NOT UnrealizedVATPosted THEN BEGIN
InitGLEntry(PurchVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
GLEntry."Bal. Account No." := PurchVATAccount;
SummarizeVAT(
GLSetup."Summarize G/L Entries",GLEntry,TempGLEntryVAT,InsertedTempGLEntryVAT);
END;
// End of the added lines.
InitGLEntry(PurchVATAccount,VATAmount,0,FALSE,TRUE);
GLEntry."Additional-Currency Amount" := VATAmountAddCurr;
GLEntry."Gen. Posting Type" := VATEntry2.Type;
GLEntry."Gen. Bus. Posting Group" := VATEntry2."Gen. Bus. Posting Group";
GLEntry."Gen. Prod. Posting Group" := VATEntry2."Gen. Prod. Posting Group";
...