Skip to content

Set Additional Reporting Currency demo data for financial reporting #28760

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
tuan-nguyen-fenwick wants to merge 16 commits into
base: main
Choose a base branch
from
Open

Set Additional Reporting Currency demo data for financial reporting #28760

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
16 commits
Select commit Hold shift + click to select a range
02e425d
Set Additional Reporting Currency
Jun 11, 2025
346f424
Created residual FX accounts
Jun 11, 2025
edb7458
Set residual FX accounts to EUR & GBP currencies
Jun 11, 2025
d8dc05f
Merged PR 35656: Set Additional Currency Code during G/L Setup demo d…
Jun 11, 2025
523359f
Changed hardcoded currency codes to use the currency functions
Jun 26, 2025
908b84c
Added "Create Add. Reporting Currency" codeunit and moved data creati…
Jul 3, 2025
bb87255
Updated account numbers for residual FX gains/losses
Aug 22, 2025
645c982
Merge remote-tracking branch 'origin/main' into uptake/acy-demo-data
Jan 13, 2026
8b82005
Removed new residual FX accounts & used existing FX accounts instead
Jan 13, 2026
2b6c8b1
Merge remote-tracking branch 'origin/main' into uptake/acy-demo-data
Jan 22, 2026
11a923f
Implemented function to retrieve generic and localized currency accounts
Jan 28, 2026
ab2e881
Implemented localized currency gains/losses accounts for countries wi…
Jan 28, 2026
2976c8b
Removed unused using directives
Feb 3, 2026
50bb833
Merge remote-tracking branch 'origin/main' into uptake/acy-demo-data
Feb 3, 2026
74eb3df
Renamed GetResidualCurrencyAccountsES function
Feb 4, 2026
de2c60f
Removed begin .. end
Feb 5, 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
10 changes: 10 additions & 0 deletions ...offeeDemoDatasetAT/app/DemoData/Finance/2. Master Data/CreateCurrencyExRateAT.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -189,4 +189,14 @@ codeunit 11154 "Create Currency Ex. Rate AT"
CurrencyExchangeRate.Validate("Relational Exch. Rate Amount", RelationalExchRateAmount);
CurrencyExchangeRate.Validate("Relational Adjmt Exch Rate Amt", RelationalAdjmtExchRateAmt);
end;

[EventSubscriber(ObjectType::Codeunit, Codeunit::"Create Add. Reporting Currency", OnBeforeGetResidualCurrencyAccounts, '', false, false)]
local procedure GetResidualCurrencyAccountsAT(var FXGainsAccount: Code[20]; var FXLossesAccount: Code[20]; var IsHandled: Boolean)
var
CreateATGLAccount: Codeunit "Create AT GL Account";
begin
FXGainsAccount := CreateATGLAccount.FCYRealizedExchangeGains();
FXLossesAccount := CreateATGLAccount.FCYRealizedExchangeLosses();
IsHandled := true;
end;
}
10 changes: 10 additions & 0 deletions ...offeeDemoDatasetBE/app/DemoData/Finance/2. Master Data/CreateCurrencyExRateBE.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -199,4 +199,14 @@ codeunit 11367 "Create Currency Ex. Rate BE"
CurrencyExchangeRate.Validate("Relational Exch. Rate Amount", RelationalExchRateAmount);
CurrencyExchangeRate.Validate("Relational Adjmt Exch Rate Amt", RelationalAdjmtExchRateAmt);
end;

