From 2879ddb107b24007155e891a2fb132488155d041 Mon Sep 17 00:00:00 2001 From: Tuan Nguyen Date: Wed, 5 Nov 2025 16:16:46 +1100 Subject: [PATCH 01/13] Added dimension setup to fixed assets --- .../CreateFADimensionValue.Codeunit.al | 35 +++++++++++++++++++ .../DemoData/FixedAsset/FAModule.Codeunit.al | 1 + 2 files changed, 36 insertions(+) create mode 100644 Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFADimensionValue.Codeunit.al diff --git a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFADimensionValue.Codeunit.al b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFADimensionValue.Codeunit.al new file mode 100644 index 0000000000..3dd5f6f186 --- /dev/null +++ b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFADimensionValue.Codeunit.al @@ -0,0 +1,35 @@ +// ------------------------------------------------------------------------------------------------ +// 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.FixedAsset; + +using Microsoft.DemoTool.Helpers; +using Microsoft.FixedAssets.FixedAsset; +using Microsoft.DemoData.Finance; +using Microsoft.Finance.Dimension; + +codeunit 5212 "Create FA Dimension Value" +{ + InherentEntitlements = X; + InherentPermissions = X; + + trigger OnRun() + var + ContosoDimension: Codeunit "Contoso Dimension"; + CreateFixedAsset: Codeunit "Create Fixed Asset"; + CreateDimension: Codeunit "Create Dimension"; + CreateDimensionValue: Codeunit "Create Dimension Value"; + begin + ContosoDimension.InsertDefaultDimensionValue(Database::"Fixed Asset", CreateFixedAsset.FA000010(), CreateDimension.DepartmentDimension(), CreateDimensionValue.AdministrationDepartment(), Enum::"Default Dimension Value Posting Type"::" "); + ContosoDimension.InsertDefaultDimensionValue(Database::"Fixed Asset", CreateFixedAsset.FA000020(), CreateDimension.DepartmentDimension(), CreateDimensionValue.AdministrationDepartment(), Enum::"Default Dimension Value Posting Type"::" "); + ContosoDimension.InsertDefaultDimensionValue(Database::"Fixed Asset", CreateFixedAsset.FA000030(), CreateDimension.DepartmentDimension(), CreateDimensionValue.ProductionDepartment(), Enum::"Default Dimension Value Posting Type"::" "); + ContosoDimension.InsertDefaultDimensionValue(Database::"Fixed Asset", CreateFixedAsset.FA000040(), CreateDimension.DepartmentDimension(), CreateDimensionValue.ProductionDepartment(), Enum::"Default Dimension Value Posting Type"::" "); + ContosoDimension.InsertDefaultDimensionValue(Database::"Fixed Asset", CreateFixedAsset.FA000050(), CreateDimension.DepartmentDimension(), CreateDimensionValue.ProductionDepartment(), Enum::"Default Dimension Value Posting Type"::" "); + ContosoDimension.InsertDefaultDimensionValue(Database::"Fixed Asset", CreateFixedAsset.FA000060(), CreateDimension.DepartmentDimension(), CreateDimensionValue.ProductionDepartment(), Enum::"Default Dimension Value Posting Type"::" "); + ContosoDimension.InsertDefaultDimensionValue(Database::"Fixed Asset", CreateFixedAsset.FA000070(), CreateDimension.DepartmentDimension(), CreateDimensionValue.ProductionDepartment(), Enum::"Default Dimension Value Posting Type"::" "); + ContosoDimension.InsertDefaultDimensionValue(Database::"Fixed Asset", CreateFixedAsset.FA000080(), CreateDimension.DepartmentDimension(), CreateDimensionValue.ProductionDepartment(), Enum::"Default Dimension Value Posting Type"::" "); + ContosoDimension.InsertDefaultDimensionValue(Database::"Fixed Asset", CreateFixedAsset.FA000090(), CreateDimension.DepartmentDimension(), CreateDimensionValue.AdministrationDepartment(), Enum::"Default Dimension Value Posting Type"::" "); + end; +} diff --git a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/FAModule.Codeunit.al b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/FAModule.Codeunit.al index 0f8edc805c..2c731f66e6 100644 --- a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/FAModule.Codeunit.al +++ b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/FAModule.Codeunit.al @@ -45,6 +45,7 @@ codeunit 4774 "FA Module" implements "Contoso Demo Data Module" Codeunit.Run(Codeunit::"Create Fixed Asset"); Codeunit.Run(Codeunit::"Create FA Insurance Type"); Codeunit.Run(Codeunit::"Create FA Insurance"); + Codeunit.Run(codeunit::"Create FA Dimension Value"); end; procedure CreateTransactionalData() From e4c3ea2dc71dc8c4b077b01199d35f8fa258c819 Mon Sep 17 00:00:00 2001 From: Tuan Nguyen Date: Wed, 5 Nov 2025 16:17:23 +1100 Subject: [PATCH 02/13] Added InsertFixedAsset function that takes FA Posting Group parameter --- .../Contoso Helpers/ContosoFixedAsset.Codeunit.al | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoTool/Contoso Helpers/ContosoFixedAsset.Codeunit.al b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoTool/Contoso Helpers/ContosoFixedAsset.Codeunit.al index e805c45adf..80176264dd 100644 --- a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoTool/Contoso Helpers/ContosoFixedAsset.Codeunit.al +++ b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoTool/Contoso Helpers/ContosoFixedAsset.Codeunit.al @@ -224,10 +224,19 @@ codeunit 4776 "Contoso Fixed Asset" FAPostingGroup.Insert(true); end; + procedure InsertFixedAsset(FANo: Code[20]; Description: Text[100]; FAClassCode: Code[10]; FASubclassCode: Code[20]; FALocationCode: Code[10]; MainAssetComponent: Enum "FA Component Type"; SerialNo: Text[30]; + NextServiceDate: Date; + VendorNo: Code[20]; + MaintenanceVendorNo: Code[20]) + begin + InsertFixedAsset(FANo, Description, FAClassCode, FASubclassCode, FALocationCode, MainAssetComponent, SerialNo, NextServiceDate, VendorNo, MaintenanceVendorNo, ''); + end; + procedure InsertFixedAsset(FANo: Code[20]; Description: Text[100]; FAClassCode: Code[10]; FASubclassCode: Code[20]; FALocationCode: Code[10]; MainAssetComponent: Enum "FA Component Type"; SerialNo: Text[30]; NextServiceDate: Date; VendorNo: Code[20]; - MaintenanceVendorNo: Code[20]) + MaintenanceVendorNo: Code[20]; + FAPostingGroupCode: Code[20]) var FixedAsset: Record "Fixed Asset"; Exists: Boolean; @@ -250,6 +259,7 @@ codeunit 4776 "Contoso Fixed Asset" FixedAsset.Validate("Next Service Date", NextServiceDate); FixedAsset.Validate("Vendor No.", VendorNo); FixedAsset.Validate("Maintenance Vendor No.", MaintenanceVendorNo); + FixedAsset.Validate("FA Posting Group", FAPostingGroupCode); if Exists then FixedAsset.Modify(true) From 122e0f8b7650fa3d7768a26f56c987edb432c319 Mon Sep 17 00:00:00 2001 From: Tuan Nguyen Date: Wed, 5 Nov 2025 16:18:11 +1100 Subject: [PATCH 03/13] Added FA posting group to fixed asset dataset --- .../CreateFixedAsset.Codeunit.al | 38 ++++++++++--------- 1 file changed, 20 insertions(+), 18 deletions(-) diff --git a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFixedAsset.Codeunit.al b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFixedAsset.Codeunit.al index 071e76936a..e40c2c29f0 100644 --- a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFixedAsset.Codeunit.al +++ b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFixedAsset.Codeunit.al @@ -26,24 +26,25 @@ codeunit 5118 "Create Fixed Asset" FAClass: Codeunit "Create FA Class"; ContosoFixedAsset: Codeunit "Contoso Fixed Asset"; FALocation: Codeunit "Create FA Location"; + FAPostingGroup: Codeunit "Create FA Posting Group"; CommonCustomerVendor: Codeunit "Create Common Customer/Vendor"; ContosoUtilities: Codeunit "Contoso Utilities"; DomesticVendor1, DomesticVendor2, DomesticVendor3 : Code[20]; begin DomesticVendor1 := CommonCustomerVendor.DomesticVendor1(); - ContosoFixedAsset.InsertFixedAsset(FA000010(), Vehicle1Lbl, FAClass.TangibleClass(), FAClass.VehiclesSubClass(), FALocation.Administration(), Enum::"FA Component Type"::" ", SerialNoEA12394QLbl, ContosoUtilities.AdjustDate(19030412D), DomesticVendor1, DomesticVendor1); - ContosoFixedAsset.InsertFixedAsset(FA000020(), Vehicle2Lbl, FAClass.TangibleClass(), FAClass.VehiclesSubClass(), FALocation.Sales(), Enum::"FA Component Type"::" ", SerialNoEA12395QLbl, ContosoUtilities.AdjustDate(19030718D), DomesticVendor1, DomesticVendor1); - ContosoFixedAsset.InsertFixedAsset(FA000030(), Truck1Lbl, FAClass.TangibleClass(), FAClass.VehiclesSubClass(), FALocation.Production(), Enum::"FA Component Type"::" ", SerialNoEA15397QLbl, ContosoUtilities.AdjustDate(19030821D), DomesticVendor1, DomesticVendor1); + ContosoFixedAsset.InsertFixedAsset(FA000010(), Vehicle1Lbl, FAClass.TangibleClass(), FAClass.VehiclesSubClass(), FALocation.Administration(), Enum::"FA Component Type"::" ", SerialNoEA12394QLbl, ContosoUtilities.AdjustDate(19030412D), DomesticVendor1, DomesticVendor1, FAPostingGroup.Vehicles()); + ContosoFixedAsset.InsertFixedAsset(FA000020(), Vehicle2Lbl, FAClass.TangibleClass(), FAClass.VehiclesSubClass(), FALocation.Sales(), Enum::"FA Component Type"::" ", SerialNoEA12395QLbl, ContosoUtilities.AdjustDate(19030718D), DomesticVendor1, DomesticVendor1, FAPostingGroup.Vehicles()); + ContosoFixedAsset.InsertFixedAsset(FA000030(), Truck1Lbl, FAClass.TangibleClass(), FAClass.VehiclesSubClass(), FALocation.Production(), Enum::"FA Component Type"::" ", SerialNoEA15397QLbl, ContosoUtilities.AdjustDate(19030821D), DomesticVendor1, DomesticVendor1, FAPostingGroup.Vehicles()); DomesticVendor2 := CommonCustomerVendor.DomesticVendor2(); - ContosoFixedAsset.InsertFixedAsset(FA000040(), ConveyorMainAssetLbl, FAClass.TangibleClass(), FAClass.EquipmentSubClass(), FALocation.Production(), Enum::"FA Component Type"::"Main Asset", SerialNoX23111SW0Lbl, ContosoUtilities.AdjustDate(19030815D), DomesticVendor2, DomesticVendor2); - ContosoFixedAsset.InsertFixedAsset(FA000050(), ConveyorBeltLbl, FAClass.TangibleClass(), FAClass.EquipmentSubClass(), FALocation.Production(), Enum::"FA Component Type"::Component, SerialNoX23111SW1Lbl, ContosoUtilities.AdjustDate(19030815D), DomesticVendor2, DomesticVendor2); - ContosoFixedAsset.InsertFixedAsset(FA000060(), ConveyorComputerLbl, FAClass.TangibleClass(), FAClass.EquipmentSubClass(), FALocation.Production(), Enum::"FA Component Type"::Component, SerialNoX23111SW3Lbl, ContosoUtilities.AdjustDate(19030815D), DomesticVendor2, DomesticVendor2); + ContosoFixedAsset.InsertFixedAsset(FA000040(), ConveyorMainAssetLbl, FAClass.TangibleClass(), FAClass.EquipmentSubClass(), FALocation.Production(), Enum::"FA Component Type"::"Main Asset", SerialNoX23111SW0Lbl, ContosoUtilities.AdjustDate(19030815D), DomesticVendor2, DomesticVendor2, FAPostingGroup.Equipment()); + ContosoFixedAsset.InsertFixedAsset(FA000050(), ConveyorBeltLbl, FAClass.TangibleClass(), FAClass.EquipmentSubClass(), FALocation.Production(), Enum::"FA Component Type"::Component, SerialNoX23111SW1Lbl, ContosoUtilities.AdjustDate(19030815D), DomesticVendor2, DomesticVendor2, FAPostingGroup.Equipment()); + ContosoFixedAsset.InsertFixedAsset(FA000060(), ConveyorComputerLbl, FAClass.TangibleClass(), FAClass.EquipmentSubClass(), FALocation.Production(), Enum::"FA Component Type"::Component, SerialNoX23111SW3Lbl, ContosoUtilities.AdjustDate(19030815D), DomesticVendor2, DomesticVendor2, FAPostingGroup.Equipment()); DomesticVendor3 := CommonCustomerVendor.DomesticVendor3(); - ContosoFixedAsset.InsertFixedAsset(FA000070(), ConveyorLiftLbl, FAClass.TangibleClass(), FAClass.EquipmentSubClass(), FALocation.Production(), Enum::"FA Component Type"::Component, SerialNoX23111SW2Lbl, ContosoUtilities.AdjustDate(19030815D), DomesticVendor3, DomesticVendor3); - ContosoFixedAsset.InsertFixedAsset(FA000080(), CargoLiftLbl, FAClass.TangibleClass(), FAClass.EquipmentSubClass(), FALocation.Production(), Enum::"FA Component Type"::" ", SerialNoAKW2476111Lbl, ContosoUtilities.AdjustDate(19030421D), DomesticVendor3, DomesticVendor3); - ContosoFixedAsset.InsertFixedAsset(FA000090(), SwitchboardLbl, FAClass.TangibleClass(), FAClass.EquipmentSubClass(), FALocation.Administration(), Enum::"FA Component Type"::" ", SerialNoTELE4476ZLbl, ContosoUtilities.AdjustDate(19031212D), DomesticVendor3, DomesticVendor3); + ContosoFixedAsset.InsertFixedAsset(FA000070(), ConveyorLiftLbl, FAClass.TangibleClass(), FAClass.EquipmentSubClass(), FALocation.Production(), Enum::"FA Component Type"::Component, SerialNoX23111SW2Lbl, ContosoUtilities.AdjustDate(19030815D), DomesticVendor3, DomesticVendor3, FAPostingGroup.Equipment()); + ContosoFixedAsset.InsertFixedAsset(FA000080(), CargoLiftLbl, FAClass.TangibleClass(), FAClass.EquipmentSubClass(), FALocation.Production(), Enum::"FA Component Type"::" ", SerialNoAKW2476111Lbl, ContosoUtilities.AdjustDate(19030421D), DomesticVendor3, DomesticVendor3, FAPostingGroup.Equipment()); + ContosoFixedAsset.InsertFixedAsset(FA000090(), SwitchboardLbl, FAClass.TangibleClass(), FAClass.EquipmentSubClass(), FALocation.Administration(), Enum::"FA Component Type"::" ", SerialNoTELE4476ZLbl, ContosoUtilities.AdjustDate(19031212D), DomesticVendor3, DomesticVendor3, FAPostingGroup.Equipment()); end; local procedure CreateMainAssetComponents() @@ -59,17 +60,18 @@ codeunit 5118 "Create Fixed Asset" var ContosoFixedAsset: Codeunit "Contoso Fixed Asset"; CreateFADepreciationBook: Codeunit "Create FA Depreciation Book"; + CreateFAPostingGroup: Codeunit "Create FA Posting Group"; ContosoUtilities: Codeunit "Contoso Utilities"; begin - ContosoFixedAsset.InsertFADepreciationBook(FA000010(), CreateFADepreciationBook.Company(), ContosoUtilities.AdjustDate(19020101D), 5); - ContosoFixedAsset.InsertFADepreciationBook(FA000020(), CreateFADepreciationBook.Company(), ContosoUtilities.AdjustDate(19020501D), 5); - ContosoFixedAsset.InsertFADepreciationBook(FA000030(), CreateFADepreciationBook.Company(), ContosoUtilities.AdjustDate(19020601D), 5); - ContosoFixedAsset.InsertFADepreciationBook(FA000040(), CreateFADepreciationBook.Company(), ContosoUtilities.AdjustDate(19020101D), 0); - ContosoFixedAsset.InsertFADepreciationBook(FA000050(), CreateFADepreciationBook.Company(), ContosoUtilities.AdjustDate(19020101D), 10); - ContosoFixedAsset.InsertFADepreciationBook(FA000060(), CreateFADepreciationBook.Company(), ContosoUtilities.AdjustDate(19020201D), 8); - ContosoFixedAsset.InsertFADepreciationBook(FA000070(), CreateFADepreciationBook.Company(), ContosoUtilities.AdjustDate(19020301D), 4); - ContosoFixedAsset.InsertFADepreciationBook(FA000080(), CreateFADepreciationBook.Company(), ContosoUtilities.AdjustDate(19020401D), 8); - ContosoFixedAsset.InsertFADepreciationBook(FA000090(), CreateFADepreciationBook.Company(), ContosoUtilities.AdjustDate(19020201D), 7); + ContosoFixedAsset.InsertFADepreciationBook(FA000010(), CreateFADepreciationBook.Company(), ContosoUtilities.AdjustDate(19010101D), 5, CreateFAPostingGroup.Vehicles()); + ContosoFixedAsset.InsertFADepreciationBook(FA000020(), CreateFADepreciationBook.Company(), ContosoUtilities.AdjustDate(19010501D), 5, CreateFAPostingGroup.Vehicles()); + ContosoFixedAsset.InsertFADepreciationBook(FA000030(), CreateFADepreciationBook.Company(), ContosoUtilities.AdjustDate(19010601D), 5, CreateFAPostingGroup.Vehicles()); + ContosoFixedAsset.InsertFADepreciationBook(FA000040(), CreateFADepreciationBook.Company(), ContosoUtilities.AdjustDate(19010101D), 0, CreateFAPostingGroup.Equipment()); + ContosoFixedAsset.InsertFADepreciationBook(FA000050(), CreateFADepreciationBook.Company(), ContosoUtilities.AdjustDate(19010101D), 10, CreateFAPostingGroup.Equipment()); + ContosoFixedAsset.InsertFADepreciationBook(FA000060(), CreateFADepreciationBook.Company(), ContosoUtilities.AdjustDate(19010201D), 8, CreateFAPostingGroup.Equipment()); + ContosoFixedAsset.InsertFADepreciationBook(FA000070(), CreateFADepreciationBook.Company(), ContosoUtilities.AdjustDate(19010301D), 4, CreateFAPostingGroup.Equipment()); + ContosoFixedAsset.InsertFADepreciationBook(FA000080(), CreateFADepreciationBook.Company(), ContosoUtilities.AdjustDate(19010401D), 8, CreateFAPostingGroup.Equipment()); + ContosoFixedAsset.InsertFADepreciationBook(FA000090(), CreateFADepreciationBook.Company(), ContosoUtilities.AdjustDate(19010201D), 7, CreateFAPostingGroup.Equipment()); end; procedure FA000010(): Text[20] From b183a443c642934aa0c57d5b9e4a0eb9832405b8 Mon Sep 17 00:00:00 2001 From: Tuan Nguyen Date: Wed, 5 Nov 2025 16:18:54 +1100 Subject: [PATCH 04/13] Added codeunits to generate FA journal lines & posted entries --- .../CreateFAJnlLines.Codeunit.al | 91 +++++++++++++++++++ .../3.Transactions/PostFAJnlLines.Codeunit.al | 41 +++++++++ .../DemoData/FixedAsset/FAModule.Codeunit.al | 1 + 3 files changed, 133 insertions(+) create mode 100644 Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/CreateFAJnlLines.Codeunit.al create mode 100644 Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/PostFAJnlLines.Codeunit.al diff --git a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/CreateFAJnlLines.Codeunit.al b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/CreateFAJnlLines.Codeunit.al new file mode 100644 index 0000000000..d1fb2b731b --- /dev/null +++ b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/CreateFAJnlLines.Codeunit.al @@ -0,0 +1,91 @@ +// ------------------------------------------------------------------------------------------------ +// 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.FixedAsset; + +using Microsoft.DemoTool.Helpers; +using Microsoft.FixedAssets.Depreciation; +using Microsoft.DemoData.Finance; +using Microsoft.Finance.GeneralLedger.Journal; +using Microsoft.FixedAssets.Journal; + +codeunit 5213 "Create FA Jnl. Lines" +{ + InherentEntitlements = X; + InherentPermissions = X; + EventSubscriberInstance = Manual; + + trigger OnRun() + var + ContosoUtilities: Codeunit "Contoso Utilities"; + ContosoFixedAsset: Codeunit "Contoso Fixed Asset"; + CreateFixedAsset: Codeunit "Create Fixed Asset"; + CreateFANoSeries: Codeunit "Create FA No Series"; + CreateFAJnlTemplate: Codeunit "Create FA Jnl. Template"; + CreateGLAccount: Codeunit "Create G/L Account"; + FAJournalTemplateName: Code[10]; + FAJournalBatchName: Code[10]; + begin + FAJournalTemplateName := CreateFAJnlTemplate.Assets(); + FAJournalBatchName := CreateFAJnlTemplate.Default(); + + InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 10000, CreateFixedAsset.FA000010(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", CreateGLAccount.Cash(), 65000); + InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 20000, CreateFixedAsset.FA000020(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", CreateGLAccount.Cash(), 70000); + InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 30000, CreateFixedAsset.FA000030(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", CreateGLAccount.Cash(), 95000); + InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 40000, CreateFixedAsset.FA000050(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", CreateGLAccount.Cash(), 15000); + InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 50000, CreateFixedAsset.FA000060(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", CreateGLAccount.Cash(), 60000); + InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 60000, CreateFixedAsset.FA000070(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", CreateGLAccount.Cash(), 1500); + InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 70000, CreateFixedAsset.FA000080(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", CreateGLAccount.Cash(), 11000); + InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 80000, CreateFixedAsset.FA000090(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", CreateGLAccount.Cash(), 4000); + Codeunit.Run(Codeunit::"Post FA Jnl. Lines"); + + CalculateDepreciationLines(ContosoUtilities.AdjustDate(19011231D), 1); + CalculateDepreciationLines(ContosoUtilities.AdjustDate(19021231D), 2); + Codeunit.Run(Codeunit::"Post FA Jnl. Lines"); + end; + + procedure InsertFAGenJournalLine(JournalTemplateName: Code[10]; JournalBatchName: Code[10]; LineNo: Integer; AccountNo: Code[20]; PostingDate: Date; FAPostingType: Enum "Gen. Journal Line FA Posting Type"; DocumentNo: Code[20]; Description: Text[100]; BalAccountType: Enum "Gen. Journal Account Type"; BalAccountNo: Code[20]; Amount: Decimal) + var + GenJournalLine: Record "Gen. Journal Line"; + begin + GenJournalLine.Validate("Journal Template Name", JournalTemplateName); + GenJournalLine.Validate("Journal Batch Name", JournalBatchName); + GenJournalLine.Validate("Line No.", LineNo); + GenJournalLine.Validate("Account Type", Enum::"Gen. Journal Account Type"::"Fixed Asset"); + GenJournalLine.Validate("Account No.", AccountNo); + GenJournalLine.Validate("Posting Date", PostingDate); + GenJournalLine.Validate("FA Posting Type", FAPostingType); + GenJournalLine.Validate("Document No.", DocumentNo); + GenJournalLine.Validate(Description, Description); + GenJournalLine.Validate("Bal. Account Type", BalAccountType); + GenJournalLine.Validate("Bal. Account No.", BalAccountNo); + GenJournalLine.Validate(Amount, Amount); + GenJournalLine.Insert(true); + end; + + local procedure CalculateDepreciationLines(PostingDate: Date; BatchCount: Integer) + var + CreateFADepreciationBook: Codeunit "Create FA Depreciation Book"; + CalculateDepreciation: Report "Calculate Depreciation"; + begin + CalculateDepreciation.InitializeRequest(CreateFADepreciationBook.Company(), PostingDate, false, 0, PostingDate, StrSubstNo('%1%2', AssetDepreciationLbl, BatchCount), DepreciationLbl, true); + CalculateDepreciation.UseRequestPage(false); + BindSubscription(this); + CalculateDepreciation.Run(); + UnbindSubscription(this); + end; + + [EventSubscriber(ObjectType::Report, Report::"Calculate Depreciation", OnPostReportOnBeforeConfirmShowGenJournalLines, '', true, true)] + local procedure ConfirmShowGenJournalLines(DeprBook: Record "Depreciation Book"; GenJnlLine: Record "Gen. Journal Line"; GenJnlLineCreatedCount: Integer; var IsHandled: Boolean) + begin + IsHandled := true; + end; + + var + AssetAcquisitionLbl: Label 'ASSET-ACQ', MaxLength = 20; + AcquisitionLbl: Label 'Acquisition', MaxLength = 100; + AssetDepreciationLbl: Label 'ASSET-DEPR', MaxLength = 20; + DepreciationLbl: Label 'Depreciation', MaxLength = 100; +} \ No newline at end of file diff --git a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/PostFAJnlLines.Codeunit.al b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/PostFAJnlLines.Codeunit.al new file mode 100644 index 0000000000..fdccf7205c --- /dev/null +++ b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/PostFAJnlLines.Codeunit.al @@ -0,0 +1,41 @@ +// ------------------------------------------------------------------------------------------------ +// 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.FixedAsset; + +using Microsoft.Finance.GeneralLedger.Posting; +using Microsoft.Finance.GeneralLedger.Journal; + +codeunit 5214 "Post FA Jnl. Lines" +{ + InherentEntitlements = X; + InherentPermissions = X; + EventSubscriberInstance = Manual; + + trigger OnRun() + var + GenJournalLine: Record "Gen. Journal Line"; + CreateFAJnlTemplate: Codeunit "Create FA Jnl. Template"; + FAJournalTemplateName: Code[10]; + FAJournalBatchName: Code[10]; + begin + FAJournalTemplateName := CreateFAJnlTemplate.Assets(); + FAJournalBatchName := CreateFAJnlTemplate.Default(); + + GenJournalLine.SetRange("Journal Template Name", FAJournalTemplateName); + GenJournalLine.SetRange("Journal Batch Name", FAJournalBatchName); + if GenJournalLine.FindFirst() then begin + BindSubscription(this); + Codeunit.Run(Codeunit::"Gen. Jnl.-Post", GenJournalLine); + UnbindSubscription(this); + end; + end; + + [EventSubscriber(ObjectType::Codeunit, Codeunit::"Gen. Jnl.-Post", OnCodeOnBeforeConfirmPostJournalLinesResponse, '', true, true)] + local procedure ConfirmPostJournalLinesResponse(var GenJournalLine: Record "Gen. Journal Line"; var IsHandled: Boolean; var ShouldExit: Boolean) + begin + IsHandled := true; + end; +} \ No newline at end of file diff --git a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/FAModule.Codeunit.al b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/FAModule.Codeunit.al index 2c731f66e6..97949549fc 100644 --- a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/FAModule.Codeunit.al +++ b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/FAModule.Codeunit.al @@ -51,6 +51,7 @@ codeunit 4774 "FA Module" implements "Contoso Demo Data Module" procedure CreateTransactionalData() begin Codeunit.Run(Codeunit::"Create FA Maint. Registration"); + Codeunit.Run(Codeunit::"Create FA Jnl. Lines"); end; procedure CreateHistoricalData() From 1b8a435c7c4535bef4915ba797fefde407f3c2dd Mon Sep 17 00:00:00 2001 From: Tuan Nguyen Date: Fri, 12 Dec 2025 14:28:47 +1100 Subject: [PATCH 05/13] Sorted variables and usings --- .../CreateFADimensionValue.Codeunit.al | 6 +++--- .../CreateFixedAsset.Codeunit.al | 20 +++++++++---------- .../CreateFAJnlLines.Codeunit.al | 16 +++++++-------- .../3.Transactions/PostFAJnlLines.Codeunit.al | 4 ++-- .../ContosoFixedAsset.Codeunit.al | 8 ++++---- 5 files changed, 27 insertions(+), 27 deletions(-) diff --git a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFADimensionValue.Codeunit.al b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFADimensionValue.Codeunit.al index 3dd5f6f186..b980050f8f 100644 --- a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFADimensionValue.Codeunit.al +++ b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFADimensionValue.Codeunit.al @@ -5,10 +5,10 @@ namespace Microsoft.DemoData.FixedAsset; -using Microsoft.DemoTool.Helpers; -using Microsoft.FixedAssets.FixedAsset; using Microsoft.DemoData.Finance; +using Microsoft.DemoTool.Helpers; using Microsoft.Finance.Dimension; +using Microsoft.FixedAssets.FixedAsset; codeunit 5212 "Create FA Dimension Value" { @@ -18,9 +18,9 @@ codeunit 5212 "Create FA Dimension Value" trigger OnRun() var ContosoDimension: Codeunit "Contoso Dimension"; - CreateFixedAsset: Codeunit "Create Fixed Asset"; CreateDimension: Codeunit "Create Dimension"; CreateDimensionValue: Codeunit "Create Dimension Value"; + CreateFixedAsset: Codeunit "Create Fixed Asset"; begin ContosoDimension.InsertDefaultDimensionValue(Database::"Fixed Asset", CreateFixedAsset.FA000010(), CreateDimension.DepartmentDimension(), CreateDimensionValue.AdministrationDepartment(), Enum::"Default Dimension Value Posting Type"::" "); ContosoDimension.InsertDefaultDimensionValue(Database::"Fixed Asset", CreateFixedAsset.FA000020(), CreateDimension.DepartmentDimension(), CreateDimensionValue.AdministrationDepartment(), Enum::"Default Dimension Value Posting Type"::" "); diff --git a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFixedAsset.Codeunit.al b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFixedAsset.Codeunit.al index e40c2c29f0..d0c599e3a9 100644 --- a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFixedAsset.Codeunit.al +++ b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFixedAsset.Codeunit.al @@ -5,8 +5,8 @@ namespace Microsoft.DemoData.FixedAsset; -using Microsoft.DemoTool.Helpers; using Microsoft.DemoData.Common; +using Microsoft.DemoTool.Helpers; using Microsoft.FixedAssets.FixedAsset; codeunit 5118 "Create Fixed Asset" @@ -59,9 +59,9 @@ codeunit 5118 "Create Fixed Asset" local procedure CreateFADepreciationBookForAssets() var ContosoFixedAsset: Codeunit "Contoso Fixed Asset"; + ContosoUtilities: Codeunit "Contoso Utilities"; CreateFADepreciationBook: Codeunit "Create FA Depreciation Book"; CreateFAPostingGroup: Codeunit "Create FA Posting Group"; - ContosoUtilities: Codeunit "Contoso Utilities"; begin ContosoFixedAsset.InsertFADepreciationBook(FA000010(), CreateFADepreciationBook.Company(), ContosoUtilities.AdjustDate(19010101D), 5, CreateFAPostingGroup.Vehicles()); ContosoFixedAsset.InsertFADepreciationBook(FA000020(), CreateFADepreciationBook.Company(), ContosoUtilities.AdjustDate(19010501D), 5, CreateFAPostingGroup.Vehicles()); @@ -120,22 +120,22 @@ codeunit 5118 "Create Fixed Asset" end; var - Vehicle1Lbl: Label 'Vehicle 1', MaxLength = 100; - Vehicle2Lbl: Label 'Vehicle 2', MaxLength = 100; - Truck1Lbl: Label 'Truck 1', MaxLength = 100; - ConveyorMainAssetLbl: Label 'Conveyor, Main Asset', MaxLength = 100; + CargoLiftLbl: Label 'Cargo Lift', MaxLength = 100; ConveyorBeltLbl: Label 'Conveyor Belt', MaxLength = 100; ConveyorComputerLbl: Label 'Conveyor Computer', MaxLength = 100; - CargoLiftLbl: Label 'Cargo Lift', MaxLength = 100; ConveyorLiftLbl: Label 'Conveyor Lift', MaxLength = 100; - SwitchboardLbl: Label 'Switchboard', MaxLength = 100; + ConveyorMainAssetLbl: Label 'Conveyor, Main Asset', MaxLength = 100; + SerialNoAKW2476111Lbl: Label 'AKW2476111', Locked = true; SerialNoEA12394QLbl: Label 'EA 12 394 Q', Locked = true; SerialNoEA12395QLbl: Label 'EA 12 395 Q', Locked = true; SerialNoEA15397QLbl: Label 'EA 15 397 Q', Locked = true; + SerialNoTELE4476ZLbl: Label 'TELE 4476 Z', Locked = true; SerialNoX23111SW0Lbl: Label '23 111 SW0', Locked = true; SerialNoX23111SW1Lbl: Label '23 111 SW1', Locked = true; SerialNoX23111SW2Lbl: Label '23 111 SW2', Locked = true; SerialNoX23111SW3Lbl: Label '23 111 SW3', Locked = true; - SerialNoAKW2476111Lbl: Label 'AKW2476111', Locked = true; - SerialNoTELE4476ZLbl: Label 'TELE 4476 Z', Locked = true; + SwitchboardLbl: Label 'Switchboard', MaxLength = 100; + Truck1Lbl: Label 'Truck 1', MaxLength = 100; + Vehicle1Lbl: Label 'Vehicle 1', MaxLength = 100; + Vehicle2Lbl: Label 'Vehicle 2', MaxLength = 100; } diff --git a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/CreateFAJnlLines.Codeunit.al b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/CreateFAJnlLines.Codeunit.al index d1fb2b731b..5b0c7b43c2 100644 --- a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/CreateFAJnlLines.Codeunit.al +++ b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/CreateFAJnlLines.Codeunit.al @@ -5,10 +5,10 @@ namespace Microsoft.DemoData.FixedAsset; -using Microsoft.DemoTool.Helpers; -using Microsoft.FixedAssets.Depreciation; using Microsoft.DemoData.Finance; +using Microsoft.DemoTool.Helpers; using Microsoft.Finance.GeneralLedger.Journal; +using Microsoft.FixedAssets.Depreciation; using Microsoft.FixedAssets.Journal; codeunit 5213 "Create FA Jnl. Lines" @@ -19,14 +19,14 @@ codeunit 5213 "Create FA Jnl. Lines" trigger OnRun() var - ContosoUtilities: Codeunit "Contoso Utilities"; ContosoFixedAsset: Codeunit "Contoso Fixed Asset"; - CreateFixedAsset: Codeunit "Create Fixed Asset"; - CreateFANoSeries: Codeunit "Create FA No Series"; + ContosoUtilities: Codeunit "Contoso Utilities"; CreateFAJnlTemplate: Codeunit "Create FA Jnl. Template"; + CreateFANoSeries: Codeunit "Create FA No Series"; + CreateFixedAsset: Codeunit "Create Fixed Asset"; CreateGLAccount: Codeunit "Create G/L Account"; - FAJournalTemplateName: Code[10]; FAJournalBatchName: Code[10]; + FAJournalTemplateName: Code[10]; begin FAJournalTemplateName := CreateFAJnlTemplate.Assets(); FAJournalBatchName := CreateFAJnlTemplate.Default(); @@ -67,8 +67,8 @@ codeunit 5213 "Create FA Jnl. Lines" local procedure CalculateDepreciationLines(PostingDate: Date; BatchCount: Integer) var - CreateFADepreciationBook: Codeunit "Create FA Depreciation Book"; CalculateDepreciation: Report "Calculate Depreciation"; + CreateFADepreciationBook: Codeunit "Create FA Depreciation Book"; begin CalculateDepreciation.InitializeRequest(CreateFADepreciationBook.Company(), PostingDate, false, 0, PostingDate, StrSubstNo('%1%2', AssetDepreciationLbl, BatchCount), DepreciationLbl, true); CalculateDepreciation.UseRequestPage(false); @@ -84,8 +84,8 @@ codeunit 5213 "Create FA Jnl. Lines" end; var - AssetAcquisitionLbl: Label 'ASSET-ACQ', MaxLength = 20; AcquisitionLbl: Label 'Acquisition', MaxLength = 100; + AssetAcquisitionLbl: Label 'ASSET-ACQ', MaxLength = 20; AssetDepreciationLbl: Label 'ASSET-DEPR', MaxLength = 20; DepreciationLbl: Label 'Depreciation', MaxLength = 100; } \ No newline at end of file diff --git a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/PostFAJnlLines.Codeunit.al b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/PostFAJnlLines.Codeunit.al index fdccf7205c..8ecd312b03 100644 --- a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/PostFAJnlLines.Codeunit.al +++ b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/PostFAJnlLines.Codeunit.al @@ -5,8 +5,8 @@ namespace Microsoft.DemoData.FixedAsset; -using Microsoft.Finance.GeneralLedger.Posting; using Microsoft.Finance.GeneralLedger.Journal; +using Microsoft.Finance.GeneralLedger.Posting; codeunit 5214 "Post FA Jnl. Lines" { @@ -18,8 +18,8 @@ codeunit 5214 "Post FA Jnl. Lines" var GenJournalLine: Record "Gen. Journal Line"; CreateFAJnlTemplate: Codeunit "Create FA Jnl. Template"; - FAJournalTemplateName: Code[10]; FAJournalBatchName: Code[10]; + FAJournalTemplateName: Code[10]; begin FAJournalTemplateName := CreateFAJnlTemplate.Assets(); FAJournalBatchName := CreateFAJnlTemplate.Default(); diff --git a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoTool/Contoso Helpers/ContosoFixedAsset.Codeunit.al b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoTool/Contoso Helpers/ContosoFixedAsset.Codeunit.al index 80176264dd..903447982a 100644 --- a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoTool/Contoso Helpers/ContosoFixedAsset.Codeunit.al +++ b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoTool/Contoso Helpers/ContosoFixedAsset.Codeunit.al @@ -5,11 +5,11 @@ namespace Microsoft.DemoTool.Helpers; using Microsoft.FixedAssets.Depreciation; -using Microsoft.FixedAssets.Setup; using Microsoft.FixedAssets.FixedAsset; -using Microsoft.FixedAssets.Maintenance; -using Microsoft.FixedAssets.Journal; using Microsoft.FixedAssets.Insurance; +using Microsoft.FixedAssets.Journal; +using Microsoft.FixedAssets.Maintenance; +using Microsoft.FixedAssets.Setup; codeunit 4776 "Contoso Fixed Asset" { @@ -269,8 +269,8 @@ codeunit 4776 "Contoso Fixed Asset" procedure InsertMainAssetComponent(MainAssetNo: Code[20]; FANo: Code[20]) var - MainAssetComponent: Record "Main Asset Component"; FixedAsset: Record "Fixed Asset"; + MainAssetComponent: Record "Main Asset Component"; Exists: Boolean; begin if MainAssetComponent.Get(MainAssetNo, FANo) then begin From 7cf988d1e81d406663270f71e406cb72176415f5 Mon Sep 17 00:00:00 2001 From: Tuan Nguyen Date: Thu, 8 Jan 2026 22:22:03 +1100 Subject: [PATCH 06/13] Updated Fixed Asset object IDs --- .../FixedAsset/2.Master Data/CreateFADimensionValue.Codeunit.al | 2 +- .../FixedAsset/3.Transactions/CreateFAJnlLines.Codeunit.al | 2 +- .../FixedAsset/3.Transactions/PostFAJnlLines.Codeunit.al | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFADimensionValue.Codeunit.al b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFADimensionValue.Codeunit.al index b980050f8f..29607fd7fd 100644 --- a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFADimensionValue.Codeunit.al +++ b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFADimensionValue.Codeunit.al @@ -10,7 +10,7 @@ using Microsoft.DemoTool.Helpers; using Microsoft.Finance.Dimension; using Microsoft.FixedAssets.FixedAsset; -codeunit 5212 "Create FA Dimension Value" +codeunit 5614 "Create FA Dimension Value" { InherentEntitlements = X; InherentPermissions = X; diff --git a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/CreateFAJnlLines.Codeunit.al b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/CreateFAJnlLines.Codeunit.al index 5b0c7b43c2..d459a20bf7 100644 --- a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/CreateFAJnlLines.Codeunit.al +++ b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/CreateFAJnlLines.Codeunit.al @@ -11,7 +11,7 @@ using Microsoft.Finance.GeneralLedger.Journal; using Microsoft.FixedAssets.Depreciation; using Microsoft.FixedAssets.Journal; -codeunit 5213 "Create FA Jnl. Lines" +codeunit 5609 "Create FA Jnl. Lines" { InherentEntitlements = X; InherentPermissions = X; diff --git a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/PostFAJnlLines.Codeunit.al b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/PostFAJnlLines.Codeunit.al index 8ecd312b03..e55f27611d 100644 --- a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/PostFAJnlLines.Codeunit.al +++ b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/PostFAJnlLines.Codeunit.al @@ -8,7 +8,7 @@ namespace Microsoft.DemoData.FixedAsset; using Microsoft.Finance.GeneralLedger.Journal; using Microsoft.Finance.GeneralLedger.Posting; -codeunit 5214 "Post FA Jnl. Lines" +codeunit 5608 "Post FA Jnl. Lines" { InherentEntitlements = X; InherentPermissions = X; From 1d4ce41cdfc90d58399cb464cb64bde66ed0bac8 Mon Sep 17 00:00:00 2001 From: Tuan Nguyen Date: Thu, 8 Jan 2026 22:24:32 +1100 Subject: [PATCH 07/13] Added GetCashAccountNo function --- .../CreateFAGLAccount.Codeunit.al | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) diff --git a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/1.Setup Data/CreateFAGLAccount.Codeunit.al b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/1.Setup Data/CreateFAGLAccount.Codeunit.al index a08d677168..1b60bced37 100644 --- a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/1.Setup Data/CreateFAGLAccount.Codeunit.al +++ b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/1.Setup Data/CreateFAGLAccount.Codeunit.al @@ -5,8 +5,9 @@ namespace Microsoft.DemoData.FixedAsset; -using Microsoft.Finance.GeneralLedger.Account; +using Microsoft.DemoData.Finance; using Microsoft.DemoTool.Helpers; +using Microsoft.Finance.GeneralLedger.Account; codeunit 4773 "Create FA GL Account" { @@ -45,6 +46,17 @@ codeunit 4773 "Create FA GL Account" OnAfterAddGLAccountsForLocalization(); end; + procedure GetCashAccountNo() GLAccountNo: Code[20] + var + CreateGLAccount: Codeunit "Create G/L Account"; + begin + OnBeforeGetCashAccountForFixedAssetAcquisition(GLAccountNo); + if GLAccountNo <> '' then + exit(GLAccountNo); + + exit(CreateGLAccount.Cash()); + end; + var ContosoGLAccount: Codeunit "Contoso GL Account"; DepreciationEquipmentLbl: Label 'Depreciation, Equipment', MaxLength = 100; @@ -118,4 +130,9 @@ codeunit 4773 "Create FA GL Account" local procedure OnAfterAddGLAccountsForLocalization() begin end; + + [IntegrationEvent(false, false)] + local procedure OnBeforeGetCashAccountForFixedAssetAcquisition(var GLAccountNo: Code[20]) + begin + end; } From a66dec4058aca199269c1aff26fb51b08cb18ec0 Mon Sep 17 00:00:00 2001 From: Tuan Nguyen Date: Thu, 8 Jan 2026 22:27:06 +1100 Subject: [PATCH 08/13] Updated FA journal lines creation --- .../CreateFAJnlLines.Codeunit.al | 29 +++++++++++-------- 1 file changed, 17 insertions(+), 12 deletions(-) diff --git a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/CreateFAJnlLines.Codeunit.al b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/CreateFAJnlLines.Codeunit.al index d459a20bf7..c69c110d95 100644 --- a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/CreateFAJnlLines.Codeunit.al +++ b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/FixedAsset/3.Transactions/CreateFAJnlLines.Codeunit.al @@ -5,40 +5,45 @@ namespace Microsoft.DemoData.FixedAsset; -using Microsoft.DemoData.Finance; using Microsoft.DemoTool.Helpers; using Microsoft.Finance.GeneralLedger.Journal; using Microsoft.FixedAssets.Depreciation; using Microsoft.FixedAssets.Journal; +using Microsoft.FixedAssets.Setup; codeunit 5609 "Create FA Jnl. Lines" { InherentEntitlements = X; InherentPermissions = X; EventSubscriberInstance = Manual; + Permissions = tabledata "FA Setup" = r; trigger OnRun() var ContosoFixedAsset: Codeunit "Contoso Fixed Asset"; ContosoUtilities: Codeunit "Contoso Utilities"; + CreateFGLAccount: Codeunit "Create FA GL Account"; CreateFAJnlTemplate: Codeunit "Create FA Jnl. Template"; CreateFANoSeries: Codeunit "Create FA No Series"; CreateFixedAsset: Codeunit "Create Fixed Asset"; - CreateGLAccount: Codeunit "Create G/L Account"; FAJournalBatchName: Code[10]; FAJournalTemplateName: Code[10]; + BalanceAccountNo: Code[20]; begin + FASetup.Get(); + FASetup.TestField("Default Depr. Book"); FAJournalTemplateName := CreateFAJnlTemplate.Assets(); FAJournalBatchName := CreateFAJnlTemplate.Default(); + BalanceAccountNo := CreateFGLAccount.GetCashAccountNo(); - InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 10000, CreateFixedAsset.FA000010(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", CreateGLAccount.Cash(), 65000); - InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 20000, CreateFixedAsset.FA000020(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", CreateGLAccount.Cash(), 70000); - InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 30000, CreateFixedAsset.FA000030(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", CreateGLAccount.Cash(), 95000); - InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 40000, CreateFixedAsset.FA000050(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", CreateGLAccount.Cash(), 15000); - InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 50000, CreateFixedAsset.FA000060(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", CreateGLAccount.Cash(), 60000); - InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 60000, CreateFixedAsset.FA000070(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", CreateGLAccount.Cash(), 1500); - InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 70000, CreateFixedAsset.FA000080(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", CreateGLAccount.Cash(), 11000); - InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 80000, CreateFixedAsset.FA000090(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", CreateGLAccount.Cash(), 4000); + InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 10000, CreateFixedAsset.FA000010(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", BalanceAccountNo, 65000); + InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 20000, CreateFixedAsset.FA000020(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", BalanceAccountNo, 70000); + InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 30000, CreateFixedAsset.FA000030(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", BalanceAccountNo, 95000); + InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 40000, CreateFixedAsset.FA000050(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", BalanceAccountNo, 15000); + InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 50000, CreateFixedAsset.FA000060(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", BalanceAccountNo, 60000); + InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 60000, CreateFixedAsset.FA000070(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", BalanceAccountNo, 1500); + InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 70000, CreateFixedAsset.FA000080(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", BalanceAccountNo, 11000); + InsertFAGenJournalLine(FAJournalTemplateName, FAJournalBatchName, 80000, CreateFixedAsset.FA000090(), ContosoUtilities.AdjustDate(19010101D), Enum::"Gen. Journal Line FA Posting Type"::"Acquisition Cost", AssetAcquisitionLbl, AcquisitionLbl, Enum::"Gen. Journal Account Type"::"G/L Account", BalanceAccountNo, 4000); Codeunit.Run(Codeunit::"Post FA Jnl. Lines"); CalculateDepreciationLines(ContosoUtilities.AdjustDate(19011231D), 1); @@ -68,9 +73,8 @@ codeunit 5609 "Create FA Jnl. Lines" local procedure CalculateDepreciationLines(PostingDate: Date; BatchCount: Integer) var CalculateDepreciation: Report "Calculate Depreciation"; - CreateFADepreciationBook: Codeunit "Create FA Depreciation Book"; begin - CalculateDepreciation.InitializeRequest(CreateFADepreciationBook.Company(), PostingDate, false, 0, PostingDate, StrSubstNo('%1%2', AssetDepreciationLbl, BatchCount), DepreciationLbl, true); + CalculateDepreciation.InitializeRequest(FASetup."Default Depr. Book", PostingDate, false, 0, PostingDate, StrSubstNo('%1%2', AssetDepreciationLbl, BatchCount), DepreciationLbl, true); CalculateDepreciation.UseRequestPage(false); BindSubscription(this); CalculateDepreciation.Run(); @@ -84,6 +88,7 @@ codeunit 5609 "Create FA Jnl. Lines" end; var + FASetup: Record "FA Setup"; AcquisitionLbl: Label 'Acquisition', MaxLength = 100; AssetAcquisitionLbl: Label 'ASSET-ACQ', MaxLength = 20; AssetDepreciationLbl: Label 'ASSET-DEPR', MaxLength = 20; From b03351aa98299420db1fcf7e833909e6adb7b720 Mon Sep 17 00:00:00 2001 From: Tuan Nguyen Date: Thu, 8 Jan 2026 22:28:30 +1100 Subject: [PATCH 09/13] Implemented Cash account for fixed asset acquisitions in CZ --- .../FixedAsset/1. Setup Data/CreateFASetupCZ.Codeunit.al | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/Apps/CZ/ContosoCoffeeDemoDatasetCZ/app/DemoData/FixedAsset/1. Setup Data/CreateFASetupCZ.Codeunit.al b/Apps/CZ/ContosoCoffeeDemoDatasetCZ/app/DemoData/FixedAsset/1. Setup Data/CreateFASetupCZ.Codeunit.al index 5498db0d99..d8624bf1cf 100644 --- a/Apps/CZ/ContosoCoffeeDemoDatasetCZ/app/DemoData/FixedAsset/1. Setup Data/CreateFASetupCZ.Codeunit.al +++ b/Apps/CZ/ContosoCoffeeDemoDatasetCZ/app/DemoData/FixedAsset/1. Setup Data/CreateFASetupCZ.Codeunit.al @@ -5,6 +5,7 @@ namespace Microsoft.DemoData.FixedAsset; +using Microsoft.DemoData.Finance; using Microsoft.FixedAssets.Setup; codeunit 11715 "Create FA Setup CZ" @@ -35,4 +36,12 @@ codeunit 11715 "Create FA Setup CZ" FASetup.Validate("Automatic Insurance Posting", AutomaticInsurancePosting); FASetup.Modify(true); end; + + [EventSubscriber(ObjectType::Codeunit, Codeunit::"Create FA GL Account", OnBeforeGetCashAccountForFixedAssetAcquisition, '', false, false)] + local procedure GetCZCashAccountForFixedAssetAcquisition(var GLAccountNo: Code[20]) + var + CreateGLAccountCZ: Codeunit "Create G/L Account CZ"; + begin + GLAccountNo := CreateGLAccountCZ.CashTransfer(); + end; } From 2421faf5089a22160379ce697dfeded793ad6c8b Mon Sep 17 00:00:00 2001 From: Tuan Nguyen Date: Thu, 8 Jan 2026 22:29:03 +1100 Subject: [PATCH 10/13] Added CreateFAJournalSetups function --- .../app/DemoData/ContosoCZLocalization.Codeunit.al | 1 + .../1. Setup Data/CreateDepreciationBookCZ.Codeunit.al | 10 ++++++++++ 2 files changed, 11 insertions(+) diff --git a/Apps/CZ/ContosoCoffeeDemoDatasetCZ/app/DemoData/ContosoCZLocalization.Codeunit.al b/Apps/CZ/ContosoCoffeeDemoDatasetCZ/app/DemoData/ContosoCZLocalization.Codeunit.al index 8e0308d99d..19a904e8db 100644 --- a/Apps/CZ/ContosoCoffeeDemoDatasetCZ/app/DemoData/ContosoCZLocalization.Codeunit.al +++ b/Apps/CZ/ContosoCoffeeDemoDatasetCZ/app/DemoData/ContosoCZLocalization.Codeunit.al @@ -248,6 +248,7 @@ codeunit 31215 "Contoso CZ Localization" Codeunit.Run(Codeunit::"Create FA Posting Group CZ"); Codeunit.Run(Codeunit::"Create FA Setup CZ"); CreateDepreciationBookCZ.DeleteDepreciationBooks(); + CreateDepreciationBookCZ.CreateFAJournalSetups(); end; Enum::"Contoso Demo Data Level"::"Master Data": begin diff --git a/Apps/CZ/ContosoCoffeeDemoDatasetCZ/app/DemoData/FixedAsset/1. Setup Data/CreateDepreciationBookCZ.Codeunit.al b/Apps/CZ/ContosoCoffeeDemoDatasetCZ/app/DemoData/FixedAsset/1. Setup Data/CreateDepreciationBookCZ.Codeunit.al index a929212202..3f499c2469 100644 --- a/Apps/CZ/ContosoCoffeeDemoDatasetCZ/app/DemoData/FixedAsset/1. Setup Data/CreateDepreciationBookCZ.Codeunit.al +++ b/Apps/CZ/ContosoCoffeeDemoDatasetCZ/app/DemoData/FixedAsset/1. Setup Data/CreateDepreciationBookCZ.Codeunit.al @@ -45,6 +45,16 @@ codeunit 31183 "Create Depreciation Book CZ" ContosoFixedAsset.InsertDepreciationBook(CreateFADepreciationBook.Company(), '', false, false, false, false, false, false, false, false, false, 0); end; + internal procedure CreateFAJournalSetups() + var + ContosoFixedAsset: Codeunit "Contoso Fixed Asset"; + CreateFAJnlTemplate: Codeunit "Create FA Jnl. Template"; + CreateFAInsTemplate: Codeunit "Create FA Ins Jnl. Template"; + begin + ContosoFixedAsset.InsertFAJournalSetup('', FirstAccount(), CreateFAJnlTemplate.Assets(), CreateFAInsTemplate.Default(), CreateFAJnlTemplate.Assets(), CreateFAInsTemplate.Default(), CreateFAInsTemplate.Insurance(), CreateFAJnlTemplate.Default()); + ContosoFixedAsset.InsertFAJournalSetup('', SecondTax(), CreateFAJnlTemplate.Assets(), CreateFAInsTemplate.Default(), CreateFAJnlTemplate.Assets(), CreateFAInsTemplate.Default(), CreateFAInsTemplate.Insurance(), CreateFAJnlTemplate.Default()); + end; + var FirstAccountLbl: Label '1-ACCOUNT', MaxLength = 10; SecondTaxLbl: Label '2-TAX', MaxLength = 10; From 3c9f7c95826db19261bd0ca510b1a32ebb8bab13 Mon Sep 17 00:00:00 2001 From: Tuan Nguyen Date: Thu, 8 Jan 2026 22:47:41 +1100 Subject: [PATCH 11/13] Implemented Cash account for fixed asset acquisitions in DK --- .../1. SetupData/CreateFADepreciationBookDK.Codeunit.al | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/Apps/DK/ContosoCoffeeDemoDatasetDK/app/DemoData/FixedAsset/1. SetupData/CreateFADepreciationBookDK.Codeunit.al b/Apps/DK/ContosoCoffeeDemoDatasetDK/app/DemoData/FixedAsset/1. SetupData/CreateFADepreciationBookDK.Codeunit.al index 1859797f48..4b98a0ee61 100644 --- a/Apps/DK/ContosoCoffeeDemoDatasetDK/app/DemoData/FixedAsset/1. SetupData/CreateFADepreciationBookDK.Codeunit.al +++ b/Apps/DK/ContosoCoffeeDemoDatasetDK/app/DemoData/FixedAsset/1. SetupData/CreateFADepreciationBookDK.Codeunit.al @@ -5,6 +5,7 @@ namespace Microsoft.DemoData.FixedAsset; +using Microsoft.DemoData.Finance; using Microsoft.FixedAssets.Depreciation; codeunit 13742 "Create FA Depreciation Book DK" @@ -29,4 +30,12 @@ codeunit 13742 "Create FA Depreciation Book DK" begin DepreciationBook.Validate("Default Final Rounding Amount", DefaultFinalRoundingAmount); end; + + [EventSubscriber(ObjectType::Codeunit, Codeunit::"Create FA GL Account", OnBeforeGetCashAccountForFixedAssetAcquisition, '', false, false)] + local procedure GetDKCashAccountForFixedAssetAcquisition(var GLAccountNo: Code[20]) + var + CreateGLAccDK: Codeunit "Create GL Acc. DK"; + begin + GLAccountNo := CreateGLAccDK.Cashflowfunds(); + end; } From 8f5845d9a42d9e5def773eeb45e163ac53a2cad2 Mon Sep 17 00:00:00 2001 From: Tuan Nguyen Date: Thu, 8 Jan 2026 22:47:55 +1100 Subject: [PATCH 12/13] Implemented Cash account for fixed asset acquisitions in NL --- .../1.Setup Data/CreateFADepreciationBookNL.Codeunit.al | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/Apps/NL/ContosoCoffeeDemoDatasetNL/app/DemoData/FixedAsset/1.Setup Data/CreateFADepreciationBookNL.Codeunit.al b/Apps/NL/ContosoCoffeeDemoDatasetNL/app/DemoData/FixedAsset/1.Setup Data/CreateFADepreciationBookNL.Codeunit.al index 607cc0c1bc..eefd6f9f8d 100644 --- a/Apps/NL/ContosoCoffeeDemoDatasetNL/app/DemoData/FixedAsset/1.Setup Data/CreateFADepreciationBookNL.Codeunit.al +++ b/Apps/NL/ContosoCoffeeDemoDatasetNL/app/DemoData/FixedAsset/1.Setup Data/CreateFADepreciationBookNL.Codeunit.al @@ -5,6 +5,7 @@ namespace Microsoft.DemoData.FixedAsset; +using Microsoft.DemoData.Finance; using Microsoft.FixedAssets.Depreciation; codeunit 11505 "Create FA Depreciation Book NL" @@ -29,4 +30,12 @@ codeunit 11505 "Create FA Depreciation Book NL" begin DepreciationBook.Validate("Default Final Rounding Amount", DefaultFinalRoundingAmount); end; + + [EventSubscriber(ObjectType::Codeunit, Codeunit::"Create FA GL Account", OnBeforeGetCashAccountForFixedAssetAcquisition, '', false, false)] + local procedure GetNLCashAccountForFixedAssetAcquisition(var GLAccountNo: Code[20]) + var + CreateNLGLAccounts: Codeunit "Create NL GL Accounts"; + begin + GLAccountNo := CreateNLGLAccounts.PettyCash(); + end; } From 6620676a5caf322567c8b597a8ed11a542c6cb6e Mon Sep 17 00:00:00 2001 From: Tuan Nguyen Date: Fri, 9 Jan 2026 10:08:29 +1100 Subject: [PATCH 13/13] Corrected namespace reference for codeunit "Create NL GL Accounts" --- .../1.Setup Data/CreateFADepreciationBookNL.Codeunit.al | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Apps/NL/ContosoCoffeeDemoDatasetNL/app/DemoData/FixedAsset/1.Setup Data/CreateFADepreciationBookNL.Codeunit.al b/Apps/NL/ContosoCoffeeDemoDatasetNL/app/DemoData/FixedAsset/1.Setup Data/CreateFADepreciationBookNL.Codeunit.al index eefd6f9f8d..5be242f659 100644 --- a/Apps/NL/ContosoCoffeeDemoDatasetNL/app/DemoData/FixedAsset/1.Setup Data/CreateFADepreciationBookNL.Codeunit.al +++ b/Apps/NL/ContosoCoffeeDemoDatasetNL/app/DemoData/FixedAsset/1.Setup Data/CreateFADepreciationBookNL.Codeunit.al @@ -5,7 +5,7 @@ namespace Microsoft.DemoData.FixedAsset; -using Microsoft.DemoData.Finance; +using Microsoft.DemoData.Localization; using Microsoft.FixedAssets.Depreciation; codeunit 11505 "Create FA Depreciation Book NL"