Skip to content

[Quality Mgmt.] Update Setup Guide #6439

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
attilatoury wants to merge 6 commits into
base: main
Choose a base branch
from
Open

[Quality Mgmt.] Update Setup Guide #6439

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
6 commits
Select commit Hold shift + click to select a range
432ef92
rename wizard to guide
attilatoury Feb 3, 2026
4b424b7
update quality management setup guide
attilatoury Feb 3, 2026
54c9fa9
comments from code review
attilatoury Feb 3, 2026
7f0e5dd
Merge branch 'main' of https://github.com/microsoft/BCApps into bugs/…
attilatoury Feb 4, 2026
7dba1a8
update text on setup guide
attilatoury Feb 4, 2026
8c6f87f
Merge branch 'main' of https://github.com/microsoft/BCApps into bugs/…
attilatoury Feb 4, 2026
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
4 changes: 2 additions & 2 deletions src/Apps/W1/Quality Management/app/src/Permissions/QltyEntryInspector.PermissionSet.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -35,7 +35,7 @@ using Microsoft.QualityManagement.Reports;
using Microsoft.QualityManagement.RoleCenters;
using Microsoft.QualityManagement.Setup;
using Microsoft.QualityManagement.Setup.ApplicationAreas;
using Microsoft.QualityManagement.Setup.SetupWizard;
using Microsoft.QualityManagement.Setup.SetupGuide;
using Microsoft.QualityManagement.Utilities;
using Microsoft.QualityManagement.Workflow;

Expand Down Expand Up @@ -106,7 +106,7 @@ permissionset 20404 QltyEntryInspector
page "Qlty. Lookup Code List" = X,
page "Qlty. Lookup Code Part" = X,
page "Qlty. Manager Role Center" = X,
page "Qlty. Management Setup Wizard" = X,
page "Qlty. Management Setup Guide" = X,
page "Qlty. Management Setup" = X,
page "Qlty. Most Recent Picture" = X,
page "Qlty. Prod. Gen. Rule Wizard" = X,
Expand Down
4 changes: 2 additions & 2 deletions src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntObjects.PermissionSet.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -35,7 +35,7 @@ using Microsoft.QualityManagement.Reports;
using Microsoft.QualityManagement.RoleCenters;
using Microsoft.QualityManagement.Setup;
using Microsoft.QualityManagement.Setup.ApplicationAreas;
using Microsoft.QualityManagement.Setup.SetupWizard;
using Microsoft.QualityManagement.Setup.SetupGuide;
using Microsoft.QualityManagement.Utilities;
using Microsoft.QualityManagement.Workflow;

Expand Down Expand Up @@ -102,7 +102,7 @@ permissionset 20406 "QltyMngmnt - Objects"
page "Qlty. Lookup Code List" = X,
page "Qlty. Lookup Code Part" = X,
page "Qlty. Manager Role Center" = X,
page "Qlty. Management Setup Wizard" = X,
page "Qlty. Management Setup Guide" = X,
page "Qlty. Management Setup" = X,
page "Qlty. Most Recent Picture" = X,
page "Qlty. Prod. Gen. Rule Wizard" = X,
Expand Down
6 changes: 3 additions & 3 deletions ...SetupWizard/QltyAssistedSetup.Codeunit.al → .../SetupGuide/QltyAssistedSetup.Codeunit.al
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.QualityManagement.Setup.SetupWizard;
namespace Microsoft.QualityManagement.Setup.SetupGuide;

using Microsoft.QualityManagement.Setup;
using Microsoft.QualityManagement.Setup.ApplicationAreas;
Expand Down Expand Up @@ -31,7 +31,7 @@ codeunit 20401 "Qlty. Assisted Setup"
Exists: Boolean;
begin
CurrentAppID := QltyManagementSetup.GetAppGuid();
Exists := GuidedExperience.Exists("Guided Experience Type"::"Assisted Setup", ObjectType::Page, Page::"Qlty. Management Setup Wizard");
Exists := GuidedExperience.Exists("Guided Experience Type"::"Assisted Setup", ObjectType::Page, Page::"Qlty. Management Setup Guide");

