Index: BL/Legacy/EWBON.cls.xml
===================================================================
diff -u -r31926 -r44879
--- BL/Legacy/EWBON.cls.xml	(.../EWBON.cls.xml)	(revision 31926)
+++ BL/Legacy/EWBON.cls.xml	(.../EWBON.cls.xml)	(revision 44879)
@@ -106,12 +106,24 @@
 	{
 		Set CONSNr = Iterator.Next()
 		#dim OpbonGelukt = $$BON^EWBON(CONSNr,.NoAsk)
+		Do ..RaisePickingCompleetEvent(CONSNr)
 		Do:(DoePrintFax)&&(OpbonGelukt) ..PrintFaxBon(CONSNr)
 	}
 	Do:'$Get(NoAsk) REWRITE^EWORDST(1)
 ]]></Implementation>
 </Method>
 
+<Method name="RaisePickingCompleetEvent">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>CONSNr:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set EventData = ##class(TECH.Events.UGLYPickingEventData).%New(CONSNr)
+	Set Event = ##class(TECH.Events.PickingCompleetEvent).%New(EventData)
+	Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Event)
+]]></Implementation>
+</Method>
+
 <Method name="BerekenVerpakkingEnStapeling">
 <Description>
 Deze wordt best in een aparte thread opgeroepen.  Zie BON^EWBON() </Description>