Syncing with version 26.0.27417.0

microsoft · Nov 29, 2024 · bdc85fc · bdc85fc
1 parent 1945118
commit bdc85fc
Show file tree

Hide file tree

Showing 347 changed files with 10,481 additions and 6,242 deletions.
diff --git a/.github/AL-Go-Settings.json b/.github/AL-Go-Settings.json
@@ -5,7 +5,7 @@
   "runs-on": "windows-latest",
   "cacheImageName": "",
   "UsePsSession": false,
-  "artifact": "https://bcinsider-fvh2ekdjecfjd6gk.b02.azurefd.net/sandbox/26.0.27052.0/base",
+  "artifact": "https://bcinsider-fvh2ekdjecfjd6gk.b02.azurefd.net/sandbox/26.0.27417.0/base",
   "country": "base",
   "useProjectDependencies": true,
   "repoVersion": "26.0",

diff --git a/...CoffeeDemoDatasetAT/app/Demo Data/Bank/4. Historical Data/CreateBankAccRecoAT.Codeunit.al b/...CoffeeDemoDatasetAT/app/Demo Data/Bank/4. Historical Data/CreateBankAccRecoAT.Codeunit.al
diff --git a/...tosoCoffeeDemoDatasetAT/app/Demo Data/Finance/1. Setup Data/CreateATGLAccount.Codeunit.al b/...tosoCoffeeDemoDatasetAT/app/Demo Data/Finance/1. Setup Data/CreateATGLAccount.Codeunit.al
@@ -5,12 +5,11 @@ codeunit 11148 "Create AT GL Account"
 
     trigger OnRun()
     begin
-        AddGLAccountforAT();
+        UpdateGLAccountCatagory();
     end;
 
-    local procedure AddGLAccountforAT()
+    local procedure AddGLAccountForAT()
     var
-        GLAccountIndent: Codeunit "G/L Account-Indent";
         CreareVATPostingGrpAT: Codeunit "Create VAT Posting Group AT";
         CreatePostingGroup: Codeunit "Create Posting Groups";
         CreatePostingGroupAT: Codeunit "Create Posting Groups AT";
@@ -526,12 +525,10 @@ codeunit 11148 "Create AT GL Account"
         ContosoGLAccount.InsertGLAccount(SBK(), SBKName(), Enum::"G/L Account Income/Balance"::"Balance Sheet", Enum::"G/L Account Category"::Equity, Enum::"G/L Account Type"::Posting, '', '', 0, '', Enum::"General Posting Type"::" ", '', '', true, false, false);
         ContosoGLAccount.InsertGLAccount(ProfitAndLossStatement(), ProfitAndLossStatementName(), Enum::"G/L Account Income/Balance"::"Balance Sheet", Enum::"G/L Account Category"::Equity, Enum::"G/L Account Type"::Posting, '', '', 0, '', Enum::"General Posting Type"::" ", '', '', true, false, false);
         ContosoGLAccount.InsertGLAccount(TOTALEQUITYRESERVES(), TOTALEQUITYRESERVESName(), Enum::"G/L Account Income/Balance"::"Balance Sheet", Enum::"G/L Account Category"::Equity, Enum::"G/L Account Type"::"End-Total", '', '', 0, '', Enum::"General Posting Type"::" ", '', '', false, false, false);
-        GLAccountIndent.Indent();
-        UpdateGLAccountCatagory();
     end;
 
     [EventSubscriber(ObjectType::Codeunit, Codeunit::"Create G/L Account", 'OnAfterAddGLAccountsForLocalization', '', false, false)]
-    local procedure ModifyGLAccountforDE()
+    local procedure ModifyGLAccountForAT()
     var
         CreateGLAccount: Codeunit "Create G/L Account";
     begin
@@ -1043,6 +1040,8 @@ codeunit 11148 "Create AT GL Account"
         ContosoGLAccount.AddAccountForLocalization(SBKName(), '9850');
         ContosoGLAccount.AddAccountForLocalization(ProfitAndLossStatementName(), '9890');
         ContosoGLAccount.AddAccountForLocalization(TOTALEQUITYRESERVESName(), '9999');
+
+        AddGLAccountForAT();
     end;
 
     local procedure ModifyGLAccountForW1()

diff --git a/...ffeeDemoDatasetAT/app/Demo Data/Finance/1. Setup Data/CreateAccScheduleLineAT.Codeunit.al b/...ffeeDemoDatasetAT/app/Demo Data/Finance/1. Setup Data/CreateAccScheduleLineAT.Codeunit.al
@@ -5,8 +5,6 @@ codeunit 11151 "Create Acc. Schedule Line AT"
     InherentEntitlements = X;
     InherentPermissions = X;
 
