[Quality Management] Feature uptake telemetry improvements

src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspectionGenRules.Page.al

@@ -9,6 +9,7 @@ using Microsoft.QualityManagement.Integration.Manufacturing;
 using Microsoft.QualityManagement.Integration.Receiving;
 using Microsoft.QualityManagement.Integration.Warehouse;
 using Microsoft.QualityManagement.Setup;
+using Microsoft.QualityManagement.Telemetry;
 
 page 20405 "Qlty. Inspection Gen. Rules"
 {
@@ -467,7 +468,10 @@ page 20405 "Qlty. Inspection Gen. Rules"
     trigger OnOpenPage()
     var
         QltyInspecGenRuleMgmt: Codeunit "Qlty. Inspec. Gen. Rule Mgmt.";
+        QltyMgmtFeatureTelemetry: Codeunit "Qlty. Mgmt. Feature Telemetry";
     begin
+        QltyMgmtFeatureTelemetry.LogFeatureUptakeDiscovered(ObjectType::Page, Page::"Qlty. Inspection Gen. Rules");
+
         Rec.SetFilter("Table ID Filter", QltyInspecGenRuleMgmt.GetFilterForAvailableConfigurations());
         AttemptUpdateUnknownIntents();
         IdentifyIfPageStartedWithATemplate();

src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyInspectionResultList.Page.al

@@ -4,6 +4,8 @@
 // ------------------------------------------------------------------------------------------------
 namespace Microsoft.QualityManagement.Configuration.Result;
 
+using Microsoft.QualityManagement.Telemetry;
+
 /// <summary>
 /// Results are effectively the incomplete/pass/fail state of an inspection. It is typical to have three results (incomplete, fail, pass), however you can configure as many results as you want, and in what circumstances. The results with a lower number for the priority test are evaluated first.
 /// </summary>
@@ -150,6 +152,13 @@ page 20416 "Qlty. Inspection Result List"
     var
         MustChangePriorityErr: Label 'Evaluation Sequence must be unique, you cannot have two results with the same evaluation sequence. Result [%1/%2] already has the same evaluation sequence.', Comment = '%1=The result code, %2=the result condition';
 
+    trigger OnOpenPage()
+    var
+        QltyMgmtFeatureTelemetry: Codeunit "Qlty. Mgmt. Feature Telemetry";
+    begin
+        QltyMgmtFeatureTelemetry.LogFeatureUptakeDiscovered(ObjectType::Page, Page::"Qlty. Inspection Result List");
+    end;
+
     trigger OnNewRecord(BelowxRec: Boolean)
     var
         ExistingQltyInspectionResult: Record "Qlty. Inspection Result";

src/Apps/W1/Quality Management/app/src/Configuration/Template/QltyInspectionCopyTemplate.Report.al

@@ -6,6 +6,7 @@ namespace Microsoft.QualityManagement.Configuration.Template;
 
 using Microsoft.Inventory.Item;
 using Microsoft.QualityManagement.Configuration.Result;
+using Microsoft.QualityManagement.Telemetry;
 
 /// <summary>
 /// Copy/Duplicate an Existing Quality Inspection Template.
@@ -101,6 +102,13 @@ report 20402 "Qlty. Inspection Copy Template"
         }
     }
 
+    trigger OnPreReport()
+    var
+        QltyMgmtFeatureTelemetry: Codeunit "Qlty. Mgmt. Feature Telemetry";
+    begin
+        QltyMgmtFeatureTelemetry.LogFeatureUptakeSetup(ObjectType::Report, Report::"Qlty. Inspection Copy Template");
+    end;
+
     var
         CreateFromItems: Boolean;
         TargetDestinationName: Code[20];

src/Apps/W1/Quality Management/app/src/Configuration/Template/QltyInspectionTemplate.Page.al

@@ -7,7 +7,7 @@ namespace Microsoft.QualityManagement.Configuration.Template;
 using Microsoft.Foundation.Attachment;
 using Microsoft.QualityManagement.Configuration.GenerationRule;
 using Microsoft.QualityManagement.Document;
-using System.Telemetry;
+using Microsoft.QualityManagement.Telemetry;
 
 /// <summary>
 /// A Quality Inspection Template is an inspection plan containing a set of questions and data points that you want to collect.
@@ -201,21 +201,24 @@ page 20402 "Qlty. Inspection Template"
     var
         ShowSampleSizeFixedQuantity: Boolean;
         ShowSampleSizePercentage: Boolean;
-        QualityManagementTok: Label 'Quality Management', Locked = true;
 
     local procedure GetDataCaptionExpression(): Text
     begin
         exit(Rec.Code + ' - ' + Rec.Description);
     end;
 
     trigger OnAfterGetRecord()
