Index: vhUnitTest/APPS/Halux/common/TestBatchService.cls.xml
===================================================================
diff -u -r946 -r995
--- vhUnitTest/APPS/Halux/common/TestBatchService.cls.xml	(.../TestBatchService.cls.xml)	(revision 946)
+++ vhUnitTest/APPS/Halux/common/TestBatchService.cls.xml	(.../TestBatchService.cls.xml)	(revision 995)
@@ -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-17 11:21:25">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-08 14:58:52">
 <Class name="vhUnitTest.APPS.Halux.common.TestBatchService">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.common.TestBatchService")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62167,40965.716886</TimeChanged>
+<TimeChanged>62189,53939.421479</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="OnBeforeAllTests">
@@ -22,25 +22,48 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestBatchService">
+<Method name="OnAfterAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Kill ^KTO1(298006)
+	Kill ^KTO(6332,298006)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="TestBatchService">
+<Implementation><![CDATA[
 	Set BatchService = ##class(APPS.Halux.common.BatchService).%New()
 	
 	Set Toeleveringen = ##class(%ListOfObjects).%New()
 	Do Toeleveringen.Insert(##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(298006))
 	
-	Set Batch = BatchService.GeefNieuweBatch(Toeleveringen)
-	Do Batch.Save()
+	Set Batch = BatchService.GeefNieuweBatch(Toeleveringen,##class(APPS.Halux.common.enu.ProductieLijn).Een())
+	Do Batch.%Save()
 	
 	Do $$$AssertTrue($IsObject(Batch),"De batch is een object")
 	Do $$$AssertTrue(Batch.GeefBatchID()>0,"Er is een batch id verkregen")
-	Do $$$AssertEquals(Batch.GeefVroegsteDueOutTime(),$ZDT("62151,43200",3),"De due out time")
-	Do $$$AssertEquals(Batch.GeefProductieGroep(),##class(APPS.Halux.enu.ProductieGroep).Stuk(),"De productiegroep")
+	Do $$$AssertEquals(Batch.GeefProductieGroep(),##class(APPS.Halux.common.enu.ProductieGroep).Stuk(),"De productiegroep")
 	
 	Set BatchID = Batch.GeefBatchID()
 	Set Batch = ""
 	
+	// Dezelfde toelevering nog eens in een batch proberen steken
+	
+	Set $ZTRAP = "Error"
+	Set Batch = BatchService.GeefNieuweBatch(Toeleveringen,##class(APPS.Halux.common.enu.ProductieLijn).Een())
+	Goto Gelukt
+Error
+	Set $ZTRAP = ""
+	Set Exceptie = ##class(TECH.ExceptionHandler).Catch()
+	Do $$$AssertTrue($IsObject(Exceptie),"Een exceptie werd aangemaakt")
+	Do $$$AssertEquals(Exceptie.%ClassName(),"MaakBatchException","De exceptie is van het type MaakBatchException")
+	Goto Verwijder
+Gelukt
+	Do $$$AssertTrue(0,"De batch werd wel succesvol gemaakt, dit mag niet gebeuren")
+	
+	
+Verwijder
 	Do BatchService.VerwijderBatch(BatchID)
 	
 	Set Batch = BatchService.GeefBatch(BatchID)
@@ -49,5 +72,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3814428778"/>
+<Checksum value="522782199"/>
 </Export>