44// ------------------------------------------------------------------------------------------------
55namespace Microsoft. QualityManagement. Setup. SetupGuide;
66
7- using Microsoft. QualityManagement. RoleCenters;
87using Microsoft. QualityManagement. Setup. ApplicationAreas;
98using Microsoft. QualityManagement. Utilities;
109using 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