Index: APPS/Halux/Planning/PlanningService.cls.xml
===================================================================
diff -u -r946 -r954
--- APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 946)
+++ APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 954)
@@ -1,12 +1,12 @@
 <?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-18 12:00:28">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-25 07:59:29">
 <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>62168,43309.773643</TimeChanged>
+<TimeChanged>62175,28856.089924</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="ApplicatieNaam">
@@ -183,15 +183,19 @@
 	While (Iterator.HasNext())
 	{
 		Set ToeleveringsNummer = Iterator.Next()
-		Set VerplaatstVan = ""
-		&SQL(SELECT Gepland Into :VerplaatstVan FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
-		If ($Get(VerplaatstVan))
+		Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(ToeleveringsNummer)
+		If ($IsObject(ToeleveringInfo))
 		{ 
-			Set ExplicietePlanning = ##class(APPS.Halux.Planning.impl.ExplicietePlanning).%New(Gebruiker, Opmerking, VerplaatstVan, ToeleveringsNummer)
-			Set Status = ExplicietePlanning.%Save()
-			If ($$$ISERR(Status)) { Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Expliciete planningsobject kon niet gesaved worden!","Toelevering: "_ToeleveringsNummer_$c(10)_$c(13)_"Status: "_$$ParseStatus^vhLib(Status)) }
-			&SQL(UPDATE APPS_Halux_Planning_impl.PlanningDataItem SET Gepland = :Datum WHERE ToeleveringsNummer = :ToeleveringsNummer)
-			Do Resultaat.GelukteVerplaatsingen.Insert(ToeleveringsNummer)
+			Do ToeleveringInfo.VerplaatsToelevering(Gebruiker,Opmerking,Datum)
+			Set Status = ToeleveringInfo.%Save()
+			If ($$$ISOK(Status))
+			{
+				Do Resultaat.GelukteVerplaatsingen.Insert(ToeleveringsNummer)
+			}
+			Else
+			{
+				Do Resultaat.MislukteVerplaatsingen.Insert(ToeleveringsNummer)
+			}
 		}
 		Else
 		{
@@ -209,31 +213,22 @@
 <Implementation><![CDATA[
 	Set Resultaat = ##class(APPS.Halux.Planning.dto.VerplaatsToeleveringenResultaat).%New()
 	
-	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)
-	If ('%ROWCOUNT)
+	Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(ToeleveringsNummer)
+	If ($IsObject(ToeleveringInfo))
 	{
-		Do Resultaat.MislukteVerplaatsingen.Insert(ToeleveringsNummer)
-		TROLLBACK
-		Do ##class(vhLib.Logger).%New("Halux planningstool").Warning("Verplaatsing van toelevering gefaald.","Bij het verwijderen van de laatste verplaatsing voor toeleveringsnummer "_ToeleveringsNummer_" kon het planningsitem niet geupdate worden.")
-	}
-	Else
-	{
-		&SQL(DELETE 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))
-		If ('%ROWCOUNT)
+		If (ToeleveringInfo.VerwijderLaatsteVerplaatsing())
 		{
-			Do Resultaat.MislukteVerplaatsingen.Insert(ToeleveringsNummer)
-			TROLLBACK
-			Do ##class(vhLib.Logger).%New("Halux planningstool").Warning("Verplaatsing van toelevering gefaald.","Bij het verwijderen van de laatste verplaatsing voor toeleveringsnummer "_ToeleveringsNummer_" kon het expliciete geplande item niet verwijderd worden.")	
+			Do Resultaat.GelukteVerplaatsingen.Insert(ToeleveringsNummer)
 		}
 		Else
 		{
-			Do Resultaat.GelukteVerplaatsingen.Insert(ToeleveringsNummer)
-			TCOMMIT
+			Do Resultaat.MislukteVerplaatsingen.Insert(ToeleveringsNummer)
 		}
 	}
+	Else
+	{
+		Do Resultaat.MislukteVerplaatsingen.Insert(ToeleveringsNummer)
+	}
 	
 	Quit Resultaat
 ]]></Implementation>
@@ -245,18 +240,17 @@
 <Implementation><![CDATA[
 	Set Resultaat = ##class(APPS.Halux.Planning.dto.VerplaatsToeleveringenResultaat).%New()
 	
-	&SQL(UPDATE APPS_Halux_Planning_impl.PlanningDataItem SET Gepland = DueOut WHERE ToeleveringsNummer = :ToeleveringsNummer)
-	If (%ROWCOUNT)
+	Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(ToeleveringsNummer)
+	If ($IsObject(ToeleveringInfo))
 	{
-		&SQL(DELETE FROM APPS_Halux_Planning_impl.ExplicietePlanning WHERE ToeleveringsNummer = :ToeleveringsNummer)
-		If ('%ROWCOUNT)
-		{
-			Do ##class(vhLib.Logger).%New("Halux planningstool").Warning("Verwijder alle verplaatsingen OUT OF SYNC.","Alle verplaatsingen voor toeleveringsnummer "_ToeleveringsNummer_" werden verwijderd, maar er waren geen expliciete planningitems aanwezig")		
-		}
+		Do ToeleveringInfo.VerwijderAlleVerplaatsingen()
+		Do Resultaat.GelukteVerplaatsingen.Insert(ToeleveringsNummer)
 	}
+	Else
+	{
+		Do Resultaat.MislukteVerplaatsingen.Insert(ToeleveringsNummer)
+	}
 	
-	Do Resultaat.GelukteVerplaatsingen.Insert(ToeleveringsNummer)
-	
 	Quit Resultaat
 ]]></Implementation>
 </Method>
@@ -277,7 +271,7 @@
 	Set ResultSet=##class(%ResultSet).%New("APPS.Halux.Planning.impl.Queries:qGeefUniekeToeleveringen")
 	Do ResultSet.Execute()
 	While ResultSet.Next() {
-		Set DataToeNr = ResultSet.Data("ToeleveringsNummer")
+		Set DataToeNr = ResultSet.Data("ToeleveringNummer")
 		If (Index < GlobalToeleveringen.Count())
 		{
 			Set Index = Index + 1
@@ -336,5 +330,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1266469817"/>
+<Checksum value="1947870590"/>
 </Export>