Skip to content

Commit 2690c85

Browse files
JesperSchulzJesperSchulz
committed
Syncing with version 27.0.38513.0
1 parent d18686b commit 2690c85

File tree

283 files changed

+15463
-3111
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

283 files changed

+15463
-3111
lines changed

‎.github/AL-Go-Settings.json‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,7 @@
66
"runs-on": "windows-latest",
77
"cacheImageName": "",
88
"UsePsSession": false,
9-
"artifact": "https://bcinsider-fvh2ekdjecfjd6gk.b02.azurefd.net/sandbox/27.0.38415.0/base",
9+
"artifact": "https://bcinsider-fvh2ekdjecfjd6gk.b02.azurefd.net/sandbox/27.0.38513.0/base",
1010
"country": "base",
1111
"useProjectDependencies": true,
1212
"repoVersion": "27.0",

‎Apps/AT/ContosoCoffeeDemoDatasetAT/app/DemoData/Common/CommonModuleAT.Codeunit.al‎

Lines changed: 5 additions & 21 deletions
Original file line numberDiff line numberDiff line change
@@ -1,32 +1,16 @@
1+
#if not CLEAN27
12
// ------------------------------------------------------------------------------------------------
23
// Copyright (c) Microsoft Corporation. All rights reserved.
34
// Licensed under the MIT License. See License.txt in the project root for license information.
45
// ------------------------------------------------------------------------------------------------
56
namespace Microsoft.DemoData.Common;
67

7-
using Microsoft.Foundation.Enums;
8-
using Microsoft.DemoTool;
9-
using Microsoft.DemoTool.Helpers;
10-
118
codeunit 11142 "Common Module AT"
129
{
1310
InherentEntitlements = X;
1411
InherentPermissions = X;
15-
16-
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Contoso Demo Tool", 'OnAfterGeneratingDemoData', '', false, false)]
17-
local procedure LocalizationVATPostingSetup(Module: Enum "Contoso Demo Data Module"; ContosoDemoDataLevel: Enum "Contoso Demo Data Level")
18-
var
19-
ContosoPostingSetup: Codeunit "Contoso Posting Setup";
20-
CommonPostingGroup: Codeunit "Create Common Posting Group";
21-
CommonGLAccount: Codeunit "Create Common GL Account";
22-
LocalStandardVATPercentage: Decimal;
23-
begin
24-
if Module = Enum::"Contoso Demo Data Module"::"Common Module" then
25-
if ContosoDemoDataLevel = Enum::"Contoso Demo Data Level"::"Setup Data" then begin
26-
LocalStandardVATPercentage := 20;
27-
ContosoPostingSetup.SetOverwriteData(true);
28-
ContosoPostingSetup.InsertVATPostingSetup(CommonPostingGroup.Domestic(), CommonPostingGroup.StandardVAT(), CommonGLAccount.SalesVATStandard(), CommonGLAccount.PurchaseVATStandard(), CommonPostingGroup.StandardVAT(), LocalStandardVATPercentage, Enum::"Tax Calculation Type"::"Normal VAT");
29-
ContosoPostingSetup.SetOverwriteData(false);
30-
end;
31-
end;
12+
ObsoleteReason = 'This codeunit is no longer needed.';
13+
ObsoleteState = Pending;
14+
ObsoleteTag = '27.0';
3215
}
16+
#endif

‎Apps/AT/ContosoCoffeeDemoDatasetAT/app/DemoData/ContosoATLocalization.Codeunit.al‎

Lines changed: 2 additions & 18 deletions
Original file line numberDiff line numberDiff line change
@@ -33,9 +33,6 @@ codeunit 11157 "Contoso AT Localization"
3333
if Module = Enum::"Contoso Demo Data Module"::Purchase then
3434
PurchaseModule(ContosoDemoDataLevel);
3535

36-
if Module = Enum::"Contoso Demo Data Module"::Inventory then
37-
InventoryModule(ContosoDemoDataLevel);
38-
3936
if Module = Enum::"Contoso Demo Data Module"::"Human Resources Module" then
4037
HumanResource(ContosoDemoDataLevel);
4138