-    //ToDo: Need to Check with MS Team why standard Schedule Name are commented in W1
-
     [EventSubscriber(ObjectType::Table, Database::"Acc. Schedule Line", 'OnBeforeInsertEvent', '', false, false)]
     local procedure OnBeforeInsertAccScheduleLine(var Rec: Record "Acc. Schedule Line")
     var
@@ -87,10 +85,7 @@ codeunit 11151 "Create Acc. Schedule Line AT"
         if Rec."Schedule Name" = CreateAccountScheduleName.ReducedTrialBalance() then
             case Rec."Line No." of
                 10000:
-                    begin
-                        ValidateRecordFields(Rec, CreateATGLAccount.TOTALOPERATINGINCOME(), Enum::"Acc. Schedule Line Totaling Type"::"Total Accounts");
-                        Rec.Validate(Description, TotalRevenueLbl);
-                    end;
+                    ValidateRecordFields(Rec, CreateATGLAccount.TOTALOPERATINGINCOME(), Enum::"Acc. Schedule Line Totaling Type"::"Total Accounts");
                 20000:
                     ValidateRecordFields(Rec, CreateATGLAccount.TOTALCOSTOFMATERIALS(), Enum::"Acc. Schedule Line Totaling Type"::"Total Accounts");
                 50000:
@@ -126,12 +121,7 @@ codeunit 11151 "Create Acc. Schedule Line AT"
             end;
     end;
 
-    local procedure ValidateRecordFields(var AccScheduleLine:
-                                                 Record "Acc. Schedule Line";
-    Totaling:
-        Text;
-    TotalingType:
-        Enum "Acc. Schedule Line Totaling Type")
+    local procedure ValidateRecordFields(var AccScheduleLine: Record "Acc. Schedule Line"; Totaling: Text; TotalingType: Enum "Acc. Schedule Line Totaling Type")
     begin
         AccScheduleLine.Validate(Totaling, Totaling);
         AccScheduleLine.Validate("Totaling Type", TotalingType);
@@ -143,7 +133,4 @@ codeunit 11151 "Create Acc. Schedule Line AT"
         AccScheduleLine.Validate(Totaling, Totaling);
         AccScheduleLine.Validate("Totaling Type", TotalingType);
     end;
-
-    var
-        TotalRevenueLbl: Label 'Total Revenue', MaxLength = 100;
 }
diff --git a/...CoffeeDemoDatasetAT/app/Demo Data/Finance/1. Setup Data/CreatePostingGroupsAT.Codeunit.al b/...CoffeeDemoDatasetAT/app/Demo Data/Finance/1. Setup Data/CreatePostingGroupsAT.Codeunit.al
@@ -4,7 +4,6 @@ codeunit 11149 "Create Posting Groups AT"
     InherentPermissions = X;
 
     trigger OnRun()
-    var
     begin
         InsertGenProdPostingGroup();
     end;
@@ -16,7 +15,6 @@ codeunit 11149 "Create Posting Groups AT"
         CreatePostingGroup: Codeunit "Create Posting Groups";
     begin
         ContosoPostingGroup.SetOverwriteData(true);
-        ContosoPostingGroup.InsertGenProductPostingGroup(ManufactPostingGroup(), CapacitiesLbl, '');
         ContosoPostingGroup.InsertGenProductPostingGroup(NoVATPostingGroup(), MiscDescriptionLbl, CreateVATPostingGroupAT.NOVAT());
         UpdateGenProdPostingGrp(CreatePostingGroup.FreightPostingGroup(), CreateVATPostingGroupAT.VAT20());
         UpdateGenProdPostingGrp(CreatePostingGroup.RawMatPostingGroup(), CreateVATPostingGroupAT.VAT20());
@@ -63,14 +61,7 @@ codeunit 11149 "Create Posting Groups AT"
         exit(NoVATTok);
     end;
 
-    procedure ManufactPostingGroup(): Code[20]
-    begin
-        exit(ManufactTok);
-    end;
-
     var
-        CapacitiesLbl: Label 'Capacities', MaxLength = 100;
         MiscDescriptionLbl: Label 'Miscellaneous without VAT', MaxLength = 100;
         NoVATTok: Label 'NO VAT', MaxLength = 20;
-        ManufactTok: Label 'MANUFACT', MaxLength = 20;
 }