Index: zTryout/PRA/NietInteractieveFacturatie.cls.xml
===================================================================
diff -u
--- zTryout/PRA/NietInteractieveFacturatie.cls.xml	(revision 0)
+++ zTryout/PRA/NietInteractieveFacturatie.cls.xml	(revision 47775)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.PRA.NietInteractieveFacturatie">
+<Super>%RegisteredObject</Super>
+
+<Method name="FactureerAlleBons">
+<Description>
+Do ##class(zTryout.PRA.NietInteractieveFacturatie).FactureerAlleBons()</Description>
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Set AantalGelukt = 0
+	Set AantalMislukt = 0
+	
+	Set FDT = DT
+	Set BJ = 2018
+	Set BP = 2017.11
+	
+	Set KLNr = ""
+	For { 
+		set KLNr = $order(^KUL(KLNr)) 
+		quit:(""=KLNr)
+		
+		If $Data(^KUL(KLNr,"F")) {
+			Set BonNr = ""
+			For {
+				Set BonNr = $Order(^KUL(KLNr,"F",BonNr))
+				Quit:(""=BonNr)
+				
+				Try {
+					Set BonNrs(BonNr)=""
+					Do ##class(Flow.Facturatie.BulkFacturatie).Serie(.BonNrs)
+					Write "Gelukt: ", BonNr, !
+
+					Set AantalGelukt = AantalGelukt + 1
+				} Catch {
+					Do ##class(vhLib.Logger).%New("").Warning("",##class(TECH.ExceptionHandler).Catch().ToString())
+					Write "Mislukt: ", BonNr, !
+					Set AantalMislukt = AantalMislukt + 1
+				}
+				
+				Kill BonNrs
+			}
+		}
+	}
+	
+	Write "AantalGelukt: " _ AantalGelukt
+	Write "AantalMislukt: " _ AantalMislukt
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>