You need to extending the standard report 120 "Aged Accounts Receivable" or app which in app source.
reportextension 50100 "Aged AR Ext" extends "Aged Accounts Receivable"
{
dataset
{
add(Customer)
{
column(Aged91To120: Decimal)
{
Value = CalculateAgedAmount(Rec, 91, 120);
}
column(Aged121Plus: Decimal)
{
Value = CalculateAgedAmount(Rec, 121, 99999);
}
}
}
procedures
{
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 begin
if (DueDate <= (WorkDate - FromDays)) and (DueDate > (WorkDate - ToDays)) then
AgedAmount += CustLedgerEntry."Amount (LCY)";
end;
until CustLedgerEntry.Next() = 0;
exit(AgedAmount);
end;
}
}
Thanks
Ramesh
If this was helpful, please check the "Does this answer your question?" box and mark it as verified.