Index: BL/MB/UGLYPicking/ReceptieProductie.cls.xml
===================================================================
diff -u -r37684 -r56985
--- BL/MB/UGLYPicking/ReceptieProductie.cls.xml	(.../ReceptieProductie.cls.xml)	(revision 37684)
+++ BL/MB/UGLYPicking/ReceptieProductie.cls.xml	(.../ReceptieProductie.cls.xml)	(revision 56985)
@@ -1770,6 +1770,45 @@
   Do MailAPI.VerstuurMail(Mail)
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkHangendeBuffers">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OuderdomInMinuten:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	New RGIDLoop,VolgNrLoop,LijnNrLoop
+ 	Set (RGIDLoop,VolgNrLoop,LijnNrLoop)=""
+	
+	#dim EersteHorolog As TECH.Horolog = 0
+	
+	For  Set VolgNrLoop=$O(^UPRCP("B","TB",VolgNrLoop)) Quit:(VolgNrLoop="")  Do
+	.  Set EersteHorolog = 0
+	.  For  Set LijnNrLoop=$O(^UPRCP("B","TB",VolgNrLoop,LijnNrLoop)) Quit:(LijnNrLoop="")  Do
+	..   Set Rec=^UPRCP("B","TB",VolgNrLoop,LijnNrLoop)
+	..   Set:(EersteHorolog=0) EersteHorolog = $Piece(Rec,"\",6)
+	.  If ($$DIFFTIME^vhLib.DataTypes(EersteHorolog,$H) > (OuderdomInMinuten*60)) && (##class(BL.MB.UGLYPicking.Receptie).IsBufferClosed("TB",VolgNrLoop)) Do
+	..   Set EventData = ##class(BL.MB.UGLYPicking.Events.ToeFinishedEventData).%New("","TB",VolgNrLoop)
+	..   Set Event = ##class(BL.MB.UGLYPicking.Events.ToeFinishedEvent).%New(EventData)
+	..   Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Event)
+	..   Do ..VerstuurMail("De bovenburen","tbr@vanhoecke.be","automatisch buffer verwerkt","Buffer "_Rec_" werd otematotisch verwerkt.")
+]]></Implementation>
+</Method>
+
+<Method name="VerstuurMail">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>VerzenderNaam:%String,Ontvanger:%String,Onderwerp:%String,Inhoud:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim MailApi As TECH.Mail.MailAPI = ##class(TECH.Mail.impl.MailAPI).%New()
+	#dim Mail As TECH.Mail.Mail = MailApi.MaakNieuwMail()
+	
+	Do Mail.ZetVerzender($$$SystemMail(VerzenderNaam))
+	Do Mail.VoegToeOntvanger(Ontvanger)
+	Do Mail.ZetOnderwerp(Onderwerp)
+	Do Mail.ZetInhoud(Inhoud)
+	
+	Do MailApi.%New().VerstuurMail(Mail)
+]]></Implementation>
+</Method>
 </Class>