Index: APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml
===================================================================
diff -u -r66795 -r66804
--- APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml	(.../DnaCodeServiceHelper.cls.xml)	(revision 66795)
+++ APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml	(.../DnaCodeServiceHelper.cls.xml)	(revision 66804)
@@ -89,7 +89,7 @@
 <Implementation><![CDATA[
 	#dim ProductID As %String = ToeleveringLijn.GeefProductID()
 	#dim Toelevering As DOM.AKP.Toelevering = ToeleveringLijn.GeefToelevering()
-	#dim DnaCode As DOM.Halux.AAP.DnaCode = ..MaakGeneriekeDnaCodeVoorToeleveringLijn(ToeleveringLijn, Batch)
+	#dim DnaCode As DOM.Halux.AAP.DnaCode = ..MaakGeneriekeDnaCodeVoorToeleveringLijn(ToeleveringLijn, Batch, "O")
 
 	If ..ProductTypeAPI.IsLegraboxProduct(ProductID) {
 		Set DnaCode.ProductNummer = ##class(DOM.PM.Maatwerk.enu.GenerischProductID).LBXSSTV1()
@@ -102,13 +102,15 @@
 	} Else {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("SpaceStep voor MVX genereert nog geen DnaCodes!"))
 	}
+	
+	Set DnaCode.LadeCode = ..ProductApi.GeefProduct(ProductID).GeefDottedDossierCode()
 
 	Do ..DnaCodeRepository.Bewaar(DnaCode)
 ]]></Implementation>
 </Method>
 
 <Method name="MaakGeneriekeDnaCodeVoorToeleveringLijn">
-<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
+<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,Batch:APPS.Halux.common.impl.BatchImpl,DnaCodePrefix:%String=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.Halux.AAP.DnaCode</ReturnType>
 <Implementation><![CDATA[
@@ -117,8 +119,9 @@
 	
 	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
 	Set DnaCode.ProductNummer = ProductID
+	Set:(DnaCodePrefix = "") DnaCodePrefix = ..ProductTypeAPI.GeefProductTypePrefix(ProductID)
 
-	Set DnaCode.DnaCode = ..DnaCodeGenerator.GenereerDnaCode(..ProductTypeAPI.GeefProductTypePrefix(ProductID))
+	Set DnaCode.DnaCode = ..DnaCodeGenerator.GenereerDnaCode(DnaCodePrefix)
 	Set DnaCode.Toelevering = Toelevering.GeefID()
 	Set DnaCode.KlantNummer = Toelevering.GeefKlantID()
 	Set DnaCode.ParentDnaCode = ""
@@ -128,6 +131,13 @@
 	Set DnaCode.OrderlijnId = ToeleveringLijn.GeefOrderLijnID()
 	Set DnaCode.AanmaakTijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
 	
+	If $IsObject(Batch) {
+		Set DnaCode.BatchId = Batch.GeefID()
+		Set DnaCode.IsWegwerpPallet = Batch.GeefIsWegwerpPallet(Toelevering.GeefID())
+		Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()
+		Set DnaCode.Lijn = Batch.GeefLijn()
+	}
+	
 	Quit DnaCode
 ]]></Implementation>
 </Method>