[EventSubscriber(ObjectType::Codeunit, Codeunit::"Create Add. Reporting Currency", OnBeforeGetResidualCurrencyAccounts, '', false, false)]
local procedure GetResidualCurrencyAccountsBE(var FXGainsAccount: Code[20]; var FXLossesAccount: Code[20]; var IsHandled: Boolean)
var
CreateBEGLAccount: Codeunit "Create GL Account BE";
begin
FXGainsAccount := CreateBEGLAccount.RealizedExchRateDiffIncome();
FXLossesAccount := CreateBEGLAccount.RealizedExchRateDiffExpense();
IsHandled := true;
end;
}
10 changes: 10 additions & 0 deletions ...CoffeeDemoDatasetCH/app/DemoData/Finance/2.Master Data/CreateCHCurrencyExRate.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -203,4 +203,14 @@ codeunit 11630 "Create CH Currency Ex. Rate"
CurrencyExchangeRate.Validate("Relational Exch. Rate Amount", RelationalExchRateAmount);
CurrencyExchangeRate.Validate("Relational Adjmt Exch Rate Amt", RelationalAdjmtExchRateAmt);
end;

[EventSubscriber(ObjectType::Codeunit, Codeunit::"Create Add. Reporting Currency", OnBeforeGetResidualCurrencyAccounts, '', false, false)]
local procedure GetResidualCurrencyAccountsCH(var FXGainsAccount: Code[20]; var FXLossesAccount: Code[20]; var IsHandled: Boolean)
var
CreateCHGLAccounts: Codeunit "Create CH GL Accounts";
begin
FXGainsAccount := CreateCHGLAccounts.UnrealizedExchRateAdjmts();
FXLossesAccount := CreateCHGLAccounts.UnrealizedExchRateAdjmts();
IsHandled := true;
end;
}
10 changes: 10 additions & 0 deletions ...offeeDemoDatasetCZ/app/DemoData/Finance/2. Master Data/CreateCurrencyExRateCZ.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -60,4 +60,14 @@ codeunit 31337 "Create Currency Ex. Rate CZ"
begin
exit(0.026618);
end;

[EventSubscriber(ObjectType::Codeunit, Codeunit::"Create Add. Reporting Currency", OnBeforeGetResidualCurrencyAccounts, '', false, false)]
local procedure GetResidualCurrencyAccountsCZ(var FXGainsAccount: Code[20]; var FXLossesAccount: Code[20]; var IsHandled: Boolean)
var
CreateGLAccountCZ: Codeunit "Create G/L Account CZ";
begin
FXGainsAccount := CreateGLAccountCZ.ExchangeGainsRealized();
FXLossesAccount := CreateGLAccountCZ.ExchangeLossesRealized();
IsHandled := true;
end;
}
10 changes: 10 additions & 0 deletions ...offeeDemoDatasetDE/app/DemoData/Finance/2. Master data/CreateDECurrencyExRate.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -195,4 +195,14 @@ codeunit 11376 "Create DE Currency Ex. Rate"
CurrencyExchangeRate.Validate("Relational Exch. Rate Amount", RelationalExchRateAmount);
CurrencyExchangeRate.Validate("Relational Adjmt Exch Rate Amt", RelationalAdjmtExchRateAmt);
end;

[EventSubscriber(ObjectType::Codeunit, Codeunit::"Create Add. Reporting Currency", OnBeforeGetResidualCurrencyAccounts, '', false, false)]
local procedure GetResidualCurrencyAccountsDe(var FXGainsAccount: Code[20]; var FXLossesAccount: Code[20]; var IsHandled: Boolean)
var
CreateDEGLAcc: Codeunit "Create DE GL Acc.";
begin
FXGainsAccount := CreateDEGLAcc.CurrencyGains();
FXLossesAccount := CreateDEGLAcc.CurrencyLosses();
IsHandled := true;
end;
}
10 changes: 10 additions & 0 deletions ...soCoffeeDemoDatasetES/app/DemoData/Finance/2.Master Data/CreateESCurrencyExch.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -189,4 +189,14 @@ codeunit 10834 "Create ES Currency Exch"
CurrencyExchangeRate.Validate("Relational Exch. Rate Amount", RelationalExchRateAmount);
CurrencyExchangeRate.Validate("Relational Adjmt Exch Rate Amt", RelationalAdjmtExchRateAmt);
end;

