Fixing install issue, resolving warnings

waldo1001 · Sep 20, 2024 · 7719a1e · 7719a1e
1 parent dd31e75
commit 7719a1e
Show file tree

Hide file tree

Showing 12 changed files with 23 additions and 31 deletions.
diff --git a/BCPerfToolDemos/src/.Install/InstallDemoDataWPT.Codeunit.al b/BCPerfToolDemos/src/.Install/InstallDemoDataWPT.Codeunit.al
@@ -24,44 +24,37 @@ codeunit 62205 "Install Demo Data WPT"
         JustSomeExtendedTable4WPT: Record "Just Some Extended Table 4 WPT";
         ObsoleteTableWPT: Record "Obsolete Table WPT";
         TableWithObsoleteFieldsWPT: Record "Table With Obsolete Fields WPT";
-        JobQueueEntry1: Record "Job Queue Entry";
-        JobQueueEntry2: Record "Job Queue Entry";
-        JobQueueEntry3: Record "Job Queue Entry";
-        JobQueueEntry4: Record "Job Queue Entry";
-        JobQueueEntry5: Record "Job Queue Entry";
-        JobQueueEntry6: Record "Job Queue Entry";
-        JobQueueEntry7: Record "Job Queue Entry";
-        RecId: Recordid;
+        JobQueueEntry: array[8] of Record "Job Queue Entry";
         ScheduleAt: DateTime;
     begin
         // ScheduleAt := CreateDateTime(CalcDate('<+1D>', today), Time());
         ScheduleAt := CreateDateTime(today, Time() + 000500);
 
 
         if JustSomeTableWPT.IsEmpty then
-            JobQueueEntry1.ScheduleJobQueueEntryForLater(codeunit::"Install - Big Table WPT", ScheduleAt, '', '');
-        // JobQueueEntry1.ScheduleJobQueueEntry(codeunit::"Install - Big Table WPT", RecId);
+            JobQueueEntry[1].ScheduleJobQueueEntryForLater(codeunit::"Install - Big Table WPT", ScheduleAt, '', '');
+        // JobQueueEntry[1].ScheduleJobQueueEntry(codeunit::"Install - Big Table WPT", RecId);
         if JustSomeExtendedTable1WPT.IsEmpty then
-            JobQueueEntry2.ScheduleJobQueueEntryForLater(codeunit::"Install - Big Ext. Table 1 WPT", ScheduleAt, '', '');
-        // JobQueueEntry2.ScheduleJobQueueEntry(codeunit::"Install - Big Ext. Table 1 WPT", RecId);
+            JobQueueEntry[2].ScheduleJobQueueEntryForLater(codeunit::"Install - Big Ext. Table 1 WPT", ScheduleAt, '', '');
+        // JobQueueEntry[2].ScheduleJobQueueEntry(codeunit::"Install - Big Ext. Table 1 WPT", RecId);
         if JustSomeExtendedTable2WPT.IsEmpty then
-            JobQueueEntry3.ScheduleJobQueueEntryForLater(codeunit::"Install - Big Ext. Table 2 WPT", ScheduleAt, '', '');
-        // JobQueueEntry3.ScheduleJobQueueEntry(codeunit::"Install - Big Ext. Table 2 WPT", RecId);
+            JobQueueEntry[3].ScheduleJobQueueEntryForLater(codeunit::"Install - Big Ext. Table 2 WPT", ScheduleAt, '', '');
+        // JobQueueEntry[3].ScheduleJobQueueEntry(codeunit::"Install - Big Ext. Table 2 WPT", RecId);
         if JustSomeExtendedTable3WPT.IsEmpty then
-            JobQueueEntry4.ScheduleJobQueueEntryForLater(codeunit::"Install - Big Ext. Table 3 WPT", ScheduleAt, '', '');
-        // JobQueueEntry4.ScheduleJobQueueEntry(codeunit::"Install - Big Ext. Table 3 WPT", RecId);
+            JobQueueEntry[4].ScheduleJobQueueEntryForLater(codeunit::"Install - Big Ext. Table 3 WPT", ScheduleAt, '', '');
+        // JobQueueEntry[4].ScheduleJobQueueEntry(codeunit::"Install - Big Ext. Table 3 WPT", RecId);
         if JustSomeExtendedTable4WPT.IsEmpty then
