Index: APPS/Halux/Planning/impl/BatchService.cls.xml
===================================================================
diff -u -r31170 -r31178
--- APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 31170)
+++ APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 31178)
@@ -32,12 +32,13 @@
 <FormalSpec>Datum:%Date</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.BatchOverzicht</ReturnType>
 <Implementation><![CDATA[
-	Set BatchOverzicht = ##class(APPS.Halux.Planning.dto.BatchOverzicht).%New()
-	Set BatchOverzicht.Datum = Datum
-	Set BatchOverzicht.NietGedefinieerdeBatches = ..GeefNietGedefinieerdeBatches(Datum)
-	Set BatchOverzicht.MaatwerkBatches = ..GeefMaatwerkBatchesVoorDag(Datum)
+	#dim BatchOverzicht = ##class(APPS.Halux.Planning.dto.BatchOverzicht).%New()
 	
-	Quit BatchOverzicht
+	set BatchOverzicht.Datum = Datum
+	set BatchOverzicht.NietGedefinieerdeBatches = ..GeefNietGedefinieerdeBatches(Datum)
+	set BatchOverzicht.MaatwerkBatches = ..GeefMaatwerkBatchesVoorDag(Datum)
+	
+	quit BatchOverzicht
 ]]></Implementation>
 </Method>
 
