diff --git a/src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyResultConditionMgmt.Codeunit.al b/src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyResultConditionMgmt.Codeunit.al index 9100a4882f..1ad878f0a7 100644 --- a/src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyResultConditionMgmt.Codeunit.al +++ b/src/Apps/W1/Quality Management/app/src/Configuration/Result/QltyResultConditionMgmt.Codeunit.al @@ -347,7 +347,14 @@ codeunit 20409 "Qlty. Result Condition Mgmt." ToTestQltyIResultConditConf."Condition Description" := CopyStr(Condition, 1, MaxStrLen(ToTestQltyIResultConditConf."Condition Description")); ToTestQltyIResultConditConf.Insert(); end else - if AlwaysUpdateExistingCondition or (OnlyOverwriteIfADefaultCondition and (ToTestQltyIResultConditConf.Condition in [QltyInspectionResult."Default Boolean Condition", QltyInspectionResult."Default Number Condition", QltyInspectionResult."Default Text Condition"])) then begin + if AlwaysUpdateExistingCondition or + (OnlyOverwriteIfADefaultCondition and + (ToTestQltyIResultConditConf.Condition in + ['', // '' treated as uninitialized; safe to overwrite just like named defaults + QltyInspectionResult."Default Boolean Condition", + QltyInspectionResult."Default Number Condition", + QltyInspectionResult."Default Text Condition"])) + then begin ToTestQltyIResultConditConf.Validate(Condition, CopyStr(Condition, 1, MaxStrLen(ToTestQltyIResultConditConf.Condition))); ToTestQltyIResultConditConf."Condition Description" := CopyStr(Condition, 1, MaxStrLen(ToTestQltyIResultConditConf."Condition Description")); ToTestQltyIResultConditConf.Priority := QltyInspectionResult."Evaluation Sequence";