Index: APPS/Halux/common/BatchService.cls.xml
===================================================================
diff -u -r994 -r1012
--- APPS/Halux/common/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 994)
+++ APPS/Halux/common/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 1012)
@@ -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-04-07 10:09:29">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-13 14:22:54">
 <Class name="APPS.Halux.common.BatchService">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62188,36577.268402</TimeChanged>
+<TimeChanged>62194,51785.880265</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefBatch">
@@ -80,14 +80,20 @@
 <Implementation><![CDATA[
 	Set Batch = ""
 	Set ToeleveringNummer = Toelevering.GeefToeNr()
-	&SQL(SELECT BatchImpl Into :BatchID FROM APPS_Halux_common_impl.BatchImpl_Toeleveringen WHERE element_key = :ToeleveringNummer)
+	&SQL(SELECT BatchImpl Into :BatchID FROM APPS_Halux_common_impl.BatchImpl_ToeleveringenIndex WHERE element_key = :ToeleveringNummer)
 	If ($Get(BatchID))
 	{
 		Set Batch = ##class(APPS.Halux.common.impl.BatchImpl).%OpenId(BatchID)
 	}
 	Quit Batch
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderBatchesOuderDan">
+<FormalSpec>AantalDagen:%Integer=30</FormalSpec>
+<Implementation><![CDATA[	&SQL(DELETE FROM APPS_Halux_common_impl.BatchImpl WHERE DATEDIFF('dd',AanmaakTijdStip,CURRENT_TIMESTAMP) > :AantalDagen AND IsActief = 0)
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="3433110843"/>
+<Checksum value="3447441370"/>
 </Export>