Index: BL/Legacy/EWBON.cls.xml
===================================================================
diff -u -r49069 -r49071
--- BL/Legacy/EWBON.cls.xml	(.../EWBON.cls.xml)	(revision 49069)
+++ BL/Legacy/EWBON.cls.xml	(.../EWBON.cls.xml)	(revision 49071)
@@ -89,40 +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_"\")
+	Do ##class(vhLib.Logger).%New("").Debug("VerwerkConsolidatieNaarBon","Start "_CONSNr_"/"_$Get(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\")
+		Do ##class(vhLib.Logger).%New("").Debug("VerwerkConsolidatieNaarBon","in HeeftMeerdereOrders\")
 		#dim TeVerwerkenConsNrs As list of %String = ##class(BL.Legacy.EWBON).SplitsPerOrder(CONSNr)
-		Do ##class(vhLib.Logger).%New("").Debug("splitsperorder uitgevoerd")
+		Do ##class(vhLib.Logger).%New("").Debug("VerwerkConsolidatieNaarBon","splitsperorder uitgevoerd")
 	}
 	Else
 	{
-		Do ##class(vhLib.Logger).%New("").Debug("NIET in HeeftMeerdereOrders\")
+		Do ##class(vhLib.Logger).%New("").Debug("VerwerkConsolidatieNaarBon","NIET in HeeftMeerdereOrders\")
 		Set TeVerwerkenConsNrs = ##class(%ListOfDataTypes).%New()
 	}
 	
 	Do TeVerwerkenConsNrs.InsertAt(CONSNr,1)
 	
-		Do ##class(vhLib.Logger).%New("").Debug("TeVerwerkenConsNrs.Count() ="_TeVerwerkenConsNrs.Count()_"\")
+		Do ##class(vhLib.Logger).%New("").Debug("VerwerkConsolidatieNaarBon","TeVerwerkenConsNrs.Count() ="_TeVerwerkenConsNrs.Count()_"\")
 	Set Iterator = ##class(TECH.ListIterator).%New(TeVerwerkenConsNrs)
 	While (Iterator.HasNext())
 	{
-		Do ##class(vhLib.Logger).%New("").Debug("in Iterator\")
+		Do ##class(vhLib.Logger).%New("").Debug("VerwerkConsolidatieNaarBon","in Iterator\")
 		Set CONSNr = Iterator.Next()
-		Do ##class(vhLib.Logger).%New("").Debug("in Iterator ConsNr "_CONSNr_"\")
+		Do ##class(vhLib.Logger).%New("").Debug("VerwerkConsolidatieNaarBon","in Iterator ConsNr "_CONSNr_"\")
 		#dim OpbonGelukt = $$BON^EWBON(CONSNr,.NoAsk)
-		Do ##class(vhLib.Logger).%New("").Debug("in Iterator OpbonGelukt "_OpbonGelukt_"\")
+		Do ##class(vhLib.Logger).%New("").Debug("VerwerkConsolidatieNaarBon","in Iterator OpbonGelukt "_OpbonGelukt_"\")
 		Do ##class(DOM.MAG.event.EventRaiser).%New().RaisePickingCompleetEvent(CONSNr)
-		Do ##class(vhLib.Logger).%New("").Debug("in Iterator event geraised\")
+		Do ##class(vhLib.Logger).%New("").Debug("VerwerkConsolidatieNaarBon","in Iterator event geraised\")
 		Do:(DoePrintFax)&&(OpbonGelukt) ..PrintFaxBon(CONSNr)
-		Do ##class(vhLib.Logger).%New("").Debug("end while")
+		Do ##class(vhLib.Logger).%New("").Debug("VerwerkConsolidatieNaarBon","end while")
 	}
 	Do:'$Get(NoAsk) REWRITE^EWORDST(1)
-		Do ##class(vhLib.Logger).%New("").Debug("end VerwerkConsolidatieNaarBon")
+		Do ##class(vhLib.Logger).%New("").Debug("VerwerkConsolidatieNaarBon","end VerwerkConsolidatieNaarBon")
 ]]></Implementation>
 </Method>