-    var
-        FeatureTelemetry: Codeunit "Feature Telemetry";
     begin
-        FeatureTelemetry.LogUptake('0000QIA', QualityManagementTok, Enum::"Feature Uptake Status"::Used);
         UpdateControls();
     end;
 
+    trigger OnInsertRecord(BelowxRec: Boolean): Boolean
+    var
+        QltyMgmtFeatureTelemetry: Codeunit "Qlty. Mgmt. Feature Telemetry";
+    begin
+        QltyMgmtFeatureTelemetry.LogFeatureUptakeSetup(ObjectType::Page, Page::"Qlty. Inspection Template");
+    end;
+
     local procedure UpdateControls()
     begin
         ShowSampleSizeFixedQuantity := Rec."Sample Source" = Rec."Sample Source"::"Fixed Quantity";

src/Apps/W1/Quality Management/app/src/Configuration/Template/QltyInspectionTemplateList.Page.al

@@ -7,6 +7,7 @@ namespace Microsoft.QualityManagement.Configuration.Template;
 using Microsoft.Foundation.Attachment;
 using Microsoft.QualityManagement.Configuration.GenerationRule;
 using Microsoft.QualityManagement.Document;
+using Microsoft.QualityManagement.Telemetry;
 
 /// <summary>
 /// A Quality Inspection Template is an inspection plan containing a set of questions and data points that you want to collect.
@@ -140,4 +141,11 @@ page 20404 "Qlty. Inspection Template List"
             }
         }
     }
+
+    trigger OnOpenPage()
+    var
+        QltyMgmtFeatureTelemetry: Codeunit "Qlty. Mgmt. Feature Telemetry";
+    begin
+        QltyMgmtFeatureTelemetry.LogFeatureUptakeDiscovered(ObjectType::Page, Page::"Qlty. Inspection Template List");
+    end;
 }

src/Apps/W1/Quality Management/app/src/Configuration/Template/Test/QltyTests.Page.al

@@ -7,6 +7,7 @@ namespace Microsoft.QualityManagement.Configuration.Template.Test;
 using Microsoft.QualityManagement.Configuration.Result;
 using Microsoft.QualityManagement.Configuration.Template;
 using Microsoft.QualityManagement.Document;
+using Microsoft.QualityManagement.Telemetry;
 using System.Text;
 
 /// <summary>
@@ -270,8 +271,11 @@ page 20401 "Qlty. Tests"
 
     trigger OnOpenPage()
     var
+        QltyMgmtFeatureTelemetry: Codeunit "Qlty. Mgmt. Feature Telemetry";
         MatrixVisibleState: array[10] of Boolean;
     begin
+        QltyMgmtFeatureTelemetry.LogFeatureUptakeDiscovered(ObjectType::Page, Page::"Qlty. Tests");
+
         QltyResultConditionMgmt.GetDefaultPromotedResults(true, MatrixSourceRecordId, MatrixArrayConditionCellData, MatrixArrayConditionDescriptionCellData, MatrixArrayCaptionSet, MatrixVisibleState);
         Visible1 := MatrixVisibleState[1];
         Visible2 := MatrixVisibleState[2];

src/Apps/W1/Quality Management/app/src/Document/QltyInspectionHeader.Table.al

@@ -20,6 +20,7 @@ using Microsoft.QualityManagement.Integration.Inventory;
 using Microsoft.QualityManagement.Integration.Inventory.Transfer;
 using Microsoft.QualityManagement.Reports;
 using Microsoft.QualityManagement.Setup;
+using Microsoft.QualityManagement.Telemetry;
 using Microsoft.QualityManagement.Utilities;
 using Microsoft.QualityManagement.Workflow;
 using System.Device;
@@ -839,7 +840,11 @@ table 20405 "Qlty. Inspection Header"
     /// Finishes the inspection.
     /// </summary>
     procedure FinishInspection()
+    var
+        QltyMgmtFeatureTelemetry: Codeunit "Qlty. Mgmt. Feature Telemetry";
     begin
+        QltyMgmtFeatureTelemetry.LogFeatureUsage(ObjectType::Table, Database::"Qlty. Inspection Header", 'FinishInspection');
+
         FinishInspectionAndPrompt(true);
     end;
 

src/Apps/W1/Quality Management/app/src/Document/QltyInspectionList.Page.al

@@ -15,6 +15,7 @@ using Microsoft.QualityManagement.Dispositions.Move;
 using Microsoft.QualityManagement.Dispositions.Purchase;
 using Microsoft.QualityManagement.Dispositions.PutAway;
 using Microsoft.QualityManagement.Dispositions.Transfer;
+using Microsoft.QualityManagement.Telemetry;
 using Microsoft.QualityManagement.Utilities;
 using Microsoft.Warehouse.Structure;
 
