Index: zTryout/PV/TBXZaag/Test.cls.xml
===================================================================
diff -u -r2731 -r2743
--- zTryout/PV/TBXZaag/Test.cls.xml	(.../Test.cls.xml)	(revision 2731)
+++ zTryout/PV/TBXZaag/Test.cls.xml	(.../Test.cls.xml)	(revision 2743)
@@ -31,9 +31,9 @@
 	For I=1:1:$LL(IDs) {
 		Set BatchID=$LI(IDs,I)
 		;Do ..Sequence(BatchID)
-		Set bl=##class(APPS.Halux.PPS.TBXZaag.impl.Builder).%New(BatchID)
-		Do ##class(APPS.Halux.PPS.TBXZaag.impl.VerwijderBatch).VerwijderBatches(BatchID)
-		Do bl.MaakZaagOpdrachten()
+		Set Batch=##class(APPS.Halux.common.BatchService).GeefBatch(BatchID)
+		Do Batch.RaiseBatchHergeopendEvent()
+		Do Batch.RaiseBatchGeslotenEvent()
 		}	
 		
 	Set rs=##class(%ResultSet).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelper:qActieveBatchLijst")
@@ -137,7 +137,7 @@
 
 <Method name="Lijst">
 <Description>
-Do ##class(zTryout.PV.TBXZaag.Test).Lijst(11548,"TipOn")</Description>
+Do ##class(zTryout.PV.TBXZaag.Test).Lijst(11953,"")</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>BatchID,SubBatch</FormalSpec>
 <Implementation><![CDATA[