Skip to content

Render per-row Currency Code in Aged Accounts Receivable/Payable Excel #8423

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

Open
mynjj wants to merge 4 commits into
base: main
Choose a base branch
from
+414 −258
Open

Render per-row Currency Code in Aged Accounts Receivable/Payable Excel #8423

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
365c0e3
Render per-row Currency Code in Aged Accounts Receivable/Payable Excel
Jun 2, 2026
6977766
Repopulate CurrencyCodeDisplayCode to satisfy analyzer
Jun 3, 2026
4dabd9c
Use codeunit ID 139550 to avoid conflict
Jun 3, 2026
71dd351
Remove unused using directive to satisfy AL0792
Jun 3, 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
18 changes: 10 additions & 8 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 @@ -84,8 +84,9 @@ report 4403 "EXR Aged Acc Payable Excel"
{
IncludeCaption = true;
}
column(CurrencyCode; CurrencyCodeDisplayCode)
column(CurrencyCode; "Currency Code")
{
IncludeCaption = true;
}
column(PostingDate; "Posting Date")
{
Expand Down Expand Up @@ -126,11 +127,7 @@ report 4403 "EXR Aged Acc Payable Excel"
Clear(AgingData);
AgingData.DeleteAll();
InsertAgingData(VendorAgingData);

if AgingData."Currency Code" = '' then
CurrencyCodeDisplayCode := GeneralLedgerSetup.GetCurrencyCode('')
else
CurrencyCodeDisplayCode := AgingData."Currency Code";
CurrencyCodeDisplayCode := AgingData."Currency Code";
end;
}

Expand Down Expand Up @@ -271,7 +268,6 @@ report 4403 "EXR Aged Acc Payable Excel"
DueByCurrencies = 'Due by Currencies', MaxLength = 31, Comment = 'Excel worksheet name.';
OpenByFCY = 'Open by (FCY)';
DataRetrieved = 'Data retrieved:';
CurrencyCodeDisplay = 'Currency Code';
AgedAsOf = 'Aged as of:';
AgedAccountsPayable = 'Aged Accounts Payable';
AgedAccountsPayablePrint = 'Aged Accounts Payable (Print)', MaxLength = 31, Comment = 'Excel worksheet name.';
Expand Down Expand Up @@ -322,6 +318,9 @@ report 4403 "EXR Aged Acc Payable Excel"
if PeriodCount = 0 then
PeriodCount := 5;

if not GeneralLedgerSetup.Get() then
Clear(GeneralLedgerSetup);

WorkingEndDate := EndingDate;
WorkingStartDate := CalcDate(PeriodLength, WorkingEndDate);
repeat
Expand Down Expand Up @@ -366,7 +365,10 @@ report 4403 "EXR Aged Acc Payable Excel"
AgingData."Document Type" := VendorLedgerEntry."Document Type";
AgingData."Dimension 1 Code" := VendorLedgerEntry."Global Dimension 1 Code";
AgingData."Dimension 2 Code" := VendorLedgerEntry."Global Dimension 2 Code";
AgingData."Currency Code" := VendorLedgerEntry."Currency Code";
if VendorLedgerEntry."Currency Code" = '' then
AgingData."Currency Code" := GeneralLedgerSetup.GetCurrencyCode('')
else
AgingData."Currency Code" := VendorLedgerEntry."Currency Code";
AgingData."Posting Date" := VendorLedgerEntry."Posting Date";
AgingData."Document Date" := VendorLedgerEntry."Document Date";
AgingData."Due Date" := VendorLedgerEntry."Due Date";
Expand Down
18 changes: 10 additions & 8 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 @@ -83,8 +83,9 @@ report 4402 "EXR Aged Accounts Rec Excel"
{
IncludeCaption = true;
}
column(CurrencyCode; CurrencyCodeDisplayCode)
column(CurrencyCode; "Currency Code")
{
IncludeCaption = true;
}
column(PostingDate; "Posting Date")
{
Expand Down Expand Up @@ -125,11 +126,7 @@ report 4402 "EXR Aged Accounts Rec Excel"
Clear(AgingData);
AgingData.DeleteAll();
InsertAgingData(CustomerAgingData);

if AgingData."Currency Code" = '' then
CurrencyCodeDisplayCode := GeneralLedgerSetup.GetCurrencyCode('')
else
CurrencyCodeDisplayCode := AgingData."Currency Code";
CurrencyCodeDisplayCode := AgingData."Currency Code";
end;
}

Expand Down Expand Up @@ -270,7 +267,6 @@ report 4402 "EXR Aged Accounts Rec Excel"
DueByCurrencies = 'Due by Currencies', MaxLength = 31, Comment = 'Excel worksheet name.';
OpenByFCY = 'Open by (FCY)';
DataRetrieved = 'Data retrieved:';
CurrencyCodeDisplay = 'Currency Code';
AgedAsOf = 'Aged as of:';
AgedAccountsReceivable = 'Aged Accounts Receivable';
AgedAccountsReceivablePrint = 'Aged Accounts Rec. (Print)', MaxLength = 31, Comment = 'Excel worksheet name.';
Expand Down Expand Up @@ -321,6 +317,9 @@ report 4402 "EXR Aged Accounts Rec Excel"
if PeriodCount = 0 then
PeriodCount := 5;

if not GeneralLedgerSetup.Get() then
Clear(GeneralLedgerSetup);

WorkingEndDate := EndingDate;
WorkingStartDate := CalcDate(PeriodLength, WorkingEndDate);
repeat
Expand Down Expand Up @@ -365,7 +364,10 @@ report 4402 "EXR Aged Accounts Rec Excel"
AgingData."Document Type" := CustLedgerEntry."Document Type";
AgingData."Dimension 1 Code" := CustLedgerEntry."Global Dimension 1 Code";
AgingData."Dimension 2 Code" := CustLedgerEntry."Global Dimension 2 Code";
AgingData."Currency Code" := CustLedgerEntry."Currency Code";
if CustLedgerEntry."Currency Code" = '' then
AgingData."Currency Code" := GeneralLedgerSetup.GetCurrencyCode('')
else
AgingData."Currency Code" := CustLedgerEntry."Currency Code";
AgingData."Posting Date" := CustLedgerEntry."Posting Date";
AgingData."Document Date" := CustLedgerEntry."Document Date";
AgingData."Due Date" := CustLedgerEntry."Due Date";
Expand Down
4 changes: 4 additions & 0 deletions src/Apps/W1/ExcelReports/Test/app.json
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -38,6 +38,10 @@
{
"from": 139543,
"to": 139547
},
{
"from": 139550,
"to": 139550
}
],
"resourceExposurePolicy": {
Expand Down
Loading
Loading