Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HFKoppelingv001.cls.xml
===================================================================
diff -u -r36669 -r36689
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HFKoppelingv001.cls.xml	(.../HFKoppelingv001.cls.xml)	(revision 36669)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HFKoppelingv001.cls.xml	(.../HFKoppelingv001.cls.xml)	(revision 36689)
@@ -22,7 +22,7 @@
 <Implementation><![CDATA[
 	#dim Context As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefContext()
 	
-	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
 	Set IngegevenKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Movento()
 	Set IngegevenKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Schroef()
 
@@ -52,12 +52,10 @@
 <Implementation><![CDATA[
 	#dim Context As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefContext()
 	
-	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenlade()
 	Set IngegevenKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Movento()
 	Set IngegevenKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Schroef()
-	Set IngegevenKenmerken.IsBinnenlade = $$$True
-	Set IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()
-
+	
 	Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFKoppelingv001).%New("")
 	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
 	
@@ -71,10 +69,9 @@
 <Implementation><![CDATA[
 	#dim Context = ..GeefContext()
 	
-	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenlade()
 	Set IngegevenKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Movento()
 	Set IngegevenKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Schroef()
-	Set IngegevenKenmerken.IsBinnenlade = $$$True
 	Set IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()
 
 	Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFKoppelingv001).%New("")