reportextension 50100 "Aged AR Ext2" extends "Aged Accounts Receivable"
{
dataset
{
add(Customer)
{
column(Aged91To120; CalculateAgedAmount(Customer, 91, 120))
{
}
column(Aged121Plus; CalculateAgedAmount(Customer, 121, 99999))
{
}
}
}
local procedure CalculateAgedAmount(
CustRec: Record Customer;
FromDays: Integer;
ToDays: Integer
): Decimal
var
CustLedgerEntry: Record "Cust. Ledger Entry";
DueDate: Date;
AgedAmount: Decimal;
begin
AgedAmount := 0;
CustLedgerEntry.SetCurrentKey("Customer No.", Open, "Due Date");
CustLedgerEntry.SetRange("Customer No.", CustRec."No.");
CustLedgerEntry.SetRange(Open, true);
if CustLedgerEntry.FindSet() then
repeat
DueDate := CustLedgerEntry."Due Date";
if DueDate <> 0D then
if (DueDate <= (WorkDate - FromDays)) and
(DueDate > (WorkDate - ToDays)) then
AgedAmount += CustLedgerEntry."Amount (LCY)";
until CustLedgerEntry.Next() = 0;
exit(AgedAmount);
end;
}