-            JobQueueEntry5.ScheduleJobQueueEntryForLater(codeunit::"Install - Big Ext. Table 4 WPT", ScheduleAt, '', '');
-        // JobQueueEntry5.ScheduleJobQueueEntry(codeunit::"Install - Big Ext. Table 4 WPT", RecId);
+            JobQueueEntry[5].ScheduleJobQueueEntryForLater(codeunit::"Install - Big Ext. Table 4 WPT", ScheduleAt, '', '');
+        // JobQueueEntry[5].ScheduleJobQueueEntry(codeunit::"Install - Big Ext. Table 4 WPT", RecId);
         if ObsoleteTableWPT.IsEmpty then
-            JobQueueEntry6.ScheduleJobQueueEntryForLater(codeunit::"Install - Obsolete Table WPT", ScheduleAt, '', '');
-        // JobQueueEntry6.ScheduleJobQueueEntry(codeunit::"Install - Obsolete Table WPT", RecId);
+            JobQueueEntry[6].ScheduleJobQueueEntryForLater(codeunit::"Install - Obsolete Table WPT", ScheduleAt, '', '');
+        // JobQueueEntry[6].ScheduleJobQueueEntry(codeunit::"Install - Obsolete Table WPT", RecId);
         if ObsoleteTableWPT.IsEmpty then
-            JobQueueEntry6.ScheduleJobQueueEntryForLater(codeunit::"Install - Obsolete Table WPT", ScheduleAt, '', '');
-        // JobQueueEntry6.ScheduleJobQueueEntry(codeunit::"Install - Obsolete Table WPT", RecId);
+            JobQueueEntry[7].ScheduleJobQueueEntryForLater(codeunit::"Install - Obsolete Table WPT", ScheduleAt, '', '');
+        // JobQueueEntry[7].ScheduleJobQueueEntry(codeunit::"Install - Obsolete Table WPT", RecId);
         if TableWithObsoleteFieldsWPT.IsEmpty then
-            JobQueueEntry7.ScheduleJobQueueEntryForLater(Codeunit::"Install - Obsolete Fields WPT", ScheduleAt, '', '');
-        // JobQueueEntry7.ScheduleJobQueueEntry(Codeunit::"Install - Obsolete Fields WPT", RecId);
+            JobQueueEntry[8].ScheduleJobQueueEntryForLater(Codeunit::"Install - Obsolete Fields WPT", ScheduleAt, '', '');
+        // JobQueueEntry[8].ScheduleJobQueueEntry(Codeunit::"Install - Obsolete Fields WPT", RecId);
     end;
 
     local procedure EmptyTable()

diff --git a/BCPerfToolDemos/src/01 Data Access/02 Find FindSet/DemoLoopingFindSetWPT.Codeunit.al b/BCPerfToolDemos/src/01 Data Access/02 Find FindSet/DemoLoopingFindSetWPT.Codeunit.al
@@ -1,4 +1,3 @@
-#pragma warning disable
 codeunit 62226 "Demo - Looping Find(Set) WPT" implements "PerfToolCodeunit WPT"
 {
     #region FindSetAndLoop40

diff --git a/...t/FindSetTrueAndSleepWPT.Codeunit copy.al → ...indSet/FindSetTrueAndSleepWPT.Codeunit.al b/...t/FindSetTrueAndSleepWPT.Codeunit copy.al → ...indSet/FindSetTrueAndSleepWPT.Codeunit.al
diff --git a/...emos/src/01 Data Access/03 SIFT/c. Visibility on Pages/JustSomeColorsDynHiddenWPT.Page.al b/...emos/src/01 Data Access/03 SIFT/c. Visibility on Pages/JustSomeColorsDynHiddenWPT.Page.al
@@ -32,6 +32,5 @@ page 62221 "Just Some Colors DynHidden WPT" // Original: page 62210 "Just Some C
     end;
 
     var
-        [InDataSet]
         VisibleVar: Boolean;
 }
