Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper/MaakDnaCodeVoorToeleveringLijn/Test.cls.xml
===================================================================
diff -u -r66807 -r66813
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper/MaakDnaCodeVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 66807)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper/MaakDnaCodeVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 66813)
@@ -11,10 +11,14 @@
 <Type>APPS.Halux.AAP.DnaCodeGenerator</Type>
 </Property>
 
-<Property name="IngegevenKenmerkenStub">
+<Property name="IngegevenKenmerkenLadeStub">
 <Type>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</Type>
 </Property>
 
+<Property name="IngegevenKenmerkenMatStub">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</Type>
+</Property>
+
 <Property name="IngegevenKenmerkenSpaceStepHelperStub">
 <Type>DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper</Type>
 </Property>
@@ -23,10 +27,14 @@
 <Type>APPS.Halux.common.enu.ProductieLijn</Type>
 </Property>
 
-<Property name="ProductApiStub">
+<Property name="ProductApiLadeStub">
 <Type>DOM.PM.ProductAPI</Type>
 </Property>
 
+<Property name="ProductApiMatStub">
+<Type>DOM.PM.ProductAPI</Type>
+</Property>
+
 <Property name="ProductTypeApiStub">
 <Type>DOM.PM.impl.ProductTypeAPIimpl</Type>
 </Property>
@@ -35,51 +43,67 @@
 <Type>DOM.AKP.ProductToeleveringLijn</Type>
 </Property>
 
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
+<Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
-	Do ##super(aTestName)
+	Do ##super()
 	
-	Set ..IngegevenKenmerkenStub = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).DummyLade()
+	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 ..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")
 	
-	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)
-	
-	Set ..ProductApiStub = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
-	Set ProductStub = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
-	Do ProductStub.IndienMethodCall("GeefDottedDossierCode").DanReturn("A.BC.DE.F")
-	Do ProductStub.IndienMethodCall("GeefID").DanReturn(123456)
-	Do ProductStub.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(..IngegevenKenmerkenStub)
-	Do ..ProductApiStub.IndienMethodCall("GeefProduct",123456).DanReturn(ProductStub)
-	
 	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)
 	
+	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)
+	
+	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)
+	
 	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("GeefLijn").DanReturn(..LijnId)
 	Do ..Batch.IndienMethodCall("GeefIsWegwerpPallet",1).DanReturn($$$True)
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<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",..IngegevenKenmerkenStub).DanReturn($$$False)
+	Do ..IngegevenKenmerkenSpaceStepHelperStub.IndienMethodCall("IsSpaceStep",..IngegevenKenmerkenLadeStub).DanReturn($$$False)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: DnaCode wordt aangemaakt en bevat info van ToeleveringLijn">
 <Implementation><![CDATA[
 	#dim DnaCode As DOM.Halux.AAP.DnaCode = ""
 	
-	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New(..DnaCodeGeneratorStub,, ..ProductTypeApiStub, ..ProductApiStub,, ..IngegevenKenmerkenSpaceStepHelperStub)
+	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New(..DnaCodeGeneratorStub,, ..ProductTypeApiStub, ..ProductApiLadeStub,, ..IngegevenKenmerkenSpaceStepHelperStub)
 	Set DnaCode = DnaCodeServiceHelper.MaakDnaCodeVoorToeleveringLijn(..ToeleveringLijn, ..Batch)
 
 	Do $$$AssertEquals(DnaCode.DnaCode, "LAAAAA3")
@@ -101,9 +125,9 @@
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(1)
 	
-	Do ..IngegevenKenmerkenSpaceStepHelperStub.IndienMethodCall("IsSpaceStep",..IngegevenKenmerkenStub).DanReturn($$$True)
+	Do ..IngegevenKenmerkenSpaceStepHelperStub.IndienMethodCall("IsSpaceStep",..IngegevenKenmerkenLadeStub).DanReturn($$$True)
 	
-	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New(, DnaCodeRepositoryMock, ..ProductTypeApiStub, ..ProductApiStub,, ..IngegevenKenmerkenSpaceStepHelperStub)
+	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New(, DnaCodeRepositoryMock, ..ProductTypeApiStub, ..ProductApiLadeStub,, ..IngegevenKenmerkenSpaceStepHelperStub)
 	Set DnaCode = DnaCodeServiceHelper.MaakDnaCodeVoorToeleveringLijn(..ToeleveringLijn)
 	
 	Do $$$AssertEquals(DnaCode.ProductNummer, 123456)
@@ -123,11 +147,11 @@
 	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",..IngegevenKenmerkenStub).DanReturn($$$True)
+	Do ..IngegevenKenmerkenSpaceStepHelperStub.IndienMethodCall("IsSpaceStep",..IngegevenKenmerkenLadeStub).DanReturn($$$True)
 	
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.UnimplementedException, Substrings))
 	
-	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New(,, ..ProductTypeApiStub, ..ProductApiStub,, ..IngegevenKenmerkenSpaceStepHelperStub)
+	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New(,, ..ProductTypeApiStub, ..ProductApiLadeStub,, ..IngegevenKenmerkenSpaceStepHelperStub)
 	Set DnaCode = DnaCodeServiceHelper.MaakDnaCodeVoorToeleveringLijn(..ToeleveringLijn)
 	
 	Do $$$AssertEquals(DnaCode.ProductNummer, 123456)
@@ -136,6 +160,41 @@
 	Do $$$AssertEquals(DnaCode.OrderlijnId, 100)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Mat voor spoelbaklade TBX maakt 2 extra DnaCodes">
+<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(2)
+	
+	Set ..IngegevenKenmerkenMatStub.LadeType = "TBX"
+	Set ..IngegevenKenmerkenMatStub.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SpoelbakLade()
+	
+	Do ..ZetAlleGegevensNaarMatKenmerken()
+
+	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.ToeleveringLijn, ..ToeleveringLijn.GeefID())
+	Do $$$AssertEquals(DnaCode.OrderId, 1000)
+	Do $$$AssertEquals(DnaCode.OrderlijnId, 100)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="ZetAlleGegevensNaarMatKenmerken">
+<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("IsTAORboxProduct", 123456).DanReturn($$$False)
+	Do ..ProductTypeApiStub.IndienMethodCall("IsAntislipmatProduct", $$$ElkeWaarde).DanReturn($$$True)
+]]></Implementation>
+</Method>
 </Class>