Index: APPS/Halux/common/impl/BatchImpl.cls.xml
===================================================================
diff -u -r946 -r954
--- APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 946)
+++ APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 954)
@@ -1,9 +1,9 @@
 <?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 13:15:43">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 16:43:38">
 <Class name="APPS.Halux.common.impl.BatchImpl">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,APPS.Halux.common.Batch</Super>
-<TimeChanged>62168,47823.883823</TimeChanged>
+<TimeChanged>62174,60304.400541</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Batch">
@@ -26,7 +26,7 @@
 		}
 		Else
 		{
-			Set Status = 0
+			Set Status = $$$ERROR($$$GeneralError,"Batch is niet aanwezig in het systeem")
 		}
 	}
 	Else
@@ -127,24 +127,7 @@
 <FormalSpec>Toelevering:DOM.LEV.Toelevering</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Set IsAanwezig = 0
-	
-	Set ResultSet=##class(%ResultSet).%New()
-	Do ResultSet.Prepare("SELECT ID FROM PPS.Batch")
-	Do ResultSet.Execute()
-	While (('IsAanwezig) && ResultSet.Next()) {
-		Set ID = ResultSet.Data("ID")
-		Set Batch = ##class(DS.PPS.TBX.Batch).%OpenId(ID)
-		Set i = 0
-		While (('IsAanwezig) && (i < Batch.Toeleveringen.Count()))
-		{
-			Set i = i + 1
-			Set IsAanwezig = $Piece(Batch.Toeleveringen.GetAt(i),"||",2) = Toelevering.GeefToeNr()
-		}
-	}
-	
-	Quit IsAanwezig
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.common.BatchService).%New().GeefBijhorendeBatch(Toelevering) '= ""
 ]]></Implementation>
 </Method>
 
@@ -178,5 +161,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2048509074"/>
+<Checksum value="3907581299"/>
 </Export>