[Quality Management] - Considerations for non-English usage and hardcoded texts

src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyInspectionResult.Table.al

@@ -215,6 +215,14 @@ table 20411 "Qlty. Inspection Result"
         PromptFirstExistingTemplateQst: Label 'This result is currently defined on some Quality Inspection Templates. Are you sure you want to remove this result? This cannot be undone.';
         PromptFirstExistingTestQst: Label 'This result is currently defined on some tests. Are you sure you want to remove this result? This cannot be undone.';
         DefaultResultInProgressCodeLbl: Label 'INPROGRESS', Locked = true, MaxLength = 20;
+        ResultCodePassLbl: Label 'PASS', MaxLength = 20;
+        ResultCodeGoodLbl: Label 'GOOD', MaxLength = 20;
+        ResultCodeAcceptableLbl: Label 'ACCEPTABLE', MaxLength = 20;
+        ResultCodeFailLbl: Label 'FAIL', MaxLength = 20;
+        ResultCodeBadLbl: Label 'BAD', MaxLength = 20;
+        ResultCodeUnacceptableLbl: Label 'UNACCEPTABLE', MaxLength = 20;
+        ResultCodeErrorLbl: Label 'ERROR', MaxLength = 20;
+        ResultCodeRejectLbl: Label 'REJECT', MaxLength = 20;
 
     trigger OnInsert()
     begin
@@ -236,9 +244,9 @@ table 20411 "Qlty. Inspection Result"
             exit;
 
         case Rec.Code of
-            'PASS', 'GOOD', 'ACCEPTABLE':
+            ResultCodePassLbl, ResultCodeGoodLbl, ResultCodeAcceptableLbl:
                 Rec."Result Category" := Rec."Result Category"::Acceptable;
-            'FAIL', 'BAD', 'UNACCEPTABLE', 'ERROR', 'REJECT':
+            ResultCodeFailLbl, ResultCodeBadLbl, ResultCodeUnacceptableLbl, ResultCodeErrorLbl, ResultCodeRejectLbl:
                 Rec."Result Category" := Rec."Result Category"::"Not acceptable";
         end;
     end;

src/Apps/W1/Quality Management/app/src/Utilities/QltyMiscHelpers.Codeunit.al

@@ -41,6 +41,21 @@ codeunit 20599 "Qlty. Misc Helpers"
         UnableToSetTableValueFieldNotFoundErr: Label 'Unable to set a value because the field [%1] in table [%2] was not found.', Comment = '%1=the field name, %2=the table name';
         BadTableTok: Label '?table?', Locked = true;
         BadFieldTok: Label '?t:%1?f:%2?', Locked = true, Comment = '%1=the table, %2=the requested field';
+        QltyGoodLbl: Label 'GOOD';
+        QltyPassLbl: Label 'PASS';
+        QltyAcceptableLbl: Label 'ACCEPTABLE';
+        QltyPassedLbl: Label 'PASSED';
+        QltyBadLbl: Label 'BAD';
+        QltyFailLbl: Label 'FAIL';
+        QltyUnacceptableLbl: Label 'UNACCEPTABLE';
+        QltyFailedLbl: Label 'FAILED';
+        QltyNotOkLbl: Label 'NOTOK';
+        PositiveLbl: Label 'POSITIVE';
+        EnabledLbl: Label 'ENABLED';
+        CheckLbl: Label 'CHECK';
+        CheckedLbl: Label 'CHECKED';
+        YesLbl: Label 'YES';
+        OnLbl: Label 'ON';
 
     /// <summary>
     /// Returns the translatable "Yes" label with maximum length of 250 characters.
@@ -371,8 +386,8 @@ codeunit 20599 "Qlty. Misc Helpers"
 
             case UpperCase(Input) of
                 UpperCase(TranslatableYesLbl), UpperCase(LockedYesLbl),
-                'Y', 'YES', 'T', 'TRUE', '1', 'POSITIVE', 'ENABLED', 'CHECK', 'CHECKED',
-                'GOOD', 'PASS', 'ACCEPTABLE', 'PASSED', 'OK', 'ON',
+                'Y', YesLbl, 'T', 'TRUE', '1', PositiveLbl, EnabledLbl, CheckLbl, CheckedLbl,
+                QltyGoodLbl, QltyPassLbl, QltyAcceptableLbl, QltyPassedLbl, 'OK', OnLbl,
                 'V', ':SELECTED:':
                     IsTrue := true;
             end;
@@ -406,20 +421,20 @@ codeunit 20599 "Qlty. Misc Helpers"
             UpperCase(TranslatableYesLbl),
             UpperCase(LockedYesLbl),
             'Y',
-            'YES',
+            YesLbl,
             'T',
             'TRUE',
             '1',
-            'POSITIVE',
-            'ENABLED',
-            'CHECK',
-            'CHECKED',
-            'GOOD',
-            'PASS',
-            'ACCEPTABLE',
-            'PASSED',
+            PositiveLbl,
+            EnabledLbl,
+            CheckLbl,
+            CheckedLbl,
+            QltyGoodLbl,
+            QltyPassLbl,
+            QltyAcceptableLbl,
+            QltyPassedLbl,
             'OK',
-            'ON',
+            OnLbl,
             'V',
             ':SELECTED:':
                 exit(true);
@@ -465,11 +480,11 @@ codeunit 20599 "Qlty. Misc Helpers"
             'DISABLED',
             'UNCHECK',
             'UNCHECKED',
-            'BAD',
-            'FAIL',
-            'UNACCEPTABLE',
-            'FAILED',
-            'NOTOK',
+            QltyBadLbl,
+            QltyFailLbl,
+            QltyUnacceptableLbl,
+            QltyFailedLbl,
+            QltyNotOkLbl,
             'OFF',
             ':UNSELECTED:':
                 exit(true);