Index: BL/PPS/TBX/WPPers/InfoBepaler.cls.xml
===================================================================
diff -u -r57666 -r57668
--- BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 57666)
+++ BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 57668)
@@ -53,27 +53,28 @@
 
 	#dim TBX As DOM.PM.TBXProduct.TBXLade = ..ProductAPI.GeefProduct(PRNr)
 
-	Set KLAS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS"))
-	Set Internebreedte =$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IB"))
-	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 Internebreedte =TBX.GeefInterneBreedte()
+	Set Draagkracht=TBX.GeefDraagkracht()
+	Set Variant=TBX.GeefVariant()
+	Set Antislipmat=$S(TBX.GeefAntislipmatNietMeeleveren():"",1:TBX.GeefAntislipmat()) ; Antislipmat
+	Set Blumotion=TBX.GeefBlumotion()
+	Set LadeType=TBX.GeefLadeType()
+	Set RugMateriaal=TBX.GeefRugMateriaal()
+	Set Onderdelenspecial=TBX.GeefOnderdelenSpeciaal()
+	Set IsSpoelbakLade=TBX.IsSpoelbakLade()
 	
-	Set:(fronttype="B") Info1=..GeefInfoMetMelding(Info1,"FRONT")
+	Set:(LadeType="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:(IsSpoelbakLade) Info1=..GeefInfoMetMelding(Info1,"SPOELBAK/SYFON")
 	Set:(Blumotion="T") Info1=..GeefInfoMetMelding(Info1,"TIP-ON")
-	Set:(DesignCode="B") Info1=..GeefInfoMetMelding(Info1,"HOUTEN BALIKO LADE")
+	Set:(Variant=##class(DOM.PM.enu.LadeVariant).TBXBaliko() ) 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 (RugMateriaal=##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()) {
+		Set Info1=..GeefInfoMetMelding(Info1,"stalen rug",##class(APPS.Halux.PPS.Activiteit.impl.common.enu.BoxpressTekstKleur).Groen())
+	}
 	
 	if TBX.BevatSynchro() || TBX.BevatTOBSynchroStang() {
 		Set Info1 = ..GeefInfoMetMelding(Info1,"SYNCST")
@@ -101,9 +102,14 @@
 
 	#dim Info2 As %String = ""
 	
-	Set:(TBX.GeefDwarsverdeling()>0) Info2 = ..GeefInfoMetMelding(Info2, "DWV:"_TBX.AantalDwarsverdelingen)
-	Set:(LaatsteBatch) Info2 = ..GeefInfoMetMelding(Info2, "Laatste "_BatchID, ##class(APPS.Halux.PPS.Activiteit.impl.common.enu.BoxpressTekstKleur).Groen())
+	If (TBX.GeefDwarsverdeling()>0) {
+		Set Info2 = ..GeefInfoMetMelding(Info2, "DWV:"_TBX.AantalDwarsverdelingen)
+	}
 	
+	If (LaatsteBatch) {
+		Set Info2 = ..GeefInfoMetMelding(Info2, "Laatste "_BatchID, ##class(APPS.Halux.PPS.Activiteit.impl.common.enu.BoxpressTekstKleur).Groen())
+	}
+	
 	Quit Info2
 ]]></Implementation>
 </Method>