Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper/MaakDnaCodeVoorToeleveringLijn/Test.cls.xml
===================================================================
diff -u -r66817 -r66818
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper/MaakDnaCodeVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 66817)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper/MaakDnaCodeVoorToeleveringLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 66818)
@@ -103,7 +103,7 @@
 <Implementation><![CDATA[
 	#dim DnaCode As DOM.Halux.AAP.DnaCode = ""
 	
-	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New(..DnaCodeGeneratorStub,, ..ProductTypeApiStub, ..ProductApiLadeStub,, ..IngegevenKenmerkenSpaceStepHelperStub)
+	Set DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New(..DnaCodeGeneratorStub,, ..ProductTypeApiStub, ..ProductApiLadeStub,,)
 	Set DnaCode = DnaCodeServiceHelper.MaakDnaCodeVoorToeleveringLijn(..ToeleveringLijn, ..Batch)
 
 	Do $$$AssertEquals(DnaCode.DnaCode, "LAAAAA3")
@@ -173,7 +173,7 @@
 	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 DnaCodeServiceHelper = ##class(APPS.Halux.AAP.DnaCodeService.DnaCodeServiceHelper).%New(, DnaCodeRepositoryMock, ..ProductTypeApiStub, ..ProductApiMatStub,,)
 	Set DnaCode = DnaCodeServiceHelper.MaakDnaCodeVoorToeleveringLijn(..ToeleveringLijn)
 	
 	Do $$$AssertEquals(DnaCode.ProductNummer, 123456)
@@ -233,6 +233,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Mat voor SifonLade 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 = "TBX"
+	Set ..IngegevenKenmerkenMatStub.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.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[