Index: vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml
===================================================================
diff -u -r915 -r946
--- vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 915)
+++ vhUnitTest/APPS/Halux/Planning/TestPlanningService.cls.xml	(.../TestPlanningService.cls.xml)	(revision 946)
@@ -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-02-23 08:25:31">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-18 11:01:47">
 <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>62145,30393.86532</TimeChanged>
+<TimeChanged>62168,39788.499721</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="OnBeforeAllTests">
@@ -21,10 +21,29 @@
 	Set ^KTO(6332,296195,101)="\629192\1\\\47.68\#\\47.68\47.68\\L\1\\100\47.68\KTRPL\\\\E\EUR\\\11/06\\118153\101\\\\\\\\"
 	Set ^KTO(6332,296195,102)="\629192\1\\\47.68\#\\47.68\47.68\\L\1\\100\47.68\KTRPL\\\\E\EUR\\\11/06\\118153\102\\\\\\\\"
 	
+	Set ^KTO1(298209) ="6332\"
+	
+	Set ^KTO(6332,298209,0)=102                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         
+	Set ^KTO(6332,298209,1)="\18.03.11\KOMM. TESTKLANT VAN HOECK\\\6332\123441\1000\\\\\\\\\\EUR\62172,43200\\\2\\\\"
+	Set ^KTO(6332,298209,4)=2
+	Set ^KTO(6332,298209,101)="\614077\1\\\21.14\#\\21.14\21.14\\L\1\\100\21.14\KTRPL\\\\E\EUR\\\11/12\\123441\101\\\\\\\\"
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = ##super()
+	
+	Kill ^KTO1(296195)	
+	Kill ^KTO(6332,296195)
+	
+	Quit Status
+]]></Implementation>
+</Method>
+
 <Method name="TestInstellingen">
 <Implementation><![CDATA[
 	Set Service = ##class(APPS.Halux.Planning.PlanningService).%New()
@@ -63,12 +82,12 @@
 	Set Service = ##class(APPS.Halux.Planning.PlanningService).%New()
 	Set ToeleveringsNummers = ##class(%ListOfDataTypes).%New()
 	Do ToeleveringsNummers.Insert(296195)
-	Do ToeleveringsNummers.Insert(296196)
+	Do ToeleveringsNummers.Insert(133333)
 	Set Resultaat = Service.VerplaatsToeleveringen("UTGebruiker", "Een opmerking", 62135, ToeleveringsNummers)
 
 	Do $$$AssertTrue($IsObject(Resultaat),"Het resultaat is ingesteld")
 	Do $$$AssertEquals(Resultaat.GelukteVerplaatsingen.GetAt(1),ToeleveringsNummer,"Toelevering 296195 is geslaagd")
-	Do $$$AssertEquals(Resultaat.MislukteVerplaatsingen.GetAt(1),296196,"Verplaatsing gefaald omdat deze niet aanwezig is in de databank")
+	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
@@ -78,7 +97,7 @@
 	Do $$$AssertEquals($Piece(Gepland," "),$zdt(62135,3),"Het item is gepland op de nieuwe datum")
 	
 	Set Bestaat = ""
-	&SQL(SELECT ID INTO :Bestaat FROM APPS_Halux_Planning_impl.ExplicietePlanning WHERE ToeleveringsNummer = 296196)
+	&SQL(SELECT ID INTO :Bestaat FROM APPS_Halux_Planning_impl.ExplicietePlanning WHERE ToeleveringsNummer = 133333)
 	Set Bestaat = $Get(Bestaat,0) > 0
 	Do $$$AssertFalse(Bestaat, "De data voor de expliciete planning is niet bewaard")
 
@@ -160,6 +179,40 @@
  	Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringDeletedEventListener(ToeleveringDeletedEvent)
 ]]></Implementation>
 </Method>
+
+<Method name="TestMaakBatchSucces">
+<Implementation><![CDATA[
+	Set ToeleveringNummers = ##class(%ListOfDataTypes).%New()
+	Do ToeleveringNummers.Insert(298209)
+	
+	Set Service = ##class(APPS.Halux.Planning.PlanningService).%New()
+	Set Resultaat = Service.MaakBatch(ToeleveringNummers)
+	
+	Do $$$AssertTrue($IsObject(Resultaat),"Het resultaat is een object")
+	Do $$$AssertTrue(Resultaat.BatchID > 0,"Een batch werd aangemaakt")
+	Do $$$AssertTrue(Resultaat.IsGeslaagd,"De batch werd gemaakt")
+	Do $$$AssertEquals(Resultaat.Errors.Count(),0,"Er zijn geen problemen")
+	
+	Do ##class(APPS.Halux.common.BatchService).%New().VerwijderBatch(Resultaat.BatchID)
+]]></Implementation>
+</Method>
+
+<Method name="TestMaakBatchFaal">
+<Implementation><![CDATA[
+	Set ToeleveringNummers = ##class(%ListOfDataTypes).%New()
+	Do ToeleveringNummers.Insert(296195)
+	
+	Set Service = ##class(APPS.Halux.Planning.PlanningService).%New()
+	Set Resultaat = Service.MaakBatch(ToeleveringNummers)
+	
+	// Maakbatch zal falen omdat de toelevering enkel kaderdeuren bevat
+	
+	Do $$$AssertTrue($IsObject(Resultaat),"Het resultaat is een object")
+	Do $$$AssertEquals(Resultaat.BatchID,"","Er is geen batchid")
+	Do $$$AssertFalse(Resultaat.IsGeslaagd,"De batch werd niet gemaakt")
+	Do $$$AssertEquals(Resultaat.Errors.Count(),1,"Er is 1 probleem")
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="1450744821"/>
+<Checksum value="2400993876"/>
 </Export>