Index: BL/MB/UGLYPicking/ReceptieProductie.cls.xml
===================================================================
diff -u -r12384 -r17175
--- BL/MB/UGLYPicking/ReceptieProductie.cls.xml	(.../ReceptieProductie.cls.xml)	(revision 12384)
+++ BL/MB/UGLYPicking/ReceptieProductie.cls.xml	(.../ReceptieProductie.cls.xml)	(revision 17175)
@@ -151,7 +151,8 @@
 
 <Method name="DeleteSynchronizeRecs">
 <ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Kill ^aRecProdRecsToSend
+<FormalSpec>JobID:%String</FormalSpec>
+<Implementation><![CDATA[	Kill ^aRecProdRecsToSend(JobID)
 ]]></Implementation>
 </Method>
 
@@ -1130,6 +1131,7 @@
  Set ProcessErrorStr=""
  Set (TLNr,TLUNr,RCPKey)=""
 
+ /// JBL : TO DO : checken of TLNR in gebruik is.
  For  Set TLNr=$O(^aRecProdRecsToSend(TLNr)) Quit:((TLNr="") || (ProcessErrorStr'=""))  Do
  . For  Set TLUNr=$O(^aRecProdRecsToSend(TLNr,TLUNr)) Quit:((TLUNr="") || (ProcessErrorStr'=""))  Do
  ..  For  Set RCPKey=$O(^aRecProdRecsToSend(TLNr,TLUNr,$$$akeyCRec,RCPKey)) Quit:((RCPKey="") || (ProcessErrorStr'=""))  Do
Index: UI/MB/ReceptieProductie/MainForm.cls.xml
===================================================================
diff -u -r1074 -r17175
--- UI/MB/ReceptieProductie/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 1074)
+++ UI/MB/ReceptieProductie/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 17175)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="UI.MB.ReceptieProductie.MainForm">
 <ClassType>serial</ClassType>
-<IncludeCode>UglyPickingCNTs,MakovaDrawTextCnts,KeyCodesCNTs</IncludeCode>
+<IncludeCode>UglyPickingCNTs,MakovaDrawTextCnts,KeyCodesCNTs,vhLib.Macro</IncludeCode>
 <StorageStrategy>Default</StorageStrategy>
 <Super>%Library.TMFormClass</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -2848,9 +2848,20 @@
  If $LI(Status)<0 Do
  . New Question
  . Set Question="Er is een fout opgetreden tijdens het synchroniseren:"_$C(13,10)
- . Set Question=Question_$LI(Status,2)_$C(13,10,13,10)_"Wenst u de synchronisatie-berichten te verwijderen?"
- . If MApplication.MessageBox(Question,..Form.Caption,$$$MBICONERROR+$$$MBOKCANCEL+$$$MBDEFBUTTON2)=$$$mrOk Do
- ..  Do ##class(BL.MB.UGLYPicking.ReceptieProductie).DeleteSynchronizeRecs()
+ . Set Question=Question_$LI(Status,2)_$C(13,10,13,10)_"Gelieve contact op te nemen met IT, zij moeten verdere afhandeling doen."
+ . Do MApplication.MessageBox(Question,..Form.Caption,$$$MBICONERROR+$$$MBOKCANCEL+$$$MBDEFBUTTON2)
+ . Set From = $$$SystemMail("ReceptieProductie")
+ . Set lbTo = $LB("ict_sysop@vanhoecke.be")
+ . Set Subject = "Fout tijdens synchroniseren oude berichten."
+ . Set Body = "Fout tijdens synchroniseren van oude berichten."_$C(13,10)
+ . Set Body = Body_$C(13,10)
+ . Set Body = Body_"Data in "_$Name(^aRecProdRecsToSend($J))_" : "_$C(13,10)
+ . Set Body = Body_$$ArrayToText^vhLib($Name(^aRecProdRecsToSend($J)))
+ . Set Body = Body_$C(13,10)
+ . Set Body = Body_"Te verwijderen via : "_$C(13,10)
+ . Set Body = Body_"Do ##class(BL.MB.UGLYPicking.ReceptieProductie).DeleteSynchronizeRecs("_$J_")" 
+ . 
+ . Do SendMiniMailForced^vhLib.Mail(From,lbTo,Subject,Body)
  . $$$WriteToLog("Fout tijdens versturen van oude synchronisatie-berichten!")
  Else  Do   ;SUCCESS
  . $$$WriteToLog("Synchronisatie-berichten succesvol verstuurd!")