From d8eefc57093475cc28f24d7b6f455af3ea425020 Mon Sep 17 00:00:00 2001 From: attilatoury Date: Thu, 19 Feb 2026 16:34:45 +0100 Subject: [PATCH 1/3] . --- .../app/src/Installation/QltyInstall.Codeunit.al | 3 +++ .../CreateQualityInspResult.Codeunit.al | 0 .../CreateQualityLookupValue.Codeunit.al | 0 .../CreateQualityTest.Codeunit.al | 0 .../DemoData/QualityManagementModule.Codeunit.al | 9 ++++++--- 5 files changed, 9 insertions(+), 3 deletions(-) rename src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/{1.Setup Data => 2.Master Data}/CreateQualityInspResult.Codeunit.al (100%) rename src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/{1.Setup Data => 2.Master Data}/CreateQualityLookupValue.Codeunit.al (100%) rename src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/{1.Setup Data => 2.Master Data}/CreateQualityTest.Codeunit.al (100%) diff --git a/src/Apps/W1/Quality Management/app/src/Installation/QltyInstall.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Installation/QltyInstall.Codeunit.al index f01bdccda4..daae8e73c1 100644 --- a/src/Apps/W1/Quality Management/app/src/Installation/QltyInstall.Codeunit.al +++ b/src/Apps/W1/Quality Management/app/src/Installation/QltyInstall.Codeunit.al @@ -4,6 +4,7 @@ // ------------------------------------------------------------------------------------------------ namespace Microsoft.QualityManagement.Installation; +using Microsoft.QualityManagement.Configuration; using Microsoft.QualityManagement.Setup.ApplicationAreas; /// @@ -15,8 +16,10 @@ codeunit 20421 "Qlty. Install" trigger OnInstallAppPerCompany() var + QltyAutoConfigure: Codeunit "Qlty. Auto Configure"; QltyApplicationAreaMgmt: Codeunit "Qlty. Application Area Mgmt."; begin + QltyAutoConfigure.EnsureBasicSetupExists(false); QltyApplicationAreaMgmt.RefreshExperienceTierCurrentCompany(); end; } diff --git a/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/1.Setup Data/CreateQualityInspResult.Codeunit.al b/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/2.Master Data/CreateQualityInspResult.Codeunit.al similarity index 100% rename from src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/1.Setup Data/CreateQualityInspResult.Codeunit.al rename to src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/2.Master Data/CreateQualityInspResult.Codeunit.al diff --git a/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/1.Setup Data/CreateQualityLookupValue.Codeunit.al b/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/2.Master Data/CreateQualityLookupValue.Codeunit.al similarity index 100% rename from src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/1.Setup Data/CreateQualityLookupValue.Codeunit.al rename to src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/2.Master Data/CreateQualityLookupValue.Codeunit.al diff --git a/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/1.Setup Data/CreateQualityTest.Codeunit.al b/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/2.Master Data/CreateQualityTest.Codeunit.al similarity index 100% rename from src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/1.Setup Data/CreateQualityTest.Codeunit.al rename to src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/2.Master Data/CreateQualityTest.Codeunit.al diff --git a/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/QualityManagementModule.Codeunit.al b/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/QualityManagementModule.Codeunit.al index 699c3d6230..fe9f789cd3 100644 --- a/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/QualityManagementModule.Codeunit.al +++ b/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/QualityManagementModule.Codeunit.al @@ -25,13 +25,16 @@ codeunit 5592 "Quality Management Module" implements "Contoso Demo Data Module" procedure CreateSetupData() begin - Codeunit.Run(Codeunit::"Create Quality Lookup Value"); - Codeunit.Run(Codeunit::"Create Quality Test"); - Codeunit.Run(Codeunit::"Create Quality Insp. Result"); + // Results, No. Series, and Source Configurations are created by the main QM app on install + // via Qlty. Auto Configure.EnsureBasicSetupExists(). + exit; end; procedure CreateMasterData() begin + Codeunit.Run(Codeunit::"Create Quality Lookup Value"); + Codeunit.Run(Codeunit::"Create Quality Test"); + Codeunit.Run(Codeunit::"Create Quality Insp. Result"); Codeunit.Run(Codeunit::"Create QM Insp. Template Hdr"); Codeunit.Run(Codeunit::"Create QM Insp. Template Line"); Codeunit.Run(Codeunit::"Create QM Result Condit. Conf."); From 4517c98b74d3b9d94e8bd25eda4ab68718f6a36c Mon Sep 17 00:00:00 2001 From: attilatoury Date: Mon, 23 Feb 2026 10:42:38 +0100 Subject: [PATCH 2/3] unnecessary comment and exit --- .../DemoData/QualityManagementModule.Codeunit.al | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/QualityManagementModule.Codeunit.al b/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/QualityManagementModule.Codeunit.al index fe9f789cd3..dd77fecbb3 100644 --- a/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/QualityManagementModule.Codeunit.al +++ b/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/QualityManagementModule.Codeunit.al @@ -25,9 +25,6 @@ codeunit 5592 "Quality Management Module" implements "Contoso Demo Data Module" procedure CreateSetupData() begin - // Results, No. Series, and Source Configurations are created by the main QM app on install - // via Qlty. Auto Configure.EnsureBasicSetupExists(). - exit; end; procedure CreateMasterData() From 3c2662cb52af75018242418444e9f51d4253b6aa Mon Sep 17 00:00:00 2001 From: attilatoury Date: Mon, 23 Feb 2026 15:34:40 +0100 Subject: [PATCH 3/3] add Coffee-related quality inspection template --- .../CreateQMInspTemplateHdr.Codeunit.al | 9 ++++++++ .../CreateQMInspTemplateLine.Codeunit.al | 8 +++++++ .../ContosoQualityManagement.Codeunit.al | 23 +++++++++++++++++++ 3 files changed, 40 insertions(+) diff --git a/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/2.Master Data/CreateQMInspTemplateHdr.Codeunit.al b/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/2.Master Data/CreateQMInspTemplateHdr.Codeunit.al index 77023d39a8..68d92df241 100644 --- a/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/2.Master Data/CreateQMInspTemplateHdr.Codeunit.al +++ b/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/2.Master Data/CreateQMInspTemplateHdr.Codeunit.al @@ -5,6 +5,7 @@ namespace Microsoft.DemoData.QualityManagement; using Microsoft.DemoTool.Helpers; +using Microsoft.QualityManagement.Configuration.Template; codeunit 5596 "Create QM Insp. Template Hdr" { @@ -23,6 +24,7 @@ codeunit 5596 "Create QM Insp. Template Hdr" ContosoQualityManagement.InsertQualityInspectionTemplateHdr(ProductionFood(), ProductionFoodDescLbl); ContosoQualityManagement.InsertQualityInspectionTemplateHdr(Receive(), ReceiveDescLbl); ContosoQualityManagement.InsertQualityInspectionTemplateHdr(ScheduleChange(), ScheduleChangeDescLbl); + ContosoQualityManagement.InsertQualityInspectionTemplateHdr(Beans(), BeansDescLbl, Enum::"Qlty. Sample Size Source"::"Percent of Quantity", 2); end; procedure BicycleChecklist(): Code[20] @@ -75,6 +77,11 @@ codeunit 5596 "Create QM Insp. Template Hdr" exit(ScheduleChangeTok); end; + procedure Beans(): Code[20] + begin + exit(BeansTok); + end; + var BicycleChecklistTok: Label 'BICYCLECHECKLIST', MaxLength = 20; CarTok: Label 'CAR', MaxLength = 20; @@ -84,6 +91,7 @@ codeunit 5596 "Create QM Insp. Template Hdr" ProductionFoodTok: Label 'PRODUCTIONFOOD', MaxLength = 20; ReceiveTok: Label 'RECEIVE', MaxLength = 20; ScheduleChangeTok: Label 'SCHEDULECHANGE', MaxLength = 20; + BeansTok: Label 'BEANS', MaxLength = 20; BicycleChecklistDescLbl: Label 'Bicycle Checklist', MaxLength = 100; CorrectiveActionDescLbl: Label 'Corrective Action', MaxLength = 100; @@ -93,4 +101,5 @@ codeunit 5596 "Create QM Insp. Template Hdr" ProductionFoodDescLbl: Label 'Food Production Example', MaxLength = 100; ReceiveDescLbl: Label 'Receiving Example', MaxLength = 100; ScheduleChangeDescLbl: Label 'Scheduler Change', MaxLength = 100; + BeansDescLbl: Label 'Coffee beans, receipt, bag', MaxLength = 100; } diff --git a/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/2.Master Data/CreateQMInspTemplateLine.Codeunit.al b/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/2.Master Data/CreateQMInspTemplateLine.Codeunit.al index a5ee6f3ed6..7ddf6a3096 100644 --- a/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/2.Master Data/CreateQMInspTemplateLine.Codeunit.al +++ b/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/2.Master Data/CreateQMInspTemplateLine.Codeunit.al @@ -58,5 +58,13 @@ codeunit 5597 "Create QM Insp. Template Line" ContosoQualityManagement.InsertQualityInspectionTemplateLine(CreateQMInspTemplateHdr.ScheduleChange(), 10000, CreateQualityTest.ReasonCode(), ''); ContosoQualityManagement.InsertQualityInspectionTemplateLine(CreateQMInspTemplateHdr.ScheduleChange(), 20000, CreateQualityTest.Explanation(), ''); + + ContosoQualityManagement.InsertQualityInspectionTemplateLine(CreateQMInspTemplateHdr.Beans(), 10000, CreateQualityTest.BagWeight(), ''); + ContosoQualityManagement.InsertQualityInspectionTemplateLine(CreateQMInspTemplateHdr.Beans(), 20000, CreateQualityTest.PackagingVisual(), ''); + ContosoQualityManagement.InsertQualityInspectionTemplateLine(CreateQMInspTemplateHdr.Beans(), 30000, CreateQualityTest.Labeling(), ''); + ContosoQualityManagement.InsertQualityInspectionTemplateLine(CreateQMInspTemplateHdr.Beans(), 40000, CreateQualityTest.CoffeeDefect(), ''); + ContosoQualityManagement.InsertQualityInspectionTemplateLine(CreateQMInspTemplateHdr.Beans(), 50000, CreateQualityTest.CoffeeUniformity(), ''); + ContosoQualityManagement.InsertQualityInspectionTemplateLine(CreateQMInspTemplateHdr.Beans(), 60000, CreateQualityTest.Moisture(), ''); + ContosoQualityManagement.InsertQualityInspectionTemplateLine(CreateQMInspTemplateHdr.Beans(), 70000, CreateQualityTest.Comment(), ''); end; } diff --git a/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoTool/ContosoHelpers/ContosoQualityManagement.Codeunit.al b/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoTool/ContosoHelpers/ContosoQualityManagement.Codeunit.al index 7f547f9264..70840bb465 100644 --- a/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoTool/ContosoHelpers/ContosoQualityManagement.Codeunit.al +++ b/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoTool/ContosoHelpers/ContosoQualityManagement.Codeunit.al @@ -147,6 +147,29 @@ codeunit 5710 "Contoso Quality Management" QltyInspectionTemplateHdr.Insert(true); end; + procedure InsertQualityInspectionTemplateHdr(Code: Code[20]; Description: Text[100]; SampleSource: Enum "Qlty. Sample Size Source"; SamplePercentage: Decimal) + var + QltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr."; + Exists: Boolean; + begin + if QltyInspectionTemplateHdr.Get(Code) then begin + Exists := true; + + if not OverwriteData then + exit; + end; + + QltyInspectionTemplateHdr.Validate(Code, Code); + QltyInspectionTemplateHdr.Validate(Description, Description); + QltyInspectionTemplateHdr.Validate("Sample Source", SampleSource); + QltyInspectionTemplateHdr.Validate("Sample Percentage", SamplePercentage); + + if Exists then + QltyInspectionTemplateHdr.Modify(true) + else + QltyInspectionTemplateHdr.Insert(true); + end; + procedure InsertQualityInspectionTemplateLine(TemplateCode: Code[20]; LineNo: Integer; TestCode: Code[20]; Description: Text[100]) var QltyInspectionTemplateLine: Record "Qlty. Inspection Template Line";