@@ -708,6 +709,13 @@ page 20408 "Qlty. Inspection List"
         RowActionsAreEnabled: Boolean;
         StatusStyleExpr: Text;
 
+    trigger OnOpenPage()
+    var
+        QltyMgmtFeatureTelemetry: Codeunit "Qlty. Mgmt. Feature Telemetry";
+    begin
+        QltyMgmtFeatureTelemetry.LogFeatureUptakeDiscovered(ObjectType::Page, Page::"Qlty. Inspection List");
+    end;
+
     trigger OnAfterGetRecord()
     begin
         ResultStyleExpr := Rec.GetResultStyle();

src/Apps/W1/Quality Management/app/src/Permissions/QltyMgmtObjects.PermissionSet.al

@@ -37,6 +37,7 @@ using Microsoft.QualityManagement.Setup;
 using Microsoft.QualityManagement.Setup.ApplicationAreas;
 using Microsoft.QualityManagement.Setup.ManualSetup;
 using Microsoft.QualityManagement.Setup.SetupGuide;
+using Microsoft.QualityManagement.Telemetry;
 using Microsoft.QualityManagement.Utilities;
 using Microsoft.QualityManagement.Workflow;
 
@@ -97,6 +98,7 @@ permissionset 20406 "QltyMgmt - Objects"
         codeunit "Qlty. Item Tracking" = X,
         codeunit "Qlty. Traversal" = X,
         codeunit "Qlty. Workflow Setup" = X,
+        codeunit "Qlty. Mgmt. Feature Telemetry" = X,
 
         // Pages
         page "Qlty. Lookup Field Choose" = X,

src/Apps/W1/Quality Management/app/src/Reports/QltyCertificateofAnalysis.Report.al

@@ -10,6 +10,7 @@ using Microsoft.Inventory.Item;
 using Microsoft.QualityManagement.Configuration.Template;
 #endif
 using Microsoft.QualityManagement.Document;
+using Microsoft.QualityManagement.Telemetry;
 
 report 20401 "Qlty. Certificate of Analysis"
 {
@@ -278,6 +279,13 @@ report 20401 "Qlty. Certificate of Analysis"
         DateLabel = 'Date';
     }
 
+    trigger OnPreReport()
+    var
+        QltyMgmtFeatureTelemetry: Codeunit "Qlty. Mgmt. Feature Telemetry";
+    begin
+        QltyMgmtFeatureTelemetry.LogFeatureUsage(ObjectType::Report, Report::"Qlty. Certificate of Analysis", 'Print report Certificate of Analysis');
+    end;
+
     var
         Item: Record Item;
         CompanyInformation: Record "Company Information";

src/Apps/W1/Quality Management/app/src/Reports/QltyGeneralPurposeInspect.Report.al

@@ -10,6 +10,7 @@ using Microsoft.Inventory.Item;
 using Microsoft.QualityManagement.Configuration.Template;
 #endif
 using Microsoft.QualityManagement.Document;
+using Microsoft.QualityManagement.Telemetry;
 
 report 20405 "Qlty. General Purpose Inspect."
 {
@@ -315,6 +316,13 @@ report 20405 "Qlty. General Purpose Inspect."
         LastModifiedByLabel = 'Last modified by';
     }
 
+    trigger OnPreReport()
+    var
+        QltyMgmtFeatureTelemetry: Codeunit "Qlty. Mgmt. Feature Telemetry";
+    begin
+        QltyMgmtFeatureTelemetry.LogFeatureUsage(ObjectType::Report, Report::"Qlty. General Purpose Inspect.", 'Print report General Purpose Inspection');
+    end;
+
     var
         Item: Record Item;
         CompanyInformation: Record "Company Information";

src/Apps/W1/Quality Management/app/src/Reports/QltyNonConformance.Report.al

@@ -10,6 +10,7 @@ using Microsoft.Inventory.Item;
 using Microsoft.QualityManagement.Configuration.Template;
 #endif
 using Microsoft.QualityManagement.Document;
+using Microsoft.QualityManagement.Telemetry;
 
 report 20403 "Qlty. Non-Conformance"
 {
@@ -292,6 +293,13 @@ report 20403 "Qlty. Non-Conformance"
         LastModifiedByLabel = 'Last modified by';
     }
 
+    trigger OnPreReport()
+    var
+        QltyMgmtFeatureTelemetry: Codeunit "Qlty. Mgmt. Feature Telemetry";
+    begin
+        QltyMgmtFeatureTelemetry.LogFeatureUsage(ObjectType::Report, Report::"Qlty. Non-Conformance", 'Print report Non-Conformance');
+    end;
+
     var
         Item: Record Item;
         CompanyInformation: Record "Company Information";

src/Apps/W1/Quality Management/app/src/Setup/QltyManagementSetup.Page.al

@@ -11,8 +11,8 @@ using Microsoft.QualityManagement.Configuration.SourceConfiguration;
 using Microsoft.QualityManagement.Configuration.Template;
 using Microsoft.QualityManagement.Configuration.Template.Test;
 using Microsoft.QualityManagement.Setup.ApplicationAreas;
+using Microsoft.QualityManagement.Telemetry;
 using System.Environment;
-using System.Telemetry;
 
 page 20400 "Qlty. Management Setup"
 {
@@ -283,21 +283,21 @@ page 20400 "Qlty. Management Setup"
 
     var
         QltyAutoConfigure: Codeunit "Qlty. Auto Configure";
-        FeatureTelemetry: Codeunit "Feature Telemetry";
-        QualityManagementTok: Label 'Quality Management', Locked = true;
         IsSaaS: Boolean;
 
     trigger OnOpenPage()
     var
         EnvironmentInformation: Codeunit "Environment Information";
+        QltyMgmtFeatureTelemetry: Codeunit "Qlty. Mgmt. Feature Telemetry";
     begin
         IsSaaS := EnvironmentInformation.IsSaaS();
 
-        FeatureTelemetry.LogUptake('0000QID', QualityManagementTok, Enum::"Feature Uptake Status"::Discovered);
+        QltyMgmtFeatureTelemetry.LogFeatureUptakeDiscovered(ObjectType::Page, Page::"Qlty. Management Setup");
+
         if not Rec.Get() then begin
             QltyAutoConfigure.EnsureBasicSetupExists(false);
             if Rec.Get() then;
-            FeatureTelemetry.LogUptake('0000QIE', QualityManagementTok, Enum::"Feature Uptake Status"::"Set up");
+            QltyMgmtFeatureTelemetry.LogFeatureUptakeSetUp(ObjectType::Page, Page::"Qlty. Management Setup");
         end;
     end;
 

src/Apps/W1/Quality Management/app/src/Setup/SetupGuide/QltyManagementSetupGuide.Page.al

@@ -6,10 +6,10 @@ namespace Microsoft.QualityManagement.Setup.SetupGuide;
 
 using Microsoft.QualityManagement.Setup;
 using Microsoft.QualityManagement.Setup.ApplicationAreas;
+using Microsoft.QualityManagement.Telemetry;
 using Microsoft.QualityManagement.Utilities;
 using System.Environment;
 using System.Environment.Configuration;
-using System.Telemetry;
 using System.Utilities;
 
 page 20438 "Qlty. Management Setup Guide"
@@ -97,10 +97,8 @@ page 20438 "Qlty. Management Setup Guide"
     var
         MediaRepositoryStandard: Record "Media Repository";
         MediaResourcesStandard: Record "Media Resources";
-        FeatureTelemetry: Codeunit "Feature Telemetry";
         TopBannerVisible: Boolean;
         MainPageVisible: Boolean;
-        QualityManagementTok: Label 'Quality Management', Locked = true;
         SettingsLinkLbl: Label 'Open My Settings';
 
     trigger OnInit();
@@ -110,19 +108,22 @@ page 20438 "Qlty. Management Setup Guide"
     end;
 
     trigger OnOpenPage();
+    var
+        QltyMgmtFeatureTelemetry: Codeunit "Qlty. Mgmt. Feature Telemetry";
     begin
-        FeatureTelemetry.LogUptake('0000QIC', QualityManagementTok, Enum::"Feature Uptake Status"::Discovered);
+        QltyMgmtFeatureTelemetry.LogFeatureUptakeDiscovered(ObjectType::Page, Page::"Qlty. Management Setup Guide");
     end;
 
     local procedure DoneAction();
     var
+        QltyMgmtFeatureTelemetry: Codeunit "Qlty. Mgmt. Feature Telemetry";
         GuidedExperience: Codeunit "Guided Experience";
         QltyApplicationAreaMgmt: Codeunit "Qlty. Application Area Mgmt.";
         QltyNotificationMgmt: Codeunit "Qlty. Notification Mgmt.";
     begin
         GuidedExperience.CompleteAssistedSetup(ObjectType::Page, Page::"Qlty. Management Setup Guide");
 
-        FeatureTelemetry.LogUptake('0000QIB', QualityManagementTok, Enum::"Feature Uptake Status"::"Set up");
+        QltyMgmtFeatureTelemetry.LogFeatureUptakeSetup(ObjectType::Page, Page::"Qlty. Management Setup Guide");
 
         QltyNotificationMgmt.InitializeAllNotifications();
         QltyApplicationAreaMgmt.RefreshExperienceTierCurrentCompany();