Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Base.cls.xml
===================================================================
diff -u -r57973 -r57974
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Base.cls.xml	(.../Base.cls.xml)	(revision 57973)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Base.cls.xml	(.../Base.cls.xml)	(revision 57974)
@@ -123,6 +123,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefTAORKenmerken">
+<FormalSpec>VerpakkingType:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
+	
+	Set TAORKenmerken.VerpakkingType = VerpakkingType
+	
+	Quit TAORKenmerken
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeLadenInWinkelkar">
 <Abstract>1</Abstract>
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.InterneWinkelkar,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,Aantal:%Integer</FormalSpec>
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Duits/TestLegrabox.cls.xml
===================================================================
diff -u -r32363 -r57974
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Duits/TestLegrabox.cls.xml	(.../TestLegrabox.cls.xml)	(revision 32363)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Duits/TestLegrabox.cls.xml	(.../TestLegrabox.cls.xml)	(revision 57974)
@@ -7,13 +7,9 @@
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.InterneWinkelkar,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,Aantal:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
-	
-	Set LBXKenmerken.VerpakkingType = VerpakkingType
-	
 	#dim LegraboxVPK1 As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
 	
-	Do LegraboxVPK1.ZetIngegevenKenmerken(LBXKenmerken)
+	Do LegraboxVPK1.ZetIngegevenKenmerken(..GeefLBXKenmerken(VerpakkingType))
 	Do LegraboxVPK1.ZetAantal(Aantal)
 	
 	Do Winkelkar.VoegToe(LegraboxVPK1)
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Nederlands/TestTaorboxEnLegraboxZelfdeVerpakking.cls.xml
===================================================================
diff -u -r55535 -r57974
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Nederlands/TestTaorboxEnLegraboxZelfdeVerpakking.cls.xml	(.../TestTaorboxEnLegraboxZelfdeVerpakking.cls.xml)	(revision 55535)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Nederlands/TestTaorboxEnLegraboxZelfdeVerpakking.cls.xml	(.../TestTaorboxEnLegraboxZelfdeVerpakking.cls.xml)	(revision 57974)
@@ -7,13 +7,9 @@
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.InterneWinkelkar,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,Aantal:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken() 
-	
-	Set TAORKenmerken.VerpakkingType = VerpakkingType
-	
 	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
 	
-	Do MaatwerkLijn.ZetIngegevenKenmerken(TAORKenmerken)
+	Do MaatwerkLijn.ZetIngegevenKenmerken(..GeefTAORKenmerken(VerpakkingType))
 	Do MaatwerkLijn.ZetAantal(Aantal)
 	
 	Do Winkelkar.VoegToe(MaatwerkLijn)
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Nederlands/TestTaorbox.cls.xml
===================================================================
diff -u -r36680 -r57974
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Nederlands/TestTaorbox.cls.xml	(.../TestTaorbox.cls.xml)	(revision 36680)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarControleur/Nederlands/TestTaorbox.cls.xml	(.../TestTaorbox.cls.xml)	(revision 57974)
@@ -7,11 +7,11 @@
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.InterneWinkelkar,VerpakkingType:DOM.PM.enu.LBXVerpakkingType,Aantal:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim IKVPK1 As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).LegeKenmerken()
-	Set IKVPK1.VerpakkingType = VerpakkingType
 	#dim LegraboxVPK1 As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
-	Do LegraboxVPK1.ZetIngegevenKenmerken(IKVPK1)
+	
+	Do LegraboxVPK1.ZetIngegevenKenmerken(..GeefTAORKenmerken(VerpakkingType))
 	Do LegraboxVPK1.ZetAantal(Aantal)
+	
 	Do Winkelkar.VoegToe(LegraboxVPK1)
 ]]></Implementation>
 </Method>