Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/ZetVerpakteAfmeting/Test.cls.xml
===================================================================
diff -u -r33802 -r33840
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/ZetVerpakteAfmeting/Test.cls.xml	(.../Test.cls.xml)	(revision 33802)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/ZetVerpakteAfmeting/Test.cls.xml	(.../Test.cls.xml)	(revision 33840)
@@ -39,31 +39,36 @@
 
 <Method name="Test: ZetVerpakteAfmeting zet geen verpakkingsafmeting van een maatwerklijn bij V1">
 <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).V1() 
+	#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 = ##class(vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn).%New()
-	Do MaatwerkLijn.ZetIngegevenKenmerken(TAORKenmerkenFake)
+	Do ##class(vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.SubClass).%New().VoeruitZetVerpakteAfmeting(MaatwerkLijn)
 	
-	#dim WinkelkarService As vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.SubClass = ##class(vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.SubClass).%New()
-	Do WinkelkarService.VoeruitZetVerpakteAfmeting(MaatwerkLijn)
-	
 	Do $$$AssertNotIsObject(MaatwerkLijn.GeefVerpakteAfmeting())
 ]]></Implementation>
 </Method>
 
 <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()) 
+	
+	Do ##class(vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.SubClass).%New().VoeruitZetVerpakteAfmeting(MaatwerkLijn)
+	
+	Do $$$AssertNotIsObject(MaatwerkLijn.GeefVerpakteAfmeting())
+]]></Implementation>
+</Method>
+
+<Method name="MaakMaatwerkLijn">
+<FormalSpec>VerpakkingsType:DOM.PM.enu.LBXVerpakkingType</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
+<Implementation><![CDATA[
 	#dim LBXKenmerkenFake As vhTest.Fake.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Fake.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).%New()
-	Set LBXKenmerkenFake.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).Pallet() 
+	Set LBXKenmerkenFake.VerpakkingType = VerpakkingsType
 	
 	#dim MaatwerkLijn AS vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn = ##class(vhTest.Dummy.DOM.EC.Winkelkar.MaatwerkLijn).%New()
 	Do MaatwerkLijn.ZetIngegevenKenmerken(LBXKenmerkenFake)
 	
-	#dim WinkelkarService As vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.SubClass = ##class(vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.SubClass).%New()
-	Do WinkelkarService.VoeruitZetVerpakteAfmeting(MaatwerkLijn)
-	
-	Do $$$AssertNotIsObject(MaatwerkLijn.GeefVerpakteAfmeting())
+	Quit MaatwerkLijn
 ]]></Implementation>
 </Method>