@@ -47,55 +48,58 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.Planning.dto.MaatwerkBatch"</ReturnTypeParams>
 <Implementation><![CDATA[
-	Set MaatwerkBatches = ##class(%ListOfObjects).%New()
-	Set VoorbereidingService = ##class(APPS.Halux.Voorbereiding.VoorbereidingService).%New()
-	
+	#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())
-	{
+	
+	while (BatchIterator.HasNext()) {
 		#dim Batch As APPS.Halux.common.Batch = BatchIterator.Next()
-		Try	{
-			Do MaatwerkBatches.Insert(..GeefMaatwerkBatch(Batch))
+		
+		try	{
+			do MaatwerkBatches.Insert(..GeefMaatwerkBatch(Batch))
+		} catch {
+			do ##class(vhLib.Logger).LogEnMailExceptie(##class(TECH.ExceptionHandler).Catch())
 		}
-		Catch {
-			Do ##class(vhLib.Logger).LogEnMailExceptie(##class(TECH.ExceptionHandler).Catch())
-		}
 	}
 	
-	Quit MaatwerkBatches
+	quit MaatwerkBatches
 ]]></Implementation>
 </Method>
 
 <Method name="GeefMaatwerkBatch">
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.MaatwerkBatch</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefMaatwerkBatchBuilder(Batch.GeefCategorie()).GeefMaatwerkBatch(Batch)
+<Implementation><![CDATA[	quit ..GeefMaatwerkBatchBuilder(Batch.GeefCategorie()).GeefMaatwerkBatch(Batch)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefToeleveringenInBatch">
 <FormalSpec>BatchID:%String</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.BatchToeleveringen</ReturnType>
 <Implementation><![CDATA[
-	Set BatchToeleveringen = ##class(APPS.Halux.Planning.dto.BatchToeleveringen).%New()
-	Set BatchToeleveringen.BatchID = BatchID	
-
 	#dim VolgNr As %Integer = 1
 	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(BatchID)
 	#dim Builder As APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilder = ..GeefMaatwerkBatchBuilder(Batch.GeefCategorie())
 	#dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
-	While (ToeleveringIterator.HasNext()) {
+	#dim BatchToeleveringen As APPS.Halux.Planning.dto.BatchToeleveringen = ##class(APPS.Halux.Planning.dto.BatchToeleveringen).%New()
+	
+	set BatchToeleveringen.BatchID = BatchID	
+	
+	while (ToeleveringIterator.HasNext()) {
 		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
 		#dim DueOut As %TimeStamp = ##class(TECH.DateTime).HorologToTimeStamp(Toelevering.GeefDueOutTime())
 		#dim ToeleveringInfo As APPS.Halux.Planning.impl.ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).OpenId(Toelevering.GeefID())
 		#dim dtoToelevering As APPS.Halux.Planning.dto.Toelevering = Builder.GeefToelevering(Toelevering)
-		Set dtoToelevering.LeverImpact = ##class(APPS.Halux.Planning.impl.ProductPlanningUtils).GeefLeverImpact(Toelevering,DueOut,ToeleveringInfo.Gepland)
-		Set dtoToelevering.Volgnummer = VolgNr
-		Do BatchToeleveringen.Toeleveringen.Insert(dtoToelevering)
-		Set VolgNr = VolgNr + 1
+		
+		set dtoToelevering.LeverImpact = ##class(APPS.Halux.Planning.impl.ProductPlanningUtils).GeefLeverImpact(Toelevering,DueOut,ToeleveringInfo.Gepland)
+		set dtoToelevering.Volgnummer = VolgNr
+		
+		do BatchToeleveringen.Toeleveringen.Insert(dtoToelevering)
+		
+		set VolgNr = VolgNr + 1
 	}
 				
-	Quit BatchToeleveringen
+	quit BatchToeleveringen
 ]]></Implementation>
 </Method>
 
@@ -104,111 +108,120 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.Planning.dto.Toelevering"</ReturnTypeParams>
 <Implementation><![CDATA[
-	Set Toeleveringen = ##class(%ListOfObjects).%New()
+	#dim Toeleveringen 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)) {
 				#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 Toeleveringen.Insert(dtoToelevering)
+				set VolgNr = VolgNr + 1
 			}
 		}
 	}
 	
-	Quit Toeleveringen
+	quit Toeleveringen
 ]]></Implementation>
 </Method>
 
 <Method name="VerplaatsToeleveringen">
 <FormalSpec>Toeleveringen:%ListOfDataTypes,BatchID:%String</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.VerplaatsResultaat</ReturnType>
 <Implementation><![CDATA[
-	Set VerplaatsResultaat = ##class(APPS.Halux.Planning.dto.VerplaatsResultaat).%New()
-	Set VerplaatsResultaat.BatchOverzicht = ##class(APPS.Halux.Planning.dto.BatchOverzicht).%New()
 	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(BatchID)
 	#dim MaatwerkBatch As APPS.Halux.Planning.dto.MaatwerkBatch = ..GeefMaatwerkBatch(Batch)
-	Set GewijzigdeBatches = ##class(%ArrayOfObjects).%New()
-	
+	#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 ToeleveringIterator = ##class(TECH.ListIterator).%New(Toeleveringen)
-	While (ToeleveringIterator.HasNext())
-	{
+	set VerplaatsResultaat.BatchOverzicht = ##class(APPS.Halux.Planning.dto.BatchOverzicht).%New()
+	
+	while (ToeleveringIterator.HasNext()) {
 		#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)
+		#dim VerplaatsProblemen As list of %String = ..ControleerToeleveringVoorVerplaatsing(Toelevering, MaatwerkBatch)
 		
-		If (VerplaatsProblemen.Count() = 0)
-		{
-			Try{ 
-				#dim BatchVan As APPS.Halux.common.Batch = ..BatchService.GeefBijhorendeBatch(Toelevering)
-				If ($IsObject(BatchVan))
-				{
-					Do BatchVan.VerwijderToelevering(Toelevering)
-					Do GewijzigdeBatches.SetAt(BatchVan,BatchVan.GeefID())
-					Do BatchVan.Save()
-				}
+		do ##class(TECH.ListUtils).CopyListOfDataTypes(VerplaatsProblemen, VerplaatsResultaat.VerplaatsRapport)
+		
+		if (VerplaatsProblemen.Count() = 0) {
+			try { 
+				#dim BronBatch As APPS.Halux.common.Batch = ..BatchService.GeefBijhorendeBatch(Toelevering)
 				
+				do ..VerwijderToeleveringVanBatch(BronBatch, Toelevering)
+				do GewijzigdeBatches.SetAt(BronBatch, BronBatch.GeefID())
+
 				#dim WasLegeBatch As %Boolean = (Batch.GeefToeleveringen().Count() = 0)
 				
-				Do Batch.VoegToeToelevering(Toelevering)
-				Do GewijzigdeBatches.SetAt(Batch,Batch.GeefID())
-				
-				If (WasLegeBatch) Do Batch.ZetLijn(..GeefInitieleLijnVoorToelevering(Toelevering))
-				
-				Do Batch.Save()
-			} Catch {
+				do Batch.VoegToeToelevering(Toelevering)
+				do GewijzigdeBatches.SetAt(Batch,Batch.GeefID())
+				do:(WasLegeBatch) Batch.ZetLijn(..GeefInitieleLijnVoorToelevering(Toelevering))
+				do Batch.Save()
+			} catch {
 				#dim Exception As APPS.Halux.common.impl.ToeleveringException = ##class(TECH.ExceptionHandler).Catch("APPS.Halux.common.impl.ToeleveringException")
 				#dim BatchError As APPS.Halux.common.impl.BatchError = Exception.BatchError
-				Set BoodschappenIt = ##class(TECH.ListIterator).%New(BatchError.Boodschappen)
-				While BoodschappenIt.HasNext()
-				{
-					Do VerplaatsResultaat.VerplaatsRapport.Insert(BatchError.ToeleveringNummer_" : "_BoodschappenIt.Next())	
+				#dim BoodschappenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(BatchError.Boodschappen)
+				
+				while (BoodschappenIterator.HasNext()) {
+					do VerplaatsResultaat.VerplaatsRapport.Insert(BatchError.ToeleveringNummer _ " : " _ BoodschappenIterator.Next())	
 				}				
 			}
 		}
 	}
 	
-	Set Iterator = ##class(TECH.ListIterator).%New(GewijzigdeBatches)
-	While (Iterator.HasNext())
-	{
-		Do VerplaatsResultaat.BatchOverzicht.MaatwerkBatches.Insert(..GeefMaatwerkBatch(Iterator.Next()))
+	#dim GewijzigdeBatchesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(GewijzigdeBatches)
+	
+	while (GewijzigdeBatchesIterator.HasNext()) {
+		do VerplaatsResultaat.BatchOverzicht.MaatwerkBatches.Insert(..GeefMaatwerkBatch(GewijzigdeBatchesIterator.Next()))
 	}
 	
-	Set VerplaatsResultaat.BatchOverzicht.NietGedefinieerdeBatches = ..GeefNietGedefinieerdeBatches(Batch.GeefGeplandOp())
+	set VerplaatsResultaat.BatchOverzicht.NietGedefinieerdeBatches = ..GeefNietGedefinieerdeBatches(Batch.GeefGeplandOp())
 	
-	Quit VerplaatsResultaat
+	quit VerplaatsResultaat
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderToeleveringVanBatch">
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	
+	if ($IsObject(Batch)) {
+		do Batch.VerwijderToelevering(Toelevering)
+		do Batch.Save()
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefInitieleLijnVoorToelevering">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
-<ReturnType>%String</ReturnType>
+<ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim Lijn As %String = ""
+	#dim Lijn As TECH.String = ""
 	#dim Categorie As APPS.Halux.common.enu.Categorie = ..ProductieService.GeefCategorieVoorToelevering(Toelevering)
 	#dim Lijnen As list of %String = ..GeefProductieLijnNamen(Categorie)
-	If (Lijnen.Count() = 1)	{
-		Set Lijn = Lijnen.GetAt(1)
-	} ElseIf ##class(TECH.StringUtils).Equals(Categorie,##class(APPS.Halux.common.enu.Categorie).Tandembox(),##class(APPS.Halux.common.enu.Categorie).Legrabox(),##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
+	
+	if (Lijnen.Count() = 1)	{
+		set Lijn = Lijnen.GetAt(1)
+	} elseif (##class(TECH.StringUtils).Equals(Categorie, ##class(APPS.Halux.common.enu.Categorie).Tandembox(), ##class(APPS.Halux.common.enu.Categorie).Legrabox(), ##class(APPS.Halux.common.enu.Categorie).TAORbox())) {
 		#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())
-		If ##class(TECH.StringUtils).Equals(ProductieGroep,##class(APPS.Halux.common.enu.ProductieGroep).Stuk(),##class(APPS.Halux.common.enu.ProductieGroep).Kast()) {
-			Set Lijn = ##class(APPS.Halux.common.enu.ProductieLijn).Een()
-		} ElseIf ##class(TECH.StringUtils).Equals(ProductieGroep,"TAX-LC","TAX-BOG") {
-			Set Lijn = ##class(APPS.Halux.common.enu.ProductieLijn).Drie()
-		} Else {
-			Set Lijn = ##class(APPS.Halux.common.enu.ProductieLijn).Twee()
+		
+		if (##class(TECH.StringUtils).Equals(ProductieGroep, ##class(APPS.Halux.common.enu.ProductieGroep).Stuk(), ##class(APPS.Halux.common.enu.ProductieGroep).Kast())) {
+			set Lijn = ##class(APPS.Halux.common.enu.ProductieLijn).Een()
+		} elseif ##class(TECH.StringUtils).Equals(ProductieGroep, ##class(APPS.Halux.common.enu.ProductieGroep).LosseComponenten(), ##class(APPS.Halux.common.enu.ProductieGroep).BulkPerOnderdeelGegroepeerd()) {
+			set Lijn = ##class(APPS.Halux.common.enu.ProductieLijn).Drie()
+		} else {
+			set Lijn = ##class(APPS.Halux.common.enu.ProductieLijn).Twee()
 		}
 	}
 	
@@ -221,78 +234,75 @@
 <Private>1</Private>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	Set VerplaatsProblemen = ##class(%ListOfDataTypes).%New()
+	#dim VerplaatsProblemen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 
-	If $$$Not(MaatwerkBatch.Categorie = ..ProductieService.GeefCategorieVoorToelevering(Toelevering)) {
-		Do VerplaatsProblemen.Insert("De toelevering "_Toelevering.GeefID()_" heeft een andere categorie dan de batch")
+	if $$$Not(MaatwerkBatch.Categorie = ..ProductieService.GeefCategorieVoorToelevering(Toelevering)) {
+		do VerplaatsProblemen.Insert("De toelevering " _ Toelevering.GeefID() _ " heeft een andere categorie dan de batch")
 	}
 	
-	If (MaatwerkBatch.ProductieGroep.Count()>0) && ('##class(TECH.ListUtils).IsDeelverzamelingVan(..GeefProductieGroepen(Toelevering),MaatwerkBatch.ProductieGroep))
-	{
-		Do VerplaatsProblemen.Insert("Productiegroepen ("_##class(TECH.ListUtils).ListToPieces(..GeefProductieGroepen(Toelevering),",")_") van toelevering "_Toelevering.GeefID()_" komen niet overeen met de productiegroepen van de batch ("_##class(TECH.ListUtils).ListToPieces(MaatwerkBatch.ProductieGroep,",")_")")
+	if ((MaatwerkBatch.ProductieGroep.Count() > 0) && $$$Not(##class(TECH.ListUtils).IsDeelverzamelingVan(..GeefProductieGroepen(Toelevering), MaatwerkBatch.ProductieGroep))) {
+		do VerplaatsProblemen.Insert("Productiegroepen (" _ ##class(TECH.ListUtils).ListToPieces(..GeefProductieGroepen(Toelevering), ",") _ ") van toelevering " _ Toelevering.GeefID()_" komen niet overeen met de productiegroepen van de batch ("_##class(TECH.ListUtils).ListToPieces(MaatwerkBatch.ProductieGroep, ",") _ ")")
 	}
 	
-	Set PlanningService = ##class(APPS.Halux.Planning.PlanningService).%New()
+	#dim PlanningService As APPS.Halux.Planning.PlanningService = ##class(APPS.Halux.Planning.PlanningService).%New()
 	#dim Gepland As %TimeStamp = PlanningService.GeefToeleveringGeplandTijdstip(Toelevering.GeefID())
+	
 	// FMA 7/01/2014. Deze test tijdelijk uitgezet op vraag van Halux.  Zal voor een half jaar of zo zijn.
 	// Zie ook vhUnitTest.APPS.Halux.Planning.TestBatchService
-	//If (MaatwerkBatch.Datum '= ##class(TECH.DateTime).TimestampToDate(Gepland))
-	//{
-	//	Do VerplaatsProblemen.Insert("De toelevering "_Toelevering.GeefID()_" is gepland voor een andere datum dan de batch")
+	//if $$$Not(MaatwerkBatch.Datum = ##class(TECH.DateTime).TimestampToDate(Gepland)) {
+	//	do VerplaatsProblemen.Insert("De toelevering "_Toelevering.GeefID()_" is gepland voor een andere datum dan de batch")
 	//}
 	
-	#dim BatchVan As APPS.Halux.common.Batch = ..BatchService.GeefBijhorendeBatch(Toelevering)
-	If ($IsObject(BatchVan)) && (BatchVan.GeefStatus() = ##class(APPS.Halux.common.enu.BatchStatus).Gestart())
-	{
-		Do VerplaatsProblemen.Insert("De toelevering wordt verplaatst vanuit een batch die reeds is gestart")
+	#dim BronBatch As APPS.Halux.common.Batch = ..BatchService.GeefBijhorendeBatch(Toelevering)
+	
+	if (($IsObject(BronBatch)) && (BronBatch.GeefStatus() = ##class(APPS.Halux.common.enu.BatchStatus).Gestart())) {
+		do VerplaatsProblemen.Insert("De toelevering wordt verplaatst vanuit een batch die reeds is gestart")
 	}
 	
-	If (MaatwerkBatch.Status = ##class(APPS.Halux.common.enu.BatchStatus).Gestart())
-	{
-		Do VerplaatsProblemen.Insert("De batch is reeds gestart")
+	if (MaatwerkBatch.Status = ##class(APPS.Halux.common.enu.BatchStatus).Gestart()) {
+		do VerplaatsProblemen.Insert("De batch is reeds gestart")
 	}
 	
-	#dim BatchNaar As APPS.Halux.common.Batch = ..BatchService.GeefBatch(MaatwerkBatch.ID)
-	#dim NaarToeleveringIterator As TECH.Iterator = BatchNaar.GeefToeleveringIterator()
+	#dim DoelBatch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(MaatwerkBatch.ID)
+	#dim NaarToeleveringIterator As TECH.Iterator = DoelBatch.GeefToeleveringIterator()
 	// FMA 7/01/2014. Deze test tijdelijk uitgezet op vraag van Halux.  Zal voor een half jaar of zo zijn.
 	// Zie ook vhUnitTest.APPS.Halux.Planning.TestBatchService
-	//If (NaarToeleveringIterator.HasNext())
-	//{
+	//if (NaarToeleveringIterator.HasNext()) {
 		//#dim EersteNaarToelevering As DOM.AKP.Toelevering = NaarToeleveringIterator.Next()
-		//If (EersteNaarToelevering.GeefDueOutTime() '= Toelevering.GeefDueOutTime())
-		//{
-		//	Do VerplaatsProblemen.Insert("De toelevering "_Toelevering.GeefID()_" heeft een andere due out dan deze in de batch")
+		//if $$$Not(EersteNaarToelevering.GeefDueOutTime() = Toelevering.GeefDueOutTime()) {
+		//	do VerplaatsProblemen.Insert("De toelevering " _ Toelevering.GeefID() _ " heeft een andere due out dan deze in de batch")
 		//}
 	//}
 	
-	
-	Quit VerplaatsProblemen
+	quit VerplaatsProblemen
 ]]></Implementation>
 </Method>
 
 <Method name="GeefProductieLijnNamen">
 <FormalSpec>Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	Set Namen = ##class(%ListOfDataTypes).%New()
-	If (Categorie = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) {
-		Do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Een())
-		Do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Twee())
-		Do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Vier())
-	} ElseIf Categorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox() {
-		Do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Een())
-		Do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Twee())
-		Do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Drie())
-	} ElseIf Categorie = ##class(APPS.Halux.common.enu.Categorie).Legrabox() {
-		Do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Een())
-		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).Vier())
-		Do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Vijf())
-	} Else{
-		Do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Een())
+	#dim Namen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	if (Categorie = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) {
+		do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Een())
+		do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Twee())
+		do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Vier())
+	} elseif (Categorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
+		do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Een())
+		do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Twee())
+		do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Drie())
+	} elseif (Categorie = ##class(APPS.Halux.common.enu.Categorie).Legrabox()) {
+		do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Een())
+		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).Vier())
+		do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Vijf())
+	} else{
+		do Namen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Een())
 	}
