Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper/MaakDnaCodeVoorToeleveringLijn/Test.cls.xml
===================================================================
diff -u -r66813 -r66815
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper/MaakDnaCodeVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 66813)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper/MaakDnaCodeVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 66815)
@@ -168,11 +168,59 @@
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(2)
 	
+	Do ..ZetAlleGegevensNaarMatKenmerken()
+	
 	Set ..IngegevenKenmerkenMatStub.LadeType = "TBX"
 	Set ..IngegevenKenmerkenMatStub.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.ToeleveringLijn, ..ToeleveringLijn.GeefID())
+	Do $$$AssertEquals(DnaCode.OrderId, 1000)
+	Do $$$AssertEquals(DnaCode.OrderlijnId, 100)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Mat voor spoelbaklade LBX maakt 1 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 ..ZetAlleGegevensNaarMatKenmerken()
+	
+	Set ..IngegevenKenmerkenMatStub.LadeType = "LBX"
+	Set ..IngegevenKenmerkenMatStub.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.ToeleveringLijn, ..ToeleveringLijn.GeefID())
+	Do $$$AssertEquals(DnaCode.OrderId, 1000)
+	Do $$$AssertEquals(DnaCode.OrderlijnId, 100)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
 
+<Method name="Test: Mat voor spoelbaklade MVX maakt geen 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(0)
+	
+	Do ..ZetAlleGegevensNaarMatKenmerken()
+	
+	Set ..IngegevenKenmerkenMatStub.LadeType = "MVX"
+	Set ..IngegevenKenmerkenMatStub.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)
 	
@@ -191,6 +239,7 @@
 	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("IsAntislipmatProduct", $$$ElkeWaarde).DanReturn($$$True)
 ]]></Implementation>