Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper/MaakDnaCodeVoorToeleveringLijn/Test.cls.xml
===================================================================
diff -u -r66829 -r67329
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper/MaakDnaCodeVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 66829)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper/MaakDnaCodeVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 67329)
@@ -3,6 +3,41 @@
 <Class name="vhUnitTest.APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper.MaakDnaCodeVoorToeleveringLijn.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="DnaCodeLegrabox">
+<Type>%String</Type>
+<Default>LAAAAA1</Default>
+</Parameter>
+
+<Parameter name="DnaCodeOnbepaald">
+<Type>%String</Type>
+<Default>OAAAAA1</Default>
+</Parameter>
+
+<Parameter name="DnaCodeMat">
+<Type>%String</Type>
+<Default>MAAAAA1</Default>
+</Parameter>
+
+<Parameter name="ProductId">
+<Type>%Integer</Type>
+<Default>123456</Default>
+</Parameter>
+
+<Parameter name="BatchId">
+<Type>%Integer</Type>
+<Default>1234</Default>
+</Parameter>
+
+<Parameter name="OrderId">
+<Type>%Integer</Type>
+<Default>1000</Default>
+</Parameter>
+
+<Parameter name="OrderLijnId">
+<Type>%Integer</Type>
+<Default>100</Default>
+</Parameter>
+
 <Property name="Batch">
 <Type>APPS.Halux.common.Batch</Type>
 </Property>
@@ -11,11 +46,11 @@
 <Type>APPS.Halux.AAP.DnaCodeGenerator</Type>
 </Property>
 
-<Property name="IngegevenKenmerkenLadeStub">
+<Property name="IngegevenKenmerkenLade">
 <Type>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</Type>
 </Property>
 
-<Property name="IngegevenKenmerkenMatStub">
+<Property name="IngegevenKenmerkenMat">
 <Type>DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</Type>
 </Property>
 
@@ -47,36 +82,36 @@
 <Implementation><![CDATA[
 	Do ##super()
 	
-	Set ..IngegevenKenmerkenLadeStub = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).DummyLade()
-	Set ..IngegevenKenmerkenMatStub = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).GeefLegeMATKenmerken()
+	Set ..IngegevenKenmerkenLade = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).DummyLade()
+	Set ..IngegevenKenmerkenMat = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken).GeefLegeMATKenmerken()
 	
 	Set ..DnaCodeGeneratorStub = ##class(vhTest.Mock.APPS.Halux.AAP.DnaCodeGenerator).%New()
