Index: BL/Legacy/EWBON.cls.xml
===================================================================
diff -u -r45402 -r49069
--- BL/Legacy/EWBON.cls.xml	(.../EWBON.cls.xml)	(revision 45402)
+++ BL/Legacy/EWBON.cls.xml	(.../EWBON.cls.xml)	(revision 49069)
@@ -89,27 +89,40 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>CONSNr:%String,NoAsk,DoePrintFax:%Boolean=1</FormalSpec>
 <Implementation><![CDATA[
+	Do ##class(vhLib.Logger).%New("").Debug("VerwerkConsolidatieNaarBon","Start "_CONSNr_"/"_NoAsk_"/"_DoePrintFax_"\")
 	#dim KLNr As %String = $P(^ORDW("D",CONSNr),"\")
+	Do ##class(vhLib.Logger).%New("").Debug("VerwerkConsolidatieNaarBon","KLNr "_KLNr_"\")
 	
 	If (##class(BL.Legacy.EWBON).HeeftMeerdereOrders(CONSNr) && $$EenOPerBVoorKlant^EWORDS6(KLNr))
 	{
+		Do ##class(vhLib.Logger).%New("").Debug("in HeeftMeerdereOrders\")
 		#dim TeVerwerkenConsNrs As list of %String = ##class(BL.Legacy.EWBON).SplitsPerOrder(CONSNr)
+		Do ##class(vhLib.Logger).%New("").Debug("splitsperorder uitgevoerd")
 	}
 	Else
 	{
+		Do ##class(vhLib.Logger).%New("").Debug("NIET in HeeftMeerdereOrders\")
 		Set TeVerwerkenConsNrs = ##class(%ListOfDataTypes).%New()
 	}
 	
 	Do TeVerwerkenConsNrs.InsertAt(CONSNr,1)
+	
+		Do ##class(vhLib.Logger).%New("").Debug("TeVerwerkenConsNrs.Count() ="_TeVerwerkenConsNrs.Count()_"\")
 	Set Iterator = ##class(TECH.ListIterator).%New(TeVerwerkenConsNrs)
 	While (Iterator.HasNext())
 	{
+		Do ##class(vhLib.Logger).%New("").Debug("in Iterator\")
 		Set CONSNr = Iterator.Next()
+		Do ##class(vhLib.Logger).%New("").Debug("in Iterator ConsNr "_CONSNr_"\")
 		#dim OpbonGelukt = $$BON^EWBON(CONSNr,.NoAsk)
+		Do ##class(vhLib.Logger).%New("").Debug("in Iterator OpbonGelukt "_OpbonGelukt_"\")
 		Do ##class(DOM.MAG.event.EventRaiser).%New().RaisePickingCompleetEvent(CONSNr)
+		Do ##class(vhLib.Logger).%New("").Debug("in Iterator event geraised\")
 		Do:(DoePrintFax)&&(OpbonGelukt) ..PrintFaxBon(CONSNr)
+		Do ##class(vhLib.Logger).%New("").Debug("end while")
 	}
 	Do:'$Get(NoAsk) REWRITE^EWORDST(1)
+		Do ##class(vhLib.Logger).%New("").Debug("end VerwerkConsolidatieNaarBon")
 ]]></Implementation>
 </Method>