[EventSubscriber(ObjectType::Codeunit, Codeunit::"Create Add. Reporting Currency", OnBeforeGetResidualCurrencyAccounts, '', false, false)]
local procedure GetResidualCurrencyAccountsES(var FXGainsAccount: Code[20]; var FXLossesAccount: Code[20]; var IsHandled: Boolean)
var
CreateESGLAccount: Codeunit "Create ES GL Accounts";
begin
FXGainsAccount := CreateESGLAccount.ExchangeGainPosting();
FXLossesAccount := CreateESGLAccount.RealizedLossesOnExchange();
IsHandled := true;
end;
}
10 changes: 10 additions & 0 deletions ...CoffeeDemoDatasetFI/app/DemoData/Finance/2.Master Data/CreateCurrencyExRateFI.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -200,4 +200,14 @@ codeunit 13433 "Create Currency Ex. Rate FI"
CurrencyExchangeRate.Validate("Relational Exch. Rate Amount", RelationalExchRateAmount);
CurrencyExchangeRate.Validate("Relational Adjmt Exch Rate Amt", RelationalAdjmtExchRateAmt);
end;

[EventSubscriber(ObjectType::Codeunit, Codeunit::"Create Add. Reporting Currency", OnBeforeGetResidualCurrencyAccounts, '', false, false)]
local procedure GetResidualCurrencyAccountsFI(var FXGainsAccount: Code[20]; var FXLossesAccount: Code[20]; var IsHandled: Boolean)
var
CreateFIGLAccount: Codeunit "Create FI GL Accounts";
begin
FXGainsAccount := CreateFIGLAccount.Otherfinancialincome2();
FXLossesAccount := CreateFIGLAccount.Financialexpenses9();
IsHandled := true;
end;
}
10 changes: 10 additions & 0 deletions ...ontosoCoffeeDemoDatasetGB/app/DemoData/Finance/2.Master Data/CreateGBCurrency.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -78,4 +78,14 @@ codeunit 11500 "Create GB Currency"
Currency.Validate("Realized Gains Acc.", RealizedGainsAcc);
Currency.Validate("Realized Losses Acc.", RealizedLossesAcc);
end;

[EventSubscriber(ObjectType::Codeunit, Codeunit::"Create Add. Reporting Currency", OnBeforeGetResidualCurrencyAccounts, '', false, false)]
local procedure GetResidualCurrencyAccountsGB(var FXGainsAccount: Code[20]; var FXLossesAccount: Code[20]; var IsHandled: Boolean)
var
CreateGLAccount: Codeunit "Create G/L Account";
begin
FXGainsAccount := CreateGLAccount.InterestIncome();
FXLossesAccount := CreateGLAccount.InterestIncome();
IsHandled := true;
end;
}
11 changes: 11 additions & 0 deletions ...ontosoCoffeeDemoDatasetNL/app/DemoData/Finance/2.Master Data/CreateCurrencyNL.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -6,6 +6,7 @@
namespace Microsoft.DemoData.Finance;

using Microsoft.Finance.Currency;
using Microsoft.DemoData.Localization;

codeunit 11536 "Create Currency NL"
{
Expand Down Expand Up @@ -80,4 +81,14 @@ codeunit 11536 "Create Currency NL"
Currency.Validate("Realized Gains Acc.", '');
Currency.Validate("Realized Losses Acc.", '');
end;

[EventSubscriber(ObjectType::Codeunit, Codeunit::"Create Add. Reporting Currency", OnBeforeGetResidualCurrencyAccounts, '', false, false)]
local procedure GetResidualCurrencyAccountsNL(var FXGainsAccount: Code[20]; var FXLossesAccount: Code[20]; var IsHandled: Boolean)
var
CreateNLGLAccount: Codeunit "Create NL GL Accounts";
begin
FXGainsAccount := CreateNLGLAccount.CurrencyGains();
FXLossesAccount := CreateNLGLAccount.CurrencyLosses();
IsHandled := true;
end;
}
10 changes: 10 additions & 0 deletions ...ContosoCoffeeDemoDatasetUS/app/DemoData/Finance/1.Setup Data/CreateCurrencyUS.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -35,4 +35,14 @@ codeunit 11486 "Create Currency US"
Currency.Validate("Realized Gains Acc.", RealizedGainsAcc);
Currency.Validate("Realized Losses Acc.", RealizedLossesAcc);
end;

