From ffbeb9fd3d81e51b263a05f43cb17de802d9c85e Mon Sep 17 00:00:00 2001 From: attilatoury Date: Mon, 23 Mar 2026 15:05:50 +0100 Subject: [PATCH 1/3] Ensure basic setup exists on new demo data company --- .../1.Setup Data/CreateQMNoSeries.Codeunit.al | 17 +++++++++++++++++ .../QualityManagementModule.Codeunit.al | 1 + 2 files changed, 18 insertions(+) create mode 100644 src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/1.Setup Data/CreateQMNoSeries.Codeunit.al diff --git a/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/1.Setup Data/CreateQMNoSeries.Codeunit.al b/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/1.Setup Data/CreateQMNoSeries.Codeunit.al new file mode 100644 index 0000000000..d3d0dd723c --- /dev/null +++ b/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/1.Setup Data/CreateQMNoSeries.Codeunit.al @@ -0,0 +1,17 @@ +// ------------------------------------------------------------------------------------------------ +// Copyright (c) Microsoft Corporation. All rights reserved. +// Licensed under the MIT License. See License.txt in the project root for license information. +// ------------------------------------------------------------------------------------------------ +namespace Microsoft.DemoData.QualityManagement; + +using Microsoft.QualityManagement.Configuration; + +codeunit 5709 "Create QM No Series" +{ + trigger OnRun() + var + QltyAutoConfigure: Codeunit "Qlty. Auto Configure"; + begin + QltyAutoConfigure.EnsureBasicSetupExists(false); + end; +} \ No newline at end of file diff --git a/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/QualityManagementModule.Codeunit.al b/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/QualityManagementModule.Codeunit.al index dd77fecbb3..4ba0a81051 100644 --- a/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/QualityManagementModule.Codeunit.al +++ b/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/QualityManagementModule.Codeunit.al @@ -25,6 +25,7 @@ codeunit 5592 "Quality Management Module" implements "Contoso Demo Data Module" procedure CreateSetupData() begin + Codeunit.Run(Codeunit::"Create QM No Series"); end; procedure CreateMasterData() From 6c70a19ee5a9a6f74e8d1920b0a06abd4fd2524f Mon Sep 17 00:00:00 2001 From: attilatoury Date: Mon, 23 Mar 2026 15:45:50 +0100 Subject: [PATCH 2/3] make internal procedure public so it's available in the demo data app --- .../app/src/Configuration/QltyAutoConfigure.Codeunit.al | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/QltyAutoConfigure.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Configuration/QltyAutoConfigure.Codeunit.al index b14cd42558..ba571a4452 100644 --- a/src/Apps/W1/Quality Management/app/src/Configuration/QltyAutoConfigure.Codeunit.al +++ b/src/Apps/W1/Quality Management/app/src/Configuration/QltyAutoConfigure.Codeunit.al @@ -123,7 +123,7 @@ codeunit 20402 "Qlty. Auto Configure" exit(DefaultResult0InProgressDescriptionTxt); end; - internal procedure EnsureBasicSetupExists(ShowMessage: Boolean) + procedure EnsureBasicSetupExists(ShowMessage: Boolean) begin EnsureSetupRecordExists(); EnsureResultExists(); From 1ace3cb8793b680d28cdbcdfb3c614ada51945f0 Mon Sep 17 00:00:00 2001 From: attilatoury Date: Wed, 25 Mar 2026 10:06:35 +0100 Subject: [PATCH 3/3] update file location since the app was moved --- .../Demo Data}/DemoData/1.Setup Data/CreateQMNoSeries.Codeunit.al | 0 1 file changed, 0 insertions(+), 0 deletions(-) rename src/Apps/W1/{QualityManagementContosoCoffeeDemoDataset => Quality Management/Demo Data}/DemoData/1.Setup Data/CreateQMNoSeries.Codeunit.al (100%) diff --git a/src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/1.Setup Data/CreateQMNoSeries.Codeunit.al b/src/Apps/W1/Quality Management/Demo Data/DemoData/1.Setup Data/CreateQMNoSeries.Codeunit.al similarity index 100% rename from src/Apps/W1/QualityManagementContosoCoffeeDemoDataset/DemoData/1.Setup Data/CreateQMNoSeries.Codeunit.al rename to src/Apps/W1/Quality Management/Demo Data/DemoData/1.Setup Data/CreateQMNoSeries.Codeunit.al