Index: vhUnitTest/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKarGenerator/GenereerKarren/Test.cls.xml
===================================================================
diff -u -r29998 -r30680
--- vhUnitTest/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKarGenerator/GenereerKarren/Test.cls.xml	(.../Test.cls.xml)	(revision 29998)
+++ vhUnitTest/APPS/Halux/common/impl/ProductieSequentie/Taor/AssemblageKarGenerator/GenereerKarren/Test.cls.xml	(.../Test.cls.xml)	(revision 30680)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKarGenerator.GenereerKarren.Test">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
 
 <Parameter name="BatchID">
 <Type>%String</Type>
@@ -18,12 +18,20 @@
 <Private>1</Private>
 </Property>
 
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..SequentieNr = 1
+]]></Implementation>
+</Method>
+
 <Method name="Test Items hebben zelfde verpakkingtype, kar wijzigd enkel als de huidige vol is">
 <Implementation><![CDATA[
 	Set SequentieItems = ##class(%ListOfObjects).%New()
 	#dim i As TECH.Integer
 	For i=1:1:30 {
-		Do SequentieItems.Insert(..GeefProductieSequentieItem())
+		Do SequentieItems.Insert(..GeefProductieSequentieItem(..Enum.VerpakkingType.V1))
 	}
 	
 	Set FakeAssemblageKarRepository = ##class(vhTest.Fake.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
@@ -54,9 +62,9 @@
 <Method name="Test Items hebben verschillend verpakkingtype, kar wijzigd bij elk item">
 <Implementation><![CDATA[
 	Set SequentieItems = ##class(%ListOfObjects).%New()
-	Do SequentieItems.Insert(..GeefProductieSequentieItem(##class(DOM.PM.enu.TAORVerpakkingType).Probox()))
-	Do SequentieItems.Insert(..GeefProductieSequentieItem(##class(DOM.PM.enu.TAORVerpakkingType).V1()))
-	Do SequentieItems.Insert(..GeefProductieSequentieItem(##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1()))
+	Do SequentieItems.Insert(..GeefProductieSequentieItem(..Enum.VerpakkingType.Probox))
+	Do SequentieItems.Insert(..GeefProductieSequentieItem(..Enum.VerpakkingType.V1))
+	Do SequentieItems.Insert(..GeefProductieSequentieItem(..Enum.VerpakkingType.FlatpackV1))
 	
 	Set FakeAssemblageKarRepository = ##class(vhTest.Fake.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
 	Set Generator = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor.AssemblageKarGenerator).%New(FakeAssemblageKarRepository)
@@ -86,27 +94,22 @@
 </Method>
 
 <Method name="GeefProductieSequentieItem">
-<FormalSpec>VerpakkingType:DOM.PM.enu.TAORVerpakkingType=##class(DOM.PM.enu.TAORVerpakkingType).V1()</FormalSpec>
+<FormalSpec>VerpakkingType:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
+<Private>1</Private>
 <ReturnType>APPS.Halux.common.ProductieSequentieItem</ReturnType>
 <Implementation><![CDATA[
-	Set SequentieItem = ##class(APPS.Halux.common.ProductieSequentieItem).%New()
-	Set SequentieItem.BatchID = ..#BatchID
-	Set SequentieItem.SequentieNummer = ..SequentieNr
-	Set ..SequentieNr = ..SequentieNr + 1
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).CLade()
-	Set IngegevenKenmerken.VerpakkingType = VerpakkingType
-	Do SequentieItem.ZetIngegevenKenmerken(IngegevenKenmerken)
-	Quit SequentieItem
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(VerpakkingType)
+	#dim SequentieItem As APPS.Halux.common.ProductieSequentieItem = ##class(APPS.Halux.common.ProductieSequentieItem).%New()
+	
+	set SequentieItem.BatchID = ..#BatchID
+	set SequentieItem.SequentieNummer = ..SequentieNr
+	set ..SequentieNr = ..SequentieNr + 1
+	
+	do SequentieItem.ZetIngegevenKenmerken(TAORKenmerken)
+	
+	quit SequentieItem
 ]]></Implementation>
 </Method>
-
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	Do ##super(aTestName)
-	Set ..SequentieNr = 1
-]]></Implementation>
-</Method>
 </Class>