Skip to content

[Master]-Aged account receivable EXCEL and Aged account payable EXCEL ignores "Period Count" specified by user. #8829

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Draft
neeleshsinghal wants to merge 2 commits into
base: main
Choose a base branch
from
+15 −3
Draft

[Master]-Aged account receivable EXCEL and Aged account payable EXCEL ignores "Period Count" specified by user. #8829

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
234cc78
636352 initial commit
neeleshsinghal Jun 26, 2026
5c4ef4a
Automation change
neeleshsinghal Jun 26, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 6 additions & 0 deletions src/Apps/W1/ExcelReports/App/src/Financials/EXRAgedAccPayableExcel.Report.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -342,11 +342,17 @@ report 4403 "EXR Aged Acc Payable Excel"
local procedure InsertAgingData(var Vendor: Record "Vendor")
var
VendorLedgerEntry: Record "Vendor Ledger Entry";
EarliestPeriodStart: Date;
begin
EarliestPeriodStart := PeriodStarts.Get(PeriodStarts.Count());
VendorLedgerEntry.SetCurrentKey("Vendor No.", Open, Positive, "Due Date", "Currency Code");
VendorLedgerEntry.SetRange("Vendor No.", Vendor."No.");
VendorLedgerEntry.SetRange("Posting Date", 0D, EndingDate);
VendorLedgerEntry.SetRange("Date Filter", 0D, EndingDate);

if (TempEXRAgingReportBuffer."Aged By" = TempEXRAgingReportBuffer."Aged By"::"Due Date") and (PeriodCount <> 0) then
VendorLedgerEntry.SetRange("Due Date", EarliestPeriodStart, EndingDate);

VendorLedgerEntry.SetAutoCalcFields("Remaining Amt. (LCY)", "Remaining Amount", "Original Amount", "Original Amt. (LCY)");
VendorLedgerEntry.SetFilter("Remaining Amt. (LCY)", '<>0');
if VendorLedgerEntry.FindSet() then
Expand Down
6 changes: 6 additions & 0 deletions src/Apps/W1/ExcelReports/App/src/Financials/EXRAgedAccountsRecExcel.Report.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -341,11 +341,17 @@ report 4402 "EXR Aged Accounts Rec Excel"
local procedure InsertAgingData(var Customer: Record Customer)
var
CustLedgerEntry: Record "Cust. Ledger Entry";
EarliestPeriodStart: Date;
begin
EarliestPeriodStart := PeriodStarts.Get(PeriodStarts.Count());
CustLedgerEntry.SetCurrentKey("Customer No.", Open, Positive, "Due Date", "Currency Code");
CustLedgerEntry.SetRange("Customer No.", Customer."No.");
CustLedgerEntry.SetRange("Posting Date", 0D, EndingDate);
CustLedgerEntry.SetRange("Date Filter", 0D, EndingDate);

if (TempEXRAgingReportBuffer."Aged By" = TempEXRAgingReportBuffer."Aged By"::"Due Date") and (PeriodCount <> 0) then
CustLedgerEntry.SetRange("Due Date", EarliestPeriodStart, EndingDate);

CustLedgerEntry.SetAutoCalcFields("Remaining Amt. (LCY)", "Remaining Amount", "Original Amount", "Original Amt. (LCY)");
CustLedgerEntry.SetFilter("Remaining Amt. (LCY)", '<>0');
if CustLedgerEntry.FindSet() then
Expand Down
6 changes: 3 additions & 3 deletions src/Apps/W1/ExcelReports/Test/src/AgedAccountsExcelReports.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -370,21 +370,21 @@ codeunit 139555 "Aged Accounts Excel Reports"
[RequestPageHandler]
procedure EXRAgedAccPayableExcelHandler(var EXRAgedAccPayableExcel: TestRequestPage "EXR Aged Acc Payable Excel")
begin
EXRAgedAccPayableExcel.AgedAsOfOption.SetValue(WorkDate());
EXRAgedAccPayableExcel.AgedAsOfOption.SetValue(WorkDate() + 30);
EXRAgedAccPayableExcel.OK().Invoke();
end;

[RequestPageHandler]
procedure EXRAgedAccountsRecExcelHandler(var EXRAgedAccountsRecExcel: TestRequestPage "EXR Aged Accounts Rec Excel")
begin
EXRAgedAccountsRecExcel.AgedAsOfOption.SetValue(WorkDate());
EXRAgedAccountsRecExcel.AgedAsOfOption.SetValue(WorkDate() + 30);
EXRAgedAccountsRecExcel.OK().Invoke();
end;

[RequestPageHandler]
procedure EXRAgedAccPayablePostingDateHandler(var EXRAgedAccPayableExcel: TestRequestPage "EXR Aged Acc Payable Excel")
begin
EXRAgedAccPayableExcel.AgedAsOfOption.SetValue(WorkDate());
EXRAgedAccPayableExcel.AgedAsOfOption.SetValue(WorkDate() + 30);
EXRAgedAccPayableExcel.AgingbyOption.SetValue('Posting Date');
EXRAgedAccPayableExcel.OK().Invoke();
end;
Expand Down
Loading