Index: APPS/Halux/Planning/impl/BatchService.cls.xml
===================================================================
diff -u -r54300 -r75115
--- APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 54300)
+++ APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 75115)
@@ -4,25 +4,42 @@
 <IncludeCode>%occIO</IncludeCode>
 <Super>TECH.RegisteredObject,APPS.Halux.Planning.BatchService</Super>
 
+<Property name="ProductieService">
+<Type>APPS.Halux.common.ProductieService</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="BatchService">
 <Type>APPS.Halux.common.BatchService</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="ProductieService">
-<Type>APPS.Halux.common.ProductieService</Type>
+<Property name="ToeleveringAPI">
+<Type>DOM.AKP.ToeleveringAPI</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="MaatwerkBatchBuilderFactory">
+<Type>APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilderFactory</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductTypeAPI">
+<Type>DOM.PM.impl.ProductTypeAPIimpl</Type>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ProductieService:APPS.Halux.common.ProductieService=""</FormalSpec>
+<FormalSpec>ProductieService:APPS.Halux.common.ProductieService="",BatchService:APPS.Halux.common.BatchService,ToeleveringAPI:DOM.AKP.ToeleveringAPI,MaatwerkBatchBuilderFactory:APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilderFactory,ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..BatchService = ##class(APPS.Halux.common.impl.BatchService).%New()
-	set ..ProductieService = $$$Implementation(ProductieService, ##class(APPS.Halux.common.ProductieService).%New())
+	Set ..BatchService = $$$Inject(BatchService, ##class(APPS.Halux.common.impl.BatchService).%New())
+	Set ..ProductieService = $$$Inject(ProductieService, ##class(APPS.Halux.common.ProductieService).%New())
+	Set ..ToeleveringAPI = $$$Inject(ToeleveringAPI, ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
+	Set ..MaatwerkBatchBuilderFactory = $$$Inject(MaatwerkBatchBuilderFactory, ##class(APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilderFactory).%New())
+	Set ..ProductTypeAPI = $$$Inject(ProductTypeAPI, ##class(DOM.PM.impl.ProductTypeAPIimpl).%New())
 	
 	quit $$$OK
 ]]></Implementation>
@@ -49,7 +66,6 @@
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.Planning.dto.MaatwerkBatch"</ReturnTypeParams>
 <Implementation><![CDATA[
 	#dim MaatwerkBatches As %ListOfObjects = ##class(%ListOfObjects).%New()
-	#dim VoorbereidingService As APPS.Halux.Voorbereiding.VoorbereidingService = ##class(APPS.Halux.Voorbereiding.VoorbereidingService).%New()
 	#dim BatchIterator As TECH.Iterator = ..BatchService.GeefBatchesGeplandOpIterator(Datum)
 	
 	while (BatchIterator.HasNext()) {
@@ -108,29 +124,29 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.Planning.dto.Toelevering"</ReturnTypeParams>
 <Implementation><![CDATA[
-	#dim Toeleveringen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim ToeleveringenNietInBatch As %ListOfObjects = ##class(%ListOfObjects).%New()
 	#dim Builder As APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilder = ..GeefMaatwerkBatchBuilder(Categorie)
 	#dim VolgNr As %Integer = 1
 	#dim LeverancierHalux As DOM.AKP.Leverancier = ##class(DOM.DomeinContext).Instance().GeefAankoopAPI().GeefLeverancier(##class(DOM.AKP.enu.Leverancier).Halux())
 	#dim ToeleveringIterator As TECH.Iterator = LeverancierHalux.GeefToeleveringIterator()
 	
-	while (ToeleveringIterator.HasNext()) {
+	While (ToeleveringIterator.HasNext()) {
 		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
 		#dim GeplandOpDatum As %Date = ..GeefGeplandOpDatum(Toelevering.GeefID())
 		
 		If (GeplandOpDatum = Datum) {
 			#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBijhorendeBatch(Toelevering)
 
-			if ($$$Not($IsObject(Batch))) && ((..ProductieService.GeefCategorieVoorToelevering(Toelevering) = Categorie)) {
+			If ($$$Not($IsObject(Batch))) && ((..ProductieService.GeefCategorieVoorToelevering(Toelevering) = Categorie)) {
 				#dim dtoToelevering As APPS.Halux.Planning.dto.Toelevering = Builder.GeefToelevering(Toelevering)
-				set dtoToelevering.Volgnummer = VolgNr
-				do Toeleveringen.Insert(dtoToelevering)
-				set VolgNr = VolgNr + 1
+				Set dtoToelevering.Volgnummer = VolgNr
+				Do ToeleveringenNietInBatch.Insert(dtoToelevering)
+				Set VolgNr = VolgNr + 1
 			}
 		}
 	}
 	
-	quit Toeleveringen
+	Quit ToeleveringenNietInBatch
 ]]></Implementation>
 </Method>
 
@@ -141,14 +157,13 @@
 	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(BatchID)
 	#dim MaatwerkBatch As APPS.Halux.Planning.dto.MaatwerkBatch = ..GeefMaatwerkBatch(Batch)
 	#dim GewijzigdeBatches As %ArrayOfObjects = ##class(%ArrayOfObjects).%New()
-	#dim ToeleveringAPI As DOM.AKP.ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
 	#dim ToeleveringIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Toeleveringen)
 	#dim VerplaatsResultaat As APPS.Halux.Planning.dto.VerplaatsResultaat = ##class(APPS.Halux.Planning.dto.VerplaatsResultaat).%New()
 	
 	set VerplaatsResultaat.BatchOverzicht = ##class(APPS.Halux.Planning.dto.BatchOverzicht).%New()
 	
 	while (ToeleveringIterator.HasNext()) {
-		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringIterator.Next())
+		#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringIterator.Next())
 		#dim VerplaatsProblemen As list of %String = ..ControleerToeleveringVoorVerplaatsing(Toelevering, MaatwerkBatch)
 		
 		do ##class(TECH.ListUtils).CopyListOfDataTypes(VerplaatsProblemen, VerplaatsResultaat.VerplaatsRapport)
@@ -207,8 +222,21 @@
 		#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product()).Next()
 		#dim ProductieGroep As APPS.Halux.common.enu.ProductieGroep = ..ProductieService.GeefProductieGroep(Toelevering.GeefKlantID(), ProductLijn.GeefProductID())
 		#dim ProductieLijnBepaler As APPS.Halux.Planning.impl.ProductieLijnBepaler = ##class(APPS.Halux.Planning.impl.ProductieLijnBepaler).%New()
+		#dim ProductieLijnBepalerOBJTMES As APPS.Halux.Planning.impl.ProductieLijnBepalerOBJTMES = ##class(APPS.Halux.Planning.impl.ProductieLijnBepalerOBJTMES).%New()
 		
-		set Lijn = ProductieLijnBepaler.BepaalLijn(Categorie, ProductieGroep)
+		#dim MesFaseActief As %Integer = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase")
+		#dim CategorTLM As %Boolean = ((..ProductTypeAPI.IsLegraboxProduct(ProductLijn.GeefProductID()) || ..ProductTypeAPI.IsMerivoboxProduct(ProductLijn.GeefProductID()) || ..ProductTypeAPI.IsTandemboxProduct(ProductLijn.GeefProductID())))
+		
+		Set IsProductieWijzeVolledigBepaler = ##class(DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI.IsProductieWijzeVolledigBepaler).%New()
+		#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ..ProductTypeAPI.GeefMaatwerkProduct(ProductLijn.GeefProductID())
+		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = MaatwerkProduct.GeefIngegevenKenmerken()
+		#dim HeeftProductiewijzeVolledig As %Boolean = IsProductieWijzeVolledigBepaler.IsProductieWijzeVolledig(IngegevenKenmerken)
+		
+		If ((MesFaseActief > 1) && CategorTLM){
+			set Lijn = ProductieLijnBepalerOBJTMES.BepaalLijn(Categorie, ProductieGroep, Toelevering.GeefKlantID(), HeeftProductiewijzeVolledig)
+		} Else {
+			set Lijn = ProductieLijnBepaler.BepaalLijn(Categorie, ProductieGroep)
+		}
 	}
 
 	quit Lijn
@@ -245,6 +273,10 @@
 		do VerplaatsProblemen.Insert("De toelevering wordt verplaatst vanuit een batch die reeds is gestart")
 	}
 	
+	if (($IsObject(BronBatch)) && (BronBatch.GeefStatus() = ##class(APPS.Halux.common.enu.BatchStatus).BezigMetStarten())) {
+		do VerplaatsProblemen.Insert("De toelevering wordt verplaatst vanuit een batch die bezig is met starten")
+	}
+	
 	if (MaatwerkBatch.Status = ##class(APPS.Halux.common.enu.BatchStatus).Gestart()) {
 		do VerplaatsProblemen.Insert("De batch is reeds gestart")
 	}
@@ -283,6 +315,14 @@
 		do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Twee())
 		do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Drie())
 		do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).B())
+		
+		do:(##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefLijn5()) Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Vijf())
+	} elseif (Categorie = ##class(APPS.Halux.common.enu.Categorie).Merivobox()) {
+		do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Vier())
+		
+		do:(##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefLijn5()) Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Vijf())
+	} elseif (Categorie = ##class(APPS.Halux.common.enu.Categorie).Revego()) {
+		do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).SpecialWorkshop())
 	} else{
 		do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Een())
 	}
@@ -317,13 +357,21 @@
 </Method>
 
 <Method name="ZoekToelevering">
-<FormalSpec>ToeleveringID:%String</FormalSpec>
+<FormalSpec>ToeleveringID:%String,MagOnbestaandeToeleveringOpkuisen:%Boolean=1</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.ZoekToeleveringResultaat</ReturnType>
 <Implementation><![CDATA[
 	#dim Resultaat As APPS.Halux.Planning.dto.ZoekToeleveringResultaat = ##class(APPS.Halux.Planning.dto.ZoekToeleveringResultaat).%New()
 
+	If MagOnbestaandeToeleveringOpkuisen && ($$$Not(..ToeleveringAPI.BestaatToelevering(ToeleveringID))) {
+		#dim BatchToFix As APPS.Halux.common.Batch = ..BatchService.GeefBijhorendeBatchViaID(ToeleveringID)
+		If $IsObject(BatchToFix) {
+			Do BatchToFix.WisOnbestaandeToeleveringen()
+			Do ##class(TECH.Exceptions.InvalidUserInputException).Throw( "Toelevering "_ToeleveringID_" bestaat niet. Werd gewist uit Batch '"_ BatchToFix.GeefID()_"' - "_BatchToFix.GeefCategorie()_" "_$$FormatDateTime^vhLib("dd/mm/yyyy",BatchToFix.GeefGeplandOp()) )
+		}
+	}
+	
 	try {
-		#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringID)
+		#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringID)
 	} catch {
 		do ##class(TECH.ExceptionHandler).CatchAndRethrowAsInvalidUserInputException("TECH.Exceptions.InvalidInputException")
 	}
@@ -391,7 +439,7 @@
 <Private>1</Private>
 <ReturnType>%Date</ReturnType>
 <Implementation><![CDATA[
-	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringID)
+	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringID)
 	#dim GeplandOpDatum As %Date = ##class(TECH.DateTime).HorologToDate(Toelevering.GeefDueOutTime())
 	
 	if (##class(APPS.Halux.Planning.impl.ToeleveringInfo).%ExistsId(ToeleveringID)) {
@@ -412,34 +460,34 @@
 	#dim MaatwerkBatches As array of APPS.Halux.Planning.dto.TandemboxBatch = ##class(%ArrayOfObjects).%New()
 	#dim ToeleveringIterator As TECH.Iterator = ##class(DOM.DomeinContext).Instance().GeefAankoopAPI().GeefLeverancier(##class(DOM.AKP.enu.Leverancier).Halux()).GeefToeleveringIterator()
 	
-	while (ToeleveringIterator.HasNext()) {
+	While (ToeleveringIterator.HasNext()) {
 		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
 		
-		try	{
+		Try	{
 			#dim GeplandOpDatum As %Date = ..GeefGeplandOpDatum(Toelevering.GeefID())
 			
-			if ((GeplandOpDatum = Datum) && $$$Not($IsObject(..BatchService.GeefBijhorendeBatch(Toelevering)))) {
+			If ((GeplandOpDatum = Datum) && $$$Not($IsObject(..BatchService.GeefBijhorendeBatch(Toelevering)))) {
 				#dim Categorie As APPS.Halux.common.enu.Categorie = ..ProductieService.GeefCategorieVoorToelevering(Toelevering)
 				#dim Builder As APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilder = ..GeefMaatwerkBatchBuilder(Categorie)
 				
-				if $$$Not(MaatwerkBatches.IsDefined(Categorie)) {
+				If $$$Not(MaatwerkBatches.IsDefined(Categorie)) {
 					#dim MaatwerkBatch As APPS.Halux.Planning.dto.MaatwerkBatch = Builder.GeefNieuweMaatwerkBatchDto()
 					
-					set MaatwerkBatch.Datum = Datum
-					set MaatwerkBatch.HeeftAandachtNodig = 0
-					set MaatwerkBatch.Status = ##class(APPS.Halux.common.enu.BatchStatus).Auto()
-					set MaatwerkBatch.IsASAP = 0
-					set MaatwerkBatch.Categorie = Categorie
+					Set MaatwerkBatch.Datum = Datum
+					Set MaatwerkBatch.HeeftAandachtNodig = 0
+					Set MaatwerkBatch.Status = ##class(APPS.Halux.common.enu.BatchStatus).Auto()
+					Set MaatwerkBatch.IsASAP = 0
+					Set MaatwerkBatch.Categorie = Categorie
 					
-					do MaatwerkBatches.SetAt(MaatwerkBatch, Categorie)
-				} else {
-					set MaatwerkBatch = MaatwerkBatches.GetAt(Categorie)
+					Do MaatwerkBatches.SetAt(MaatwerkBatch, Categorie)
+				} Else {
+					Set MaatwerkBatch = MaatwerkBatches.GetAt(Categorie)
 				}
 				
-				do Builder.AggregeerToeleveringInBatch(Toelevering, MaatwerkBatch)
+				Do Builder.AggregeerToeleveringInBatch(Toelevering, MaatwerkBatch)
 			}
 		} catch	{
-			do ##class(vhLib.Logger).%New().LogEnMailExceptie(##class(TECH.ExceptionHandler).Catch())
+			Do ##class(vhLib.Logger).%New().LogEnMailExceptie(##class(TECH.ExceptionHandler).Catch())
 		}
 	}
 	
@@ -644,23 +692,7 @@
 <FormalSpec>Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilder</ReturnType>
-<Implementation><![CDATA[
-	#dim Builder As APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilder
-	
-	if (Categorie = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) {
-		set Builder = ##class(APPS.Halux.Planning.impl.BatchService.TBXMaatwerkBatchBuilder).%New()
-	} elseif (Categorie = ##class(APPS.Halux.common.enu.Categorie).Kaderdeur())	{
-		set Builder = ##class(APPS.Halux.Planning.impl.BatchService.KADMaatwerkBatchBuilder).%New()
-	} elseif (Categorie = ##class(APPS.Halux.common.enu.Categorie).Legrabox()) {
-		set Builder = ##class(APPS.Halux.Planning.impl.BatchService.LBXMaatwerkBatchBuilder).%New()
-	} elseif (Categorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
-		set Builder = ##class(APPS.Halux.Planning.impl.BatchService.TAXMaatwerkBatchBuilder).%New()
-	} else {
-		set Builder = ##class(APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilder).%New()
-		do Builder.ZetCategorie(Categorie)
-	}
-	
-	quit Builder
+<Implementation><![CDATA[	quit ..MaatwerkBatchBuilderFactory.GeefMaatwerkBatchBuilder(Categorie)
 ]]></Implementation>
 </Method>