@@ -67,15 +64,12 @@ codeunit 11157 "Contoso AT Localization"
6764
var
6865
CreateVatPostingGroupAT: Codeunit "Create VAT Posting Group AT";
6966
CreatePostingGroupsAT: Codeunit "Create Posting Groups AT";
70-
CreateATGLAccount: Codeunit "Create AT GL Account";
7167
begin
7268
case ContosoDemoDataLevel of
7369
Enum::"Contoso Demo Data Level"::"Setup Data":
7470
begin
7571
Codeunit.Run(Codeunit::"Create AT GL Account");
7672
CreateVatPostingGroupAT.CreateVATPostingSetup();
77-
CreateVatPostingGroupAT.UpdateGeneralProdPostingGroup();
78-
CreateATGLAccount.UpdateVATProdPostGrpInGLAccounts();
7973
CreatePostingGroupsAT.UpdateGenPostingSetup();
8074
Codeunit.Run(Codeunit::"Create Currency AT");
8175
Codeunit.Run(Codeunit::"Create General Ledger Setup AT");
@@ -113,17 +107,10 @@ codeunit 11157 "Contoso AT Localization"
113107
end;
114108
end;
115109

116-
local procedure InventoryModule(ContosoDemoDataLevel: Enum "Contoso Demo Data Level")
117-
begin
118-
case ContosoDemoDataLevel of
119-
Enum::"Contoso Demo Data Level"::"Master Data":
120-
Codeunit.Run(Codeunit::"Create Item Template AT");
121-
end;
122-
end;
123-
124110
[EventSubscriber(ObjectType::Codeunit, Codeunit::"Contoso Demo Tool", 'OnBeforeGeneratingDemoData', '', false, false)]
125111
local procedure OnBeforeGeneratingDemoData(Module: Enum "Contoso Demo Data Module"; ContosoDemoDataLevel: Enum "Contoso Demo Data Level")
126112
var
113+
FinanceModuleSetup: Record "Finance Module Setup";
127114
CreateResourceAT: Codeunit "Create Resource AT";
128115
CreateCurrencyExcRate: Codeunit "Create Currency Ex. Rate AT";
129116
CreateAccScheduleLineAT: Codeunit "Create Acc. Schedule Line AT";
@@ -132,7 +119,6 @@ codeunit 11157 "Contoso AT Localization"
132119
CreateFAPostingGrpAT: Codeunit "Create FA Posting Grp. AT";
133120
CreateInvPostingSetupAT: Codeunit "Create Inv. Posting Setup AT";
134121
CreateItemAT: Codeunit "Create Item AT";
135-
CreateItemChargeAT: Codeunit "Create Item Charge AT";
136122
CreateLoactionAT: Codeunit "Create Location AT";
137123
CreateVendorPostingGrpAT: Codeunit "Create Vendor Posting Grp AT";
138124
CreatePurchDimValueAT: Codeunit "Create Purch. Dim. Value AT";
@@ -154,6 +140,7 @@ codeunit 11157 "Contoso AT Localization"
154140
Enum::"Contoso Demo Data Module"::Finance:
155141
begin
156142
if ContosoDemoDataLevel = Enum::"Contoso Demo Data Level"::"Setup Data" then begin
143+
FinanceModuleSetup.InitRecord();
157144
Codeunit.Run(Codeunit::"Create VAT Posting Group AT");
158145
Codeunit.Run(Codeunit::"Create Posting Groups AT");
159146
end;
@@ -173,7 +160,6 @@ codeunit 11157 "Contoso AT Localization"
173160
begin
174161
BindSubscription(CreateInvPostingSetupAT);
175162
BindSubscription(CreateItemAT);
176-
BindSubscription(CreateItemChargeAT);
177163
BindSubscription(CreateLoactionAT);
178164
end;
179165
Enum::"Contoso Demo Data Module"::Purchase:
@@ -210,7 +196,6 @@ codeunit 11157 "Contoso AT Localization"
210196
CreateFAPostingGrpAT: Codeunit "Create FA Posting Grp. AT";
211197
CreateInvPostingSetupAT: Codeunit "Create Inv. Posting Setup AT";
212198
CreateItemAT: Codeunit "Create Item AT";
213-
CreateItemChargeAT: Codeunit "Create Item Charge AT";
214199
CreateLoactionAT: Codeunit "Create Location AT";
215200
CreateVendorPostingGrpAT: Codeunit "Create Vendor Posting Grp AT";
216201
CreatePurchDimValueAT: Codeunit "Create Purch. Dim. Value AT";
@@ -247,7 +232,6 @@ codeunit 11157 "Contoso AT Localization"
247232
begin
248233
UnbindSubscription(CreateInvPostingSetupAT);
249234
UnbindSubscription(CreateItemAT);
250-
UnbindSubscription(CreateItemChargeAT);
251235
UnbindSubscription(CreateLoactionAT);
252236
end;
253237
Enum::"Contoso Demo Data Module"::Purchase:

