Skip to content

Commit 57f42f6

Browse files
committed
[28.0] [Quality Mgmt.] Change the link displayed on the QM setup guide to open the user sett… (#6923)
Fixes [AB#622404](https://dynamicssmb2.visualstudio.com/1fcb79e7-ab07-432a-a3c6-6cf5a88ba4a5/_workitems/edit/622404) <img width="732" height="693" alt="image" src="https://github.com/user-attachments/assets/35570075-3dad-4b1e-8928-52b65ee9b5c8" />
1 parent 85927ab commit 57f42f6

1 file changed

Lines changed: 12 additions & 18 deletions

File tree

src/Apps/W1/Quality Management/app/src/Setup/SetupGuide/QltyManagementSetupGuide.Page.al

Lines changed: 12 additions & 18 deletions
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,6 @@
44
// ------------------------------------------------------------------------------------------------
55
namespace Microsoft.QualityManagement.Setup.SetupGuide;
66

7-
using Microsoft.QualityManagement.RoleCenters;
87
using Microsoft.QualityManagement.Setup.ApplicationAreas;
98
using Microsoft.QualityManagement.Utilities;
109
using System.Environment;
@@ -54,22 +53,18 @@ page 20438 "Qlty. Management Setup Guide"
5453
group(LetsGoText)
5554
{
5655
Caption = 'Let''s go!';
57-
InstructionalText = 'Select the link below to open the Quality Manager Role Center in a new browser tab and follow the guided tours.';
56+
InstructionalText = 'Select the link below to open the Quality Manager Role Center and follow the guided tours.';
5857
}
59-
field(LetsGoLink; LetsGoLinkLbl)
58+
field(SettingsLink; SettingsLinkLbl)
6059
{
61-
Caption = 'Open the Quality Manager Role Center';
60+
Caption = 'Open My Settings';
6261
ShowCaption = false;
63-
ToolTip = 'Open Quality Management Role Center and checklist in a new browser tab.';
62+
ToolTip = 'Open My Settings';
6463
Editable = false;
65-
ApplicationArea = QualityManagement;
6664

6765
trigger OnDrillDown()
68-
var
69-
TargetURL: Text;
7066
begin
71-
TargetURL := GetUrl(ClientType::Web, CompanyName, ObjectType::Page, Page::"Qlty. Manager Role Center") + URLProfileLbl;
72-
Hyperlink(TargetURL);
67+
Page.Run(Page::"User Settings");
7368
end;
7469

7570
}
@@ -81,17 +76,17 @@ page 20438 "Qlty. Management Setup Guide"
8176
{
8277
area(Processing)
8378
{
84-
action(Finish)
79+
action(Done)
8580
{
8681
ApplicationArea = QualityManagement;
87-
Caption = 'Finish';
88-
ToolTip = 'Finish';
82+
Caption = 'Done';
83+
ToolTip = 'Done';
8984
InFooterBar = true;
90-
Image = Approve;
85+
Image = Close;
9186

9287
trigger OnAction();
9388
begin
94-
FinishAction();
89+
DoneAction();
9590
end;
9691
}
9792
}
@@ -104,8 +99,7 @@ page 20438 "Qlty. Management Setup Guide"
10499
TopBannerVisible: Boolean;
105100
MainPageVisible: Boolean;
106101
QualityManagementTok: Label 'Quality Management', Locked = true;
107-
LetsGoLinkLbl: Label 'Open the Quality Manager Role Center';
108-
URLProfileLbl: Label '&profile=QLTY.%20MANAGER', Locked = true;
102+
SettingsLinkLbl: Label 'Open My Settings';
109103

110104
trigger OnInit();
111105
begin
@@ -118,7 +112,7 @@ page 20438 "Qlty. Management Setup Guide"
118112
FeatureTelemetry.LogUptake('0000QIC', QualityManagementTok, Enum::"Feature Uptake Status"::Discovered);
119113
end;
120114

121-
local procedure FinishAction();
115+
local procedure DoneAction();
122116
var
123117
GuidedExperience: Codeunit "Guided Experience";
124118
QltyApplicationAreaMgmt: Codeunit "Qlty. Application Area Mgmt.";

0 commit comments

Comments
 (0)