Index: APPS/Halux/Planning/PlanningService.cls.xml
===================================================================
diff -u -r954 -r994
--- APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 954)
+++ APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 994)
@@ -1,24 +1,88 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-25 07:59:29">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-06 15:46:36">
 <Class name="APPS.Halux.Planning.PlanningService">
 <Description>
 Service voor de Halux planningstool.
 Ondersteunt het visulaliseren van het resourcegebruik voor alle toeleveringen die reeds ingegeven zijn.</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62175,28856.089924</TimeChanged>
+<TimeChanged>62187,56801.852768</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="ApplicatieNaam">
 <Default>Halux_Planning_PlanningService</Default>
 </Parameter>
 
-<UDLText name="T">
-<Content><![CDATA[
-//Projection JavaProjectie As %Projection.Java(ROOTDIR = "C:\InterSystems\GeneratedJava\HaluxPlanningstool");
+<Method name="EvalueerVerplaatsing">
+<FormalSpec>Van:%Date,Naar:APPS.Halux.Planning.dto.DataLijst,ToeleveringNummers:%ListOfDataTypes</FormalSpec>
+<ReturnType>APPS.Halux.Planning.dto.EvalueerVerplaatsingResultaat</ReturnType>
+<Implementation><![CDATA[
+	Set Resultaat = ##class(APPS.Halux.Planning.dto.EvalueerVerplaatsingResultaat).%New()
+	
+	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	Set BatchService = ##class(APPS.Halux.common.BatchService).%New()
+	
+	Set Toeleveringen = ##class(%ListOfObjects).%New()
+	Set ToeleveringNummersIterator = ##class(TECH.ListIterator).%New(ToeleveringNummers)
+	While (ToeleveringNummersIterator.HasNext())
+	{
+		Set ToeleveringNummer = ToeleveringNummersIterator.Next()
+		Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer)
+		If ($IsObject(Toelevering))
+		{
+			Do Toeleveringen.Insert(Toelevering)
+			Set Batch = BatchService.GeefBijhorendeBatch(Toelevering)
+			If ($IsObject(Batch))
+			{
+				Do Resultaat.Evaluaties.Insert("Toelevering "_Toelevering.GeefToeNr()_" zit reeds in een batch en kan beter niet verplaatst worden.")
+			}
+		}
+		Else
+		{
+			Do Resultaat.Evaluaties.Insert("Toelevering "_ToeleveringNummer_" bestaat niet.")
+		}
+	}
+	
+	Set DatumIterator = ##class(TECH.ListIterator).%New(Naar.Lijst)
+	While (DatumIterator.HasNext())
+	{
+		Set Datum = DatumIterator.Next()
+		
+		Set VerplaatsingEvaluatie = ##class(APPS.Halux.Planning.dto.VerplaatsingEvaluatie).%New()
+		Set VerplaatsingEvaluatie.VerplaatsNaar = Datum
+	
+		Set ToeleveringIterator = ##class(TECH.ListIterator).%New(Toeleveringen)
+		While (ToeleveringIterator.HasNext())
+		{
+			Set Toelevering = ToeleveringIterator.Next()
+				
+			Set HeeftFysiekStockProbleem = 0
+			Set ProductLijnIterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Product())
+			While (('HeeftFysiekStockProbleem) && (ProductLijnIterator.HasNext()))
+			{
+				Set ProductLijn = ProductLijnIterator.Next()
+				Set HeeftFysiekStockProbleem = ProductLijn.HeeftFysiekStockProbleem()
+			}
+			
+			Set DueOutDag = $Piece(Toelevering.GeefDueOutTime(),",")
 
-]]></Content>
-</UDLText>
+			If (HeeftFysiekStockProbleem && (Datum < DueOutDag))
+			{
+				Do VerplaatsingEvaluatie.Evaluaties.Insert("Toelevering "_Toelevering.GeefToeNr()_" met een stockprobleem wordt best niet naar voor verplaatst.")
+			}
+			If (Datum > DueOutDag)
+			{
+				Do VerplaatsingEvaluatie.Evaluaties.Insert("Toelevering "_Toelevering.GeefToeNr()_" wordt naar achter verplaatst en krijgt een leverimpact.")
+			}
+		}
+		If (VerplaatsingEvaluatie.Evaluaties.Count() > 0)
+		{
+			Do Resultaat.VerplaatsingEvaluaties.Insert(VerplaatsingEvaluatie)
+		}
+	}
+	Quit Resultaat
+]]></Implementation>
+</Method>
 
 <Method name="GeefPlanningDetail">
 <Description>
