Index: vhUnitTest/APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor/Converteer/Test.cls.xml
===================================================================
diff -u -r38979 -r54011
--- vhUnitTest/APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 38979)
+++ vhUnitTest/APPS/PM/Maatwerk/TBX/Conversie/KenmerkConvertor/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 54011)
@@ -11,7 +11,7 @@
 	Set KenmerkConvertor = ##class(APPS.PM.Maatwerk.TBX.Conversie.KenmerkConvertor).%New()
 	Do KenmerkConvertor.Converteer(TeConverterenProduct,,.GeconverteerdeKenmerken)
 	
-	#dim TeVergelijkenProduct As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).StandaardLade()
+	#dim TeVergelijkenProduct As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ..OudeStandaardLade()
 	Set TeVergelijkenProduct.LegacyKenmerken = ""
 	
 	Do $$$AssertObject(GeconverteerdeKenmerken,TeVergelijkenProduct)
@@ -26,12 +26,81 @@
 	Set KenmerkConvertor = ##class(APPS.PM.Maatwerk.TBX.Conversie.KenmerkConvertor).%New()
 	Do KenmerkConvertor.Converteer(TeConverterenProduct,,.GeconverteerdeKenmerken)
 	
-	#dim TeVergelijkenProduct As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).SifonLadeMet1Uitsparing()
+	#dim TeVergelijkenProduct As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ..SifonLadeMet1Uitsparing()
 	Set TeVergelijkenProduct.LegacyKenmerken = ""
 	
 	Do $$$AssertObject(GeconverteerdeKenmerken,TeVergelijkenProduct)
 ]]></Implementation>
 </Method>
+
+<Method name="OudeStandaardLade">
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim TbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+
+	Set TbxKenmerken.Antislipmat = 0
+	Set TbxKenmerken.Blumotion = $$$True
+	Set TbxKenmerken.BodemKleur = ##class(DOM.PM.enu.TBXBodemKleur).Wit()
+	Set TbxKenmerken.CorpusBinnenbreedte = 600
+	Set TbxKenmerken.Draagkracht = ##class(DOM.PM.enu.TBXDraagkracht).Draagkracht30()
+	Set TbxKenmerken.DwarsverdelingAantal = ##class(DOM.PM.enu.TBXDwarsverdeling).Zonder()
+	Set TbxKenmerken.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Inserta()
+	Set TbxKenmerken.FrontHouderKleur = ##class(DOM.PM.enu.TBXFrontHouderKleur).SW()
+	Set TbxKenmerken.FrontOndersteuningAantal = 0
+	Set TbxKenmerken.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).Geen()
+	Set TbxKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).Blumotion()
+	Set TbxKenmerken.HangmapBoringAantal = 0
+	Set TbxKenmerken.HeeftOpvullijstLinks = $$$False
+	Set TbxKenmerken.HeeftOpvullijstRechts = $$$False
+	Set TbxKenmerken.HeeftZijstabilisering = $$$False
+	Set TbxKenmerken.InterneBreedte = 600
+	Set TbxKenmerken.IsBinnenlade = $$$False
+	Set TbxKenmerken.LadeDiepte = ##class(DOM.PM.enu.TBXLadeDiepte).LadeDiepte400()
+	Set TbxKenmerken.LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).M()
+	Set TbxKenmerken.LadeKleur = ##class(DOM.PM.enu.TBXLadeKleur).SW()
+	Set TbxKenmerken.LadeVariant = "TBX_Antaro"
+	Set TbxKenmerken.RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).M()
+	Set TbxKenmerken.RugHouderKleur = ##class(DOM.PM.enu.TBXRugHouderKleur).SW()
+	Set TbxKenmerken.RugKleur = ##class(DOM.PM.enu.TBXRugKleur).Wit()
+	Set TbxKenmerken.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
+	Set TbxKenmerken.TipOn = $$$False
+	Set TbxKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).Lade()
+	Set TbxKenmerken.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).StukMetOnderdelen()
+	Set TbxKenmerken.VoorwandMetGreep = $$$False
+	Set TbxKenmerken.VoorwandMetMeenemer = $$$False
+	Set TbxKenmerken.VoorwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXVoorwandVerhogingMateriaal).Geen()
+	Set TbxKenmerken.VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Geen()
+	Set TbxKenmerken.ZijkantDesign = ##class(DOM.PM.enu.TBXZijkantDesign).A()
+	Set TbxKenmerken.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).M()
+	Set TbxKenmerken.ZijwandVerhogingAantal = 0
+	Set TbxKenmerken.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Geen()
+	Set TbxKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Laag()
+	
+	Set TbxKenmerken.LegacyKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).StandaardLade()
+	
+	Set TbxKenmerken.GUIKenmerken.CorpusBreedte = 600
+	Set TbxKenmerken.GUIKenmerken.CorpusWandDikte = 0
+	Set TbxKenmerken.GUIKenmerken.IsBinnenbreedte = $$$True
+	
+	Quit TbxKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="SifonLadeMet1Uitsparing">
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim TbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ..OudeStandaardLade()
+	
+	Set TbxKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType2()
+	Set TbxKenmerken.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
+	Set TbxKenmerken.UitsparingBreedte1 = 150
+	Set TbxKenmerken.UitsparingDiepte = 280
+	Set TbxKenmerken.UitsparingPositie1 = 225
+	Set TbxKenmerken.UitsparingZijkantKleur = "SW"
+	
+	Quit TbxKenmerken
+]]></Implementation>
+</Method>
 </Class>