Index: vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml
===================================================================
diff -u -r946 -r956
--- vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 946)
+++ vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 956)
@@ -1,11 +1,11 @@
 <?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 11:01:47">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 16:51:14">
 <Class name="vhUnitTest.APPS.Halux.Planning.TestPlanningService">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.Planning.TestPlanningService")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62168,39788.499721</TimeChanged>
+<TimeChanged>62174,60759.541411</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="OnBeforeAllTests">
@@ -89,16 +89,12 @@
 	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),ToeleveringsNummer,"Toelevering 296195 is geslaagd")
 	Do $$$AssertEquals(Resultaat.MislukteVerplaatsingen.GetAt(1),133333,"Verplaatsing gefaald omdat deze niet aanwezig is in de databank")
 	
-	&SQL(SELECT ID INTO :Bestaat FROM APPS_Halux_Planning_impl.ExplicietePlanning WHERE ToeleveringsNummer = :ToeleveringsNummer)
-	Set Bestaat = $Get(Bestaat,0) > 0
-	Do $$$AssertTrue(Bestaat, "De data voor de expliciete planning is bewaard")
+	Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(296195)
 	
-	&SQL(SELECT Gepland Into :Gepland FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
-	Do $$$AssertEquals($Piece(Gepland," "),$zdt(62135,3),"Het item is gepland op de nieuwe datum")
+	Do $$$AssertEquals(ToeleveringInfo.ExplicietePlanningen.Count(),1, "De data voor de expliciete planning is bewaard")
+	Do $$$AssertEquals(ToeleveringInfo.Dag,62135,"Het item is gepland op de nieuwe datum")
 	
-	Set Bestaat = ""
-	&SQL(SELECT ID INTO :Bestaat FROM APPS_Halux_Planning_impl.ExplicietePlanning WHERE ToeleveringsNummer = 133333)
-	Set Bestaat = $Get(Bestaat,0) > 0
+	Set Bestaat = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%ExistsId(133333)
 	Do $$$AssertFalse(Bestaat, "De data voor de expliciete planning is niet bewaard")
 
  	Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(ToeleveringsNummer)
@@ -121,24 +117,22 @@
 	Do ToeleveringsNummers.Insert(ToeleveringsNummer)
 	
 	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62135, ToeleveringsNummers)
-	&SQL(SELECT Gepland Into :Gepland FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
+	
+	Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(296195)
 	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
-	Do $$$AssertEquals($Piece(Gepland," "),$zdt(62135,3),"Het item is gepland op de nieuwe datum")
+	Do $$$AssertEquals(ToeleveringInfo.Dag,62135,"Het item is gepland op de nieuwe datum")
 	
 	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62133, ToeleveringsNummers)
-	&SQL(SELECT Gepland Into :Gepland FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
 	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
-	Do $$$AssertEquals($Piece(Gepland," "),$zdt(62133,3),"Het item is gepland op de nieuwe datum")
+	Do $$$AssertEquals(ToeleveringInfo.Dag,62133,"Het item is gepland op de nieuwe datum")
 	
 	Set Resultaat = Service.VerwijderLaatsteVerplaatsing(ToeleveringsNummer)
-	&SQL(SELECT Gepland Into :Gepland FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
 	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
-	Do $$$AssertEquals($Piece(Gepland," "),$zdt(62135,3),"Het item is terug geplaatst op de vorige verplaatsing")
+	Do $$$AssertEquals(ToeleveringInfo.Dag,62135,"Het item is terug geplaatst op de vorige verplaatsing")
 	
 	Set Resultaat = Service.VerwijderLaatsteVerplaatsing(ToeleveringsNummer)
-	&SQL(SELECT Gepland Into :Gepland FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
 	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
-	Do $$$AssertEquals($Piece(Gepland," "),$zdt(62137,3),"Het item is terug geplaatst op de vorige verplaatsing")
+	Do $$$AssertEquals(ToeleveringInfo.Dag,62137,"Het item is terug geplaatst op de vorige verplaatsing")
 	
 	Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(ToeleveringsNummer)
  	Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
@@ -159,20 +153,19 @@
 	Set ToeleveringsNummers = ##class(%ListOfDataTypes).%New()
 	Do ToeleveringsNummers.Insert(ToeleveringsNummer)
 	
+	Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(296195)
+	
 	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62135, ToeleveringsNummers)
-	&SQL(SELECT Gepland Into :Gepland FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
 	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
-	Do $$$AssertEquals($Piece(Gepland," "),$zdt(62135,3),"Het item is gepland op de nieuwe datum")
+	Do $$$AssertEquals(ToeleveringInfo.Dag,62135,"Het item is gepland op de nieuwe datum")
 	
 	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62133, ToeleveringsNummers)
-	&SQL(SELECT Gepland Into :Gepland FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
 	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
-	Do $$$AssertEquals($Piece(Gepland," "),$zdt(62133,3),"Het item is gepland op de nieuwe datum")
+	Do $$$AssertEquals(ToeleveringInfo.Dag,62133,"Het item is gepland op de nieuwe datum")
 	
 	Set Resultaat = Service.VerwijderAlleVerplaatsingen(ToeleveringsNummer)
-	&SQL(SELECT Gepland Into :Gepland FROM APPS_Halux_Planning_impl.PlanningDataItem WHERE ToeleveringsNummer = :ToeleveringsNummer)
 	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),296195,"De verplaatsing is gelukt")
-	Do $$$AssertEquals($Piece(Gepland," "),$zdt(62137,3),"Het item is terug geplaatst op de dueout time")
+	Do $$$AssertEquals(ToeleveringInfo.Dag,62137,"Het item is terug geplaatst op de dueout time")
 	
 	Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(ToeleveringsNummer)
  	Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData)
@@ -214,5 +207,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2400993876"/>
+<Checksum value="1938909177"/>
 </Export>