Index: APPS/Halux/TBX/impl/Test.cls.xml
===================================================================
diff -u -r1073 -r1133
--- APPS/Halux/TBX/impl/Test.cls.xml	(.../Test.cls.xml)	(revision 1073)
+++ APPS/Halux/TBX/impl/Test.cls.xml	(.../Test.cls.xml)	(revision 1133)
@@ -36,6 +36,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SyncBatch">
+<Description>
+Do ##class(APPS.Halux.TBX.impl.Test).SyncBatch()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	;Set BatchID=8728
+	w !
+	s t1=$zh
+	Set rs=##class(%ResultSet).%New("APPS.Halux.TBX.impl.WerkpostZaagHelper:qSyncBatch")
+	Set sc=rs.Execute(8886,8887,8888) w $$ParseStatus^vhLib(sc)
+	While (rs.Next()){
+	 ;Write $G(rs.Data("ID"))
+	 k %d m %d=rs.Data zw %d
+	 ;Write !
+	}
+	s t2=$zh
+	
+	w "elapsed time: ",(t2*1000)-(t1*1000)
+]]></Implementation>
+</Method>
+
 <Method name="PlaatMat">
 <Description>
 Do ##class(APPS.Halux.TBX.impl.Test).PlaatMat()</Description>