Index: APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml
===================================================================
diff -u -r66814 -r66816
--- APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml	(.../DnaCodeServiceHelper.cls.xml)	(revision 66814)
+++ APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml	(.../DnaCodeServiceHelper.cls.xml)	(revision 66816)
@@ -55,16 +55,11 @@
 	#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(ProductID)
 	
 	If (Product.%Extends("DOM.PM.MaatwerkProduct")) {
-		
-		If ..ProductTypeAPI.IsAntislipmatProduct(ProductID) {
-			Do ..MaakEnBewaarExtraDnaCodeVoorMat(ToeleveringLijn, Batch)
-		} ElseIf ..IngegevenKenmerkenSpaceStepHelper.IsSpaceStep(Product.GeefIngegevenKenmerken()) {
-			Do ..MaakEnBewaarExtraDnaCodeVoorSpaceStep(ToeleveringLijn, Batch)
-		}
-
 		Set DnaCode.LadeCode = ..ProductApi.GeefProduct(ProductID).GeefDottedDossierCode()
+		
+		Do ..MaakEnBewaarExtraDnaCodesIndienNodig(ToeleveringLijn, Batch)
 	}
-
+	
 	Quit DnaCode
 ]]></Implementation>
 </Method>
@@ -107,6 +102,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakEnBewaarExtraDnaCodesIndienNodig">
+<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ProductID As %String = ToeleveringLijn.GeefProductID()
+	#dim Toelevering As DOM.AKP.Toelevering= ToeleveringLijn.GeefToelevering()
+	#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(ProductID)
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken()
+
+	If (..ProductTypeAPI.IsAntislipmatProduct(ProductID))
+		&& (IngegevenKenmerken.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SpoelbakLade())
+		&& ((IngegevenKenmerken.LadeType = "LBX") || (IngegevenKenmerken.LadeType = "TBX")) {
+		Do ..MaakEnBewaarExtraDnaCodeVoorMat(ToeleveringLijn, Batch)
+	}
+	ElseIf ..IngegevenKenmerkenSpaceStepHelper.IsSpaceStep(IngegevenKenmerken) {
+		Do ..MaakEnBewaarExtraDnaCodeVoorSpaceStep(ToeleveringLijn, Batch)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="MaakEnBewaarExtraDnaCodeVoorSpaceStep">
 <FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
 <Private>1</Private>
@@ -128,7 +143,6 @@
 	}
 	
 	Set DnaCode.LadeCode = ..ProductApi.GeefProduct(ProductID).GeefDottedDossierCode()
-
 	Do ..DnaCodeRepository.Bewaar(DnaCode)
 ]]></Implementation>
 </Method>
@@ -140,18 +154,15 @@
 	#dim ProductID As %String = ToeleveringLijn.GeefProductID()
 	#dim ProductIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..ProductApi.GeefProduct(ProductID).GeefIngegevenKenmerken()
 	#dim Toelevering As DOM.AKP.Toelevering = ToeleveringLijn.GeefToelevering()
-	#dim DnaCode As DOM.Halux.AAP.DnaCode
+	#dim DnaCode As DOM.Halux.AAP.DnaCode = ..MaakGeneriekeDnaCodeVoorToeleveringLijn(ToeleveringLijn, Batch)
 	
-	If ((ProductIngegevenKenmerken.LadeType = "LBX") || (ProductIngegevenKenmerken.LadeType = "TBX")) {
-		If ProductIngegevenKenmerken.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SpoelbakLade() {
-			Set DnaCode = ..MaakGeneriekeDnaCodeVoorToeleveringLijn(ToeleveringLijn, Batch)
-			Do ..DnaCodeRepository.Bewaar(DnaCode)
-		
-			If ProductIngegevenKenmerken.LadeType = "TBX" {
-				Set DnaCode = ..MaakGeneriekeDnaCodeVoorToeleveringLijn(ToeleveringLijn, Batch)
-				Do ..DnaCodeRepository.Bewaar(DnaCode)
-			}
-		}
+	Set DnaCode.LadeCode = ..ProductApi.GeefProduct(ProductID).GeefDottedDossierCode()
+	Do ..DnaCodeRepository.Bewaar(DnaCode)
+	
+	If ProductIngegevenKenmerken.LadeType = "TBX" {
+		Set DnaCode = ..MaakGeneriekeDnaCodeVoorToeleveringLijn(ToeleveringLijn, Batch)
+		Set DnaCode.LadeCode = ..ProductApi.GeefProduct(ProductID).GeefDottedDossierCode()
+		Do ..DnaCodeRepository.Bewaar(DnaCode)
 	}
 ]]></Implementation>
 </Method>