-	Quit Namen
+	
+	quit Namen
 ]]></Implementation>
 </Method>
 
@@ -301,66 +311,67 @@
 <ReturnType>APPS.Halux.Planning.dto.MaatwerkBatch</ReturnType>
 <Implementation><![CDATA[
 	#dim Batch As APPS.Halux.common.Batch = ##class(APPS.Halux.common.BatchFactory).MaakNieuweLegeBatch(Datum, Categorie)
-	Do Batch.Save()
-	Quit ..GeefMaatwerkBatch(Batch)
+	
+	do Batch.Save()
+	
+	quit ..GeefMaatwerkBatch(Batch)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwijderBatch">
 <FormalSpec>BatchID:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(BatchID)
-	If ('Batch.IsActief())
-	{
-		Do ..BatchService.VerwijderBatch(BatchID)
+	
+	if $$$Not(Batch.IsActief()) {
+		do ..BatchService.VerwijderBatch(BatchID)
+	} else {
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan actieve batch " _ BatchID _ " niet verwijderen"))
 	}
-	Else
-	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan actieve batch "_BatchID_" niet verwijderen"))
-	}
 ]]></Implementation>
 </Method>
 
 <Method name="ZoekToelevering">
 <FormalSpec>ToeleveringID:%String</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.ZoekToeleveringResultaat</ReturnType>
 <Implementation><![CDATA[
-	Set Resultaat = ##class(APPS.Halux.Planning.dto.ZoekToeleveringResultaat).%New()
+	#dim Resultaat As APPS.Halux.Planning.dto.ZoekToeleveringResultaat = ##class(APPS.Halux.Planning.dto.ZoekToeleveringResultaat).%New()
 
-	Try{
+	try {
 		#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringID)
-	}Catch {
-		Do ##class(TECH.ExceptionHandler).CatchAndRethrowAsInvalidUserInputException("TECH.Exceptions.InvalidInputException")
+	} catch {
+		do ##class(TECH.ExceptionHandler).CatchAndRethrowAsInvalidUserInputException("TECH.Exceptions.InvalidInputException")
 	}
 	
-	Set Resultaat.ToeleveringID = ToeleveringID
 	#dim ToeleveringInfo As APPS.Halux.Planning.impl.ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).OpenId(ToeleveringID)
-	Set Resultaat.ToeleveringGeplandTijdstip = ToeleveringInfo.Gepland
-	Set Resultaat.Categorie = ..ProductieService.GeefCategorieVoorToelevering(Toelevering)
+	
+	set Resultaat.ToeleveringID = ToeleveringID	
+	set Resultaat.ToeleveringGeplandTijdstip = ToeleveringInfo.Gepland
+	set Resultaat.Categorie = ..ProductieService.GeefCategorieVoorToelevering(Toelevering)
+	
 	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBijhorendeBatch(Toelevering)
-	If ($IsObject(Batch))
-	{
-		Set Resultaat.BatchDatum = Batch.GeefGeplandOp()
-		Set Resultaat.BatchID = Batch.GeefID()
+	
+	if ($IsObject(Batch)) {
+		set Resultaat.BatchDatum = Batch.GeefGeplandOp()
+		set Resultaat.BatchID = Batch.GeefID()
 	}
-	Quit Resultaat
+	
+	quit Resultaat
 ]]></Implementation>
 </Method>
 
 <Method name="MaakAutoBatches">
 <FormalSpec>Datum:%Date,Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.BatchOverzicht</ReturnType>
 <Implementation><![CDATA[
-	Set BatchOverzicht = ##class(APPS.Halux.Planning.dto.BatchOverzicht).%New()
-	Set BatchOverzicht.Datum = Datum
-	
 	#dim MaatwerkBatchBuilder As APPS.Halux.Planning.impl.BatchService.MaatwerkBatchBuilder = ..GeefMaatwerkBatchBuilder(Categorie)
-		
-	do MaatwerkBatchBuilder.MaakAutoBatches(Datum,BatchOverzicht)
-		
-	Set BatchOverzicht.NietGedefinieerdeBatches = ..GeefNietGedefinieerdeBatches(Datum)
+	#dim BatchOverzicht As APPS.Halux.Planning.dto.BatchOverzicht = ##class(APPS.Halux.Planning.dto.BatchOverzicht).%New()
 	
-	Quit BatchOverzicht
+	set BatchOverzicht.Datum = Datum
+	do MaatwerkBatchBuilder.MaakAutoBatches(Datum, BatchOverzicht)
+	set BatchOverzicht.NietGedefinieerdeBatches = ..GeefNietGedefinieerdeBatches(Datum)
+	
+	quit BatchOverzicht
 ]]></Implementation>
 </Method>
 
@@ -369,21 +380,22 @@
 <Implementation><![CDATA[
 	#dim BatchResetter As APPS.Halux.Planning.BatchResetter = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchResetter()
 	#dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchID)
-	Do BatchResetter.ResetBatch(Batch)
+	
+	do BatchResetter.ResetBatch(Batch)
 ]]></Implementation>
 </Method>
 
 <Method name="ToggleConcept">
 <FormalSpec>BatchID:%String</FormalSpec>
-<Implementation><![CDATA[	do $method($classmethod($$$CurrentClass_"."_$$$CurrentMethod,"%New"),$$$CurrentMethod,BatchID)
+<Implementation><![CDATA[	do $method($classmethod($$$CurrentClass _ "." _ $$$CurrentMethod, "%New"), $$$CurrentMethod, BatchID)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefProductieGroepen">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.common.enu.ProductieGroep"</ReturnTypeParams>
-<Implementation><![CDATA[	Quit ##class(APPS.Halux.Planning.impl.BatchService.Utils).%New().GeefProductieGroepen(Toelevering)
+<Implementation><![CDATA[	quit ##class(APPS.Halux.Planning.impl.BatchService.Utils).%New().GeefProductieGroepen(Toelevering)
 ]]></Implementation>
 </Method>
 
@@ -392,14 +404,15 @@
 <Private>1</Private>
 <ReturnType>%Date</ReturnType>
 <Implementation><![CDATA[
-	#dim GeplandOpDatum As %Date
 	#dim Toelevering As DOM.AKP.Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringID)
-	Set GeplandOpDatum = ##class(TECH.DateTime).HorologToDate(Toelevering.GeefDueOutTime())
-	If ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%ExistsId(ToeleveringID){
+	#dim GeplandOpDatum As %Date = ##class(TECH.DateTime).HorologToDate(Toelevering.GeefDueOutTime())
+	
+	if (##class(APPS.Halux.Planning.impl.ToeleveringInfo).%ExistsId(ToeleveringID)) {
 		#dim ToeleveringInfo As APPS.Halux.Planning.impl.ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).OpenId(ToeleveringID)
-		Set GeplandOpDatum = ##class(TECH.DateTime).TimestampToDate(ToeleveringInfo.Gepland)
+		set GeplandOpDatum = ##class(TECH.DateTime).TimestampToDate(ToeleveringInfo.Gepland)
 	}	
-	Quit GeplandOpDatum
+	
+	quit GeplandOpDatum
 ]]></Implementation>
 </Method>
 
@@ -410,49 +423,47 @@
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.Planning.dto.TandemboxBatch"</ReturnTypeParams>
 <Implementation><![CDATA[
 	#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) && ('$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 ('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
-					Do MaatwerkBatches.SetAt(MaatwerkBatch,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)
 				}
-				Else
-				{
-					Set MaatwerkBatch = MaatwerkBatches.GetAt(Categorie)
-				}
-				Do Builder.AggregeerToeleveringInBatch(Toelevering, MaatwerkBatch)
+				
+				do Builder.AggregeerToeleveringInBatch(Toelevering, MaatwerkBatch)
 			}
+		} catch	{
+			do ##class(vhLib.Logger).LogEnMailExceptie(##class(TECH.ExceptionHandler).Catch())
 		}
-		Catch
-		{
-			Do ##class(vhLib.Logger).LogEnMailExceptie(##class(TECH.ExceptionHandler).Catch())
-		}
 	}
 	
-	Set MaatwerkBatchLijst = ##class(%ListOfObjects).%New()
-	Set Iterator = ##class(TECH.ListIterator).%New(MaatwerkBatches)
-	While (Iterator.HasNext())
-	{
-		Do MaatwerkBatchLijst.Insert(Iterator.Next())
+	#dim MaatwerkBatchLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(MaatwerkBatches)
+	
+	while (Iterator.HasNext()) {
+		do MaatwerkBatchLijst.Insert(Iterator.Next())
 	}
 	
-	Quit MaatwerkBatchLijst
+	quit MaatwerkBatchLijst
 ]]></Implementation>
 </Method>
 
@@ -461,55 +472,54 @@
 <ReturnType>APPS.Halux.Planning.dto.BatchOverzicht</ReturnType>
 <Implementation><![CDATA[
 	#dim OperatieScope As TECH.OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
-	
 	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(BatchID)
 	#dim TeWijzigenBatch As APPS.Halux.common.Batch
 	
-	Set BatchOverzicht = ##class(APPS.Halux.Planning.dto.BatchOverzicht).%New()
+	#dim BatchOverzicht As APPS.Halux.Planning.dto.BatchOverzicht = ##class(APPS.Halux.Planning.dto.BatchOverzicht).%New()
 	Set BatchOverzicht.Datum = Batch.GeefGeplandOp()
 	
-	Set ResultSet = ##class(%ResultSet).%New()
-	Do ResultSet.Prepare("SELECT Max(Volgnummer) As MaxVolgnummer FROM APPS_Halux_common_impl.BatchImpl WHERE AND GeplandOp = ? AND Categorie = ? GROUP BY GeplandOp")
-	Do ResultSet.Execute(Batch.GeefGeplandOp(),Batch.GeefCategorie())
-	If (ResultSet.Next())
-	{
-		If (VerplaatsNaarVolgnummer > ResultSet.Data("MaxVolgnummer")) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Nieuw nummer mag niet groter zijn dan de bestaande grootste. BatchID: "_BatchID_", Verplaatsen naar volgNr: "_VerplaatsNaarVolgnummer))
+	#dim ResultSet As %ResultSet = ##class(%ResultSet).%New()
+	
+	do ResultSet.Prepare("SELECT Max(Volgnummer) As MaxVolgnummer FROM APPS_Halux_common_impl.BatchImpl WHERE AND GeplandOp = ? AND Categorie = ? GROUP BY GeplandOp")
+	do ResultSet.Execute(Batch.GeefGeplandOp(), Batch.GeefCategorie())
+	
+	if (ResultSet.Next()) {
+		do:(VerplaatsNaarVolgnummer > ResultSet.Data("MaxVolgnummer")) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Nieuw nummer mag niet groter zijn dan de bestaande grootste. BatchID: " _ BatchID _ ", Verplaatsen naar volgNr: " _ VerplaatsNaarVolgnummer))
 	}
-	Do ResultSet.Close()
 	
-	Set ResultSet = ##class(%ResultSet).%New()
-	Do ResultSet.Prepare("SELECT ID FROM APPS_Halux_common_impl.BatchImpl WHERE Volgnummer >= ? AND Volgnummer <= ? AND GeplandOp = ? AND Categorie = ? AND ID <>  ?")
+	do ResultSet.Close()
 	
-	If (Batch.GeefVolgnummer() > VerplaatsNaarVolgnummer)
-	{
-		Do ResultSet.Execute(VerplaatsNaarVolgnummer,Batch.GeefVolgnummer(),Batch.GeefGeplandOp(),Batch.GeefCategorie(),BatchID)
-		While (ResultSet.Next())
-		{
-			Set TeWijzigenBatch = ..BatchService.GeefBatch(ResultSet.Data("ID"))
-			Do TeWijzigenBatch.ZetVolgnummer(TeWijzigenBatch.GeefVolgnummer()+1)
-			Do TeWijzigenBatch.Save()
-			Do BatchOverzicht.MaatwerkBatches.Insert(..GeefMaatwerkBatch(TeWijzigenBatch))
+	set ResultSet = ##class(%ResultSet).%New()
+	do ResultSet.Prepare("SELECT ID FROM APPS_Halux_common_impl.BatchImpl WHERE Volgnummer >= ? AND Volgnummer <= ? AND GeplandOp = ? AND Categorie = ? AND ID <>  ?")
+	
+	if (Batch.GeefVolgnummer() > VerplaatsNaarVolgnummer) {
+		do ResultSet.Execute(VerplaatsNaarVolgnummer, Batch.GeefVolgnummer(), Batch.GeefGeplandOp(), Batch.GeefCategorie(), BatchID)
+		
+		while (ResultSet.Next()) {
+			set TeWijzigenBatch = ..BatchService.GeefBatch(ResultSet.Data("ID"))
+			
+			do TeWijzigenBatch.ZetVolgnummer(TeWijzigenBatch.GeefVolgnummer() + 1)
+			do TeWijzigenBatch.Save()
+			do BatchOverzicht.MaatwerkBatches.Insert(..GeefMaatwerkBatch(TeWijzigenBatch))
 		}
-	}
-	Else
-	{
-		Do ResultSet.Execute(Batch.GeefVolgnummer(),VerplaatsNaarVolgnummer,Batch.GeefGeplandOp(),Batch.GeefCategorie(),BatchID)
-		While (ResultSet.Next())
-		{
-			Set TeWijzigenBatch = ..BatchService.GeefBatch(ResultSet.Data("ID"))
-			Do TeWijzigenBatch.ZetVolgnummer(TeWijzigenBatch.GeefVolgnummer()-1)
-			Do TeWijzigenBatch.Save()
-			Do BatchOverzicht.MaatwerkBatches.Insert(..GeefMaatwerkBatch(TeWijzigenBatch))
+	} else {
+		do ResultSet.Execute(Batch.GeefVolgnummer(), VerplaatsNaarVolgnummer, Batch.GeefGeplandOp(), Batch.GeefCategorie(), BatchID)
+		while (ResultSet.Next()) {
+			set TeWijzigenBatch = ..BatchService.GeefBatch(ResultSet.Data("ID"))
+			
+			do TeWijzigenBatch.ZetVolgnummer(TeWijzigenBatch.GeefVolgnummer() - 1)
+			do TeWijzigenBatch.Save()
+			do BatchOverzicht.MaatwerkBatches.Insert(..GeefMaatwerkBatch(TeWijzigenBatch))
 		}
 	}
 	
-	Do Batch.ZetVolgnummer(VerplaatsNaarVolgnummer)
-	Do Batch.Save()
-	Do BatchOverzicht.MaatwerkBatches.Insert(..GeefMaatwerkBatch(Batch))
+	do Batch.ZetVolgnummer(VerplaatsNaarVolgnummer)
+	do Batch.Save()
+	do BatchOverzicht.MaatwerkBatches.Insert(..GeefMaatwerkBatch(Batch))
 	
-	Do OperatieScope.Gelukt()
+	do OperatieScope.Gelukt()
 	
-	Quit BatchOverzicht
+	quit BatchOverzicht
 ]]></Implementation>
 </Method>
 
@@ -518,36 +528,43 @@
 <ReturnType>APPS.Halux.Planning.dto.BatchOverzicht</ReturnType>
 <Implementation><![CDATA[
 	#dim OperatieScope As TECH.OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
-	Set ReedsGestarteBatches = ##class(%ListOfDataTypes).%New()
-	Set BatchOverzicht = ##class(APPS.Halux.Planning.dto.BatchOverzicht).%New()
-	Try {		
-		Set BatchIDIt = ##class(TECH.ListIterator).%New(BatchIDs)
-		While BatchIDIt.HasNext() {
-			#dim BatchID As %String = BatchIDIt.Next()
+	#dim ReedsGestarteBatches As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim BatchOverzicht As APPS.Halux.Planning.dto.BatchOverzicht = ##class(APPS.Halux.Planning.dto.BatchOverzicht).%New()
+	
+	try {		
+		#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(BatchIDs)
+		
+		while (Iterator.HasNext()) {
+			#dim BatchID As TECH.String = Iterator.Next()
 			#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(BatchID)	
-			If Batch.GeefStatus() '= ##class(APPS.Halux.common.enu.BatchStatus).Gestart(){
-				Set BatchOverzicht.Datum = Batch.GeefGeplandOp()
-				Do Batch.ZetLijn(ProductieLijn)
-				Do Batch.Save()
-				Do BatchOverzicht.MaatwerkBatches.Insert(..GeefMaatwerkBatch(Batch))
-
-			}Else{
-				Do ReedsGestarteBatches.Insert(BatchID)
+			
+			if $$$Not(Batch.GeefStatus() = ##class(APPS.Halux.common.enu.BatchStatus).Gestart()) {
+				set BatchOverzicht.Datum = Batch.GeefGeplandOp()
+				
+				do Batch.ZetLijn(ProductieLijn)
+				do Batch.Save()
+				do BatchOverzicht.MaatwerkBatches.Insert(..GeefMaatwerkBatch(Batch))
+			} else {
+				do ReedsGestarteBatches.Insert(BatchID)
 			}			
 		}
-		Do OperatieScope.Gelukt()
-	} Catch {
-		Do OperatieScope.Gefaald()
+		
+		do OperatieScope.Gelukt()
+	} catch {
+		do OperatieScope.Gefaald()
+		
 		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		#dim Feedback As %String = Exceptie.GeefOmschrijving()_$C(13,10)_" Geen enkele batch is aangepast."
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New(Feedback))
+		#dim Feedback As %String = Exceptie.GeefOmschrijving() _ $$$CRLF _ " Geen enkele batch is aangepast."
+		
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New(Feedback))
 	}
 	
-	If ReedsGestarteBatches.Size > 0 {
-		Set Feedback = "De batches "_##class(TECH.ListUtils).ListToPieces(ReedsGestarteBatches,",")_" zijn reeds gestart en kunnen dus niet van productielijn veranderd worden."
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidUserInputException).%New(Feedback))
+	if (ReedsGestarteBatches.Size > 0) {
+		set Feedback = "De batches " _ ##class(TECH.ListUtils).ListToPieces(ReedsGestarteBatches, ",") _ " zijn reeds gestart en kunnen dus niet van productielijn veranderd worden."
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidUserInputException).%New(Feedback))
 	}
-	Quit BatchOverzicht
+	
+	quit BatchOverzicht
 ]]></Implementation>
 </Method>
 
@@ -556,12 +573,13 @@
 <Implementation><![CDATA[
 	#dim ActieveCategorieen As list of APPS.Halux.common.enu.Categorie = ##class(%ListOfDataTypes).%New()	
 	#dim Query As %String = "SELECT Categorie FROM APPS_Halux_common_impl.BatchImpl WHERE IsActief = ? AND Status = ? GROUP BY Categorie"
-	#dim ResultSet As %ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB(1,##class(APPS.Halux.common.enu.BatchStatus).Gestart()))
-	While ResultSet.Next()
-	{
-		Do ActieveCategorieen.Insert(ResultSet.Data("Categorie"))
+	#dim ResultSet As %ResultSet = $$ExecDynQuery^vhLib.Query(Query, $ListBuild(1, ##class(APPS.Halux.common.enu.BatchStatus).Gestart()))
+	
+	while ResultSet.Next() {
+		do ActieveCategorieen.Insert(ResultSet.Data("Categorie"))
 	}
-	Quit ActieveCategorieen
+	
+	quit ActieveCategorieen
 ]]></Implementation>
 </Method>
 
@@ -571,39 +589,41 @@
 <Implementation><![CDATA[
 	#dim Batch As APPS.Halux.common.Batch  = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchID)
 	#dim BatchStarter As APPS.Halux.Planning.BatchStarter = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchStarter()
-	Do BatchStarter.StartBatch(Batch)
-	Quit BatchStarter.GeefBatchOverzicht(..GeefMaatwerkBatch(Batch))
+	
+	do BatchStarter.StartBatch(Batch)
+	
+	quit BatchStarter.GeefBatchOverzicht(..GeefMaatwerkBatch(Batch))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefActieveBatches">
 <FormalSpec>Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.ActieveBatchList</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.Halux.Planning.impl.BatchService.ActieveBatchesBepaler).%New().GeefActieveBatches(Categorie)
+<Implementation><![CDATA[	quit ##class(APPS.Halux.Planning.impl.BatchService.ActieveBatchesBepaler).%New().GeefActieveBatches(Categorie)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefActieveBatch">
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.ActieveBatch</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.Halux.Planning.impl.BatchService.ActieveBatchesBepaler).%New().GeefActieveBatch(Batch)
+<Implementation><![CDATA[	quit ##class(APPS.Halux.Planning.impl.BatchService.ActieveBatchesBepaler).%New().GeefActieveBatch(Batch)
 ]]></Implementation>
 </Method>
 
 <Method name="ZetToeleveringSorteerTypeVoorBatch">
 <FormalSpec>BatchID:%String,SorteerType:APPS.Halux.Planning.enu.ToeleveringSorteerType</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.BatchToeleveringenEnMaatwerkBatch</ReturnType>
 <Implementation><![CDATA[
-	Set BatchToeleveringenEnMaatwerkBatch = ##class(APPS.Halux.Planning.dto.BatchToeleveringenEnMaatwerkBatch).%New()
-	
+	#dim BatchToeleveringenEnMaatwerkBatch As APPS.Halux.Planning.dto.BatchToeleveringenEnMaatwerkBatch = ##class(APPS.Halux.Planning.dto.BatchToeleveringenEnMaatwerkBatch).%New()
 	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(BatchID)
-	Do Batch.ZetToeleveringSorteerType(SorteerType)	
-	Do Batch.Save()
 	
-	Set BatchToeleveringenEnMaatwerkBatch.BatchToeleveringen = ..GeefToeleveringenInBatch(BatchID)
-	Set BatchToeleveringenEnMaatwerkBatch.MaatwerkBatch = ..GeefMaatwerkBatch(Batch)
+	do Batch.ZetToeleveringSorteerType(SorteerType)	
+	do Batch.Save()
 	
-	Quit BatchToeleveringenEnMaatwerkBatch
+	set BatchToeleveringenEnMaatwerkBatch.BatchToeleveringen = ..GeefToeleveringenInBatch(BatchID)
+	set BatchToeleveringenEnMaatwerkBatch.MaatwerkBatch = ..GeefMaatwerkBatch(Batch)
+	
+	quit BatchToeleveringenEnMaatwerkBatch
 ]]></Implementation>
 </Method>
 
@@ -612,15 +632,16 @@
 <ReturnType>APPS.Halux.Planning.dto.BatchToeleveringen</ReturnType>
 <Implementation><![CDATA[
 	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(BatchID)
-	If Batch.GeefToeleveringSorteerType() = ##class(APPS.Halux.Planning.enu.ToeleveringSorteerType).Automatisch(){
-		#dim Feedback As %String = "De toeleveringen in batch '"_BatchID_"' zijn automatisch gesorteerd. U kan geen toelevering wijzigen van volgorde."
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New(Feedback))
+	
+	if (Batch.GeefToeleveringSorteerType() = ##class(APPS.Halux.Planning.enu.ToeleveringSorteerType).Automatisch()) {
+		#dim Feedback As %String = "De toeleveringen in batch '" _ BatchID _ "' zijn automatisch gesorteerd. U kan geen toelevering wijzigen van volgorde."
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New(Feedback))
 	}
 	
-	Do Batch.VoegTussenToeleveringOpVolgNr(ToeleveringID,VerplaatsNaarVolgNr)
-	Do Batch.Save()
+	do Batch.VoegTussenToeleveringOpVolgNr(ToeleveringID,VerplaatsNaarVolgNr)
+	do Batch.Save()
 	
-	Quit ..GeefToeleveringenInBatch(BatchID)
+	quit ..GeefToeleveringenInBatch(BatchID)
 ]]></Implementation>
 </Method>
 
@@ -629,29 +650,22 @@
 <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()
+	#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)
 	}
-	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
+	
+	quit Builder
 ]]></Implementation>
 </Method>