Index: BL/PR/GA/TandemBox.cls.xml =================================================================== diff -u -r676 -r700 --- BL/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 676) +++ BL/PR/GA/TandemBox.cls.xml (.../TandemBox.cls.xml) (revision 700) @@ -1960,7 +1960,17 @@ Do ..KMPRLijstViaKenmerk($$$KMGroep,"PRArray",.KenmArray,0) If $O(PRArray(""))="" Do Quit 0 . Set arErrs(i,"DK")=$$$GetVertaling("Draagkracht","L")_" - "_$$$GetVertaling("NietBeschikbaar","O") + + ; Else + New GeleiderIsUitgefaseerd Set GeleiderIsUitgefaseerd = ##class(APPS.TBXWeb.Utils).IsGeleiderUitgefaseerd(WSLn) + If GeleiderIsUitgefaseerd { + Set arErrs(i,"DK")=$$$GetVertaling("Draagkracht","L")_" - "_$$$GetVertaling("NietBeschikbaar","O") _ " | 50kg --> 65kg" + } + Quit:(GeleiderIsUitgefaseerd) 0 + + ; Else Quit 1 + chkBuildKenmArrayDS Kill KenmArray Set dsID=WSLn.ItemDS