Fix & New demo

BCPerfToolDemos/src/01 Data Access/03 SIFT/c. Visibility on Pages/Just Some Colors DynHidden WPT_.Page.al → BCPerfToolDemos/src/01 Data Access/03 SIFT/c. Visibility on Pages/JustSomeColorsDynHiddenWPT.Page.al

@@ -28,7 +28,10 @@ page 62217 "Just Some Colors DynHidden WPT" // Original: page 62210 "Just Some C
     }
     trigger OnOpenPage()
     begin
-        VisibleVar:=false end;
-    var[InDataSet]
-    VisibleVar: Boolean;
+        VisibleVar := false
+    end;
+
+    var
+        [InDataSet]
+        VisibleVar: Boolean;
 }

BCPerfToolDemos/src/02 Coding/02 Queries/04 Queries and SumIndexFields/DemoQueryAndSIFTWPT.Codeunit.al

@@ -0,0 +1,50 @@
+codeunit 62283 "Demo - Query And SIFT WPT" implements "PerfToolCodeunit WPT"
+{
+    #region LotNumbersQry
+    procedure LotNumbersQuery()
+    var
+        LotNumbersbyBin: Query "Lot Numbers by Bin"; //Default BC Query
+    begin
+        LotNumbersbyBin.Open();
+
+        while LotNumbersbyBin.Read() do; //Debug and check SQL Statement
+        //do something
+
+        LotNumbersbyBin.Close();
+    end;
+    #endregion
+
+    #region InterfaceImplementation
+    procedure Run(ProcedureName: Text) Result: Boolean;
+    begin
+        case ProcedureName of
+            GetProcedures().Get(1):
+                LotNumbersQuery();
+        end;
+
+        Result := true;
+    end;
+
+    procedure GetProcedures() Result: List of [Text[50]];
+    begin
+        Result.Add('LotNumbersQuery');
+    end;
+
+    [EventSubscriber(ObjectType::Codeunit, Codeunit::"PerfTool Triggers WPT", 'OnGetSuiteData', '', false, false)]
+    local procedure OnAfterInsertSuiteGroup()
+    var
+        PerfToolSuiteHeaderWPT: Record "PerfTool Suite Header WPT";
+        WPTSuiteLine: Record "PerfTool Suite Line WPT";
+        PerfToolGroupWPT: Record "PerfTool Group WPT";
+        CreatePerfToolDataLibraryWPT: Codeunit "Create PerfToolDataLibrary WPT";
+    begin
+        CreatePerfToolDataLibraryWPT.CreateGroup('02.QUERIES', 'Queries', PerfToolGroupWPT);
+
+        CreatePerfToolDataLibraryWPT.CreateSuite(PerfToolGroupWPT, 'QueryAndSift', 'Queries with(out) SIFT', PerfToolSuiteHeaderWPT);
+
+        CreatePerfToolDataLibraryWPT.CreateSuiteLines(PerfToolSuiteHeaderWPT, WPTSuiteLine."Object Type"::Codeunit, enum::"PerfToolCodeunit WPT"::QueryAndSIFT, true, false, WPTSuiteLine);
+    end;
+    #endregion
+}
+
+// Cut/Paste this next line to the enumextension for "PerfToolCodeunit WPT"

BCPerfToolDemos/src/02 Coding/02 Queries/04 Queries and SumIndexFields/WarehouseEntryExtWPT.TableExt.al

@@ -0,0 +1,11 @@
+tableextension 62203 "WarehouseEntry Ext WPT" extends "Warehouse Entry" //7312
+{
+    // keys
+    // {
+    //     key(Key8WPT; "Location Code", "Item No.", "Variant Code", "Zone Code", "Bin Code", "Lot No.", "Serial No.", "Package No.", "Unit of Measure Code")
+    //     {
+    //         // IncludedFields = "Qty. (Base)";
+    //         SumIndexFields = "Qty. (Base)";
+    //     }
+    // }
+}

BCPerfToolDemos/src/PerfToolCodeunitWPTExtWPT.EnumExt.al

@@ -32,4 +32,5 @@ enumextension 62202 "PerfToolCodeunitWPT Ext WPT" extends "PerfToolCodeunit WPT"
     value(62290; "UpgradeCode") { Implementation = "PerfToolCodeunit WPT" = "Demo - Upgrade Code WPT"; }
     value(62218; "FindSetLockingWPT") { Implementation = "PerfToolCodeunit WPT" = "Demo - Locking Find(Set) WPT"; }
     value(62217; "PartialRecordsToDebug") { Implementation = "PerfToolCodeunit WPT" = "Demo - Partial Records (Debug)"; }
+    value(62283; QueryAndSIFT) { Implementation = "PerfToolCodeunit WPT" = "Demo - Query And SIFT WPT"; }
 }