Index: BL/PPS/TBX/WPPers/InfoBepaler.cls.xml
===================================================================
diff -u -r57656 -r57659
--- BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 57656)
+++ BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 57659)
@@ -44,22 +44,30 @@
 <Implementation><![CDATA[
 	#dim Info1 As %String = ""
 	
-	Set:LT="B" Info1=$S($L(Info1):Info1_"; ",1:"R:")_"FRONT"
-	Set:"0"'[ASM Info1=$S($L(Info1):Info1_"; ",1:"R:")_"MAT "_..MatFormatter.GeefKorteNotatie(..TBXMatToEnuMatConverter.GeefMateriaal(ASM),..TBXMatToEnuMatConverter.GeefKleur(ASM))
-	Set:ODSP'="" Info1=$S($L(Info1):Info1_"; ",1:"R:")_"SPECIAAL : "_$CASE(ODSP,"F":"FRONT","R":"RUG","B":"BODEM","BR":"BODEM&RUG",:ODSP)
-	Set:IsSpoel Info1=$S($L(Info1):Info1_"; ",1:"R:")_"SPOELBAK/SYFON"
-	Set:BM="T" Info1=$S($L(Info1):Info1_"; ",1:"R:")_"TIP-ON"
-	Set:DC="B" Info1=$S($L(Info1):Info1_"; ",1:"R:")_"HOUTEN BALIKO LADE"
-	Set:IB<..#MinIB Info1=$S($L(Info1):Info1_"; ",1:"R:")_"EXTRA SMAL"
-	Set:IB>..#MaxIB Info1=$S($L(Info1):Info1_"; ",1:"R:")_">1500"
-	Set:DK=80 Info1=$S($L(Info1):Info1_"; ",1:"G:")_"80kg"
-	Set:IsSR Info1=$S($L(Info1):Info1_"; ",1:"G:")_"stalen rug"
+	Set:LT="B" Info1=..GeefInfoMetMelding(Info1,"FRONT")
+	Set:"0"'[ASM Info1=..GeefInfoMetMelding(Info1,"MAT "_..MatFormatter.GeefKorteNotatie(..TBXMatToEnuMatConverter.GeefMateriaal(ASM),..TBXMatToEnuMatConverter.GeefKleur(ASM)))
+	Set:ODSP'="" Info1=..GeefInfoMetMelding(Info1,"SPECIAAL : "_$CASE(ODSP,"F":"FRONT","R":"RUG","B":"BODEM","BR":"BODEM&RUG",:ODSP))
+	Set:IsSpoel Info1=..GeefInfoMetMelding(Info1,"SPOELBAK/SYFON")
+	Set:BM="T" Info1=..GeefInfoMetMelding(Info1,"TIP-ON")
+	Set:DC="B" Info1=..GeefInfoMetMelding(Info1,"HOUTEN BALIKO LADE")
+	Set:IB<..#MinIB Info1=..GeefInfoMetMelding(Info1,"EXTRA SMAL")
+	Set:IB>..#MaxIB Info1=..GeefInfoMetMelding(Info1,">1500")
+	Set:DK=80 Info1=..GeefInfoMetMelding(Info1,"80kg",##class(APPS.Halux.PPS.Activiteit.impl.common.enu.BoxpressTekstKleur).Groen())
+	Set:IsSR Info1=..GeefInfoMetMelding(Info1,"stalen rug",##class(APPS.Halux.PPS.Activiteit.impl.common.enu.BoxpressTekstKleur).Groen())
 	Set:(Status=$$$tsRemoved) Info1="B:Verwijderd" ; overschrijft alle vorige
 
 	Quit Info1
 ]]></Implementation>
 </Method>
 
+<Method name="GeefInfoMetMelding">
+<FormalSpec>Info:%String,Melding:%String,Kleur:%String=##class(APPS.Halux.PPS.Activiteit.impl.common.enu.BoxpressTekstKleur).Rood()</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $S($L(Info):Info_"; ",1:Kleur_":") _ Melding
+]]></Implementation>
+</Method>
+
 <Method name="GeefInfo2">
 <FormalSpec>BatchID:%String</FormalSpec>
 <ReturnType>%String</ReturnType>