if not QltyApplicationAreaMgmt.IsQualityManagementApplicationAreaEnabled() then
exit;
Expand All @@ -43,7 +43,7 @@ codeunit 20401 "Qlty. Assisted Setup"
CopyStr(AssistedSetupDescriptionTxt, 1, 1024),
3,
ObjectType::Page,
Page::"Qlty. Management Setup Wizard",
Page::"Qlty. Management Setup Guide",
"Assisted Setup Group"::DoMoreWithBC,
'',
"Video Category"::Extensions,
Expand Down
142 changes: 142 additions & 0 deletions src/Apps/W1/Quality Management/app/src/Setup/SetupGuide/QltyManagementSetupGuide.Page.al
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,142 @@
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.QualityManagement.Setup.SetupGuide;

using Microsoft.QualityManagement.RoleCenters;
using Microsoft.QualityManagement.Setup.ApplicationAreas;
using Microsoft.QualityManagement.Utilities;
using System.Environment;
using System.Environment.Configuration;
using System.Telemetry;
using System.Utilities;

page 20438 "Qlty. Management Setup Guide"
{
Caption = 'Quality Management Setup Guide';
PageType = NavigatePage;
UsageCategory = Administration;
ApplicationArea = QualityManagement;

layout
{
area(Content)
{
group(StandardBanner)
{
Caption = '';
Editable = false;
Visible = TopBannerVisible;

field(MediaResourcesStd; MediaResourcesStandard."Media Reference")
{
Editable = false;
ShowCaption = false;
}
}
group(MainPage)
{
Caption = '';
InstructionalText = '';
Visible = MainPageVisible;

group(WelcomeText1)
{
Caption = 'Welcome to Quality Management';
InstructionalText = 'Quality Management in Business Central helps you set up and manage inspection processes to support consistent product quality.';
}
group(WelcomeText2)
{
ShowCaption = false;
InstructionalText = 'We''ve prepared a dedicated Role Center and a getting started checklist with guided tours to help you explore key pages and default setup steps.';
}
group(LetsGoText)
{
Caption = 'Let''s go!';
InstructionalText = 'Select the link below to open the Quality Manager Role Center in a new browser tab and follow the guided tours.';
}
field(LetsGoLink; LetsGoLinkLbl)
{
Caption = 'Open the Quality Manager Role Center';
ShowCaption = false;
ToolTip = 'Open Quality Management Role Center and checklist in a new browser tab.';
Editable = false;
ApplicationArea = QualityManagement;

trigger OnDrillDown()
var
TargetURL: Text;
begin
TargetURL := GetUrl(ClientType::Web, CompanyName, ObjectType::Page, Page::"Qlty. Manager Role Center") + URLProfileLbl;
Hyperlink(TargetURL);
end;

}
}
}
}

actions
{
area(Processing)
{
action(Finish)
{
ApplicationArea = QualityManagement;
Caption = 'Finish';
ToolTip = 'Finish';
InFooterBar = true;
Image = Approve;

trigger OnAction();
begin
FinishAction();
end;
}
}
}

var
MediaRepositoryStandard: Record "Media Repository";
MediaResourcesStandard: Record "Media Resources";
FeatureTelemetry: Codeunit "Feature Telemetry";
TopBannerVisible: Boolean;
MainPageVisible: Boolean;
QualityManagementTok: Label 'Quality Management', Locked = true;
LetsGoLinkLbl: Label 'Open the Quality Manager Role Center';
URLProfileLbl: Label '&profile=QLTY.%20MANAGER', Locked = true;

trigger OnInit();
begin
MainPageVisible := true;
LoadTopBanners();
end;

trigger OnOpenPage();
begin
FeatureTelemetry.LogUptake('0000QIC', QualityManagementTok, Enum::"Feature Uptake Status"::Discovered);
end;

local procedure FinishAction();
var
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");

QltyNotificationMgmt.EnsureDefaultNotifications();
QltyApplicationAreaMgmt.RefreshExperienceTierCurrentCompany();
CurrPage.Close();
end;

local procedure LoadTopBanners()
begin
if MediaRepositoryStandard.Get('AssistedSetup-NoText-400px.png', Format(CurrentClientType())) then
if MediaResourcesStandard.Get(MediaRepositoryStandard."Media Resources Ref") then
TopBannerVisible := MediaResourcesStandard."Media Reference".HasValue();
end;
}
Loading
Loading