diff --git a/...ages/Just Some Colors Hidden WPT_.Page.al → ... on Pages/JustSomeColorsHiddenWPT.Page.al b/...ages/Just Some Colors Hidden WPT_.Page.al → ... on Pages/JustSomeColorsHiddenWPT.Page.al
diff --git a/...ges/Just Some Colors Removed WPT_.Page.al → ...on Pages/JustSomeColorsRemovedWPT.Page.al b/...ges/Just Some Colors Removed WPT_.Page.al → ...on Pages/JustSomeColorsRemovedWPT.Page.al
diff --git a/BCPerfToolDemos/src/01 Data Access/10 TriStateLocking/DemoTriStateLockingWPT.Codeunit.al b/BCPerfToolDemos/src/01 Data Access/10 TriStateLocking/DemoTriStateLockingWPT.Codeunit.al
@@ -1,3 +1,4 @@
+#pragma warning disable AA0175
 codeunit 62300 "Demo - TriState Locking WPT" implements "PerfToolCodeunit WPT"
 {
     #region WithLockTable

diff --git a/...os/src/02 Coding/03 Events/b. Publishers WITH subscribers/PublisherSubsBigWPT.Codeunit.al b/...os/src/02 Coding/03 Events/b. Publishers WITH subscribers/PublisherSubsBigWPT.Codeunit.al
@@ -1,4 +1,4 @@
-#pragma warning disable
+#pragma warning disable AA0228
 codeunit 62276 "Publisher Subs (Big) WPT"
 {
     [EventSubscriber(ObjectType::Codeunit, codeunit::"Demo - PublishersWithSubs WPT", 'OnAfterDoingSomethingBig', '', false, false)]

diff --git a/BCPerfToolDemos/src/02 Coding/11 Retention Policy/AddRetentionAllowedTablesWPT.Codeunit.al b/BCPerfToolDemos/src/02 Coding/11 Retention Policy/AddRetentionAllowedTablesWPT.Codeunit.al
@@ -27,7 +27,7 @@ codeunit 62212 "AddRetentionAllowedTables WPT"
         RetenPolAllowedTables.AddAllowedTable(Database::"Just Some Table WPT", JustSomeTableWPT.FieldNo(DateCreated), 1, enum::"Reten. Pol. Filtering"::Default, enum::"Reten. Pol. Deleting"::Per1000Records, tablefilters);
     end;
 
-#pragma warning disable
+#pragma warning disable AA0228
     local procedure CreateRetentionPolicy(TableId: Integer; DateFieldNo: Integer)
     var
         RetentionPolicySetup: Record "Retention Policy Setup";

diff --git a/...02 Coding/17 Upgrade Code/2. Upgrade with DataTransfer/DataTransferUpgradeWPT.Codeunit.al b/...02 Coding/17 Upgrade Code/2. Upgrade with DataTransfer/DataTransferUpgradeWPT.Codeunit.al
@@ -1,4 +1,4 @@
-#pragma warning disable
+#pragma warning disable AA0136
 codeunit 62296 "DataTransfer Upgrade WPT"
 {
     Subtype = Upgrade;

diff --git a/BCPerfToolDemos/src/03 Tools/01 Performance Toolkit/BCPTTestParamEnumExtWPT.EnumExt.al b/BCPerfToolDemos/src/03 Tools/01 Performance Toolkit/BCPTTestParamEnumExtWPT.EnumExt.al
@@ -1,7 +1,7 @@
 #pragma warning disable AS0099, AS0098
 enumextension 62203 "BCPTTestParamEnum Ext WPT" extends "BCPT Test Param. Enum"
 {
-    value(60217; "60217")
+    value(62201; "62201")
     {
         Implementation = "BCPT Test Param. Provider" = "BCPTScen - ModifyAll WPT";
     }

diff --git a/BCPerfToolDemos/src/03 Tools/03 Debugger/DemoDebuggerWPT.Codeunit.al b/BCPerfToolDemos/src/03 Tools/03 Debugger/DemoDebuggerWPT.Codeunit.al
@@ -1,4 +1,4 @@
-#pragma warning disable 
+#pragma warning disable AA0206, AA0137, AA0242, AA0175, AA0210
 
 codeunit 62249 "Demo - Debugger WPT" implements "PerfToolCodeunit WPT"
 {