Index: UI/MB/ReceptieProductie/MainForm.cls.xml
===================================================================
diff -u -r17175 -r17177
--- UI/MB/ReceptieProductie/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 17175)
+++ UI/MB/ReceptieProductie/MainForm.cls.xml	(.../MainForm.cls.xml)	(revision 17177)
@@ -1493,10 +1493,10 @@
  If ##class(BL.MB.UGLYPicking.ReceptieProductie).SynchronizeRecsAvailable() Do
  . New Question
  . Set Question="Het doorsturen heeft vorige keer fouten veroorzaakt zodat sommige"_$C(13,10)
- . Set Question=Question_"synchronisatie-berichten niet werden verwerkt. Wenst u dit nu te doen?"
- . Quit:(MApplication.MessageBox(Question,..Form.Caption,$$$MBICONQUESTION+$$$MBYESNO+$$$MBDEFBUTTON1)=$$$mrNo)
- . Do ..pmiSynchronizeClick($LB(+..pmiSynchronize))
-
+ . Set Question=Question_"synchronisatie-berichten niet werden verwerkt."_$C(13,10)
+ . Set Question=Question_"Gelieve contact op te nemen met IT, zij moeten verdere afhandeling doen."
+ . Do MApplication.MessageBox(Question,..Form.Caption,$$$MBICONQUESTION+$$$MBYESNO+$$$MBDEFBUTTON1)
+ . Do ..sendMailNaarIT() 
  q $$$OK
 ]]></Implementation>
 </Method>
@@ -2850,18 +2850,7 @@
  . Set Question="Er is een fout opgetreden tijdens het synchroniseren:"_$C(13,10)
  . 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)
+ . Do ..sendMailNaarIT($J)
  . $$$WriteToLog("Fout tijdens versturen van oude synchronisatie-berichten!")
  Else  Do   ;SUCCESS
  . $$$WriteToLog("Synchronisatie-berichten succesvol verstuurd!")
@@ -2872,6 +2861,33 @@
 ]]></Implementation>
 </Method>
 
+<Method name="sendMailNaarIT">
+<FormalSpec>Job:%String=""</FormalSpec>
+<Implementation><![CDATA[
+  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_"JobID: "_$J_$C(13,10)
+  If Job '= "" {
+	  Set Body = Body_"Data in "_$Name(^aRecProdRecsToSend(Job))_" : "_$C(13,10)
+	  Set Body = Body_$$ArrayToText^vhLib($Name(^aRecProdRecsToSend(Job)))
+	  Set Body = Body_$C(13,10)_$C(13,10)
+	  Set Body = Body_"Te verwijderen via : "_$C(13,10)
+	  Set Body = Body_"Do ##class(BL.MB.UGLYPicking.ReceptieProductie).DeleteSynchronizeRecs("_Job_")" 
+  }Else{
+	  Set Body = Body_"Data in "_$Name(^aRecProdRecsToSend)_" : "_$C(13,10)
+	  Set Body = Body_$$ArrayToText^vhLib($Name(^aRecProdRecsToSend))
+	  Set Body = Body_$C(13,10)_$C(13,10)
+	  Set Body = Body_"Te verwijderen via : "_$C(13,10)
+	  Set Body = Body_"Do ##class(BL.MB.UGLYPicking.ReceptieProductie).DeleteSynchronizeRecs( JobID )" 
+  }
+  $$$WriteToLog(Body)
+  Do SendMiniMailForced^vhLib.Mail(From,lbTo,Subject,Body)
+]]></Implementation>
+</Method>
+
 <Method name="pmiWisBufferLijstClick">
 <FormalSpec>Args:%String</FormalSpec>
 <Language>cache</Language>