Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Original file line number Diff line number Diff line change
Expand Up @@ -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()
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -123,7 +123,7 @@ codeunit 20402 "Qlty. Auto Configure"
exit(DefaultResult0InProgressDescriptionTxt);
end;

internal procedure EnsureBasicSetupExists(ShowMessage: Boolean)
procedure EnsureBasicSetupExists(ShowMessage: Boolean)
begin
EnsureSetupRecordExists();
EnsureResultExists();
Expand Down
Original file line number Diff line number Diff line change
@@ -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;
}
Loading