Skip to content

[Quality Mgmt.] Improve the Setup Guide #6901

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

Draft
attilatoury wants to merge 2 commits into
base: main
Choose a base branch
from
Draft

[Quality Mgmt.] Improve the Setup Guide #6901

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
7b8eac6
add grid view + change finish button to done button
attilatoury Feb 27, 2026
0ae5044
Merge branch 'main' of https://github.com/microsoft/BCApps into bugs/…
attilatoury Mar 2, 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
119 changes: 87 additions & 32 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
Expand Up @@ -4,7 +4,9 @@
// ------------------------------------------------------------------------------------------------
namespace Microsoft.QualityManagement.Setup.SetupGuide;

using Microsoft.QualityManagement.RoleCenters;
using Microsoft.QualityManagement.Configuration.GenerationRule;
using Microsoft.QualityManagement.Configuration.Result;
using Microsoft.QualityManagement.Configuration.Template;
using Microsoft.QualityManagement.Setup.ApplicationAreas;
using Microsoft.QualityManagement.Utilities;
using System.Environment;
Expand Down Expand Up @@ -44,34 +46,86 @@ page 20438 "Qlty. Management Setup Guide"
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.';
InstructionalText = @'Quality Management in Business Central helps you set up and manage inspection processes to support consistent product quality.


We''ve prepared a dedicated Quality Manager 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;

grid(LinksGrid)
{
ShowCaption = false;
GridLayout = Rows;

group(Link1)
{
InstructionalText = 'Choose the Quality Manager role in your settings and explore the checklist.';
ShowCaption = false;

field(MySettingsLink; MySettingsLbl)
{
ShowCaption = false;
ApplicationArea = All;
DrillDown = true;
Caption = 'Open My Settings';
ToolTip = 'Open My Settings page.';

trigger OnDrillDown()
begin
Page.Run(Page::"User Settings");
end;
}
}

group(Link2)
{
InstructionalText = 'Or explore these key pages on your own:';
ShowCaption = false;

field(QualityInspectionResults; QualityInspectionResultsLbl)
{
ShowCaption = false;
ApplicationArea = All;
DrillDown = true;
Caption = 'Quality Inspection Results';
ToolTip = 'Open the Quality Inspection Results page.';

trigger OnDrillDown()
begin
Page.Run(Page::"Qlty. Inspection Result List");
end;
}
field(QualityInspectionTemplates; QualityInspectionTemplatesLbl)
{
ShowCaption = false;
ApplicationArea = All;
DrillDown = true;
Caption = 'Quality Inspection Templates';
ToolTip = 'Open the Quality Inspection Templates page.';

trigger OnDrillDown()
begin
Page.Run(Page::"Qlty. Inspection Template List");
end;
}
field(QualityInspectionGenerationRules; QualityInspectionGenerationRulesLbl)
{
ShowCaption = false;
ApplicationArea = All;
DrillDown = true;
Caption = 'Quality Inspection Generation Rules';
ToolTip = 'Open the Quality Inspection Generation Rules page.';

trigger OnDrillDown()
begin
Page.Run(Page::"Qlty. Inspection Gen. Rules");
end;
}
}
}
}
}
}
Expand All @@ -81,17 +135,16 @@ page 20438 "Qlty. Management Setup Guide"
{
area(Processing)
{
action(Finish)
action(Done)
{
ApplicationArea = QualityManagement;
Caption = 'Finish';
ToolTip = 'Finish';
Caption = 'Done';
ToolTip = 'Done';
InFooterBar = true;
Image = Approve;

trigger OnAction();
begin
FinishAction();
DoneAction();
end;
}
}
Expand All @@ -104,8 +157,10 @@ page 20438 "Qlty. Management Setup Guide"
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;
MySettingsLbl: Label 'Open My Settings', Locked = true;
QualityInspectionResultsLbl: Label 'Quality Inspection Results', Locked = true;
QualityInspectionTemplatesLbl: Label 'Quality Inspection Templates', Locked = true;
QualityInspectionGenerationRulesLbl: Label 'Quality Inspection Generation Rules', Locked = true;

trigger OnInit();
begin
Expand All @@ -118,7 +173,7 @@ page 20438 "Qlty. Management Setup Guide"
FeatureTelemetry.LogUptake('0000QIC', QualityManagementTok, Enum::"Feature Uptake Status"::Discovered);
end;

local procedure FinishAction();
local procedure DoneAction();
var
GuidedExperience: Codeunit "Guided Experience";
QltyApplicationAreaMgmt: Codeunit "Qlty. Application Area Mgmt.";
Expand Down
Loading