Index: BL/PPS/TBX/WPPers.cls.xml
===================================================================
diff -u -r57658 -r57661
--- BL/PPS/TBX/WPPers.cls.xml	(.../WPPers.cls.xml)	(revision 57658)
+++ BL/PPS/TBX/WPPers.cls.xml	(.../WPPers.cls.xml)	(revision 57661)
@@ -540,7 +540,7 @@
 	
 	/* invullen Info1 en Info2 TBX*/
 	Set (Info1,Info2)=""
-	Set Info1= ..InfoBepaler.GeefInfo1(LT, ASM, ODSP, IsSpoel, BM, DC, IB, DK, IsSR, oQ.Status)
+	Set Info1= ..InfoBepaler.GeefInfo1(PRNr, oQ.Status)
 	Set:(..GetNext(oQ.%Id())="") Info2= ..InfoBepaler.GeefInfo2(oQ.BatchID)
 	
 	Set WaarschuwingTijd=40
Index: BL/PPS/TBX/WPPers/InfoBepaler.cls.xml
===================================================================
diff -u -r57659 -r57661
--- BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 57659)
+++ BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 57661)
@@ -39,21 +39,39 @@
 </Method>
 
 <Method name="GeefInfo1">
-<FormalSpec>LT:%String,ASM:%String,ODSP:%String,IsSpoel:%Boolean,BM:%String,DC:%String,IB:%Integer,DK:%Integer,IsSR:%Boolean,Status:%String</FormalSpec>
+<FormalSpec>PRNr:%String,Status:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Info1 As %String = ""
+
+	Set KLAS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS"))
+	Set IB=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IB"))
+	Set RH=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"RH"))
+	Set LD=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD"))
+	Set DK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DK"))
+	Set DC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DC"))
+	Set ASM=$S($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"NMASM")):"",1:$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ASM"))) ; Antislipmat
+	Set BM=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BM"))
+	Set LT=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LT")) ; Front type
+	Set IsSR=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IsSR"))
+	Set ODSP=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ODSP")) ; onderdelen speciaal
+	Set IsSpoel=KLAS'?1(1"L",1"B")
 	
-	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:(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())
+	
+	//if ..MeldSynchronisatiestang(IngegevenKenmerken, HalffabItemsBoom) {
+	//	Set Info1 = ..GeefInfoMetMelding(Info1,"SYNCST")
+	//}
+	
 	Set:(Status=$$$tsRemoved) Info1="B:Verwijderd" ; overschrijft alle vorige
 
 	Quit Info1