@@ -27,7 +91,6 @@
 <FormalSpec>Datum:%Date,Categorie:APPS.Halux.Planning.enu.Categorie</FormalSpec>
 <ReturnType>%XML.DataSet</ReturnType>
 <Implementation><![CDATA[
-	
 	Set DataSet = ##class(%XML.DataSet).%New("APPS.Halux.Planning.impl.Queries:qGeefPlanningDetail")
 	Do DataSet.SetArgs(Datum, Categorie)
 	Quit DataSet
@@ -57,50 +120,71 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDueOutAlternatieven">
+<FormalSpec>AantalWeken:%Integer,ToeleveringNummers:%ListOfDataTypes</FormalSpec>
+<ReturnType>APPS.Halux.Planning.dto.DueOutAlternatiefResultaat</ReturnType>
+<Implementation><![CDATA[
+	Set DueOutAlternatiefResultaat = ##class(APPS.Halux.Planning.dto.DueOutAlternatiefResultaat).%New()
+	
+	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	
+	Set ToeleveringNummersIterator = ##class(TECH.ListIterator).%New(ToeleveringNummers)
+	While (ToeleveringNummersIterator.HasNext())
+	{
+		Set ToeleveringNummer = ToeleveringNummersIterator.Next()
+		Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer)
+		Set VerzendWijze = ""
+		Set Order = Toelevering.GeefOrder()
+		If ($IsObject(Order))
+		{
+			Set VerzendWijze = Order.GeefVerzendWijze()
+			Set LeveringsTermijn = ##class(DOM.VKP.LeveringsTermijn).%New(,VerzendWijze)
+			Set LeverDag = LeveringsTermijn.GetVroegsteLeverDag(Toelevering.GeefDueOutTime())
+			Set LeverDatums = LeveringsTermijn.GetLeverDatums(LeverDag,AantalWeken)
+			Set DueOutAlternatief = ##class(APPS.Halux.Planning.dto.DueOutAlternatief).%New()
+			Set DueOutAlternatief.ToeleveringNummer = ToeleveringNummer
+			For i=2:1:$LL(LeverDatums) // Het eerste item is de dueout zelf
+			{
+				Set DueOut = LeveringsTermijn.GetLaatsteProductieTijdstip($LI(LeverDatums,i))
+				Do DueOutAlternatief.Data.Insert($zdt(DueOut,3))
+			}
+			Do DueOutAlternatiefResultaat.Lijst.Insert(DueOutAlternatief)
+		}
+	}
+	
+	Quit DueOutAlternatiefResultaat
+]]></Implementation>
+</Method>
+
 <Method name="GeefInstellingen">
 <ReturnType>APPS.Halux.Planning.dto.ApplicatieInstellingen</ReturnType>
 <Implementation><![CDATA[
 	Set Instellingen = ##class(APPS.Halux.Planning.dto.ApplicatieInstellingen).%New()
-	Set Instellingen.WekenVoorHuidige = 2
+	Set Instellingen.WekenVoorHuidige = 0
 	Set Instellingen.WekenNaHuidige = 3
 	
 	Set ResourceDrempels = ##class(APPS.Halux.Planning.dto.ResourceDrempels).%New()
 	Set ResourceDrempels.ALUFrees = ..GeefResourceDrempel("ALUFrees")
 	Set ResourceDrempels.ALUOperator = ..GeefResourceDrempel("ALUOperator")
 	Set ResourceDrempels.ALUZaag = ..GeefResourceDrempel("ALUZaag")
-	Set ResourceDrempels.CorpusMontageVerpakken = ..GeefResourceDrempel("CorpusMontageVerpakken")
-	Set ResourceDrempels.CorpusVoorbereiding = ..GeefResourceDrempel("CorpusVoorbereiding")
+	Set ResourceDrempels.BewerkingsCenter = ..GeefResourceDrempel("BewerkingsCenter")
+	Set ResourceDrempels.HoekkastInpak = ..GeefResourceDrempel("HoekkastInpak")
+	Set ResourceDrempels.HoekkastMontage = ..GeefResourceDrempel("HoekkastMontage")
+	Set ResourceDrempels.HoekkastZaag = ..GeefResourceDrempel("HoekkastZaag")
+	Set ResourceDrempels.Houtzaag = ..GeefResourceDrempel("Houtzaag")
 	Set ResourceDrempels.KartonMachine = ..GeefResourceDrempel("KartonMachine")
-	Set ResourceDrempels.TBXBoxpressKeller = ..GeefResourceDrempel("TBXBoxpressKeller")
-	Set ResourceDrempels.TBXBoxpressLijn1 = ..GeefResourceDrempel("TBXBoxpressLijn1")
-	Set ResourceDrempels.TBXBoxpressLijn2 = ..GeefResourceDrempel("TBXBoxpressLijn2")
-	Set ResourceDrempels.TBXSpecialsMontage = ..GeefResourceDrempel("TBXSpecialsMontage")
-	Set ResourceDrempels.TBXVoormontage = ..GeefResourceDrempel("TBXVoormontage")
-	Set ResourceDrempels.TBXZaag = ..GeefResourceDrempel("TBXZaag")
+	Set ResourceDrempels.TBXPers1 = ..GeefResourceDrempel("TBXPers1")
+	Set ResourceDrempels.TBXPers2 = ..GeefResourceDrempel("TBXPers2")
+	Set ResourceDrempels.TBXPers3 = ..GeefResourceDrempel("TBXPers3")
+	Set ResourceDrempels.TBXPicking  = ..GeefResourceDrempel("TBXPicking")
+	Set ResourceDrempels.Voormontage  = ..GeefResourceDrempel("Voormontage")
 	
 	Set Instellingen.ResourceDrempels = ResourceDrempels
 	
 	Quit Instellingen
 ]]></Implementation>
 </Method>
 
-<Method name="GeefKolomInfo">
-<Description>
-Geeft de settings van de kolommen (o.a. volgorde en breedte) terug.</Description>
-<FormalSpec>DataGridNaam:%String,Gebruiker:%String</FormalSpec>
-<ReturnType>APPS.common.GUI.dto.KolomInfoLijst</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.common.GUI.DataGridService).%New().GeefKolomInfo(..#ApplicatieNaam,DataGridNaam,Gebruiker)
-]]></Implementation>
-</Method>
-
-<Method name="BewaarKolomInfo">
-<Description>
-Bewaart de settings van de kolommen.</Description>
-<FormalSpec>DataGridNaam:%String,Gebruiker:%String,KolomInfoLijst:APPS.common.GUI.dto.KolomInfoLijst</FormalSpec>
-<Implementation><![CDATA[	Quit ##class(APPS.common.GUI.DataGridService).%New().BewaarKolomInfo(..#ApplicatieNaam,DataGridNaam,Gebruiker,KolomInfoLijst)
-]]></Implementation>
-</Method>
-
 <Method name="GeefResourceDrempel">
 <FormalSpec>ID:%String</FormalSpec>
 <Private>1</Private>
