[Quality Management] Simplify permissions sets

src/Apps/W1/Quality Management/Test Library/src/QltyInspectionUtility.Codeunit.al

@@ -51,14 +51,15 @@ codeunit 139940 "Qlty. Inspection Utility"
         LibraryUtility: Codeunit "Library - Utility";
         NoSeriesCodeunit: Codeunit "No. Series";
         DefaultResult2PassCodeLbl: Label 'PASS', Locked = true;
+        SupervisorRoleIDTok: Label 'QltyMngmnt - Edit', Locked = true;
 
     internal procedure EnsureSetupExists()
     var
         QltyAutoConfigure: Codeunit "Qlty. Auto Configure";
         UserPermissionsLibrary: Codeunit "User Permissions Library";
     begin
         QltyAutoConfigure.EnsureBasicSetupExists(false);
-        UserPermissionsLibrary.AssignPermissionSetToUser(UserSecurityId(), 'QltyGeneral');
+        UserPermissionsLibrary.AssignPermissionSetToUser(UserSecurityId(), SupervisorRoleIDTok);
     end;
 
     internal procedure CreateABasicTemplateAndInstanceOfAInspection(var OutCreatedQltyInspectionHeader: Record "Qlty. Inspection Header"; var OutQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.")

src/Apps/W1/Quality Management/app/src/AccessControl/QltyPermissionMgmt.Codeunit.al

@@ -29,7 +29,7 @@ codeunit 20406 "Qlty. Permission Mgmt."
         ExpressOnlyCaptionFinishInspectionLbl: Label 'Finish Inspection';
         ExpressOnlyCaptionChangeTrackingNoLbl: Label 'Change Tracking No.';
         ExpressOnlyCaptionChangeSourceQuantityLbl: Label 'Change Source Quantity';
-        ExpectedSupervisorRoleIDTxt: Label 'QltyGeneral', Locked = true;
+        ExpectedSupervisorRoleIDTxt: Label 'QltyMngmnt - Edit', Locked = true;
         UserDoesNotHavePermissionToErr: Label 'The user [%1] does not have permission to [%2]. This can be changed by navigating to Quality Management Permissions.', Comment = '%1=User id, %2=permission being attempted';
 
     /// <summary>

src/Apps/W1/Quality Management/app/src/Permissions/AdministratorQltyMngmnt.PermissionSetExt.al

@@ -0,0 +1,12 @@
+// ------------------------------------------------------------------------------------------------
+// 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.Permissions;
+
+using System.Security.AccessControl;
+
+permissionsetextension 20402 "Administrator - QltyMngmnt" extends "Administrator"
+{
+    IncludedPermissionSets = "QltyMngmnt - Edit";
+}

src/Apps/W1/Quality Management/app/src/Permissions/D365ReadQltyMngmnt.PermissionSetExt.al

@@ -6,7 +6,7 @@ namespace Microsoft.QualityManagement.Permissions;
 
 using System.Security.AccessControl;
 
-permissionsetextension 20402 "D365 READ - QltyMngmnt" extends "D365 READ"
+permissionsetextension 20403 "D365 READ - QltyMngmnt" extends "D365 READ"
 {
     IncludedPermissionSets = "QltyMngmnt - Read";
 }