Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r66821 -r66822
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 66821)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 66822)
@@ -185,46 +185,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MaakEnBewaarExtraDnaCodeVoorSpaceStep">
-<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()
-	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
-	If ..ProductTypeAPI.IsLegraboxProduct(ProductID) {
-		Set DnaCode.ProductNummer = ##class(DOM.PM.Maatwerk.enu.GenerischProductID).LBXSSTV1()
-	}
-	ElseIf ..ProductTypeAPI.IsTandemboxProduct(ProductID) {
-		Set DnaCode.ProductNummer = ##class(DOM.PM.Maatwerk.enu.GenerischProductID).TBXSSTV1()
-	}
-	ElseIf ..ProductTypeAPI.IsTAORboxProduct(ProductID) {
-		Set DnaCode.ProductNummer = ##class(DOM.PM.Maatwerk.enu.GenerischProductID).TAORSSTV1()
-	} Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("SpaceStep voor MVX genereert nog geen DnaCodes!"))
-	}
-	Set DnaCode.DnaCode = ..DnaCodeGenerator.GenereerDnaCode("O")
-	Set DnaCode.Toelevering = Toelevering.GeefID()
-	Set DnaCode.KlantNummer = Toelevering.GeefKlantID()
-	Set DnaCode.ParentDnaCode = ""
-	Set DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
-	Set DnaCode.ToeleveringLijn = ToeleveringLijn.GeefID()
-	Set DnaCode.OrderId = ToeleveringLijn.GeefOrderID()
-	Set DnaCode.OrderlijnId = ToeleveringLijn.GeefOrderLijnID()
-	Set DnaCode.AanmaakTijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
-	#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(ProductID)
-	Set DnaCode.LadeCode = ..ProductAPI.GeefProduct(ProductID).GeefDottedDossierCode()
-
-	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()
-	}
-	Do ..DnaCodeRepository.Bewaar(DnaCode)
-]]></Implementation>
-</Method>
-
 <Method name="BepaalParentDnaCode">
 <FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,Batch:APPS.Halux.common.impl.BatchImpl=""</FormalSpec>
 <Private>1</Private>