From a73e5c8722c90ebc298b5ca98e82be219a99f95c Mon Sep 17 00:00:00 2001
From: Predrag Maricic <pmaricic@microsoft.com>
Date: Mon, 2 Mar 2026 14:03:40 +0100
Subject: [PATCH 1/2] [28.0] Quality Management - create checklist only with
 appropriate permission (#6914)

<!-- Thank you for submitting a Pull Request. If you're new to
contributing to BCApps please read our pull request guideline below
* https://github.com/microsoft/BCApps/Contributing.md
-->
#### Summary <!-- Provide a general summary of your changes -->
Initializing quality management setup causes error for limited user

#### Work Item(s) <!-- Add the issue number here after the #. The issue
needs to be open and approved. Submitting PRs with no linked issues or
unapproved issues is highly discouraged. -->
Fixes
[AB#623634](https://dynamicssmb2.visualstudio.com/1fcb79e7-ab07-432a-a3c6-6cf5a88ba4a5/_workitems/edit/623634)
---
 .../app/src/Setup/SetupGuide/QltyGuidedExperience.Codeunit.al  | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Apps/W1/Quality Management/app/src/Setup/SetupGuide/QltyGuidedExperience.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Setup/SetupGuide/QltyGuidedExperience.Codeunit.al
index a4f8000580..0c5dae5203 100644
--- a/src/Apps/W1/Quality Management/app/src/Setup/SetupGuide/QltyGuidedExperience.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/app/src/Setup/SetupGuide/QltyGuidedExperience.Codeunit.al	
@@ -71,6 +71,9 @@ codeunit 20419 "Qlty. Guided Experience"
         if not (Session.CurrentClientType() in [ClientType::Web, ClientType::Windows, ClientType::Desktop]) then
             exit;
 
+        if not QltyManagementSetup.ReadPermission then
+            exit;
+
         if not Company.Get(CompanyName()) then
             exit;
 

From bb000681061d33d477fd591d2d14d740b48d5b52 Mon Sep 17 00:00:00 2001
From: Predrag Maricic <pmaricic@microsoft.com>
Date: Wed, 4 Mar 2026 09:22:05 +0100
Subject: [PATCH 2/2] Quality Management - create checklist only with
 appropriate permission

---
 .../app/src/Setup/SetupGuide/QltyGuidedExperience.Codeunit.al   | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Apps/W1/Quality Management/app/src/Setup/SetupGuide/QltyGuidedExperience.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Setup/SetupGuide/QltyGuidedExperience.Codeunit.al
index 0c5dae5203..32c43d096b 100644
--- a/src/Apps/W1/Quality Management/app/src/Setup/SetupGuide/QltyGuidedExperience.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/app/src/Setup/SetupGuide/QltyGuidedExperience.Codeunit.al	
@@ -71,7 +71,7 @@ codeunit 20419 "Qlty. Guided Experience"
         if not (Session.CurrentClientType() in [ClientType::Web, ClientType::Windows, ClientType::Desktop]) then
             exit;
 
-        if not QltyManagementSetup.ReadPermission then
+        if not (QltyManagementSetup.ReadPermission and QltyManagementSetup.WritePermission) then
             exit;
 
         if not Company.Get(CompanyName()) then