@@ -119,46 +203,54 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKolomInfo">
+<Description>
+Geeft de settings van de kolommen (o.a. volgorde en breedte) terug.</Description>
+<FormalSpec>DataGridNaam:%String,Gebruiker:%String</FormalSpec>
+<ReturnType>APPS.common.GUI.dto.KolomInfoLijst</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.common.GUI.DataGridService).%New().GeefKolomInfo(..#ApplicatieNaam,DataGridNaam,Gebruiker)
+]]></Implementation>
+</Method>
+
+<Method name="BewaarKolomInfo">
+<Description>
+Bewaart de settings van de kolommen.</Description>
+<FormalSpec>DataGridNaam:%String,Gebruiker:%String,KolomInfoLijst:APPS.common.GUI.dto.KolomInfoLijst</FormalSpec>
+<Implementation><![CDATA[	Quit ##class(APPS.common.GUI.DataGridService).%New().BewaarKolomInfo(..#ApplicatieNaam,DataGridNaam,Gebruiker,KolomInfoLijst)
+]]></Implementation>
+</Method>
+
 <Method name="MaakBatch">
-<FormalSpec>ToeleveringNummers:%ListOfDataTypes</FormalSpec>
+<FormalSpec>Lijn:APPS.Halux.common.enu.ProductieLijn,ToeleveringNummers:%ListOfDataTypes</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.MaakBatchResultaat</ReturnType>
 <Implementation><![CDATA[
 	Set Resultaat = ##class(APPS.Halux.Planning.dto.MaakBatchResultaat).%New()
 	Set Resultaat.IsGeslaagd = 1
 	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
-	Set Batch = ##class(APPS.Halux.common.BatchService).%New().GeefNieuweBatch(##class(%ListOfObjects).%New())
+	Set Toeleveringen = ##class(%ListOfObjects).%New()
 	
 	Set Iterator = ##class(TECH.ListIterator).%New(ToeleveringNummers)
 	While (Iterator.HasNext())
 	{
 		Set ToeleveringNummer = Iterator.Next()
 		Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer)
-		If ($IsObject(Toelevering))
+		If ('$IsObject(Toelevering))
 		{
-			Set Status = Batch.VoegToeToelevering(Toelevering)
-			If ($$$ISERR(Status))
-			{
-				Set MaakBatchError = ##class(APPS.Halux.Planning.dto.MaakBatchError).%New()
-				Set MaakBatchError.ToeleveringNummer = ToeleveringNummer
-				Set MaakBatchError.Boodschap = $$ParseStatus^vhLib(Status)
-				Do Resultaat.Errors.Insert(MaakBatchError)
-				Set Resultaat.IsGeslaagd = 0
-			}
-		}
-		Else
-		{
 			Set MaakBatchError = ##class(APPS.Halux.Planning.dto.MaakBatchError).%New()
 			Set MaakBatchError.ToeleveringNummer = ToeleveringNummer
-			Set MaakBatchError.Boodschap = "De toelevering is niet aanwezig in het systeem"
+			Do MaakBatchError.Boodschappen.Insert("De toelevering is niet aanwezig in het systeem")
 			Do Resultaat.Errors.Insert(MaakBatchError)
 			Set Resultaat.IsGeslaagd = 0
 		}
+		Do Toeleveringen.Insert(Toelevering)
 	}
 
 	If (Resultaat.IsGeslaagd)
 	{
-		Set Status = Batch.Save()
-		
+		Set $ZTRAP = "MaakBatchError"
+		Set Batch = ##class(APPS.Halux.common.BatchService).%New().GeefNieuweBatch(Toeleveringen,Lijn)
+		Set $ZTRAP = ""
+		Set Status = Batch.%Save()
 		If ($$$ISERR(Status))
 		{
 			Set Resultaat.IsGeslaagd = 0
@@ -170,6 +262,23 @@
 	}
 
 	Quit Resultaat
+	
+MaakBatchError
+	Set $ZTRAP = ""
+	Set Resultaat.IsGeslaagd = 0
+	Set Exception = ##class(TECH.ExceptionHandler).Catch("APPS.Halux.common.impl.MaakBatchException")
+	Set Iterator = ##class(TECH.ListIterator).%New(Exception.BatchErrors)
+	While (Iterator.HasNext())
+	{
+		Set BatchError = Iterator.Next()
+		
+		Set MaakBatchError = ##class(APPS.Halux.Planning.dto.MaakBatchError).%New()
+		Set MaakBatchError.ToeleveringNummer = BatchError.ToeleveringNummer
+		Set MaakBatchError.Boodschappen = BatchError.Boodschappen
+		Do Resultaat.Errors.Insert(MaakBatchError)
+	}
+	
+	Quit Resultaat
 ]]></Implementation>
 </Method>
 
@@ -256,6 +365,8 @@
 </Method>
 
 <Method name="ResyncToeleveringInfo">
+<Description>
+Do ##class(APPS.Halux.Planning.PlanningService).%New().ResyncToeleveringInfo()</Description>
 <Implementation><![CDATA[
 	// Om te resyncen gaan we rechtstreeks de event catcher invoken
 	// Deze events worden echter niet gezien in de rest van het systeem
@@ -330,5 +441,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1947870590"/>
+<Checksum value="2299715001"/>
 </Export>