Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HFKoppelingv001.cls.xml
===================================================================
diff -u -r36668 -r36669
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HFKoppelingv001.cls.xml	(.../HFKoppelingv001.cls.xml)	(revision 36668)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/HFKoppelingv001.cls.xml	(.../HFKoppelingv001.cls.xml)	(revision 36669)
@@ -20,26 +20,26 @@
 
 <Method name="TestKoppeling">
 <Implementation><![CDATA[
-	Set Context = ..GeefContext()
+	#dim Context As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefContext()
 	
 	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 	Set IngegevenKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Movento()
 	Set IngegevenKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Schroef()
 
 	Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.Generated.HFKoppelingv000).%New("")
-	Set HalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
 	
 	Do $$$AssertTrue($IsObject(HalffabItem),"HalffabItem is een object")
 	Do $$$AssertTrue(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem"),"HalffabItem is een SamengesteldHalffabItem")
 	
-	Set HalffabItemLinks = HalffabItem.GeefHalffabItem("Links")
+	#dim HalffabItemLinks As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItem.GeefHalffabItem("Links")
 	
 	Do $$$AssertTrue($IsObject(HalffabItemLinks),"HalffabItem is een object")
 	Do $$$AssertTrue(HalffabItemLinks.%Extends("DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem"),"HalffabItem is een StandaardHalffabItem")
 	Do $$$AssertTrue($IsObject(HalffabItemLinks.GeefHalffab()),"HalffabItem heeft een halffab")
 	Do $$$AssertEquals(HalffabItemLinks.GeefHalffab().GeefProductID(),1000,"Halffab voor Tandem koppeling")
 	
-	Set HalffabItemRechts = HalffabItem.GeefHalffabItem("Rechts")
+	#dim HalffabItemRechts As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItem.GeefHalffabItem("Rechts")
 	
 	Do $$$AssertTrue($IsObject(HalffabItemRechts),"HalffabItem is een object")
 	Do $$$AssertTrue(HalffabItemRechts.%Extends("DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem"),"HalffabItem is een StandaardHalffabItem")
@@ -50,7 +50,7 @@
 
 <Method name="Test: bij binnenlade altijd koppeling meeleveren (als het V1 is)">
 <Implementation><![CDATA[
-	Set Context = ..GeefContext()
+	#dim Context As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefContext()
 	
 	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 	Set IngegevenKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Movento()
@@ -59,7 +59,7 @@
 	Set IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()
 
 	Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFKoppelingv001).%New("")
-	Set HalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
 	
 	Do $$$AssertTrue($IsObject(HalffabItem),"HalffabItem is een object")
 	Do $$$AssertTrue(HalffabItem.OpnemenInEindproduct)
@@ -69,7 +69,7 @@
 
 <Method name="Test: bij binnenlade altijd koppeling meeleveren (als het Probox is)">
 <Implementation><![CDATA[
-	Set Context = ..GeefContext()
+	#dim Context = ..GeefContext()
 	
 	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
 	Set IngegevenKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Movento()
@@ -78,7 +78,7 @@
 	Set IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()
 
 	Set HFBuilder = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFKoppelingv001).%New("")
-	Set HalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
+	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HFBuilder.Bereken(IngegevenKenmerken,Context)
 	
 	Do $$$AssertTrue($IsObject(HalffabItem),"HalffabItem is een object")
 	Do $$$AssertTrue(HalffabItem.OpnemenInEindproduct)