Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/ZetVerpakteAfmeting/Test.cls.xml
===================================================================
diff -u -r33840 -r33842
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/ZetVerpakteAfmeting/Test.cls.xml	(.../Test.cls.xml)	(revision 33840)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/ZetVerpakteAfmeting/Test.cls.xml	(.../Test.cls.xml)	(revision 33842)
@@ -5,41 +5,17 @@
 
 <Method name="Test: ZetVerpakteAfmeting zet de verpakkingsafmeting VPK.OD1260X240 van een maatwerklijn">
 <Implementation><![CDATA[
-	#dim TAORKenmerkenFake As vhTest.Fake.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Fake.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
-	Set TAORKenmerkenFake.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1() 
+	#dim MaatwerkLijn As vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn = ..MaakTAXMaatwerkLijn(##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1())
 	
-	#dim MaatwerkLijn AS vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn = ##class(vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn).%New()
-	Do MaatwerkLijn.ZetIngegevenKenmerken(TAORKenmerkenFake)
+	Do ..MaakWinkelkarService().VoeruitZetVerpakteAfmeting(MaatwerkLijn)
 	
-	#dim WinkelkarService As vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.SubClass = ##class(vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.SubClass).%New()
-	#dim MaatwerkCalcAPI As vhTest.Mock.DOM.PM.impl.MaatwerkCalcAPI = ##class(vhTest.Mock.DOM.PM.impl.MaatwerkCalcAPI).%New()
-	
-	#dim HalffabItemsBoom As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
-	
-	#dim ConcreetHalffabItem As vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(,,##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.Halffab).%New("1235098"))
-	
-	
-	Do HalffabItemsBoom.IndienMethodCall("GeefHalffabItem", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Verpakking()).DanReturn(ConcreetHalffabItem)
-	
-	Do MaatwerkCalcAPI.IndienMethodCall("GeefHalffabItemsBoom", TAORKenmerkenFake,1).DanReturn(HalffabItemsBoom)
-	
-	Set WinkelkarService.MaatwerkCalcAPI = MaatwerkCalcAPI
-	
-	Do WinkelkarService.VoeruitZetVerpakteAfmeting(MaatwerkLijn)
-	
-	#dim VerpakkingAfmetingResultaat As APPS.Halux.common.impl.VerpakteAfmeting = MaatwerkLijn.GeefVerpakteAfmeting()
-	
-	if $$$AssertIsObject(VerpakkingAfmetingResultaat) {
-		Do $$$AssertEquals(VerpakkingAfmetingResultaat.GeefBreedte(),1263)
-		Do $$$AssertEquals(VerpakkingAfmetingResultaat.GeefDiepte(),245)
-		Do $$$AssertEquals(VerpakkingAfmetingResultaat.GeefHoogte(),173)
-	}
+	Do ..AssertVerpakkingAfmetingVPKOD1260X240(MaatwerkLijn.GeefVerpakteAfmeting())
 ]]></Implementation>
 </Method>
 
 <Method name="Test: ZetVerpakteAfmeting zet geen verpakkingsafmeting van een maatwerklijn bij V1">
 <Implementation><![CDATA[
-	#dim MaatwerkLijn AS vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn = ..MaakMaatwerkLijn(##class(DOM.PM.enu.TAORVerpakkingType).V1() ) 
+	#dim MaatwerkLijn AS vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn = ..MaakLBXMaatwerkLijn(##class(DOM.PM.enu.TAORVerpakkingType).V1() ) 
 	
 	Do ##class(vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.SubClass).%New().VoeruitZetVerpakteAfmeting(MaatwerkLijn)
 	
@@ -49,15 +25,27 @@
 
 <Method name="Test: ZetVerpakteAfmeting zet geen verpakkingsafmeting bij maatwerklijnen andere dan TAX">
 <Implementation><![CDATA[
-	#dim MaatwerkLijn AS vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn = ..MaakMaatwerkLijn(##class(DOM.PM.enu.LBXVerpakkingType).Pallet()) 
+	#dim MaatwerkLijn AS vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn = ..MaakLBXMaatwerkLijn(##class(DOM.PM.enu.LBXVerpakkingType).Pallet()) 
 	
 	Do ##class(vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.SubClass).%New().VoeruitZetVerpakteAfmeting(MaatwerkLijn)
 	
 	Do $$$AssertNotIsObject(MaatwerkLijn.GeefVerpakteAfmeting())
 ]]></Implementation>
 </Method>
 
-<Method name="MaakMaatwerkLijn">
+<Method name="AssertVerpakkingAfmetingVPKOD1260X240">
+<FormalSpec>VerpakkingAfmetingResultaat:APPS.Halux.common.impl.VerpakteAfmeting</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	if $$$AssertIsObject(VerpakkingAfmetingResultaat) {
+		Do $$$AssertEquals(VerpakkingAfmetingResultaat.GeefBreedte(),1263)
+		Do $$$AssertEquals(VerpakkingAfmetingResultaat.GeefDiepte(),245)
+		Do $$$AssertEquals(VerpakkingAfmetingResultaat.GeefHoogte(),173)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakLBXMaatwerkLijn">
 <FormalSpec>VerpakkingsType:DOM.PM.enu.LBXVerpakkingType</FormalSpec>
 <Private>1</Private>
 <ReturnType>vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
@@ -72,6 +60,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakTAXMaatwerkLijn">
+<FormalSpec>VerpakkingsType:DOM.PM.enu.LBXVerpakkingType</FormalSpec>
+<ReturnType>vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
+<Implementation><![CDATA[
+	#dim TAORKenmerkenFake As vhTest.Fake.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Fake.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+	Set TAORKenmerkenFake.VerpakkingType = VerpakkingsType
+	
+	#dim MaatwerkLijn AS vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn = ##class(vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	Do MaatwerkLijn.ZetIngegevenKenmerken(TAORKenmerkenFake)
+	Quit MaatwerkLijn
+]]></Implementation>
+</Method>
+
+<Method name="MaakWinkelkarService">
+<ReturnType>vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.SubClass</ReturnType>
+<Implementation><![CDATA[
+	Set WinkelkarService = ##class(vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.SubClass).%New()
+	#dim MaatwerkCalcAPI As vhTest.Mock.DOM.PM.impl.MaatwerkCalcAPI = ##class(vhTest.Mock.DOM.PM.impl.MaatwerkCalcAPI).%New()
+	
+	Set HalffabItemsBoom = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	Set HalffabItem = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.Halffab).%New("1235098")
+	
+	Set ConcreetHalffabItem = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(,,HalffabItem)
+	
+	Do HalffabItemsBoom.IndienMethodCall("GeefHalffabItem", ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Verpakking()).DanReturn(ConcreetHalffabItem)
+	
+	Do MaatwerkCalcAPI.IndienMethodCall("GeefHalffabItemsBoom", $$$ElkeWaarde ,1).DanReturn(HalffabItemsBoom)
+	
+	Set WinkelkarService.MaatwerkCalcAPI = MaatwerkCalcAPI
+	
+	Quit WinkelkarService
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /*