Skip to content

Added dimension setup & posted entries for fixed assets #29390

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 26 commits into
base: main
Choose a base branch
from
Open

Added dimension setup & posted entries for fixed assets #29390

Show file tree
Hide file tree
Changes from 17 commits
Commits
Show all changes
26 commits
Select commit Hold shift + click to select a range
2879ddb
Added dimension setup to fixed assets
Nov 5, 2025
e4c3ea2
Added InsertFixedAsset function that takes FA Posting Group parameter
Nov 5, 2025
122e0f8
Added FA posting group to fixed asset dataset
Nov 5, 2025
b183a44
Added codeunits to generate FA journal lines & posted entries
Nov 5, 2025
63d9a69
Merged PR 38641: Dimension setup & posted entries for Fixed Assets
Nov 7, 2025
1b8a435
Sorted variables and usings
Dec 12, 2025
36102d0
Merge remote-tracking branch 'origin/main' into uptake/fixed-asset-up…
Jan 8, 2026
7cf988d
Updated Fixed Asset object IDs
Jan 8, 2026
1d4ce41
Added GetCashAccountNo function
Jan 8, 2026
a66dec4
Updated FA journal lines creation
Jan 8, 2026
b03351a
Implemented Cash account for fixed asset acquisitions in CZ
Jan 8, 2026
2421faf
Added CreateFAJournalSetups function
Jan 8, 2026
3c9f7c9
Implemented Cash account for fixed asset acquisitions in DK
Jan 8, 2026
8f5845d
Implemented Cash account for fixed asset acquisitions in NL
Jan 8, 2026
6620676
Corrected namespace reference for codeunit "Create NL GL Accounts"
Jan 8, 2026
9e69bb1
Merge remote-tracking branch 'origin/main' into uptake/fixed-asset-up…
Jan 22, 2026
e7b5230
Updated G/L account used to acquire fixed assets in DK
Jan 22, 2026
30f4605
Moved FA journal lines coduenit to Historical folder
Jan 30, 2026
1b2b9f9
Moved InsertFAGenJournalLine function to Contoso FA codeunit
Jan 30, 2026
12b4c58
Merge remote-tracking branch 'origin/main' into uptake/fixed-asset-up…
Jan 30, 2026
83304f1
Replaced GetCashAccountNo by Cash account directly for W1
Jan 30, 2026
68eacee
Removed GetCashAccountNo function & OnBeforeGetCashAccountForFixedAss…
Jan 30, 2026
ef62bbc
Removed OnBeforeGetCashAccountForFixedAssetAcquisition subscriber fro…
Jan 30, 2026
59f2c70
Added OnBeforeInsertGenJournalLineCZ subscriber to populate Cash acco…
Jan 30, 2026
88c2279
Replaced OnBeforeInsertGenJournalLine subscriber to populate Cash acc…
Jan 30, 2026
4f9766c
Replaced OnBeforeInsertGenJournalLine subscriber to populate Cash acc…
Jan 30, 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
1 change: 1 addition & 0 deletions Apps/CZ/ContosoCoffeeDemoDatasetCZ/app/DemoData/ContosoCZLocalization.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
10 changes: 10 additions & 0 deletions ...eDemoDatasetCZ/app/DemoData/FixedAsset/1. Setup Data/CreateDepreciationBookCZ.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down
9 changes: 9 additions & 0 deletions ...tosoCoffeeDemoDatasetCZ/app/DemoData/FixedAsset/1. Setup Data/CreateFASetupCZ.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,6 +5,7 @@

namespace Microsoft.DemoData.FixedAsset;

using Microsoft.DemoData.Finance;
using Microsoft.FixedAssets.Setup;

codeunit 11715 "Create FA Setup CZ"
Expand Down Expand Up @@ -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;
}
9 changes: 9 additions & 0 deletions ...DemoDatasetDK/app/DemoData/FixedAsset/1. SetupData/CreateFADepreciationBookDK.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,6 +5,7 @@

namespace Microsoft.DemoData.FixedAsset;

using Microsoft.DemoData.Finance;
using Microsoft.FixedAssets.Depreciation;

codeunit 13742 "Create FA Depreciation Book DK"
Expand All @@ -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.Bank();
end;
}
9 changes: 9 additions & 0 deletions ...DemoDatasetNL/app/DemoData/FixedAsset/1.Setup Data/CreateFADepreciationBookNL.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,6 +5,7 @@

namespace Microsoft.DemoData.FixedAsset;

using Microsoft.DemoData.Localization;
using Microsoft.FixedAssets.Depreciation;

codeunit 11505 "Create FA Depreciation Book NL"
Expand All @@ -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;
}
17 changes: 17 additions & 0 deletions ...ntosoCoffeeDemoDataset/app/DemoData/FixedAsset/1.Setup Data/CreateFAGLAccount.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,6 +5,7 @@

namespace Microsoft.DemoData.FixedAsset;

using Microsoft.DemoData.Finance;
using Microsoft.DemoTool.Helpers;
using Microsoft.Finance.GeneralLedger.Account;

Expand Down Expand Up @@ -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);
Copy link
Copy Markdown

@attilatoury attilatoury Jan 29, 2026

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Those individual events will soon make the codebase difficult to maintain, to see how we localize GL accounts, see the coding patterns in this file (under the section GL Account):
https://github.com/microsoft/ALAppExtensions/blob/main/Apps/W1/ContosoCoffeeDemoDataset/app/Coding-Patterns.md

Copy link
Copy Markdown
Contributor Author

@tuan-nguyen-fenwick tuan-nguyen-fenwick Jan 30, 2026

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Thank you, I've restructured and changed to using more generic event OnBeforeInsertEvent for CZ, NL and DK instead of relying on a custom event.

if GLAccountNo <> '' then
exit(GLAccountNo);

exit(CreateGLAccount.Cash());
end;

var
ContosoGLAccount: Codeunit "Contoso GL Account";
DepreciationEquipmentLbl: Label 'Depreciation, Equipment', MaxLength = 100;
Expand Down Expand Up @@ -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;
}
35 changes: 35 additions & 0 deletions ...offeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFADimensionValue.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -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.DemoData.Finance;
using Microsoft.DemoTool.Helpers;
using Microsoft.Finance.Dimension;
using Microsoft.FixedAssets.FixedAsset;

codeunit 5614 "Create FA Dimension Value"
{
InherentEntitlements = X;
InherentPermissions = X;

trigger OnRun()
var
ContosoDimension: Codeunit "Contoso Dimension";
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"::" ");
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;
}
56 changes: 29 additions & 27 deletions ...ntosoCoffeeDemoDataset/app/DemoData/FixedAsset/2.Master Data/CreateFixedAsset.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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()
Expand All @@ -58,18 +59,19 @@ codeunit 5118 "Create Fixed Asset"
local procedure CreateFADepreciationBookForAssets()
var
ContosoFixedAsset: Codeunit "Contoso Fixed Asset";
CreateFADepreciationBook: Codeunit "Create FA Depreciation Book";
ContosoUtilities: Codeunit "Contoso Utilities";
CreateFADepreciationBook: Codeunit "Create FA Depreciation Book";
CreateFAPostingGroup: Codeunit "Create FA Posting Group";
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]
Expand Down Expand Up @@ -118,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;
}
Loading
Loading