Index: APPS/Halux/Planning/PlanningService.cls.xml
===================================================================
diff -u -r917 -r946
--- APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 917)
+++ APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 946)
@@ -1,14 +1,18 @@
 <?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-04 10:21:38">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-18 12:00:28">
 <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>62154,37367.760866</TimeChanged>
+<TimeChanged>62168,43309.773643</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");
@@ -26,8 +30,6 @@
 	
 	Set DataSet = ##class(%XML.DataSet).%New("APPS.Halux.Planning.impl.Queries:qGeefPlanningDetail")
 	Do DataSet.SetArgs(Datum, Categorie)
-	Set DataSet.NeedSchema = 0
-	
 	Quit DataSet
 ]]></Implementation>
 </Method>
@@ -51,8 +53,6 @@
 
 	Set DataSet = ##class(%XML.DataSet).%New("APPS.Halux.Planning.impl.Queries:qGeefPlanningOverzicht")
 	Do DataSet.SetArgs(Van, Tot)
-	Set DataSet.NeedSchema = 0
-	
 	Quit DataSet
 ]]></Implementation>
 </Method>
@@ -84,6 +84,23 @@
 ]]></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>
@@ -102,6 +119,60 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakBatch">
+<FormalSpec>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 Iterator = ##class(TECH.ListIterator).%New(ToeleveringNummers)
+	While (Iterator.HasNext())
+	{
+		Set ToeleveringNummer = Iterator.Next()
+		Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer)
+		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 Resultaat.Errors.Insert(MaakBatchError)
+			Set Resultaat.IsGeslaagd = 0
+		}
+	}
+
+	If (Resultaat.IsGeslaagd)
+	{
+		Set Status = Batch.Save()
+		
+		If ($$$ISERR(Status))
+		{
+			Set Resultaat.IsGeslaagd = 0
+		}
+		Else
+		{
+			Set Resultaat.BatchID = Batch.GeefBatchID()
+		}
+	}
+
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
 <Method name="VerplaatsToeleveringen">
 <FormalSpec>Gebruiker:%String,Opmerking:%String,Datum:%Date,ToeleveringNummers:%ListOfDataTypes</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.VerplaatsToeleveringenResultaat</ReturnType>
@@ -140,7 +211,7 @@
 	
 	TSTART
 	&SQL(UPDATE APPS_Halux_Planning_impl.PlanningDataItem SET Gepland = (SELECT VerplaatstVan FROM APPS_Halux_Planning_impl.ExplicietePlanning P
-	 			WHERE ToeleveringsNummer = :ToeleveringsNummer AND ID = (SELECT Max(ID) FROM APPS_Halux_Planning_impl.ExplicietePlanning WHERE P.ToeleveringsNummer = ToeleveringsNummer)))
+	 			WHERE ToeleveringsNummer = :ToeleveringsNummer AND ID = (SELECT Max(ID) FROM APPS_Halux_Planning_impl.ExplicietePlanning WHERE P.ToeleveringsNummer = ToeleveringsNummer)) WHERE ToeleveringsNummer = :ToeleveringsNummer)
 	If ('%ROWCOUNT)
 	{
 		Do Resultaat.MislukteVerplaatsingen.Insert(ToeleveringsNummer)
@@ -189,6 +260,81 @@
 	Quit Resultaat
 ]]></Implementation>
 </Method>
+
+<Method name="ResyncToeleveringInfo">
+<Implementation><![CDATA[
+	// Om te resyncen gaan we rechtstreeks de event catcher invoken
+	// Deze events worden echter niet gezien in de rest van het systeem
+	
+	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	
+	Set GlobalToeleveringen = ##class(%ListOfObjects).%New()
+	Set ToeIterator = ToeleveringAPI.GeefLeverancierToeleveringIt(6332)
+	While (ToeIterator.HasNext()) { Do GlobalToeleveringen.Insert(ToeIterator.Next()) }
+	
+	Set Index = 0
+
+	Set ResultSet=##class(%ResultSet).%New("APPS.Halux.Planning.impl.Queries:qGeefUniekeToeleveringen")
+	Do ResultSet.Execute()
+	While ResultSet.Next() {
+		Set DataToeNr = ResultSet.Data("ToeleveringsNummer")
+		If (Index < GlobalToeleveringen.Count())
+		{
+			Set Index = Index + 1
+			Set GlobalToelevering = GlobalToeleveringen.GetAt(Index)
+			While ((GlobalToelevering.GeefToeNr() < DataToeNr) && (Index < GlobalToeleveringen.Count()))
+			{
+				w "Create "_DataToeNr_" "_GlobalToelevering.GeefToeNr(),!
+				// Zolang de nummers in de global kleiner zijn moeten er nieuwe data items worden aangemaakt
+ 				Set ToeleveringCreatedEventData = ##class(TECH.Events.ToeleveringCreatedEventData).%New(GlobalToelevering)
+ 				Set ToeleveringCreatedEvent = ##class(TECH.Events.ToeleveringCreatedEvent).%New(ToeleveringCreatedEventData)
+				Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringCreatedEventListener(ToeleveringCreatedEvent)
+				
+				Set Index = Index + 1
+				Set GlobalToelevering = GlobalToeleveringen.GetAt(Index)
+			}
+			If (DataToeNr '= GlobalToelevering.GeefToeNr())
+			{
+				w "Deleted "_DataToeNr_" "_GlobalToelevering.GeefToeNr(),!
+				// Als de nr in de dataset verschillend is van deze in de global wil dit zeggen dat de nr in de global
+				// zeker groter is. Het data item mag dus weg.
+				Set Index = Index - 1 // De huidige waarde uit GlobalToeleveringen moet herbekeken worden
+				Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(DataToeNr)
+ 				Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
+ 				Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringDeletedEventListener(ToeleveringDeletedEvent)
+			}
+			Else
+			{
+				w "Modified "_DataToeNr_" "_GlobalToelevering.GeefToeNr(),!
+				// De toeleveringnr komt in beide sets voor
+				Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(DataToeNr)
+ 				Set ToeleveringModifiedEventData = ##class(TECH.Events.ToeleveringModifiedEventData).%New(Toelevering)
+ 				Set ToeleveringModifiedEvent = ##class(TECH.Events.ToeleveringModifiedEvent).%New(ToeleveringModifiedEventData)
+ 				Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringModEventListener(ToeleveringModifiedEvent)
+			}
+		}
+		Else
+		{
+			w "Deleted "_DataToeNr_" "_GlobalToelevering.GeefToeNr(),!
+			// Als er geen volgende toelevering bestaat in de global dan is de opgeslagen data te verwijderen
+			Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(DataToeNr)
+ 			Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
+ 			Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringDeletedEventListener(ToeleveringDeletedEvent)
+		}
+	}
+	
+	While (Index < GlobalToeleveringen.Count())
+	{
+		Set Index = Index + 1
+		// Alle overblijvende toeleveringen in de global zijn nieuwe toeleveringen
+		Set GlobalToelevering = GlobalToeleveringen.GetAt(Index)
+		w "Create "_GlobalToelevering.GeefToeNr(),!
+ 		Set ToeleveringCreatedEventData = ##class(TECH.Events.ToeleveringCreatedEventData).%New(GlobalToelevering)
+ 		Set ToeleveringCreatedEvent = ##class(TECH.Events.ToeleveringCreatedEvent).%New(ToeleveringCreatedEventData)
+		Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringCreatedEventListener(ToeleveringCreatedEvent)
+	}
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="3506573209"/>
+<Checksum value="1266469817"/>
 </Export>