Index: BL/PPS/TBX/WPPers/InfoBepaler.cls.xml
===================================================================
diff -u -r57668 -r57669
--- BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 57668)
+++ BL/PPS/TBX/WPPers/InfoBepaler.cls.xml	(.../InfoBepaler.cls.xml)	(revision 57669)
@@ -53,15 +53,15 @@
 
 	#dim TBX As DOM.PM.TBXProduct.TBXLade = ..ProductAPI.GeefProduct(PRNr)
 
-	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()
+	#dim Internebreedte As %Float = TBX.GeefInterneBreedte()
+	#dim Draagkracht As %Float = TBX.GeefDraagkracht()
+	#dim Variant As DOM.PM.enu.Variant = TBX.GeefVariant()
+	#dim Antislipmat As DOM.PM.enu.TBXAntislipmat =$S(TBX.GeefAntislipmatNietMeeleveren():"",1:TBX.GeefAntislipmat()) ; Antislipmat
+	#dim Blumotion As DOM.PM.enu.TBXBlumotion = TBX.GeefBlumotion()
+	#dim LadeType As DOM.PM.enu.TBXLadeType = TBX.GeefLadeType()
+	#dim RugMateriaal As DOM.PM.enu.TBXRugwandMateriaal = TBX.GeefRugMateriaal()
+	#dim Onderdelenspecial As %String = TBX.GeefOnderdelenSpeciaal()
+	#dim IsSpoelbakLade As %Boolean = TBX.IsSpoelbakLade()
 	
 	Set:(LadeType="B") Info1=..GeefInfoMetMelding(Info1,"FRONT")
 	Set:("0"'[Antislipmat) Info1=..GeefInfoMetMelding(Info1,"MAT "_..MatFormatter.GeefKorteNotatie(..TBXMatToEnuMatConverter.GeefMateriaal(Antislipmat),..TBXMatToEnuMatConverter.GeefKleur(Antislipmat)))