-	Do ..DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","L").DanReturn("LAAAAA3")
-	Do ..DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","O").DanReturn("OAAAAA3")
-	Do ..DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","M").DanReturn("MAAAAA3")
+	Do ..DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","L").DanReturn(..#DnaCodeLegrabox)
+	Do ..DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","O").DanReturn(..#DnaCodeOnbepaald)
+	Do ..DnaCodeGeneratorStub.IndienMethodCall("GenereerDnaCode","M").DanReturn(..#DnaCodeMat)
 	
 	Set ..ToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
-	Do ..ToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(123456)
-	Do ..ToeleveringLijn.IndienMethodCall("GeefOrderID").DanReturn(1000)
-	Do ..ToeleveringLijn.IndienMethodCall("GeefOrderLijnID").DanReturn(100)
+	Do ..ToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(..#ProductId)
+	Do ..ToeleveringLijn.IndienMethodCall("GeefOrderID").DanReturn(..#OrderId)
+	Do ..ToeleveringLijn.IndienMethodCall("GeefOrderLijnID").DanReturn(..#OrderLijnId)
 	
 	Set ..ProductApiLadeStub = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
 	Set ProductLadeStub = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
 	Do ProductLadeStub.IndienMethodCall("GeefDottedDossierCode").DanReturn("A.BC.DE.F")
-	Do ProductLadeStub.IndienMethodCall("GeefID").DanReturn(123456)
-	Do ProductLadeStub.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(..IngegevenKenmerkenLadeStub)
-	Do ..ProductApiLadeStub.IndienMethodCall("GeefProduct",123456).DanReturn(ProductLadeStub)
+	Do ProductLadeStub.IndienMethodCall("GeefID").DanReturn(..#ProductId)
+	Do ProductLadeStub.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(..IngegevenKenmerkenLade)
+	Do ..ProductApiLadeStub.IndienMethodCall("GeefProduct",..#ProductId).DanReturn(ProductLadeStub)
 	
 	Set ..ProductApiMatStub = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
 	Set ProductMatStub = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
 	Do ProductMatStub.IndienMethodCall("GeefDottedDossierCode").DanReturn("A.BC.DE.F")
-	Do ProductMatStub.IndienMethodCall("GeefID").DanReturn(123456)
-	Do ProductMatStub.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(..IngegevenKenmerkenMatStub)
-	Do ..ProductApiMatStub.IndienMethodCall("GeefProduct",123456).DanReturn(ProductMatStub)
+	Do ProductMatStub.IndienMethodCall("GeefID").DanReturn(..#ProductId)
+	Do ProductMatStub.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(..IngegevenKenmerkenMat)
+	Do ..ProductApiMatStub.IndienMethodCall("GeefProduct",..#ProductId).DanReturn(ProductMatStub)
 	
 	Set ..LijnId = ##class(APPS.Halux.common.enu.ProductieLijn).Een()
 	Set ..Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New(..LijnId)
-	Do ..Batch.IndienMethodCall("GeefID").DanReturn(1234)
+	Do ..Batch.IndienMethodCall("GeefID").DanReturn(..#BatchId)
 	Do ..Batch.IndienMethodCall("GeefLijn").DanReturn(..LijnId)
 	Do ..Batch.IndienMethodCall("GeefIsWegwerpPallet",1).DanReturn($$$True)
 ]]></Implementation>
@@ -87,53 +122,49 @@
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 	
-	Set ..ProductTypeApiStub = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New()
-	Do ..ProductTypeApiStub.IndienMethodCall("GeefProductTypePrefix", $$$ElkeWaarde).DanReturn("L")
-	Do ..ProductTypeApiStub.IndienMethodCall("IsLegraboxProduct", 123456).DanReturn($$$True)
-	Do ..ProductTypeApiStub.IndienMethodCall("IsTandemboxProduct", 123456).DanReturn($$$True)
-	Do ..ProductTypeApiStub.IndienMethodCall("IsTAORboxProduct", 123456).DanReturn($$$True)
-	Do ..ProductTypeApiStub.IndienMethodCall("IsAntislipmatProduct", $$$ElkeWaarde).DanReturn($$$False)
-
 	Set ..IngegevenKenmerkenSpaceStepHelperStub = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper).%New()
-	Do ..IngegevenKenmerkenSpaceStepHelperStub.IndienMethodCall("IsSpaceStep",..IngegevenKenmerkenLadeStub).DanReturn($$$False)
+	Do ..IngegevenKenmerkenSpaceStepHelperStub.IndienMethodCall("IsSpaceStep",..IngegevenKenmerkenLade).DanReturn($$$False)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: DnaCode wordt aangemaakt en bevat info van ToeleveringLijn">
 <Implementation><![CDATA[
 	#dim DnaCode As DOM.Halux.AAP.DnaCode = ""
 	
+	Do ..ZetProductTypeApiNaarStandaardKenmerken()
+	
 	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New(..DnaCodeGeneratorStub,, ..ProductTypeApiStub, ..ProductApiLadeStub,,)
 	Set DnaCode = DnaCodeServiceHelper.MaakDnaCodeVoorToeleveringLijn(..ToeleveringLijn, ..Batch)
 
-	Do $$$AssertEquals(DnaCode.DnaCode, "LAAAAA3")
-	Do $$$AssertEquals(DnaCode.ProductNummer, 123456)
+	Do $$$AssertEquals(DnaCode.DnaCode, ..#DnaCodeLegrabox)
+	Do $$$AssertEquals(DnaCode.ProductNummer, ..#ProductId)
 	Do $$$AssertEquals(DnaCode.ToeleveringLijn, ..ToeleveringLijn.GeefID())
-	Do $$$AssertEquals(DnaCode.OrderId, 1000)
-	Do $$$AssertEquals(DnaCode.OrderlijnId, 100)
+	Do $$$AssertEquals(DnaCode.OrderId, ..#OrderId)
+	Do $$$AssertEquals(DnaCode.OrderlijnId, ..#OrderLijnId)
 	Do $$$AssertEquals(DnaCode.IsWegwerpPallet, $$$True)
 	Do $$$AssertEquals(DnaCode.Lijn, ..LijnId)
 	Do $$$AssertEquals(DnaCode.Status, ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch())
-	Do $$$AssertEquals(DnaCode.BatchId, 1234)
+	Do $$$AssertEquals(DnaCode.BatchId, ..#BatchId)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: SpaceStep normaal gedrag maar met extra DnaCode">
 <Implementation><![CDATA[
 	#dim DnaCode As DOM.Halux.AAP.DnaCode = ""
-
+	
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(1)
 	
-	Do ..IngegevenKenmerkenSpaceStepHelperStub.IndienMethodCall("IsSpaceStep",..IngegevenKenmerkenLadeStub).DanReturn($$$True)
+	Do ..ZetProductTypeApiNaarStandaardKenmerken()
+	Do ..IngegevenKenmerkenSpaceStepHelperStub.IndienMethodCall("IsSpaceStep",..IngegevenKenmerkenLade).DanReturn($$$True)
 	
 	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New(, DnaCodeRepositoryMock, ..ProductTypeApiStub, ..ProductApiLadeStub,, ..IngegevenKenmerkenSpaceStepHelperStub)
 	Set DnaCode = DnaCodeServiceHelper.MaakDnaCodeVoorToeleveringLijn(..ToeleveringLijn)
 	
-	Do $$$AssertEquals(DnaCode.ProductNummer, 123456)
+	Do $$$AssertEquals(DnaCode.ProductNummer, ..#ProductId)
 	Do $$$AssertEquals(DnaCode.ToeleveringLijn, ..ToeleveringLijn.GeefID())
-	Do $$$AssertEquals(DnaCode.OrderId, 1000)
-	Do $$$AssertEquals(DnaCode.OrderlijnId, 100)
+	Do $$$AssertEquals(DnaCode.OrderId, ..#OrderId)
+	Do $$$AssertEquals(DnaCode.OrderlijnId, ..#OrderLijnId)
 	
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
@@ -144,20 +175,13 @@
 	#dim DnaCode As DOM.Halux.AAP.DnaCode = ""
 	#Dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("SpaceStep voor MVX genereert nog geen DnaCodes!")
 
-	Do ..ProductTypeApiStub.IndienMethodCall("IsLegraboxProduct", 123456).DanReturn($$$False)
-	Do ..ProductTypeApiStub.IndienMethodCall("IsTandemboxProduct", 123456).DanReturn($$$False)
-	Do ..ProductTypeApiStub.IndienMethodCall("IsTAORboxProduct", 123456).DanReturn($$$False)
-	Do ..IngegevenKenmerkenSpaceStepHelperStub.IndienMethodCall("IsSpaceStep",..IngegevenKenmerkenLadeStub).DanReturn($$$True)
+	Do ..ZetProductTypeApiNaarMvxKenmerken()
+	Do ..IngegevenKenmerkenSpaceStepHelperStub.IndienMethodCall("IsSpaceStep",..IngegevenKenmerkenLade).DanReturn($$$True)
 	
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.UnimplementedException, Substrings))
 	
 	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New(,, ..ProductTypeApiStub, ..ProductApiLadeStub,, ..IngegevenKenmerkenSpaceStepHelperStub)
 	Set DnaCode = DnaCodeServiceHelper.MaakDnaCodeVoorToeleveringLijn(..ToeleveringLijn)
-	
-	Do $$$AssertEquals(DnaCode.ProductNummer, 123456)
-	Do $$$AssertEquals(DnaCode.ToeleveringLijn, ..ToeleveringLijn.GeefID())
-	Do $$$AssertEquals(DnaCode.OrderId, 1000)
-	Do $$$AssertEquals(DnaCode.OrderlijnId, 100)
 ]]></Implementation>
 </Method>
 
@@ -168,18 +192,18 @@
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(2)
 	
-	Do ..ZetAlleGegevensNaarMatKenmerken()
+	Do ..ZetProductTypeApiNaarMatKenmerken()
 	
-	Set ..IngegevenKenmerkenMatStub.LadeType = "Tandembox"
-	Set ..IngegevenKenmerkenMatStub.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SpoelbakLade()
+	Set ..IngegevenKenmerkenMat.LadeType = "Tandembox"
+	Set ..IngegevenKenmerkenMat.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SpoelbakLade()
 	
 	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New(, DnaCodeRepositoryMock, ..ProductTypeApiStub, ..ProductApiMatStub,,)
 	Set DnaCode = DnaCodeServiceHelper.MaakDnaCodeVoorToeleveringLijn(..ToeleveringLijn)
 	
-	Do $$$AssertEquals(DnaCode.ProductNummer, 123456)
+	Do $$$AssertEquals(DnaCode.ProductNummer, ..#ProductId)
 	Do $$$AssertEquals(DnaCode.ToeleveringLijn, ..ToeleveringLijn.GeefID())
-	Do $$$AssertEquals(DnaCode.OrderId, 1000)
-	Do $$$AssertEquals(DnaCode.OrderlijnId, 100)
+	Do $$$AssertEquals(DnaCode.OrderId, ..#OrderId)
+	Do $$$AssertEquals(DnaCode.OrderlijnId, ..#OrderLijnId)
 	
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
@@ -192,18 +216,18 @@
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(1)
 	
-	Do ..ZetAlleGegevensNaarMatKenmerken()
+	Do ..ZetProductTypeApiNaarMatKenmerken()
 	
-	Set ..IngegevenKenmerkenMatStub.LadeType = "LegraboxPure"
-	Set ..IngegevenKenmerkenMatStub.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SpoelbakLade()
+	Set ..IngegevenKenmerkenMat.LadeType = "LegraboxPure"
+	Set ..IngegevenKenmerkenMat.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SpoelbakLade()
 	
 	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New(, DnaCodeRepositoryMock, ..ProductTypeApiStub, ..ProductApiMatStub,, ..IngegevenKenmerkenSpaceStepHelperStub)
 	Set DnaCode = DnaCodeServiceHelper.MaakDnaCodeVoorToeleveringLijn(..ToeleveringLijn)
 	
-	Do $$$AssertEquals(DnaCode.ProductNummer, 123456)
+	Do $$$AssertEquals(DnaCode.ProductNummer, ..#ProductId)
 	Do $$$AssertEquals(DnaCode.ToeleveringLijn, ..ToeleveringLijn.GeefID())
-	Do $$$AssertEquals(DnaCode.OrderId, 1000)
-	Do $$$AssertEquals(DnaCode.OrderlijnId, 100)
+	Do $$$AssertEquals(DnaCode.OrderId, ..#OrderId)
+	Do $$$AssertEquals(DnaCode.OrderlijnId, ..#OrderLijnId)
 	
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
@@ -216,18 +240,18 @@
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(0)
 	
-	Do ..ZetAlleGegevensNaarMatKenmerken()
+	Do ..ZetProductTypeApiNaarMatKenmerken()
 	
-	Set ..IngegevenKenmerkenMatStub.LadeType = "Merivobox"
-	Set ..IngegevenKenmerkenMatStub.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SpoelbakLade()
+	Set ..IngegevenKenmerkenMat.LadeType = "Merivobox"
+	Set ..IngegevenKenmerkenMat.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SpoelbakLade()
 	
 	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New(, DnaCodeRepositoryMock, ..ProductTypeApiStub, ..ProductApiMatStub,,)
 	Set DnaCode = DnaCodeServiceHelper.MaakDnaCodeVoorToeleveringLijn(..ToeleveringLijn)
 	
-	Do $$$AssertEquals(DnaCode.ProductNummer, 123456)
+	Do $$$AssertEquals(DnaCode.ProductNummer, ..#ProductId)
 	Do $$$AssertEquals(DnaCode.ToeleveringLijn, ..ToeleveringLijn.GeefID())
-	Do $$$AssertEquals(DnaCode.OrderId, 1000)
-	Do $$$AssertEquals(DnaCode.OrderlijnId, 100)
+	Do $$$AssertEquals(DnaCode.OrderId, ..#OrderId)
+	Do $$$AssertEquals(DnaCode.OrderlijnId, ..#OrderLijnId)
 	
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
@@ -240,31 +264,55 @@
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(0)
 	
-	Do ..ZetAlleGegevensNaarMatKenmerken()
+	Do ..ZetProductTypeApiNaarMatKenmerken()
 	
-	Set ..IngegevenKenmerkenMatStub.LadeType = "Tandembox"
-	Set ..IngegevenKenmerkenMatStub.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SifonLade()
+	Set ..IngegevenKenmerkenMat.LadeType = "Tandembox"
+	Set ..IngegevenKenmerkenMat.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SifonLade()
 	
 	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New(, DnaCodeRepositoryMock, ..ProductTypeApiStub, ..ProductApiMatStub,,)
 	Set DnaCode = DnaCodeServiceHelper.MaakDnaCodeVoorToeleveringLijn(..ToeleveringLijn)
 	
-	Do $$$AssertEquals(DnaCode.ProductNummer, 123456)
+	Do $$$AssertEquals(DnaCode.ProductNummer, ..#ProductId)
 	Do $$$AssertEquals(DnaCode.ToeleveringLijn, ..ToeleveringLijn.GeefID())
-	Do $$$AssertEquals(DnaCode.OrderId, 1000)
-	Do $$$AssertEquals(DnaCode.OrderlijnId, 100)
+	Do $$$AssertEquals(DnaCode.OrderId, ..#OrderId)
+	Do $$$AssertEquals(DnaCode.OrderlijnId, ..#OrderLijnId)
 	
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="ZetAlleGegevensNaarMatKenmerken">
+<Method name="ZetProductTypeApiNaarStandaardKenmerken">
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set ..ProductTypeApiStub = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New()
-	Do ..ProductTypeApiStub.IndienMethodCall("GeefProductTypePrefix", $$$ElkeWaarde).DanReturn("M")
-	Do ..ProductTypeApiStub.IndienMethodCall("IsLegraboxProduct", 123456).DanReturn($$$False)
-	Do ..ProductTypeApiStub.IndienMethodCall("IsTandemboxProduct", 123456).DanReturn($$$False)
-	Do ..ProductTypeApiStub.IndienMethodCall("IsTAORboxProduct", 123456).DanReturn($$$False)
+	Do ..ProductTypeApiStub.IndienMethodCall("GeefProductTypePrefix", $$$ElkeWaarde).DanReturn(##class(DOM.PM.enu.ProductTypePrefix).Legrabox())
+	Do ..ProductTypeApiStub.IndienMethodCall("IsLegraboxProduct", $$$ElkeWaarde).DanReturn($$$True)
+	Do ..ProductTypeApiStub.IndienMethodCall("IsTandemboxProduct", $$$ElkeWaarde).DanReturn($$$True)
+	Do ..ProductTypeApiStub.IndienMethodCall("IsTAORboxProduct", $$$ElkeWaarde).DanReturn($$$True)
+	Do ..ProductTypeApiStub.IndienMethodCall("IsAntislipmatProduct", $$$ElkeWaarde).DanReturn($$$False)
+]]></Implementation>
+</Method>
+
+<Method name="ZetProductTypeApiNaarMvxKenmerken">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..ProductTypeApiStub = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New()
+	Do ..ProductTypeApiStub.IndienMethodCall("GeefProductTypePrefix", $$$ElkeWaarde).DanReturn(##class(DOM.PM.enu.ProductTypePrefix).Merivobox())
+	Do ..ProductTypeApiStub.IndienMethodCall("IsLegraboxProduct", $$$ElkeWaarde).DanReturn($$$False)
+	Do ..ProductTypeApiStub.IndienMethodCall("IsTandemboxProduct", $$$ElkeWaarde).DanReturn($$$False)
+	Do ..ProductTypeApiStub.IndienMethodCall("IsTAORboxProduct", $$$ElkeWaarde).DanReturn($$$False)
+	Do ..ProductTypeApiStub.IndienMethodCall("IsAntislipmatProduct", $$$ElkeWaarde).DanReturn($$$False)
+]]></Implementation>
+</Method>
+
+<Method name="ZetProductTypeApiNaarMatKenmerken">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..ProductTypeApiStub = ##class(vhTest.Mock.DOM.PM.impl.ProductTypeAPIimpl).%New()
+	Do ..ProductTypeApiStub.IndienMethodCall("GeefProductTypePrefix", $$$ElkeWaarde).DanReturn(##class(DOM.PM.enu.ProductTypePrefix).Mat())
+	Do ..ProductTypeApiStub.IndienMethodCall("IsLegraboxProduct", $$$ElkeWaarde).DanReturn($$$False)
+	Do ..ProductTypeApiStub.IndienMethodCall("IsTandemboxProduct", $$$ElkeWaarde).DanReturn($$$False)
+	Do ..ProductTypeApiStub.IndienMethodCall("IsTAORboxProduct", $$$ElkeWaarde).DanReturn($$$False)
 	Do ..ProductTypeApiStub.IndienMethodCall("IsAntislipmatProduct", $$$ElkeWaarde).DanReturn($$$True)
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper/BepaalParentDnaCode/Test.cls.xml
===================================================================
diff -u -r66868 -r67329
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper/BepaalParentDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 66868)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper/BepaalParentDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 67329)
@@ -3,7 +3,37 @@
 <Class name="vhUnitTest.APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper.BepaalParentDnaCode.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Property name="Batch">
+<Parameter name="DnaCodeOnbepaald">
+<Type>%String</Type>
+<Default>OAAAAA1</Default>
+</Parameter>
+
+<Parameter name="DnaCodeLegrabox">
+<Type>%String</Type>
+<Default>LAAAAA1</Default>
+</Parameter>
+
+<Parameter name="DnaCodeTaorbox">
+<Type>%String</Type>
+<Default>HAAAAA1</Default>
+</Parameter>
+
+<Parameter name="DnaCodeGlas">
+<Type>%String</Type>
+<Default>GAAAAA1</Default>
+</Parameter>
+
+<Parameter name="DnaCodeMat">
+<Type>%String</Type>
+<Default>MAAAAA1</Default>
+</Parameter>
+
+<Parameter name="ProductNummer">
+<Type>%Integer</Type>
+<Default>123456</Default>
+</Parameter>
+
+<Property name="BatchStub">
 <Type>APPS.Halux.common.Batch</Type>
 </Property>
 
@@ -37,24 +67,24 @@
 	Do ##super(aTestName)
 	
 	Set ..DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set ..DnaCode1.DnaCode = "OAAAAA3"
+	Set ..DnaCode1.DnaCode = ..#DnaCodeOnbepaald
 	
 	Set ..DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set ..DnaCode2.DnaCode = "GAAAAA3"
+	Set ..DnaCode2.DnaCode = ..#DnaCodeGlas
 	
 	Set ..DnaCode3 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set ..DnaCode3.DnaCode = "MAAAAA3"
+	Set ..DnaCode3.DnaCode = ..#DnaCodeMat
 	
 	Set ..DnaCode4 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set ..DnaCode4.DnaCode = "LAAAAA3"
+	Set ..DnaCode4.DnaCode = ..#DnaCodeLegrabox
 	
 	Set ..DnaCode5 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set ..DnaCode5.DnaCode = "HAAAAA3"
-	Set ..DnaCode5.ProductNummer = 123456
+	Set ..DnaCode5.DnaCode = ..#DnaCodeTaorbox
+	Set ..DnaCode5.ProductNummer = ..#ProductNummer
 	
 	Set ..LijnId = ##class(APPS.Halux.common.enu.ProductieLijn).Een()
-	Set ..Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New(..LijnId)
-	Do ..Batch.IndienMethodCall("GeefProductieGroep").DanReturn(##class(APPS.Halux.common.enu.ProductieGroep).Probox())
+	Set ..BatchStub = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New(..LijnId)
+	Do ..BatchStub.IndienMethodCall("GeefProductieGroep").DanReturn(##class(APPS.Halux.common.enu.ProductieGroep).Probox())
 ]]></Implementation>
 </Method>
 
@@ -64,8 +94,8 @@
 	#dim ParentDnaCode2 As %String
 	
 	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New()
-	Set ParentDnaCode1 = DnaCodeServiceHelper.BepaalParentDnaCode(..DnaCode1, ..Batch)
-	Set ParentDnaCode2 = DnaCodeServiceHelper.BepaalParentDnaCode(..DnaCode2, ..Batch)
+	Set ParentDnaCode1 = DnaCodeServiceHelper.BepaalParentDnaCode(..DnaCode1, ..BatchStub)
+	Set ParentDnaCode2 = DnaCodeServiceHelper.BepaalParentDnaCode(..DnaCode2, ..BatchStub)
 	
 	Do $$$AssertEquals(ParentDnaCode1, ..DnaCode1.DnaCode)
 	Do $$$AssertEquals(ParentDnaCode2, ..DnaCode2.DnaCode)
@@ -78,8 +108,8 @@
 	#dim ParentDnaCode2 As %String
 
 	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New()
-	Set ParentDnaCode1 = DnaCodeServiceHelper.BepaalParentDnaCode(..DnaCode4, ..Batch)
-	Set ParentDnaCode2 = DnaCodeServiceHelper.BepaalParentDnaCode(..DnaCode3, ..Batch)
+	Set ParentDnaCode1 = DnaCodeServiceHelper.BepaalParentDnaCode(..DnaCode4, ..BatchStub)
+	Set ParentDnaCode2 = DnaCodeServiceHelper.BepaalParentDnaCode(..DnaCode3, ..BatchStub)
 	
 	Do $$$AssertEquals(ParentDnaCode1, "")
 	Do $$$AssertEquals(ParentDnaCode2, "")
@@ -90,10 +120,10 @@
 <Implementation><![CDATA[
 	#dim ParentDnaCode As %String
 	
-	Do ..Batch.IndienMethodCall("GeefProductieGroep").DanReturn(##class(APPS.Halux.common.enu.ProductieGroep).Kast())
+	Do ..BatchStub.IndienMethodCall("GeefProductieGroep").DanReturn(##class(APPS.Halux.common.enu.ProductieGroep).Kast())
 	
 	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New()
-	Set ParentDnaCode = DnaCodeServiceHelper.BepaalParentDnaCode(..DnaCode4, ..Batch)
+	Set ParentDnaCode = DnaCodeServiceHelper.BepaalParentDnaCode(..DnaCode4, ..BatchStub)
 	
 	Do $$$AssertEquals(ParentDnaCode, ..DnaCode4.DnaCode)
 ]]></Implementation>
@@ -116,7 +146,7 @@
 	Do ConfiguratorServiceStub.IndienMethodCall("GeefOnverwerkteKenmerkenVanProduct", $$$ElkeWaarde).DanReturn(IngegevenKenmerken)
 
 	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New(,,, ProductApiStub, ConfiguratorServiceStub)
-	Set ParentDnaCode = DnaCodeServiceHelper.BepaalParentDnaCode(..DnaCode5, ..Batch)
+	Set ParentDnaCode = DnaCodeServiceHelper.BepaalParentDnaCode(..DnaCode5, ..BatchStub)
 	
 	Do $$$AssertEquals(ParentDnaCode, ..DnaCode5.DnaCode)
 ]]></Implementation>