Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r71890 -r71958
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 71890)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 71958)
@@ -227,15 +227,37 @@
 </Method>
 
 <Method name="VulInSequentieId">
-<FormalSpec>SequentieId:%String,BatchId:%String,ToeleveringId:%String,ToeleveringlijnId:%String</FormalSpec>
+<FormalSpec>SequentieId:%String,BatchId:%String,ToeleveringId:%String,ToeleveringlijnId:%String,ProductId:%String=""</FormalSpec>
 <Implementation><![CDATA[
 	Try {
 		Do ..Logger.Info("APPS.Halux.AAP.DnaCodeService", "VulInSequentieId voor "_SequentieId_ "/" _BatchId_" / "_ToeleveringId_" / "_ToeleveringlijnId_".")
-		#dim DnaCodeIterator = ..DnaCodeRepository.ZoekVolgendeMetLeegSequentieItem(BatchId, ToeleveringId, ToeleveringlijnId)
+		#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekVolgendeMetLeegSequentieItem(BatchId, ToeleveringId, ToeleveringlijnId)
+		
 		If DnaCodeIterator.HasNext() {
 			#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
 			Set DnaCode.SequentieNummer = SequentieId
 			Do ..DnaCodeRepository.Bewaar(DnaCode)
+			
+			#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(ProductId)
+			If (DnaCodeIterator.HasNext() && (Product.%Extends("DOM.PM.MaatwerkProduct"))) {
+				#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken()
+				
+				If (..IngegevenKenmerkenSpaceStepHelper.IsSpaceStep(IngegevenKenmerken)) {
+					#dim Gevonden As %Boolean = $$$False
+					#dim VolgendeDnaCode As DOM.Halux.AAP.DnaCode = ""
+			
+					While (DnaCodeIterator.HasNext() && $$$Not(Gevonden)) {
+						Set VolgendeDnaCode = DnaCodeIterator.Next()
+						
+						If ($$$Not(##class(TECH.StringUtils).StartsWith(VolgendeDnaCode.DnaCode, $Extract(DnaCode.DnaCode, 1)))) {
+							Set VolgendeDnaCode.SequentieNummer = SequentieId
+							Do ..DnaCodeRepository.Bewaar(VolgendeDnaCode)
+							Set Gevonden = $$$True
+						}
+					}					
+				}
+			}
+			
 		}
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()