[EventSubscriber(ObjectType::Codeunit, Codeunit::"Create Add. Reporting Currency", OnBeforeGetResidualCurrencyAccounts, '', false, false)]
local procedure GetResidualCurrencyAccountsUS(var FXGainsAccount: Code[20]; var FXLossesAccount: Code[20]; var IsHandled: Boolean)
var
CreateUSGLAccount: Codeunit "Create US GL Accounts";
begin
FXGainsAccount := CreateUSGLAccount.CurrencyGains();
FXLossesAccount := CreateUSGLAccount.CurrencyLosses();
IsHandled := true;
end;
}
71 changes: 71 additions & 0 deletions ...ffeeDemoDataset/app/DemoData/Finance/2.Master data/CreateAddReportingCurrency.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,71 @@
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------

namespace Microsoft.DemoData.Finance;

using Microsoft.Finance.Currency;
using Microsoft.Finance.GeneralLedger.Setup;

codeunit 5627 "Create Add. Reporting Currency"
{
InherentEntitlements = X;
InherentPermissions = X;
Permissions =
tabledata "General Ledger Setup" = rm,
tabledata Currency = rm;

trigger OnRun()
begin
ConfigureAdditionalReportingCurrency();
UpdateCurrencyResidualAccounts();
end;

procedure ConfigureAdditionalReportingCurrency()
var
GeneralLedgerSetup: Record "General Ledger Setup";
CreateCurrency: Codeunit "Create Currency";
ACYCode: Code[10];
begin
GeneralLedgerSetup.Get();
ACYCode := GeneralLedgerSetup."LCY Code" = CreateCurrency.EUR() ? CreateCurrency.USD() : CreateCurrency.EUR();
GeneralLedgerSetup."Additional Reporting Currency" := ACYCode;
GeneralLedgerSetup.Modify(true);
end;

procedure UpdateCurrencyResidualAccounts()
var
Currency: Record "Currency";
CreateCurrency: Codeunit "Create Currency";
FXGainsAccount: Code[20];
FXLossesAccount: Code[20];
begin
GetResidualCurrencyAccounts(FXGainsAccount, FXLossesAccount);
Currency.SetFilter(Code, '%1|%2', CreateCurrency.EUR(), CreateCurrency.USD());
if Currency.FindSet(true) then
repeat
Currency.Validate("Residual Gains Account", FXGainsAccount);
Currency.Validate("Residual Losses Account", FXLossesAccount);
Currency.Modify(true);
until Currency.Next() = 0;
end;

local procedure GetResidualCurrencyAccounts(var FXGainsAccount: Code[20]; var FXLossesAccount: Code[20])
var
CreateGLAccount: Codeunit "Create G/L Account";
IsHandled: Boolean;
begin
OnBeforeGetResidualCurrencyAccounts(FXGainsAccount, FXLossesAccount, IsHandled);
if IsHandled then
exit;

FXGainsAccount := CreateGLAccount.RealizedFXGains();
FXLossesAccount := CreateGLAccount.RealizedFXLosses();
end;

[IntegrationEvent(false, false)]
local procedure OnBeforeGetResidualCurrencyAccounts(var FXGainsAccount: Code[20]; var FXLossesAccount: Code[20]; var IsHandled: Boolean)
begin
end;
}
1 change: 1 addition & 0 deletions Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Finance/FinanceModule.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -76,6 +76,7 @@ codeunit 5415 "Finance Module" implements "Contoso Demo Data Module"
Codeunit.Run(Codeunit::"Create Currency Exchange Rate");
Codeunit.Run(Codeunit::"Create Resource");
Codeunit.Run(Codeunit::"Create Allocation Account");
Codeunit.Run(Codeunit::"Create Add. Reporting Currency");
end;

procedure CreateTransactionalData()
Expand Down