‎Apps/AT/ContosoCoffeeDemoDatasetAT/app/DemoData/Finance/1. Setup Data/CreateATGLAccount.Codeunit.al‎

Lines changed: 0 additions & 18 deletions
Original file line numberDiff line numberDiff line change
@@ -1313,24 +1313,6 @@ codeunit 11148 "Create AT GL Account"
13131313
until GLAccountCategory.Next() = 0;
13141314
end;
13151315

1316-
internal procedure UpdateVATProdPostGrpInGLAccounts()
1317-
var
1318-
GLAccounts: Record "G/L Account";
1319-
CreateVATPostingGroups: Codeunit "Create VAT Posting Groups";
1320-
CreateVATPostingGroupAT: Codeunit "Create VAT Posting Group AT";
1321-
begin
1322-
GLAccounts.SetFilter("VAT Prod. Posting Group", '<>%1', '');
1323-
if GLAccounts.FindSet() then
1324-
repeat
1325-
if GLAccounts."VAT Prod. Posting Group" = CreateVATPostingGroups.Standard() then
1326-
GLAccounts.Validate(GLAccounts."VAT Prod. Posting Group", CreateVATPostingGroupAT.VAT20());
1327-
if GLAccounts."VAT Prod. Posting Group" = CreateVATPostingGroups.Reduced() then
1328-
GLAccounts.Validate(GLAccounts."VAT Prod. Posting Group", CreateVATPostingGroupAT.VAT10());
1329-
if GLAccounts."VAT Prod. Posting Group" <> CreateVATPostingGroupAT.NOVAT() then
1330-
GLAccounts.Modify(true);
1331-
until GLAccounts.Next() = 0;
1332-
end;
1333-
13341316
procedure AssignCategoryToChartOfAccounts(GLAccountCategory: Record "G/L Account Category")
13351317
var
13361318
CreateGLAccount: Codeunit "Create G/L Account";

‎Apps/AT/ContosoCoffeeDemoDatasetAT/app/DemoData/Finance/1. Setup Data/CreatePostingGroupsAT.Codeunit.al‎

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -19,11 +19,13 @@ codeunit 11149 "Create Posting Groups AT"
1919

2020
local procedure InsertGenProdPostingGroup()
2121
var
22+
FinanceModuleSetup: Record "Finance Module Setup";
2223
ContosoPostingGroup: Codeunit "Contoso Posting Group";
23-
CreateVATPostingGroupAT: codeunit "Create VAT Posting Group AT";
2424
begin
25+
FinanceModuleSetup.Get();
26+
2527
ContosoPostingGroup.SetOverwriteData(true);
26-
ContosoPostingGroup.InsertGenProductPostingGroup(NoVATPostingGroup(), MiscDescriptionLbl, CreateVATPostingGroupAT.NOVAT());
28+
ContosoPostingGroup.InsertGenProductPostingGroup(NoVATPostingGroup(), MiscDescriptionLbl, FinanceModuleSetup."VAT Prod. Post Grp. NO VAT");
2729
ContosoPostingGroup.SetOverwriteData(false);
2830
end;
2931

0 commit comments

Comments
 (0)