Index: APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml
===================================================================
diff -u -r66811 -r66814
--- APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml	(.../DnaCodeServiceHelper.cls.xml)	(revision 66811)
+++ APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml	(.../DnaCodeServiceHelper.cls.xml)	(revision 66814)
@@ -56,7 +56,6 @@
 	
 	If (Product.%Extends("DOM.PM.MaatwerkProduct")) {
 		
-		Do ##class(Tools.Wlip).%New(252).String(..ProductTypeAPI.GeefProductTypePrefix(ProductID))
 		If ..ProductTypeAPI.IsAntislipmatProduct(ProductID) {
 			Do ..MaakEnBewaarExtraDnaCodeVoorMat(ToeleveringLijn, Batch)
 		} ElseIf ..IngegevenKenmerkenSpaceStepHelper.IsSpaceStep(Product.GeefIngegevenKenmerken()) {
@@ -100,7 +99,6 @@
 <Implementation><![CDATA[
 	#dim ParentDnaCode As %String = ""
 	
-	Do ##class(Tools.Wlip).%New(252).String(DnaCode.DnaCode)
 	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"O","G","M") || (Batch.GeefProductieGroep()=##class(APPS.Halux.common.enu.ProductieGroep).Kast())|| (Batch.GeefProductieGroep()=##class(APPS.Halux.common.enu.ProductieGroep).LosseComponenten() || (..IsTaorLosseComponentenVerpakking(DnaCode))) {
 		Set ParentDnaCode = DnaCode.DnaCode
 	}
@@ -144,14 +142,15 @@
 	#dim Toelevering As DOM.AKP.Toelevering = ToeleveringLijn.GeefToelevering()
 	#dim DnaCode As DOM.Halux.AAP.DnaCode
 	
-	
-	If ProductIngegevenKenmerken.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SpoelbakLade() {
-		Set DnaCode = ..MaakGeneriekeDnaCodeVoorToeleveringLijn(ToeleveringLijn, Batch)
-		Do ..DnaCodeRepository.Bewaar(DnaCode)
-		
-		If ProductIngegevenKenmerken.LadeType = "TBX" {
+	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)
+			}
 		}
 	}
 ]]></Implementation>