From 50cce2bb18475522a5e8d132ffb1a198f5ae6a70 Mon Sep 17 00:00:00 2001
From: tomasevicstefan <stomasevic@microsoft.com>
Date: Wed, 24 Dec 2025 09:52:29 +0100
Subject: [PATCH 1/4] [Quality Management] Refactor localization handling for
 boolean values and add Qlty. Localization codeunit

---
 .../Result/QltyResultEvaluation.Codeunit.al   |  8 +-
 .../Utilities/QltyLocalization.Codeunit.al    | 73 +++++++++++++++++++
 .../src/Utilities/QltyMiscHelpers.Codeunit.al | 32 ++------
 .../test/src/QltyTestsMisc.Codeunit.al        | 19 ++---
 4 files changed, 93 insertions(+), 39 deletions(-)
 create mode 100644 src/Apps/W1/Quality Management/app/src/Utilities/QltyLocalization.Codeunit.al

diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyResultEvaluation.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyResultEvaluation.Codeunit.al
index 7543ce3ce1..04a6cfdba6 100644
--- a/src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyResultEvaluation.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyResultEvaluation.Codeunit.al	
@@ -18,6 +18,7 @@ codeunit 20410 "Qlty. Result Evaluation"
     TableNo = "Qlty. Inspection Line";
 
     var
