From 55722ea38d0336e6ac3b96221755a9b9a98a71d8 Mon Sep 17 00:00:00 2001 From: Dusan Jakovljevic <134404137+JakovljevicDusan@users.noreply.github.com> Date: Tue, 17 Mar 2026 19:58:12 +0100 Subject: [PATCH 1/5] "D365 BASIC" -> "D365 BASIC ISV" --- ...sionSetExt.al => D365BasicIsvQltyMngmnt.PermissionSetExt.al} | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) rename src/Apps/W1/Quality Management/app/src/Permissions/{D365BasicQltyMngmnt.PermissionSetExt.al => D365BasicIsvQltyMngmnt.PermissionSetExt.al} (85%) diff --git a/src/Apps/W1/Quality Management/app/src/Permissions/D365BasicQltyMngmnt.PermissionSetExt.al b/src/Apps/W1/Quality Management/app/src/Permissions/D365BasicIsvQltyMngmnt.PermissionSetExt.al similarity index 85% rename from src/Apps/W1/Quality Management/app/src/Permissions/D365BasicQltyMngmnt.PermissionSetExt.al rename to src/Apps/W1/Quality Management/app/src/Permissions/D365BasicIsvQltyMngmnt.PermissionSetExt.al index 1aa3b8824f..6569119ff3 100644 --- a/src/Apps/W1/Quality Management/app/src/Permissions/D365BasicQltyMngmnt.PermissionSetExt.al +++ b/src/Apps/W1/Quality Management/app/src/Permissions/D365BasicIsvQltyMngmnt.PermissionSetExt.al @@ -6,7 +6,7 @@ namespace Microsoft.QualityManagement.Permissions; using System.Security.AccessControl; -permissionsetextension 20400 "D365 BASIC - QltyMngmnt" extends "D365 BASIC" +permissionsetextension 20400 "D365 BASIC ISV - QltyMngmnt" extends "D365 BASIC ISV" { IncludedPermissionSets = "QltyMngmnt - Edit"; } \ No newline at end of file From 34acc2cdcccb4544bcf6f62cdb1986e1c73950b2 Mon Sep 17 00:00:00 2001 From: Dusan Jakovljevic <134404137+JakovljevicDusan@users.noreply.github.com> Date: Tue, 17 Mar 2026 20:05:54 +0100 Subject: [PATCH 2/5] "QltyMngmnt - Edit" -> "QltyMngmnt - Admin" --- .../src/QltyInspectionUtility.Codeunit.al | 4 ++-- .../QltyPermissionMgmt.Codeunit.al | 6 +++--- ...dministratorQltyMngmnt.PermissionSetExt.al | 2 +- ...D365BasicIsvQltyMngmnt.PermissionSetExt.al | 2 +- ...usFullAccessQltyMngmnt.PermissionSetExt.al | 2 +- ...et.al => QltyMngmntAdmin.PermissionSet.al} | 4 ++-- .../src/QltyTestsPermissionMgmt.Codeunit.al | 20 +++++++++---------- 7 files changed, 20 insertions(+), 20 deletions(-) rename src/Apps/W1/Quality Management/app/src/Permissions/{QltyMngmntEdit.PermissionSet.al => QltyMngmntAdmin.PermissionSet.al} (95%) diff --git a/src/Apps/W1/Quality Management/Test Library/src/QltyInspectionUtility.Codeunit.al b/src/Apps/W1/Quality Management/Test Library/src/QltyInspectionUtility.Codeunit.al index 568f56711b..ba9108338e 100644 --- a/src/Apps/W1/Quality Management/Test Library/src/QltyInspectionUtility.Codeunit.al +++ b/src/Apps/W1/Quality Management/Test Library/src/QltyInspectionUtility.Codeunit.al @@ -54,7 +54,7 @@ codeunit 139940 "Qlty. Inspection Utility" LibraryUtility: Codeunit "Library - Utility"; NoSeriesCodeunit: Codeunit "No. Series"; DefaultResult2PassCodeLbl: Label 'PASS', Locked = true; - SupervisorRoleIDTok: Label 'QltyMngmnt - Edit', Locked = true; + AdminSupervisorRoleIDTok: Label 'QltyMngmnt - Admin', Locked = true; internal procedure EnsureSetupExists() var @@ -62,7 +62,7 @@ codeunit 139940 "Qlty. Inspection Utility" UserPermissionsLibrary: Codeunit "User Permissions Library"; begin QltyAutoConfigure.EnsureBasicSetupExists(false); - UserPermissionsLibrary.AssignPermissionSetToUser(UserSecurityId(), SupervisorRoleIDTok); + UserPermissionsLibrary.AssignPermissionSetToUser(UserSecurityId(), AdminSupervisorRoleIDTok); end; internal procedure CreateABasicTemplateAndInstanceOfAInspection(var OutCreatedQltyInspectionHeader: Record "Qlty. Inspection Header"; var OutQltyInspectionTemplateHdr: Record "Qlty. Inspection Template Hdr.") diff --git a/src/Apps/W1/Quality Management/app/src/AccessControl/QltyPermissionMgmt.Codeunit.al b/src/Apps/W1/Quality Management/app/src/AccessControl/QltyPermissionMgmt.Codeunit.al index d56651c00d..85a15ba14e 100644 --- a/src/Apps/W1/Quality Management/app/src/AccessControl/QltyPermissionMgmt.Codeunit.al +++ b/src/Apps/W1/Quality Management/app/src/AccessControl/QltyPermissionMgmt.Codeunit.al @@ -28,7 +28,7 @@ codeunit 20406 "Qlty. Permission Mgmt." ActionChangeItemTrackingLbl: Label 'change item tracking'; ActionChangeSourceQuantityLbl: Label 'change source quantity'; ActionEditLineCommentLbl: Label 'edit line note/comment'; - SupervisorRoleIDTxt: Label 'QltyMngmnt - Edit', Locked = true; + AdminSupervisorRoleIDTxt: Label 'QltyMngmnt - Admin', Locked = true; UserDoesNotHavePermissionToErr: Label 'The user [%1] does not have permission to [%2].', Comment = '%1=User id, %2=permission being attempted'; /// @@ -200,10 +200,10 @@ codeunit 20406 "Qlty. Permission Mgmt." UserPermissions: Codeunit "User Permissions"; CurrentExtensionModuleInfo: ModuleInfo; begin - IsAssigned := HasUserPermissionSetDirectlyAssigned(UserSecurityId(), SupervisorRoleIDTxt); + IsAssigned := HasUserPermissionSetDirectlyAssigned(UserSecurityId(), AdminSupervisorRoleIDTxt); if not IsAssigned then if NavApp.GetCurrentModuleInfo(CurrentExtensionModuleInfo) then - IsAssigned := UserPermissions.HasUserPermissionSetAssigned(UserSecurityId(), CompanyName(), SupervisorRoleIDTxt, 0, CurrentExtensionModuleInfo.Id()); + IsAssigned := UserPermissions.HasUserPermissionSetAssigned(UserSecurityId(), CompanyName(), AdminSupervisorRoleIDTxt, 0, CurrentExtensionModuleInfo.Id()); if not IsAssigned then IsAssigned := UserPermissions.IsSuper(UserSecurityId()); end; diff --git a/src/Apps/W1/Quality Management/app/src/Permissions/AdministratorQltyMngmnt.PermissionSetExt.al b/src/Apps/W1/Quality Management/app/src/Permissions/AdministratorQltyMngmnt.PermissionSetExt.al index 4b49d6c5da..b7cc2e33d7 100644 --- a/src/Apps/W1/Quality Management/app/src/Permissions/AdministratorQltyMngmnt.PermissionSetExt.al +++ b/src/Apps/W1/Quality Management/app/src/Permissions/AdministratorQltyMngmnt.PermissionSetExt.al @@ -8,5 +8,5 @@ using System.Security.AccessControl; permissionsetextension 20402 "Administrator - QltyMngmnt" extends "Administrator" { - IncludedPermissionSets = "QltyMngmnt - Edit"; + IncludedPermissionSets = "QltyMngmnt - Admin"; } \ No newline at end of file diff --git a/src/Apps/W1/Quality Management/app/src/Permissions/D365BasicIsvQltyMngmnt.PermissionSetExt.al b/src/Apps/W1/Quality Management/app/src/Permissions/D365BasicIsvQltyMngmnt.PermissionSetExt.al index 6569119ff3..286d959a7b 100644 --- a/src/Apps/W1/Quality Management/app/src/Permissions/D365BasicIsvQltyMngmnt.PermissionSetExt.al +++ b/src/Apps/W1/Quality Management/app/src/Permissions/D365BasicIsvQltyMngmnt.PermissionSetExt.al @@ -8,5 +8,5 @@ using System.Security.AccessControl; permissionsetextension 20400 "D365 BASIC ISV - QltyMngmnt" extends "D365 BASIC ISV" { - IncludedPermissionSets = "QltyMngmnt - Edit"; + IncludedPermissionSets = "QltyMngmnt - Admin"; } \ No newline at end of file diff --git a/src/Apps/W1/Quality Management/app/src/Permissions/D365BusFullAccessQltyMngmnt.PermissionSetExt.al b/src/Apps/W1/Quality Management/app/src/Permissions/D365BusFullAccessQltyMngmnt.PermissionSetExt.al index b6f8d3a6b6..5473539e2e 100644 --- a/src/Apps/W1/Quality Management/app/src/Permissions/D365BusFullAccessQltyMngmnt.PermissionSetExt.al +++ b/src/Apps/W1/Quality Management/app/src/Permissions/D365BusFullAccessQltyMngmnt.PermissionSetExt.al @@ -8,5 +8,5 @@ using System.Security.AccessControl; permissionsetextension 20401 "D365 BUS FULL ACCESS - QltyMngmnt" extends "D365 BUS FULL ACCESS" { - IncludedPermissionSets = "QltyMngmnt - Edit"; + IncludedPermissionSets = "QltyMngmnt - Admin"; } \ No newline at end of file diff --git a/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntEdit.PermissionSet.al b/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntAdmin.PermissionSet.al similarity index 95% rename from src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntEdit.PermissionSet.al rename to src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntAdmin.PermissionSet.al index 6a9d66f7a8..4de3bfa138 100644 --- a/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntEdit.PermissionSet.al +++ b/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntAdmin.PermissionSet.al @@ -18,9 +18,9 @@ using Microsoft.QualityManagement.Workflow; /// /// Used for administering Quality Management and supervising Quality Inspections. /// -permissionset 20405 "QltyMngmnt - Edit" +permissionset 20405 "QltyMngmnt - Admin" { - Caption = 'Quality Management - Full edit access'; + Caption = 'Quality Management - Administrator'; Access = Public; Assignable = true; diff --git a/src/Apps/W1/Quality Management/test/src/QltyTestsPermissionMgmt.Codeunit.al b/src/Apps/W1/Quality Management/test/src/QltyTestsPermissionMgmt.Codeunit.al index 5759d264b2..35badc1eb9 100644 --- a/src/Apps/W1/Quality Management/test/src/QltyTestsPermissionMgmt.Codeunit.al +++ b/src/Apps/W1/Quality Management/test/src/QltyTestsPermissionMgmt.Codeunit.al @@ -19,7 +19,7 @@ codeunit 139957 "Qlty. Tests - Permission Mgmt." QltyInspectionUtility: Codeunit "Qlty. Inspection Utility"; LibraryAssert: Codeunit "Library Assert"; UserDoesNotHavePermissionToErr: Label 'The user [%1] does not have permission to [%2].', Comment = '%1=User id, %2=permission being attempted'; - SupervisorRoleIDTok: Label 'QltyMngmnt - Edit', Locked = true; + AdminSupervisorRoleIDTok: Label 'QltyMngmnt - Admin', Locked = true; [Test] procedure VerifyCanCreateManualInspection_ShouldError() @@ -41,7 +41,7 @@ codeunit 139957 "Qlty. Tests - Permission Mgmt." // [SCENARIO] Verify that creating a manual inspection succeeds with proper supervisor permissions // [GIVEN] The supervisor role permission set is added - LibraryLowerPermissions.AddPermissionSet(SupervisorRoleIDTok); + LibraryLowerPermissions.AddPermissionSet(AdminSupervisorRoleIDTok); // [WHEN] VerifyCanCreateManualInspection is called QltyInspectionUtility.VerifyCanCreateManualInspection(); @@ -69,7 +69,7 @@ codeunit 139957 "Qlty. Tests - Permission Mgmt." // [SCENARIO] Verify that creating a re-inspection succeeds with proper supervisor permissions // [GIVEN] The supervisor role permission set is added - LibraryLowerPermissions.AddPermissionSet(SupervisorRoleIDTok); + LibraryLowerPermissions.AddPermissionSet(AdminSupervisorRoleIDTok); // [WHEN] VerifyCanCreateReinspection is called QltyInspectionUtility.VerifyCanCreateReinspection(); @@ -97,7 +97,7 @@ codeunit 139957 "Qlty. Tests - Permission Mgmt." // [SCENARIO] Verify that deleting an open inspection succeeds with proper supervisor permissions // [GIVEN] The supervisor role permission set is added - LibraryLowerPermissions.AddPermissionSet(SupervisorRoleIDTok); + LibraryLowerPermissions.AddPermissionSet(AdminSupervisorRoleIDTok); // [WHEN] VerifyCanDeleteOpenInspection is called QltyInspectionUtility.VerifyCanDeleteOpenInspection(); @@ -125,7 +125,7 @@ codeunit 139957 "Qlty. Tests - Permission Mgmt." // [SCENARIO] Verify that deleting a finished inspection succeeds with proper supervisor permissions // [GIVEN] The supervisor role permission set is added - LibraryLowerPermissions.AddPermissionSet(SupervisorRoleIDTok); + LibraryLowerPermissions.AddPermissionSet(AdminSupervisorRoleIDTok); // [WHEN] VerifyCanDeleteFinishedInspection is called QltyInspectionUtility.VerifyCanDeleteFinishedInspection(); @@ -140,7 +140,7 @@ codeunit 139957 "Qlty. Tests - Permission Mgmt." // [SCENARIO] Verify that changing other users' inspections succeeds with proper supervisor permissions // [GIVEN] The supervisor role permission set is added - LibraryLowerPermissions.AddPermissionSet(SupervisorRoleIDTok); + LibraryLowerPermissions.AddPermissionSet(AdminSupervisorRoleIDTok); // [WHEN] VerifyCanChangeOtherInspections is called QltyInspectionUtility.VerifyCanChangeOtherInspections(); @@ -169,7 +169,7 @@ codeunit 139957 "Qlty. Tests - Permission Mgmt." // [SCENARIO] Verify that reopening an inspection succeeds with proper supervisor permissions // [GIVEN] The supervisor role permission set is added - LibraryLowerPermissions.AddPermissionSet(SupervisorRoleIDTok); + LibraryLowerPermissions.AddPermissionSet(AdminSupervisorRoleIDTok); // [WHEN] VerifyCanReopenInspection is called QltyInspectionUtility.VerifyCanReopenInspection(); @@ -197,7 +197,7 @@ codeunit 139957 "Qlty. Tests - Permission Mgmt." // [SCENARIO] Verify that finishing an inspection succeeds with proper supervisor permissions // [GIVEN] The supervisor role permission set is added - LibraryLowerPermissions.AddPermissionSet(SupervisorRoleIDTok); + LibraryLowerPermissions.AddPermissionSet(AdminSupervisorRoleIDTok); // [WHEN] VerifyCanFinishInspection is called QltyInspectionUtility.VerifyCanFinishInspection(); @@ -226,7 +226,7 @@ codeunit 139957 "Qlty. Tests - Permission Mgmt." // [SCENARIO] Verify that changing item tracking succeeds with proper supervisor permissions // [GIVEN] The supervisor role permission set is added - LibraryLowerPermissions.AddPermissionSet(SupervisorRoleIDTok); + LibraryLowerPermissions.AddPermissionSet(AdminSupervisorRoleIDTok); // [WHEN] VerifyCanChangeItemTracking is called QltyInspectionUtility.VerifyCanChangeItemTracking(); @@ -255,7 +255,7 @@ codeunit 139957 "Qlty. Tests - Permission Mgmt." // [SCENARIO] Verify that changing source quantity succeeds with proper supervisor permissions // [GIVEN] The supervisor role permission set is added - LibraryLowerPermissions.AddPermissionSet(SupervisorRoleIDTok); + LibraryLowerPermissions.AddPermissionSet(AdminSupervisorRoleIDTok); // [WHEN] VerifyCanChangeSourceQuantity is called QltyInspectionUtility.VerifyCanChangeSourceQuantity(); From 4e3606a460ea1b0c7a6eeaa7cd97c384519523a7 Mon Sep 17 00:00:00 2001 From: Dusan Jakovljevic <134404137+JakovljevicDusan@users.noreply.github.com> Date: Tue, 17 Mar 2026 20:18:37 +0100 Subject: [PATCH 3/5] Include HasAdminSupervisorRole() into reopen inspection action check --- .../QltyPermissionMgmt.Codeunit.al | 22 ++++++++++++++----- 1 file changed, 17 insertions(+), 5 deletions(-) diff --git a/src/Apps/W1/Quality Management/app/src/AccessControl/QltyPermissionMgmt.Codeunit.al b/src/Apps/W1/Quality Management/app/src/AccessControl/QltyPermissionMgmt.Codeunit.al index 85a15ba14e..2b98729574 100644 --- a/src/Apps/W1/Quality Management/app/src/AccessControl/QltyPermissionMgmt.Codeunit.al +++ b/src/Apps/W1/Quality Management/app/src/AccessControl/QltyPermissionMgmt.Codeunit.al @@ -64,7 +64,7 @@ codeunit 20406 "Qlty. Permission Mgmt." /// True if the user can change other users' inspections; otherwise, false. internal procedure CanChangeOtherInspections(): Boolean begin - exit(HasSupervisorRole()); + exit(HasAdminSupervisorRole()); end; /// @@ -90,10 +90,22 @@ codeunit 20406 "Qlty. Permission Mgmt." /// internal procedure VerifyCanReopenInspection() begin - if not CanModifyTableData(Database::"Qlty. Inspection Header") then + if not CanReopenInspection() then Error(UserDoesNotHavePermissionToErr, UserId(), ActionReopenInspectionLbl); end; + /// + /// Checks if the current user can reopen an inspection. + /// + /// True if the user can reopen an inspection; otherwise, false. + local procedure CanReopenInspection(): Boolean + begin + if not CanModifyTableData(Database::"Qlty. Inspection Header") then + exit(false); + + exit(HasAdminSupervisorRole()); + end; + /// /// Verifies the current user can delete an open inspection. Throws an error if not permitted. /// @@ -121,7 +133,7 @@ codeunit 20406 "Qlty. Permission Mgmt." if not CanDeleteTableData(Database::"Qlty. Inspection Header") then exit(false); - exit(HasSupervisorRole()); + exit(HasAdminSupervisorRole()); end; /// @@ -160,7 +172,7 @@ codeunit 20406 "Qlty. Permission Mgmt." if not CanModifyTableData(Database::"Qlty. Inspection Header") then exit(false); - exit(HasSupervisorRole()); + exit(HasAdminSupervisorRole()); end; /// @@ -195,7 +207,7 @@ codeunit 20406 "Qlty. Permission Mgmt." end; #region Verify Permissions - local procedure HasSupervisorRole() IsAssigned: Boolean + local procedure HasAdminSupervisorRole() IsAssigned: Boolean var UserPermissions: Codeunit "User Permissions"; CurrentExtensionModuleInfo: ModuleInfo; From 908efaca63ab4882e4017760a79d30cc50cdeeee Mon Sep 17 00:00:00 2001 From: Dusan Jakovljevic <134404137+JakovljevicDusan@users.noreply.github.com> Date: Tue, 17 Mar 2026 21:37:28 +0100 Subject: [PATCH 4/5] 4. Limit "permissionset 20404 QltyMngmntInspector" to operational-only role --- .../Document/QltyInspectionHeader.Table.al | 3 ++- .../src/Document/QltyInspectionLine.Table.al | 1 + .../QltyMngmntInspector.PermissionSet.al | 24 +++++++++---------- .../QltyInspectionActivities.Page.al | 1 + .../Workflow/QltyWorkflowResponse.Codeunit.al | 3 ++- 5 files changed, 17 insertions(+), 15 deletions(-) diff --git a/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionHeader.Table.al b/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionHeader.Table.al index 87e1a1b656..f11afba971 100644 --- a/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionHeader.Table.al +++ b/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionHeader.Table.al @@ -34,7 +34,8 @@ table 20405 "Qlty. Inspection Header" DrillDownPageId = "Qlty. Inspection List"; LookupPageId = "Qlty. Inspection List"; DataClassification = CustomerContent; - Permissions = tabledata "Qlty. Inspection Line" = d; + Permissions = tabledata "Qlty. Inspection Line" = d, + tabledata "Qlty. I. Result Condit. Conf." = d; fields { diff --git a/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionLine.Table.al b/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionLine.Table.al index e9f32a3b9a..cef37cd9b6 100644 --- a/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionLine.Table.al +++ b/src/Apps/W1/Quality Management/app/src/Document/QltyInspectionLine.Table.al @@ -22,6 +22,7 @@ table 20406 "Qlty. Inspection Line" LookupPageId = "Qlty. Inspection Lines"; DrillDownPageId = "Qlty. Inspection Lines"; DataClassification = CustomerContent; + Permissions = tabledata "Qlty. I. Result Condit. Conf." = d; fields { diff --git a/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntInspector.PermissionSet.al b/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntInspector.PermissionSet.al index 3fdf824ecc..d648645ef5 100644 --- a/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntInspector.PermissionSet.al +++ b/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntInspector.PermissionSet.al @@ -10,7 +10,6 @@ using Microsoft.QualityManagement.Configuration.SourceConfiguration; using Microsoft.QualityManagement.Configuration.Template; using Microsoft.QualityManagement.Configuration.Template.Test; using Microsoft.QualityManagement.Document; -using Microsoft.QualityManagement.Integration.Inventory.Transfer; using Microsoft.QualityManagement.RoleCenters; using Microsoft.QualityManagement.Setup; using Microsoft.QualityManagement.Workflow; @@ -27,20 +26,19 @@ permissionset 20404 QltyMngmntInspector IncludedPermissionSets = "QltyMngmnt - Objects"; Permissions = - tabledata "Qlty. Workflow Config. Value" = RIMD, - tabledata "Qlty. Inspection Gen. Rule" = RIMd, + tabledata "Qlty. Workflow Config. Value" = Rim, + tabledata "Qlty. Inspection Gen. Rule" = R, tabledata "Qlty. I. Result Condit. Conf." = RIMd, - tabledata "Qlty. Inspection Result" = RIMd, - tabledata "Qlty. Inspection Template Hdr." = RIMd, - tabledata "Qlty. Inspection Template Line" = RIMd, - tabledata "Qlty. Test Lookup Value" = RIMd, - tabledata "Qlty. Management Setup" = RIMd, - tabledata "Qlty. Related Transfers Buffer" = RIMD, - tabledata "Qlty. Mgmt. Role Center Cue" = RIMd, - tabledata "Qlty. Inspect. Src. Fld. Conf." = RIMd, - tabledata "Qlty. Inspect. Source Config." = RIMd, + tabledata "Qlty. Inspection Result" = R, + tabledata "Qlty. Inspection Template Hdr." = R, + tabledata "Qlty. Inspection Template Line" = R, + tabledata "Qlty. Test Lookup Value" = R, + tabledata "Qlty. Management Setup" = R, + tabledata "Qlty. Mgmt. Role Center Cue" = Ri, + tabledata "Qlty. Inspect. Src. Fld. Conf." = R, + tabledata "Qlty. Inspect. Source Config." = R, tabledata "Qlty. Inspection Line" = RIMd, tabledata "Qlty. Inspection Header" = RIMd, - tabledata "Qlty. Test" = RIMd; + tabledata "Qlty. Test" = R; } diff --git a/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyInspectionActivities.Page.al b/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyInspectionActivities.Page.al index 83854b9c48..1ff2eb1410 100644 --- a/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyInspectionActivities.Page.al +++ b/src/Apps/W1/Quality Management/app/src/RoleCenters/QltyInspectionActivities.Page.al @@ -13,6 +13,7 @@ page 20425 "Qlty. Inspection Activities" RefreshOnActivate = true; SourceTable = "Qlty. Mgmt. Role Center Cue"; ApplicationArea = QualityManagement; + Permissions = TableData "Qlty. Mgmt. Role Center Cue" = i; layout { diff --git a/src/Apps/W1/Quality Management/app/src/Workflow/QltyWorkflowResponse.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Workflow/QltyWorkflowResponse.Codeunit.al index 038744b314..67be6b0918 100644 --- a/src/Apps/W1/Quality Management/app/src/Workflow/QltyWorkflowResponse.Codeunit.al +++ b/src/Apps/W1/Quality Management/app/src/Workflow/QltyWorkflowResponse.Codeunit.al @@ -23,7 +23,8 @@ using System.Reflection; /// codeunit 20424 "Qlty. Workflow Response" { - Permissions = tabledata "Workflow Step Instance" = r; + Permissions = tabledata "Workflow Step Instance" = r, + tabledata "Qlty. Workflow Config. Value" = im; var QltyWorkflowSetup: Codeunit "Qlty. Workflow Setup"; From dcc99cfc755ed7bf7a5846b11423f120c55105fb Mon Sep 17 00:00:00 2001 From: Dusan Jakovljevic <134404137+JakovljevicDusan@users.noreply.github.com> Date: Thu, 19 Mar 2026 18:56:31 +0100 Subject: [PATCH 5/5] Suppress warnings --- .../app/src/Permissions/QltyMngmntAdmin.PermissionSet.al | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntAdmin.PermissionSet.al b/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntAdmin.PermissionSet.al index 4de3bfa138..df03b08d51 100644 --- a/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntAdmin.PermissionSet.al +++ b/src/Apps/W1/Quality Management/app/src/Permissions/QltyMngmntAdmin.PermissionSet.al @@ -18,6 +18,8 @@ using Microsoft.QualityManagement.Workflow; /// /// Used for administering Quality Management and supervising Quality Inspections. /// +#pragma warning disable AS0125 +#pragma warning disable AS0090 permissionset 20405 "QltyMngmnt - Admin" { Caption = 'Quality Management - Administrator'; @@ -43,3 +45,5 @@ permissionset 20405 "QltyMngmnt - Admin" tabledata "Qlty. Inspection Header" = RIMD, tabledata "Qlty. Inspection Line" = RIMD; } +#pragma warning restore AS0090 +#pragma warning restore AS0125 \ No newline at end of file