Index: BL/PPS/TBX/WPPers/InfoBepaler.cls.xml
===================================================================
diff -u -r57661 -r57662
--- BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 57661)
+++ BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 57662)
@@ -44,33 +44,35 @@
 <Implementation><![CDATA[
 	#dim Info1 As %String = ""
 
+	#dim TBX As DOM.PM.TBXProduct.TBXLade = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
+
 	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 Internebreedte =$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IB"))
+	//Set Rughoogte=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"RH"))
+	//Set Ladediepte=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD"))
+	Set Draagkracht=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DK"))
+	Set DesignCode=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DC"))
+	Set Antislipmat=$S($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"NMASM")):"",1:$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ASM"))) ; Antislipmat
+	Set Blumotion=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BM"))
+	Set fronttype=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LT")) ; Front type
+	Set Stalenrug=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IsSR"))
+	Set Onderdelenspecial=$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:(fronttype="B") Info1=..GeefInfoMetMelding(Info1,"FRONT")
+	Set:("0"'[Antislipmat) Info1=..GeefInfoMetMelding(Info1,"MAT "_..MatFormatter.GeefKorteNotatie(..TBXMatToEnuMatConverter.GeefMateriaal(Antislipmat),..TBXMatToEnuMatConverter.GeefKleur(Antislipmat)))
+	Set:(Onderdelenspecial'="") Info1=..GeefInfoMetMelding(Info1,"SPECIAAL : "_$CASE(Onderdelenspecial,"F":"FRONT","R":"RUG","B":"BODEM","BR":"BODEM&RUG",:Onderdelenspecial))
 	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:(Blumotion="T") Info1=..GeefInfoMetMelding(Info1,"TIP-ON")
+	Set:(DesignCode="B") Info1=..GeefInfoMetMelding(Info1,"HOUTEN BALIKO LADE")
+	Set:(Internebreedte<..#MinIB) Info1=..GeefInfoMetMelding(Info1,"EXTRA SMAL")
+	Set:(Internebreedte>..#MaxIB) Info1=..GeefInfoMetMelding(Info1,">1500")
+	Set:(Draagkracht=80) Info1=..GeefInfoMetMelding(Info1,"80kg",##class(APPS.Halux.PPS.Activiteit.impl.common.enu.BoxpressTekstKleur).Groen())
+	Set:(Stalenrug) Info1=..GeefInfoMetMelding(Info1,"stalen rug",##class(APPS.Halux.PPS.Activiteit.impl.common.enu.BoxpressTekstKleur).Groen())
 	
-	//if ..MeldSynchronisatiestang(IngegevenKenmerken, HalffabItemsBoom) {
-	//	Set Info1 = ..GeefInfoMetMelding(Info1,"SYNCST")
-	//}
+	if TBX.BevatSynchro() || TBX.BevatTOBSynchroStang() {
+		Set Info1 = ..GeefInfoMetMelding(Info1,"SYNCST")
+	}
 	
 	Set:(Status=$$$tsRemoved) Info1="B:Verwijderd" ; overschrijft alle vorige