+        QltyLocalization: Codeunit "Qlty. Localization";
         IsDefaultNumberTok: Label '<>0', Locked = true;
         IsDefaultTextTok: Label '<>''''', Locked = true;
         InvalidDataTypeErr: Label 'The value "%1" is not allowed for %2, it is not a %3.', Comment = '%1=the value, %2=field name,%3=field type.';
@@ -378,16 +379,13 @@ codeunit 20410 "Qlty. Result Evaluation"
             QltyTestValueType::"Value Type Boolean":
                 begin
                     if not (IsBlankOrEmptyCondition(AllowableValues) and (TextToValidate = '')) then
-                        if QltyMiscHelpers.GetBooleanFor(TextToValidate) then
-                            TextToValidate := QltyMiscHelpers.GetTranslatedYes250()
-                        else
-                            TextToValidate := QltyMiscHelpers.GetTranslatedNo250();
+                        TextToValidate := QltyLocalization.FormatForUser(QltyMiscHelpers.GetBooleanFor(TextToValidate));
 
                     if (AllowableValues <> '') and (QltyMiscHelpers.CanTextBeInterpretedAsBooleanIsh(AllowableValues)) then begin
                         if not QltyMiscHelpers.GetBooleanFor(TextToValidate) = QltyMiscHelpers.GetBooleanFor(AllowableValues) then
                             Error(NotInAllowableValuesErr, TextToValidate, NumberOrNameOfTestNameForError, AllowableValues);
                     end else
-                        if not (TextToValidate in [QltyMiscHelpers.GetTranslatedYes250(), QltyMiscHelpers.GetTranslatedNo250(), '']) then
+                        if not (TextToValidate in [QltyLocalization.GetTranslatedYes(), QltyLocalization.GetTranslatedNo(), '']) then
                             Error(NotInAllowableValuesErr, TextToValidate, NumberOrNameOfTestNameForError, AllowableValues);
                 end;
             QltyTestValueType::"Value Type Text":
diff --git a/src/Apps/W1/Quality Management/app/src/Utilities/QltyLocalization.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Utilities/QltyLocalization.Codeunit.al
new file mode 100644
index 0000000000..d82665c005
--- /dev/null
+++ b/src/Apps/W1/Quality Management/app/src/Utilities/QltyLocalization.Codeunit.al	
@@ -0,0 +1,73 @@
+// ------------------------------------------------------------------------------------------------
+// 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.Utilities;
+
+codeunit 20598 "Qlty. Localization"
+{
+    var
+        TranslatableYesLbl: Label 'Yes';
+        TranslatableNoLbl: Label 'No';
+
+    /// <summary>
+    /// Returns the translatable "Yes" label with maximum length of 250 characters.
+    /// Used for UI display and user-facing text where localization is required.
+    /// </summary>
+    /// <returns>The localized "Yes" text (up to 250 characters)</returns>
+    procedure GetTranslatedYes(): Text[250]
+    begin
+        exit(TranslatableYesLbl);
+    end;
+
+    /// <summary>
+    /// Returns the translatable "No" label with maximum length of 250 characters.
+    /// Used for UI display and user-facing text where localization is required.
+    /// </summary>
+    /// <returns>The localized "No" text (up to 250 characters)</returns>
+    procedure GetTranslatedNo(): Text[250]
+    begin
+        exit(TranslatableNoLbl);
+    end;
+
+    /// <summary>
+    /// Formats a boolean value for user display using localized Yes/No text.
+    /// </summary>
+    /// <param name="Value">The boolean value to format</param>
+    /// <returns>Localized "Yes" for true, "No" for false</returns>
+    procedure FormatForUser(Value: Boolean): Text[250]
+    begin
+        if Value then
+            exit(TranslatableYesLbl);
+        exit(TranslatableNoLbl);
+    end;
+
+    /// <summary>
+    /// Parses user input text to a boolean value using localized Yes/No interpretation.
+    /// Supports localized Yes/No values as well as standard boolean representations.
+    /// </summary>
+    /// <param name="Input">The text value to parse</param>
+    /// <param name="Value">Output: The parsed boolean value</param>
+    /// <returns>True if parsing succeeded; False if input is not a recognized boolean representation</returns>
+    procedure ParseFromUser(Input: Text; var Value: Boolean): Boolean
+    begin
+        Input := Input.Trim();
+        if Input = '' then
+            exit(false);
+
+        case UpperCase(Input) of
+            UpperCase(TranslatableYesLbl), 'Y', 'YES', 'T', 'TRUE', '1', 'ON':
+                begin
+                    Value := true;
+                    exit(true);
+                end;
+            UpperCase(TranslatableNoLbl), 'N', 'NO', 'F', 'FALSE', '0', 'OFF':
+                begin
+                    Value := false;
+                    exit(true);
+                end;
+        end;
+
+        exit(Evaluate(Value, Input));
+    end;
+}
diff --git a/src/Apps/W1/Quality Management/app/src/Utilities/QltyMiscHelpers.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Utilities/QltyMiscHelpers.Codeunit.al
index 57d6b9627a..8389b62b2b 100644
--- a/src/Apps/W1/Quality Management/app/src/Utilities/QltyMiscHelpers.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/app/src/Utilities/QltyMiscHelpers.Codeunit.al	
@@ -22,8 +22,6 @@ using System.Security.User;
 codeunit 20599 "Qlty. Misc Helpers"
 {
     var
-        TranslatableYesLbl: Label 'Yes';
-        TranslatableNoLbl: Label 'No';
         LockedYesLbl: Label 'Yes', Locked = true;
         LockedNoLbl: Label 'No', Locked = true;
         ImportFromLbl: Label 'Import From File';
@@ -42,26 +40,6 @@ codeunit 20599 "Qlty. Misc Helpers"
         BadTableTok: Label '?table?', Locked = true;
         BadFieldTok: Label '?t:%1?f:%2?', Locked = true, Comment = '%1=the table, %2=the requested field';
 
-    /// <summary>
-    /// Returns the translatable "Yes" label with maximum length of 250 characters.
-    /// Used for UI display and user-facing text where localization is required.
-    /// </summary>
-    /// <returns>The localized "Yes" text (up to 250 characters)</returns>
-    procedure GetTranslatedYes250(): Text[250]
-    begin
-        exit(TranslatableYesLbl);
-    end;
-
-    /// <summary>
-    /// Returns the translatable "No" label with maximum length of 250 characters.
-    /// Used for UI display and user-facing text where localization is required.
-    /// </summary>
-    /// <returns>The localized "No" text (up to 250 characters)</returns>
-    procedure GetTranslatedNo250(): Text[250]
-    begin
-        exit(TranslatableNoLbl);
-    end;
-
     /// <summary>
     /// The maximum recursion to use when creating inspections.
     /// Used for traversal on source table configuration when finding applicable generation rules, and also when populating source fields.
@@ -361,13 +339,15 @@ codeunit 20599 "Qlty. Misc Helpers"
     /// <param name="Input">The text value to convert to boolean</param>
     /// <returns>True if input matches any positive boolean representation; False otherwise</returns>
     procedure GetBooleanFor(Input: Text) IsTrue: Boolean
+    var
+        QltyLocalization: Codeunit "Qlty. Localization";
     begin
         if Input <> '' then begin
             if not Evaluate(IsTrue, Input) then
                 exit(IsTextValuePositiveBoolean(Input));
 
             case UpperCase(Input) of
-                UpperCase(TranslatableYesLbl), UpperCase(LockedYesLbl),
+                UpperCase(QltyLocalization.GetTranslatedYes()), UpperCase(LockedYesLbl),
                 'Y', 'YES', 'T', 'TRUE', '1', 'POSITIVE', 'ENABLED', 'CHECK', 'CHECKED',
                 'GOOD', 'PASS', 'ACCEPTABLE', 'PASSED', 'OK', 'ON',
                 'V', ':SELECTED:':
@@ -391,6 +371,7 @@ codeunit 20599 "Qlty. Misc Helpers"
     /// <returns>True if the value represents a positive/affirmative boolean; False otherwise</returns>
     procedure IsTextValuePositiveBoolean(ValueToCheckIfPositiveBoolean: Text): Boolean
     var
+        QltyLocalization: Codeunit "Qlty. Localization";
         ConvertedBoolean: Boolean;
     begin
         ValueToCheckIfPositiveBoolean := ValueToCheckIfPositiveBoolean.Trim();
@@ -400,7 +381,7 @@ codeunit 20599 "Qlty. Misc Helpers"
                 exit(true);
 
         case UpperCase(ValueToCheckIfPositiveBoolean) of
-            UpperCase(TranslatableYesLbl),
+            UpperCase(QltyLocalization.GetTranslatedYes()),
             UpperCase(LockedYesLbl),
             'Y',
             'YES',
@@ -442,6 +423,7 @@ codeunit 20599 "Qlty. Misc Helpers"
     /// <returns>True if text represents a negative boolean value; False otherwise (including positive values)</returns>
     procedure IsTextValueNegativeBoolean(ValueToCheckIfNegativeBoolean: Text): Boolean
     var
+        QltyLocalization: Codeunit "Qlty. Localization";
         ConvertedBoolean: Boolean;
     begin
         ValueToCheckIfNegativeBoolean := ValueToCheckIfNegativeBoolean.Trim();
@@ -451,7 +433,7 @@ codeunit 20599 "Qlty. Misc Helpers"
                 exit(true);
 
         case UpperCase(ValueToCheckIfNegativeBoolean) of
-            UpperCase(TranslatableNoLbl),
+            UpperCase(QltyLocalization.GetTranslatedNo()),
             UpperCase(LockedNoLbl),
             'N',
             'NO',
diff --git a/src/Apps/W1/Quality Management/test/src/QltyTestsMisc.Codeunit.al b/src/Apps/W1/Quality Management/test/src/QltyTestsMisc.Codeunit.al
index ee5ca55240..b6cc4c76cf 100644
--- a/src/Apps/W1/Quality Management/test/src/QltyTestsMisc.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/test/src/QltyTestsMisc.Codeunit.al	
@@ -1265,31 +1265,31 @@ codeunit 139964 "Qlty. Tests - Misc."
     end;
 
     [Test]
-    procedure GetTranslatedYes250()
+    procedure GetTranslatedYes()
     var
-        QltyMiscHelpers: Codeunit "Qlty. Misc Helpers";
+        QltyLocalization: Codeunit "Qlty. Localization";
     begin
         // [SCENARIO] Get translated "Yes" text value
 
         Initialize();
 
-        // [WHEN] GetTranslatedYes250 is called
+        // [WHEN] GetTranslatedYes is called
         // [THEN] The function returns the translated string "Yes"
-        LibraryAssert.AreEqual('Yes', QltyMiscHelpers.GetTranslatedYes250(), 'locked yes.');
+        LibraryAssert.AreEqual('Yes', QltyLocalization.GetTranslatedYes(), 'locked yes.');
     end;
 
     [Test]
-    procedure GetTranslatedNo250()
+    procedure GetTranslatedNo()
     var
-        QltyMiscHelpers: Codeunit "Qlty. Misc Helpers";
+        QltyLocalization: Codeunit "Qlty. Localization";
     begin
         // [SCENARIO] Get translated "No" text value
 
         Initialize();
 
-        // [WHEN] GetTranslatedNo250 is called
+        // [WHEN] GetTranslatedNo is called
         // [THEN] The function returns the translated string "No"
-        LibraryAssert.AreEqual('No', QltyMiscHelpers.GetTranslatedNo250(), 'locked no.');
+        LibraryAssert.AreEqual('No', QltyLocalization.GetTranslatedNo(), 'locked no.');
     end;
 
     [Test]
@@ -1324,6 +1324,7 @@ codeunit 139964 "Qlty. Tests - Misc."
     procedure GuessDataTypeFromDescriptionAndValue_Values()
     var
         QltyMiscHelpers: Codeunit "Qlty. Misc Helpers";
+        QltyLocalization: Codeunit "Qlty. Localization";
         QltyTestValueType: Enum "Qlty. Test Value Type";
     begin
         // [SCENARIO] Guess data type from actual values
@@ -1333,7 +1334,7 @@ codeunit 139964 "Qlty. Tests - Misc."
         // [GIVEN] Various sample values (boolean, numeric, date, text)
         // [WHEN] GuessDataTypeFromDescriptionAndValue is called with value (empty description)
         // [THEN] The function infers the correct data type from value patterns
-        LibraryAssert.AreEqual('No', QltyMiscHelpers.GetTranslatedNo250(), 'locked no.');
+        LibraryAssert.AreEqual('No', QltyLocalization.GetTranslatedNo(), 'locked no.');
 
         LibraryAssert.AreEqual(QltyTestValueType::"Value Type Boolean", QltyMiscHelpers.GuessDataTypeFromDescriptionAndValue('', 'true'), 'bool test 1');
         LibraryAssert.AreEqual(QltyTestValueType::"Value Type Boolean", QltyMiscHelpers.GuessDataTypeFromDescriptionAndValue('', 'false'), 'bool test 2');

From 151e997dbf643f07ff18ad2d3d93e0e7893ed163 Mon Sep 17 00:00:00 2001
From: tomasevicstefan <stomasevic@microsoft.com>
Date: Wed, 24 Dec 2025 09:54:30 +0100
Subject: [PATCH 2/4] [Quality Management] Remove ParseFromUser procedure for
 boolean value interpretation

---
 .../Utilities/QltyLocalization.Codeunit.al    | 29 -------------------
 1 file changed, 29 deletions(-)

diff --git a/src/Apps/W1/Quality Management/app/src/Utilities/QltyLocalization.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Utilities/QltyLocalization.Codeunit.al
index d82665c005..96d02cf80b 100644
--- a/src/Apps/W1/Quality Management/app/src/Utilities/QltyLocalization.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/app/src/Utilities/QltyLocalization.Codeunit.al	
@@ -41,33 +41,4 @@ codeunit 20598 "Qlty. Localization"
             exit(TranslatableYesLbl);
         exit(TranslatableNoLbl);
     end;
-
-    /// <summary>
-    /// Parses user input text to a boolean value using localized Yes/No interpretation.
-    /// Supports localized Yes/No values as well as standard boolean representations.
-    /// </summary>
-    /// <param name="Input">The text value to parse</param>
-    /// <param name="Value">Output: The parsed boolean value</param>
-    /// <returns>True if parsing succeeded; False if input is not a recognized boolean representation</returns>
-    procedure ParseFromUser(Input: Text; var Value: Boolean): Boolean
-    begin
-        Input := Input.Trim();
-        if Input = '' then
-            exit(false);
-
-        case UpperCase(Input) of
-            UpperCase(TranslatableYesLbl), 'Y', 'YES', 'T', 'TRUE', '1', 'ON':
-                begin
-                    Value := true;
-                    exit(true);
-                end;
-            UpperCase(TranslatableNoLbl), 'N', 'NO', 'F', 'FALSE', '0', 'OFF':
-                begin
-                    Value := false;
-                    exit(true);
-                end;
-        end;
-
-        exit(Evaluate(Value, Input));
-    end;
 }

From ca9582ac948a796b2f5ac9d499501cc4f132af2d Mon Sep 17 00:00:00 2001
From: tomasevicstefan <stomasevic@microsoft.com>
Date: Wed, 24 Dec 2025 10:04:03 +0100
Subject: [PATCH 3/4] [Quality Management] Refactor quality management helpers
 to use Qlty. Configuration Helpers and remove redundant methods

---
 .../QltyInspecGenRuleMgmt.Codeunit.al         |  6 +-
 .../QltyTraversal.Codeunit.al                 |  7 ++-
 .../QltyConfigurationHelpers.Codeunit.al      | 62 +++++++++++++++++++
 .../src/Utilities/QltyMiscHelpers.Codeunit.al | 52 ++--------------
 .../test/src/QltyTestsMisc.Codeunit.al        | 12 ++--
 5 files changed, 81 insertions(+), 58 deletions(-)
 create mode 100644 src/Apps/W1/Quality Management/app/src/Utilities/QltyConfigurationHelpers.Codeunit.al

diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspecGenRuleMgmt.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspecGenRuleMgmt.Codeunit.al
index 634798ed01..0a42630edd 100644
--- a/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspecGenRuleMgmt.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/app/src/Configuration/GenerationRule/QltyInspecGenRuleMgmt.Codeunit.al	
@@ -16,7 +16,7 @@ using Microsoft.QualityManagement.Utilities;
 codeunit 20405 "Qlty. Inspec. Gen. Rule Mgmt."
 {
     var
-        QltyMiscHelpers: Codeunit "Qlty. Misc Helpers";
+        QltyConfigurationHelpers: Codeunit "Qlty. Configuration Helpers";
         QltyTraversal: Codeunit "Qlty. Traversal";
         UnexpectedAndNoDetailsErr: Label 'Something unexpected went wrong trying to find a matching quality inspection generation rule. Please review your Quality Inspection source table configuration.';
         CouldNotFindGenerationRuleErr: Label 'Could not find any compatible inspection generation rules for the template %1. Navigate to Quality Inspection Generation Rules and create a generation rule for the template %1', Comment = '%1=the template';
@@ -122,7 +122,7 @@ codeunit 20405 "Qlty. Inspec. Gen. Rule Mgmt."
                 Error(UnexpectedUnableWithADetailErr, Format(TargetRecordRef.RecordId()));
 
         Found := FindFirstGenerationRuleAndRecordBasedOnRecursive(
-            QltyMiscHelpers.GetArbitraryMaximumRecursion(),
+            QltyConfigurationHelpers.GetArbitraryMaximumRecursion(),
                 false,
                 RaiseErrorIfNoRuleIsFound,
                 TargetRecordRef,
@@ -153,7 +153,7 @@ codeunit 20405 "Qlty. Inspec. Gen. Rule Mgmt."
                 Error(NoGenRuleErr, Format(TargetRecordRef.RecordId()));
 
         Found := FindFirstGenerationRuleAndRecordBasedOnRecursive(
-            QltyMiscHelpers.GetArbitraryMaximumRecursion(),
+            QltyConfigurationHelpers.GetArbitraryMaximumRecursion(),
             true,
             IsManualCreation,
             TargetRecordRef,
diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/SourceConfiguration/QltyTraversal.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Configuration/SourceConfiguration/QltyTraversal.Codeunit.al
index 31f6c33f42..c244212cb6 100644
--- a/src/Apps/W1/Quality Management/app/src/Configuration/SourceConfiguration/QltyTraversal.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/app/src/Configuration/SourceConfiguration/QltyTraversal.Codeunit.al	
@@ -20,6 +20,7 @@ using System.Reflection;
 codeunit 20408 "Qlty. Traversal"
 {
     var
+        QltyConfigurationHelpers: Codeunit "Qlty. Configuration Helpers";
         QltyMiscHelpers: Codeunit "Qlty. Misc Helpers";
         ControlInfoToVisibility: Dictionary of [Text, Boolean];
         ControlInfoToCaptionClass: Dictionary of [Text, Text];
@@ -122,7 +123,7 @@ codeunit 20408 "Qlty. Traversal"
     /// <returns>True if at least one possible target configuration was found; False otherwise</returns>
     internal procedure FindPossibleTargetsBasedOnConfigRecursive(InputTable: Integer; var TempAvailableQltyInspectSourceConfig: Record "Qlty. Inspect. Source Config." temporary): Boolean
     begin
-        exit(FindPossibleTargetsBasedOnConfigRecursiveWithList(QltyMiscHelpers.GetArbitraryMaximumRecursion(), InputTable, TempAvailableQltyInspectSourceConfig));
+        exit(FindPossibleTargetsBasedOnConfigRecursiveWithList(QltyConfigurationHelpers.GetArbitraryMaximumRecursion(), InputTable, TempAvailableQltyInspectSourceConfig));
     end;
 
     local procedure FindPossibleTargetsBasedOnConfigRecursiveWithList(CurrentRecursionDepth: Integer; InputTable: Integer; var TempAvailableQltyInspectSourceConfig: Record "Qlty. Inspect. Source Config." temporary) Found: Boolean
@@ -215,7 +216,7 @@ codeunit 20408 "Qlty. Traversal"
         if TemporaryInspectionMatchRecordRef.Insert(false) then;
         QltyInspectionHeader.SetIsCreating(true);
         CouldApply := ApplySourceRecursive(
-            QltyMiscHelpers.GetArbitraryMaximumRecursion(),
+            QltyConfigurationHelpers.GetArbitraryMaximumRecursion(),
             TemporaryInspectionMatchRecordRef,
             TempAvailableQltyInspectSourceConfig,
             QltyInspectionHeader,
@@ -476,7 +477,7 @@ codeunit 20408 "Qlty. Traversal"
             OFFromTableIds.Add(InputQltyInspectionHeader."Source RecordId 4".TableNo());
 
         foreach FromTableIterator in OFFromTableIds do begin
-            TestText := GetSourceFieldInfoFromChain(ListOfConsideredSourceRecords, QltyMiscHelpers.GetArbitraryMaximumRecursion(), FromTableIterator, InputTable, SourceField."No.", BackupFieldCaption);
+            TestText := GetSourceFieldInfoFromChain(ListOfConsideredSourceRecords, QltyConfigurationHelpers.GetArbitraryMaximumRecursion(), FromTableIterator, InputTable, SourceField."No.", BackupFieldCaption);
             if TestText <> '' then
                 break;
         end;
diff --git a/src/Apps/W1/Quality Management/app/src/Utilities/QltyConfigurationHelpers.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Utilities/QltyConfigurationHelpers.Codeunit.al
new file mode 100644
index 0000000000..96c62df18a
--- /dev/null
+++ b/src/Apps/W1/Quality Management/app/src/Utilities/QltyConfigurationHelpers.Codeunit.al	
@@ -0,0 +1,62 @@
+// ------------------------------------------------------------------------------------------------
+// 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.Utilities;
+
+using Microsoft.QualityManagement.Setup;
+
+codeunit 20597 "Qlty. Configuration Helpers"
+{
+    /// <summary>
+    /// The maximum recursion to use when creating inspections.
+    /// Used for traversal on source table configuration when finding applicable generation rules, and also when populating source fields.
+    /// 
+    /// This limit prevents infinite loops in complex configuration hierarchies and ensures reasonable performance
+    /// when traversing multi-level table relationships.
+    /// </summary>
+    /// <returns>The maximum recursion depth allowed (currently 20 levels)</returns>
+    procedure GetArbitraryMaximumRecursion(): Integer
+    begin
+        exit(20);
+    end;
+
+    /// <summary>
+    /// Returns the maximum number of rows to show in field lookup dialogs.
+    /// Uses setup configuration if defined, otherwise defaults to 100.
+    /// 
+    /// Lookup order:
+    /// 1. OnBeforeGetDefaultMaximumRowsToShowInLookup event (if handled)
+    /// 2. Qlty. Management Setup."Max Rows Field Lookups" (if > 0)
+    /// 3. Default value of 100
+    /// </summary>
+    /// <returns>Maximum number of rows for field lookups</returns>
+    procedure GetDefaultMaximumRowsFieldLookup() ResultRowsCount: Integer
+    var
+        QltyManagementSetup: Record "Qlty. Management Setup";
+        Handled: Boolean;
+    begin
+        ResultRowsCount := 100;
+        OnBeforeGetDefaultMaximumRowsToShowInLookup(ResultRowsCount, Handled);
+        if Handled then
+            exit;
+
+        if not QltyManagementSetup.GetSetupRecord() then
+            exit;
+
+        if QltyManagementSetup."Max Rows Field Lookups" > 0 then
+            ResultRowsCount := QltyManagementSetup."Max Rows Field Lookups";
+    end;
+
+    /// <summary>
+    /// Provides an opportunity for customizations to alter the default maximum rows shown
+    /// for a table lookup in a quality inspector field.
+    /// Changing the default to a larger number can introduce performance issues.
+    /// </summary>
+    /// <param name="Rows">The number of rows to show</param>
+    /// <param name="Handled">Set to true if the event was handled</param>
+    [IntegrationEvent(false, false)]
+    local procedure OnBeforeGetDefaultMaximumRowsToShowInLookup(var Rows: Integer; var Handled: Boolean)
+    begin
+    end;
+}
diff --git a/src/Apps/W1/Quality Management/app/src/Utilities/QltyMiscHelpers.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Utilities/QltyMiscHelpers.Codeunit.al
index 8389b62b2b..67a02cec1a 100644
--- a/src/Apps/W1/Quality Management/app/src/Utilities/QltyMiscHelpers.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/app/src/Utilities/QltyMiscHelpers.Codeunit.al	
@@ -12,7 +12,6 @@ using Microsoft.Inventory.Tracking;
 using Microsoft.Projects.Resources.Resource;
 using Microsoft.QualityManagement.Configuration.Template.Test;
 using Microsoft.QualityManagement.Document;
-using Microsoft.QualityManagement.Setup;
 using Microsoft.Utilities;
 using System.IO;
 using System.Reflection;
@@ -40,36 +39,6 @@ codeunit 20599 "Qlty. Misc Helpers"
         BadTableTok: Label '?table?', Locked = true;
         BadFieldTok: Label '?t:%1?f:%2?', Locked = true, Comment = '%1=the table, %2=the requested field';
 
-    /// <summary>
-    /// The maximum recursion to use when creating inspections.
-    /// Used for traversal on source table configuration when finding applicable generation rules, and also when populating source fields.
-    /// 
-    /// This limit prevents infinite loops in complex configuration hierarchies and ensures reasonable performance
-    /// when traversing multi-level table relationships.
-    /// </summary>
-    /// <returns>The maximum recursion depth allowed (currently 20 levels)</returns>
-    internal procedure GetArbitraryMaximumRecursion(): Integer
-    begin
-        exit(20);
-    end;
-
-    internal procedure GetDefaultMaximumRowsFieldLookup() ResultRowsCount: Integer
-    var
-        QltyManagementSetup: Record "Qlty. Management Setup";
-        Handled: Boolean;
-    begin
-        ResultRowsCount := 100;
-        OnBeforeGetDefaultMaximumRowsToShowInLookup(ResultRowsCount, Handled);
-        if Handled then
-            exit;
-
-        if not QltyManagementSetup.GetSetupRecord() then
-            exit;
-
-        if QltyManagementSetup."Max Rows Field Lookups" > 0 then
-            ResultRowsCount := QltyManagementSetup."Max Rows Field Lookups";
-    end;
-
     /// <summary>
     /// Prompts the user to select a file and imports its contents into an InStream for processing.
     /// Displays a file upload dialog with optional file type filtering.
@@ -198,12 +167,13 @@ codeunit 20599 "Qlty. Misc Helpers"
     /// <param name="TempBufferQltyLookupCode">Output: Temporary buffer populated with lookup values</param>
     procedure GetRecordsForTableField(var QltyTest: Record "Qlty. Test"; var OptionalContextQltyInspectionHeader: Record "Qlty. Inspection Header"; var OptionalContextQltyInspectionLine: Record "Qlty. Inspection Line"; var TempBufferQltyLookupCode: Record "Qlty. Lookup Code" temporary)
     var
+        QltyConfigurationHelpers: Codeunit "Qlty. Configuration Helpers";
         QltyExpressionMgmt: Codeunit "Qlty. Expression Mgmt.";
         ReasonableMaximum: Integer;
         DummyText: Text;
         TableFilter: Text;
     begin
-        ReasonableMaximum := GetDefaultMaximumRowsFieldLookup();
+        ReasonableMaximum := QltyConfigurationHelpers.GetDefaultMaximumRowsFieldLookup();
 
         TableFilter := QltyExpressionMgmt.EvaluateTextExpression(QltyTest."Lookup Table Filter", OptionalContextQltyInspectionHeader, OptionalContextQltyInspectionLine);
 
@@ -247,8 +217,9 @@ codeunit 20599 "Qlty. Misc Helpers"
     internal procedure GetCSVOfValuesFromRecord(CurrentTable: Integer; ChoiceField: Integer; TableFilter: Text) ResultText: Text
     var
         TempBufferQltyLookupCode: Record "Qlty. Lookup Code" temporary;
+        QltyConfigurationHelpers: Codeunit "Qlty. Configuration Helpers";
     begin
-        GetRecordsForTableField(CurrentTable, ChoiceField, 0, TableFilter, GetArbitraryMaximumRecursion(), TempBufferQltyLookupCode, ResultText);
+        GetRecordsForTableField(CurrentTable, ChoiceField, 0, TableFilter, QltyConfigurationHelpers.GetArbitraryMaximumRecursion(), TempBufferQltyLookupCode, ResultText);
     end;
 
     /// <summary>
@@ -265,6 +236,7 @@ codeunit 20599 "Qlty. Misc Helpers"
     /// <param name="CSVSimpleText"></param>
     local procedure GetRecordsForTableField(CurrentTable: Integer; ChoiceField: Integer; DescriptionField: Integer; TableFilter: Text; MaxCountRecords: Integer; var TempBufferQltyLookupCode: Record "Qlty. Lookup Code" temporary; var CSVSimpleText: Text)
     var
+        QltyConfigurationHelpers: Codeunit "Qlty. Configuration Helpers";
         RecordRefToFetch: RecordRef;
         FieldRefToChoiceField: FieldRef;
         FieldRefToDescriptionField: FieldRef;
@@ -278,7 +250,7 @@ codeunit 20599 "Qlty. Misc Helpers"
             exit;
 
         if MaxCountRecords <= 0 then begin
-            MaxCountRecords := GetDefaultMaximumRowsFieldLookup();
+            MaxCountRecords := QltyConfigurationHelpers.GetDefaultMaximumRowsFieldLookup();
             if MaxCountRecords <= 0 then
                 MaxCountRecords := 1;
             if MaxCountRecords > 1000 then
@@ -910,16 +882,4 @@ codeunit 20599 "Qlty. Misc Helpers"
     local procedure OnBeforeNavigateToSourceDocument(var QltyInspectionHeader: Record "Qlty. Inspection Header"; var Handled: Boolean)
     begin
     end;
-
-    /// <summary>
-    /// Provides an opportunity for customizations to alter the default maximum rows shown
-    /// for a table lookup in a quality inspector field.
-    /// Changing the default to a larger number can introduce performance issues.
-    /// </summary>
-    /// <param name="Rows"></param>
-    /// <param name="Handled"></param>
-    [IntegrationEvent(false, false)]
-    local procedure OnBeforeGetDefaultMaximumRowsToShowInLookup(var Rows: Integer; var Handled: Boolean)
-    begin
-    end;
 }
diff --git a/src/Apps/W1/Quality Management/test/src/QltyTestsMisc.Codeunit.al b/src/Apps/W1/Quality Management/test/src/QltyTestsMisc.Codeunit.al
index b6cc4c76cf..f9a0f04db1 100644
--- a/src/Apps/W1/Quality Management/test/src/QltyTestsMisc.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/test/src/QltyTestsMisc.Codeunit.al	
@@ -151,7 +151,7 @@ codeunit 139964 "Qlty. Tests - Misc."
     [Test]
     procedure GetArbitraryMaximumRecursion()
     var
-        QltyMiscHelpers: Codeunit "Qlty. Misc Helpers";
+        QltyConfigurationHelpers: Codeunit "Qlty. Configuration Helpers";
     begin
         // [SCENARIO] Verify the maximum recursion depth limit
 
@@ -160,7 +160,7 @@ codeunit 139964 "Qlty. Tests - Misc."
         // [WHEN] GetArbitraryMaximumRecursion is called
         // [THEN] The function returns 20 as the maximum recursion depth
         Initialize();
-        LibraryAssert.AreEqual(20, QltyMiscHelpers.GetArbitraryMaximumRecursion(), '20 levels of recursion maximum are expected');
+        LibraryAssert.AreEqual(20, QltyConfigurationHelpers.GetArbitraryMaximumRecursion(), '20 levels of recursion maximum are expected');
     end;
 
     [Test]
@@ -741,7 +741,7 @@ codeunit 139964 "Qlty. Tests - Misc."
     procedure GetDefaultMaximumRowsFieldLookup_Defined()
     var
         QltyManagementSetup: Record "Qlty. Management Setup";
-        QltyMiscHelpers: Codeunit "Qlty. Misc Helpers";
+        QltyConfigurationHelpers: Codeunit "Qlty. Configuration Helpers";
         QltyInspectionUtility: Codeunit "Qlty. Inspection Utility";
     begin
         // [SCENARIO] Get maximum rows for field lookup when configured
@@ -757,14 +757,14 @@ codeunit 139964 "Qlty. Tests - Misc."
 
         // [WHEN] GetDefaultMaximumRowsFieldLookup is called
         // [THEN] The function returns the configured value of 2
-        LibraryAssert.AreEqual(2, QltyMiscHelpers.GetDefaultMaximumRowsFieldLookup(), 'simple maximum');
+        LibraryAssert.AreEqual(2, QltyConfigurationHelpers.GetDefaultMaximumRowsFieldLookup(), 'simple maximum');
     end;
 
     [Test]
     procedure GetDefaultMaximumRowsFieldLookup_Undefined()
     var
         QltyManagementSetup: Record "Qlty. Management Setup";
-        QltyMiscHelpers: Codeunit "Qlty. Misc Helpers";
+        QltyConfigurationHelpers: Codeunit "Qlty. Configuration Helpers";
         QltyInspectionUtility: Codeunit "Qlty. Inspection Utility";
     begin
         // [SCENARIO] Get maximum rows for field lookup when not configured
@@ -780,7 +780,7 @@ codeunit 139964 "Qlty. Tests - Misc."
 
         // [WHEN] GetDefaultMaximumRowsFieldLookup is called
         // [THEN] The function returns the default value of 100
-        LibraryAssert.AreEqual(100, QltyMiscHelpers.GetDefaultMaximumRowsFieldLookup(), 'simple maximum');
+        LibraryAssert.AreEqual(100, QltyConfigurationHelpers.GetDefaultMaximumRowsFieldLookup(), 'simple maximum');
     end;
 
     [Test]

From 8885a97395c72a5a3d14228ead6a822a9aa1d9b8 Mon Sep 17 00:00:00 2001
From: tomasevicstefan <stomasevic@microsoft.com>
Date: Wed, 24 Dec 2025 10:15:21 +0100
Subject: [PATCH 4/4] [Quality Management] Refactor quality management helpers
 to use Qlty. Value Parsing and Qlty. File Import codeunits

---
 .../Test/QltyTestExprCardPart.Page.al         |  6 +--
 .../Test/QltyTestNumberCardPart.Page.al       |  8 +--
 .../Document/QltyMostRecentPicture.Page.al    |  4 +-
 .../src/Utilities/QltyFileImport.Codeunit.al  | 27 ++++++++++
 .../src/Utilities/QltyMiscHelpers.Codeunit.al | 53 -------------------
 .../Utilities/QltyValueParsing.Codeunit.al    | 44 +++++++++++++++
 .../test/src/QltyTestsMisc.Codeunit.al        | 16 +++---
 7 files changed, 88 insertions(+), 70 deletions(-)
 create mode 100644 src/Apps/W1/Quality Management/app/src/Utilities/QltyFileImport.Codeunit.al
 create mode 100644 src/Apps/W1/Quality Management/app/src/Utilities/QltyValueParsing.Codeunit.al

diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/Template/Test/QltyTestExprCardPart.Page.al b/src/Apps/W1/Quality Management/app/src/Configuration/Template/Test/QltyTestExprCardPart.Page.al
index 83e953499d..fd8fc1e2e6 100644
--- a/src/Apps/W1/Quality Management/app/src/Configuration/Template/Test/QltyTestExprCardPart.Page.al	
+++ b/src/Apps/W1/Quality Management/app/src/Configuration/Template/Test/QltyTestExprCardPart.Page.al	
@@ -443,7 +443,7 @@ page 20467 "Qlty. Test Expr. Card Part"
     var
         QltyTest: Record "Qlty. Test";
         QltyResultConditionMgmt: Codeunit "Qlty. Result Condition Mgmt.";
-        QltyMiscHelpers: Codeunit "Qlty. Misc Helpers";
+        QltyValueParsing: Codeunit "Qlty. Value Parsing";
         MatrixSourceRecordId: array[10] of RecordId;
         Visible1: Boolean;
         Visible2: Boolean;
@@ -523,7 +523,7 @@ page 20467 "Qlty. Test Expr. Card Part"
 
         QltyResultConditionMgmt.GetPromotedResultsForTest(QltyTest, MatrixSourceRecordId, MatrixArrayConditionCellData, MatrixArrayConditionDescriptionCellData, MatrixArrayCaptionSet, MatrixVisibleState);
         for Iterator := 1 to ArrayLen(MatrixArrayConditionCellData) do
-            QltyMiscHelpers.AttemptSplitSimpleRangeIntoMinMax(MatrixArrayConditionCellData[Iterator], MatrixMinValue[Iterator], MatrixMaxValue[Iterator]);
+            QltyValueParsing.AttemptSplitSimpleRangeIntoMinMax(MatrixArrayConditionCellData[Iterator], MatrixMinValue[Iterator], MatrixMaxValue[Iterator]);
 
         Visible1 := MatrixVisibleState[1];
         Visible2 := MatrixVisibleState[2];
@@ -543,7 +543,7 @@ page 20467 "Qlty. Test Expr. Card Part"
     begin
         QltyIResultConditConf.Get(MatrixSourceRecordId[MatrixField]);
         QltyIResultConditConf.Validate(Condition, MatrixArrayConditionCellData[MatrixField]);
-        QltyMiscHelpers.AttemptSplitSimpleRangeIntoMinMax(QltyIResultConditConf.Condition, MatrixMinValue[MatrixField], MatrixMaxValue[MatrixField]);
+        QltyValueParsing.AttemptSplitSimpleRangeIntoMinMax(QltyIResultConditConf.Condition, MatrixMinValue[MatrixField], MatrixMaxValue[MatrixField]);
         QltyIResultConditConf.Modify(true);
         LoadExistingTest(QltyTest.Code, true);
         CurrPage.Update(false);
diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/Template/Test/QltyTestNumberCardPart.Page.al b/src/Apps/W1/Quality Management/app/src/Configuration/Template/Test/QltyTestNumberCardPart.Page.al
index 8aa671c37c..8505b8159f 100644
--- a/src/Apps/W1/Quality Management/app/src/Configuration/Template/Test/QltyTestNumberCardPart.Page.al	
+++ b/src/Apps/W1/Quality Management/app/src/Configuration/Template/Test/QltyTestNumberCardPart.Page.al	
@@ -985,7 +985,7 @@ page 20434 "Qlty. Test Number Card Part"
     var
         QltyTest: Record "Qlty. Test";
         QltyResultConditionMgmt: Codeunit "Qlty. Result Condition Mgmt.";
-        QltyMiscHelpers: Codeunit "Qlty. Misc Helpers";
+        QltyValueParsing: Codeunit "Qlty. Value Parsing";
         MatrixSourceRecordId: array[10] of RecordId;
         Visible1: Boolean;
         Visible2: Boolean;
@@ -1096,7 +1096,7 @@ page 20434 "Qlty. Test Number Card Part"
             if QltyTest."Wizard Internal" = QltyTest."Wizard Internal"::"In Progress" then
                 AdvancedRange := DefaultRangeTok;
 
-        if QltyMiscHelpers.AttemptSplitSimpleRangeIntoMinMax(AdvancedRange, MinAllowed, MaxAllowed) then begin
+        if QltyValueParsing.AttemptSplitSimpleRangeIntoMinMax(AdvancedRange, MinAllowed, MaxAllowed) then begin
             if not QltyTestIds.Contains(QltyTest.Code) then
                 RangeNumberType := RangeNumberType::"A range of numbers";
         end else
@@ -1225,7 +1225,7 @@ page 20434 "Qlty. Test Number Card Part"
 
         QltyResultConditionMgmt.GetPromotedResultsForTest(QltyTest, MatrixSourceRecordId, MatrixArrayConditionCellData, MatrixArrayConditionDescriptionCellData, MatrixArrayCaptionSet, MatrixVisibleState);
         for Iterator := 1 to ArrayLen(MatrixArrayConditionCellData) do
-            QltyMiscHelpers.AttemptSplitSimpleRangeIntoMinMax(MatrixArrayConditionCellData[Iterator], MatrixMinValue[Iterator], MatrixMaxValue[Iterator]);
+            QltyValueParsing.AttemptSplitSimpleRangeIntoMinMax(MatrixArrayConditionCellData[Iterator], MatrixMinValue[Iterator], MatrixMaxValue[Iterator]);
 
         Visible1 := MatrixVisibleState[1];
         Visible2 := MatrixVisibleState[2];
@@ -1245,7 +1245,7 @@ page 20434 "Qlty. Test Number Card Part"
     begin
         QltyIResultConditConf.Get(MatrixSourceRecordId[Matrix]);
         QltyIResultConditConf.Validate(Condition, MatrixArrayConditionCellData[Matrix]);
-        QltyMiscHelpers.AttemptSplitSimpleRangeIntoMinMax(QltyIResultConditConf.Condition, MatrixMinValue[Matrix], MatrixMaxValue[Matrix]);
+        QltyValueParsing.AttemptSplitSimpleRangeIntoMinMax(QltyIResultConditConf.Condition, MatrixMinValue[Matrix], MatrixMaxValue[Matrix]);
         QltyIResultConditConf.Modify(true);
         LoadExistingTest(QltyTest.Code);
         CurrPage.Update(false);
diff --git a/src/Apps/W1/Quality Management/app/src/Document/QltyMostRecentPicture.Page.al b/src/Apps/W1/Quality Management/app/src/Document/QltyMostRecentPicture.Page.al
index 8e1a0cf75f..965a05d27c 100644
--- a/src/Apps/W1/Quality Management/app/src/Document/QltyMostRecentPicture.Page.al	
+++ b/src/Apps/W1/Quality Management/app/src/Document/QltyMostRecentPicture.Page.al	
@@ -53,14 +53,14 @@ page 20431 "Qlty. Most Recent Picture"
 
                 trigger OnAction()
                 var
-                    QltyMiscHelpers: Codeunit "Qlty. Misc Helpers";
+                    QltyFileImport: Codeunit "Qlty. File Import";
                     InStream: InStream;
                 begin
                     if Rec."Most Recent Picture".HasValue() then
                         if not Confirm(OverrideImageQst) then
                             exit;
                     Clear(Rec."Most Recent Picture");
-                    if QltyMiscHelpers.PromptAndImportIntoInStream(FileFilterTok, InStream) then begin
+                    if QltyFileImport.PromptAndImportIntoInStream(FileFilterTok, InStream) then begin
                         Rec."Most Recent Picture".ImportStream(InStream, ImageTok);
                         Rec.Modify();
                     end;
diff --git a/src/Apps/W1/Quality Management/app/src/Utilities/QltyFileImport.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Utilities/QltyFileImport.Codeunit.al
new file mode 100644
index 0000000000..f93a8eb1ce
--- /dev/null
+++ b/src/Apps/W1/Quality Management/app/src/Utilities/QltyFileImport.Codeunit.al	
@@ -0,0 +1,27 @@
+// ------------------------------------------------------------------------------------------------
+// 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.Utilities;
+
+codeunit 20596 "Qlty. File Import"
+{
+    var
+        ImportFromLbl: Label 'Import From File';
+
+    /// <summary>
+    /// Prompts the user to select a file and imports its contents into an InStream for processing.
+    /// Displays a file upload dialog with optional file type filtering.
+    /// 
+    /// Common usage: Importing configuration files, test data, or external quality inspection results.
+    /// </summary>
+    /// <param name="FilterString">File type filter for the upload dialog (e.g., "*.xml|*.txt")</param>
+    /// <param name="InStream">Output: InStream containing the uploaded file contents</param>
+    /// <returns>True if file was successfully selected and uploaded; False if user cancelled or upload failed</returns>
+    procedure PromptAndImportIntoInStream(FilterString: Text; var InStream: InStream): Boolean
+    var
+        ServerFile: Text;
+    begin
+        exit(UploadIntoStream(ImportFromLbl, '', FilterString, ServerFile, InStream));
+    end;
+}
diff --git a/src/Apps/W1/Quality Management/app/src/Utilities/QltyMiscHelpers.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Utilities/QltyMiscHelpers.Codeunit.al
index 67a02cec1a..8b594577b5 100644
--- a/src/Apps/W1/Quality Management/app/src/Utilities/QltyMiscHelpers.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/app/src/Utilities/QltyMiscHelpers.Codeunit.al	
@@ -23,7 +23,6 @@ codeunit 20599 "Qlty. Misc Helpers"
     var
         LockedYesLbl: Label 'Yes', Locked = true;
         LockedNoLbl: Label 'No', Locked = true;
-        ImportFromLbl: Label 'Import From File';
         DateKeywordTxt: Label 'Date';
         YesNoKeyword1Txt: Label 'Does the';
         YesNoKeyword2Txt: Label 'Do the';
@@ -39,58 +38,6 @@ codeunit 20599 "Qlty. Misc Helpers"
         BadTableTok: Label '?table?', Locked = true;
         BadFieldTok: Label '?t:%1?f:%2?', Locked = true, Comment = '%1=the table, %2=the requested field';
 
-    /// <summary>
-    /// Prompts the user to select a file and imports its contents into an InStream for processing.
-    /// Displays a file upload dialog with optional file type filtering.
-    /// 
-    /// Common usage: Importing configuration files, test data, or external quality inspection results.
-    /// </summary>
-    /// <param name="FilterString">File type filter for the upload dialog (e.g., "*.xml|*.txt")</param>
-    /// <param name="InStream">Output: InStream containing the uploaded file contents</param>
-    /// <returns>True if file was successfully selected and uploaded; False if user cancelled or upload failed</returns>
-    procedure PromptAndImportIntoInStream(FilterString: Text; var InStream: InStream) Worked: Boolean
-    var
-        ServerFile: Text;
-    begin
-        Worked := UploadIntoStream(ImportFromLbl, '', FilterString, ServerFile, InStream);
-    end;
-
-    /// <summary>
-    /// Attempts to parse simple range notation (min..max) into separate minimum and maximum decimal values.
-    /// Handles the common 90% use case of range specifications in quality inspections.
-    /// 
-    /// Examples:
-    /// - "10..20" → OutMin=10, OutMax=20, returns true
-    /// - "5.5..10.5" → OutMin=5.5, OutMax=10.5, returns true
-    /// - "Invalid" → returns false
-    /// - "10" → returns false (not a range)
-    /// </summary>
-    /// <param name="InputText">The text containing a range in format "minValue..maxValue"</param>
-    /// <param name="MinValueInRange">Output: The minimum value from the range</param>
-    /// <param name="MaxValueInRange">Output: The maximum value from the range</param>
-    /// <returns>True if successfully parsed as a simple range; False if input doesn't match simple range pattern</returns>
-    procedure AttemptSplitSimpleRangeIntoMinMax(InputText: Text; var MinValueInRange: Decimal; var MaxValueInRange: Decimal): Boolean
-    var
-        OfParts: List of [Text];
-        Temp: Text;
-    begin
-        Clear(MaxValueInRange);
-        Clear(MinValueInRange);
-
-        if InputText.Contains('..') then
-            if InputText.IndexOf('..') > 0 then begin
-                OfParts := InputText.Split('..');
-                if OfParts.Count() = 2 then begin
-                    OfParts.Get(1, Temp);
-                    if Evaluate(MinValueInRange, Temp) then begin
-                        OfParts.Get(2, Temp);
-                        if Evaluate(MaxValueInRange, Temp) then
-                            exit(true);
-                    end;
-                end;
-            end;
-    end;
-
     /// <summary>
     /// Retrieves available record values for a table lookup field configured on an inspection line, returned as CSV.
     /// Evaluates expressions and applies filters configured in the field definition to generate the list.
diff --git a/src/Apps/W1/Quality Management/app/src/Utilities/QltyValueParsing.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Utilities/QltyValueParsing.Codeunit.al
new file mode 100644
index 0000000000..c8e4034cf5
--- /dev/null
+++ b/src/Apps/W1/Quality Management/app/src/Utilities/QltyValueParsing.Codeunit.al	
@@ -0,0 +1,44 @@
+// ------------------------------------------------------------------------------------------------
+// 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.Utilities;
+
+codeunit 20595 "Qlty. Value Parsing"
+{
+    /// <summary>
+    /// Attempts to parse simple range notation (min..max) into separate minimum and maximum decimal values.
+    /// Handles the common 90% use case of range specifications in quality inspections.
+    /// 
+    /// Examples:
+    /// - "10..20" → OutMin=10, OutMax=20, returns true
+    /// - "5.5..10.5" → OutMin=5.5, OutMax=10.5, returns true
+    /// - "Invalid" → returns false
+    /// - "10" → returns false (not a range)
+    /// </summary>
+    /// <param name="InputText">The text containing a range in format "minValue..maxValue"</param>
+    /// <param name="MinValueInRange">Output: The minimum value from the range</param>
+    /// <param name="MaxValueInRange">Output: The maximum value from the range</param>
+    /// <returns>True if successfully parsed as a simple range; False if input doesn't match simple range pattern</returns>
+    procedure AttemptSplitSimpleRangeIntoMinMax(InputText: Text; var MinValueInRange: Decimal; var MaxValueInRange: Decimal): Boolean
+    var
+        OfParts: List of [Text];
+        Temp: Text;
+    begin
+        Clear(MaxValueInRange);
+        Clear(MinValueInRange);
+
+        if InputText.Contains('..') then
+            if InputText.IndexOf('..') > 0 then begin
+                OfParts := InputText.Split('..');
+                if OfParts.Count() = 2 then begin
+                    OfParts.Get(1, Temp);
+                    if Evaluate(MinValueInRange, Temp) then begin
+                        OfParts.Get(2, Temp);
+                        if Evaluate(MaxValueInRange, Temp) then
+                            exit(true);
+                    end;
+                end;
+            end;
+    end;
+}
diff --git a/src/Apps/W1/Quality Management/test/src/QltyTestsMisc.Codeunit.al b/src/Apps/W1/Quality Management/test/src/QltyTestsMisc.Codeunit.al
index f9a0f04db1..480ea1017a 100644
--- a/src/Apps/W1/Quality Management/test/src/QltyTestsMisc.Codeunit.al	
+++ b/src/Apps/W1/Quality Management/test/src/QltyTestsMisc.Codeunit.al	
@@ -75,7 +75,7 @@ codeunit 139964 "Qlty. Tests - Misc."
     [Test]
     procedure AttemptSplitSimpleRangeIntoMinMax_IntegerSimple()
     var
-        QltyMiscHelpers: Codeunit "Qlty. Misc Helpers";
+        QltyValueParsing: Codeunit "Qlty. Value Parsing";
         Min: Decimal;
         Max: Decimal;
     begin
@@ -86,7 +86,7 @@ codeunit 139964 "Qlty. Tests - Misc."
         // [WHEN] AttemptSplitSimpleRangeIntoMinMax is called with the range string
         // [THEN] The function returns true and sets Min to 1 and Max to 2
         Initialize();
-        LibraryAssert.AreEqual(true, QltyMiscHelpers.AttemptSplitSimpleRangeIntoMinMax('1..2', Min, Max), 'simple conversion');
+        LibraryAssert.AreEqual(true, QltyValueParsing.AttemptSplitSimpleRangeIntoMinMax('1..2', Min, Max), 'simple conversion');
         LibraryAssert.AreEqual(1, Min, 'simple integer min');
         LibraryAssert.AreEqual(2, Max, 'simple integer max');
     end;
@@ -94,7 +94,7 @@ codeunit 139964 "Qlty. Tests - Misc."
     [Test]
     procedure AttemptSplitSimpleRangeIntoMinMax_IntegerNegativeValues()
     var
-        QltyMiscHelpers: Codeunit "Qlty. Misc Helpers";
+        QltyValueParsing: Codeunit "Qlty. Value Parsing";
         Min: Decimal;
         Max: Decimal;
     begin
@@ -105,7 +105,7 @@ codeunit 139964 "Qlty. Tests - Misc."
         // [WHEN] AttemptSplitSimpleRangeIntoMinMax is called with the negative range
         // [THEN] The function returns true and sets Min to -5 and Max to -1
         Initialize();
-        LibraryAssert.AreEqual(true, QltyMiscHelpers.AttemptSplitSimpleRangeIntoMinMax('-5..-1', Min, Max), 'negative');
+        LibraryAssert.AreEqual(true, QltyValueParsing.AttemptSplitSimpleRangeIntoMinMax('-5..-1', Min, Max), 'negative');
         LibraryAssert.AreEqual(-5, Min, 'simple integer min');
         LibraryAssert.AreEqual(-1, Max, 'simple integer max');
     end;
@@ -113,7 +113,7 @@ codeunit 139964 "Qlty. Tests - Misc."
     [Test]
     procedure AttemptSplitSimpleRangeIntoMinMax_DecimalSimple()
     var
-        QltyMiscHelpers: Codeunit "Qlty. Misc Helpers";
+        QltyValueParsing: Codeunit "Qlty. Value Parsing";
         Min: Decimal;
         Max: Decimal;
     begin
@@ -124,7 +124,7 @@ codeunit 139964 "Qlty. Tests - Misc."
         // [WHEN] AttemptSplitSimpleRangeIntoMinMax is called with the decimal range
         // [THEN] The function returns true and sets Min to 1.00000001 and Max to 2.999999999999
         Initialize();
-        LibraryAssert.AreEqual(true, QltyMiscHelpers.AttemptSplitSimpleRangeIntoMinMax('1.00000001..2.999999999999', Min, Max), 'simple conversion');
+        LibraryAssert.AreEqual(true, QltyValueParsing.AttemptSplitSimpleRangeIntoMinMax('1.00000001..2.999999999999', Min, Max), 'simple conversion');
         LibraryAssert.AreEqual(1.00000001, Min, 'simple decimal min');
         LibraryAssert.AreEqual(2.999999999999, Max, 'simple decimal max');
     end;
@@ -132,7 +132,7 @@ codeunit 139964 "Qlty. Tests - Misc."
     [Test]
     procedure AttemptSplitSimpleRangeIntoMinMax_DecimalThousands()
     var
-        QltyMiscHelpers: Codeunit "Qlty. Misc Helpers";
+        QltyValueParsing: Codeunit "Qlty. Value Parsing";
         Min: Decimal;
         Max: Decimal;
     begin
@@ -143,7 +143,7 @@ codeunit 139964 "Qlty. Tests - Misc."
         // [WHEN] AttemptSplitSimpleRangeIntoMinMax is called with the formatted range
         // [THEN] The function returns true and correctly parses Min and Max values
         Initialize();
-        LibraryAssert.AreEqual(true, QltyMiscHelpers.AttemptSplitSimpleRangeIntoMinMax('1.00000001..1,234,567,890.99', Min, Max), 'simple conversion');
+        LibraryAssert.AreEqual(true, QltyValueParsing.AttemptSplitSimpleRangeIntoMinMax('1.00000001..1,234,567,890.99', Min, Max), 'simple conversion');
         LibraryAssert.AreEqual(1.00000001, Min, 'thousands separator decimal min');
         LibraryAssert.AreEqual(1234567890.99, Max, 'thousands separator decimal max');
     end;