Hi,
i want to add function which sum Total VAT Amount from VAT Entry filtered by Customer (Cust. Ledger Entry).
I struggle with filter Amount per Customer. Below is my code.
var
CustLedgerEntry: Record "Cust. Ledger Entry";
TotalVAT: Decimal;
VatEntry: Record "VAT Entry";
procedure TotalVAT()
begin
CustLedgerEntry.CalcFields("Remaining Amt. (LCY)", "Remaining Amount", CustLedgerEntry."Original Amt. (LCY)");
TotalVAT := 0;
VatEntry.Reset();
VatEntry.SetRange("Document No.", CustLedgerEntry."Document No.");
VatEntry.SetRange("Transaction No.", CustLedgerEntry."Transaction No.");
if VatEntry.FindSet() then begin
VatEntry.CalcFields("ITI VAT Base");
TotalVAT += -VatEntry."ITI VAT Amount" - VatEntry."Unrealized Amount";
until VatEntry.Next() = 0;
end;
Any ideas?
