Index: BL/MB/UGLYPicking/ReceptieProductie.cls.xml
===================================================================
diff -u -r17177 -r17190
--- BL/MB/UGLYPicking/ReceptieProductie.cls.xml	(.../ReceptieProductie.cls.xml)	(revision 17177)
+++ BL/MB/UGLYPicking/ReceptieProductie.cls.xml	(.../ReceptieProductie.cls.xml)	(revision 17190)
@@ -843,6 +843,52 @@
 <SoapBindingStyle>document</SoapBindingStyle>
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
+	set Locked = 0
+	LOCK +^aRecProdRecsToSend($J):5	
+	set Locked = ($Test)
+	If 'Locked {
+		Do ..Warning()
+		Quit $LB(-3,"Kon geen lock verkrijgen. Gelieve later opnieuw te proberen.")	
+	}
+	
+	Set lbResultaat = ..SENDCoupledInfoIntern(makovaStrings,SynchronizeOnly)
+	LOCK -^aRecProdRecsToSend($J)
+	Quit lbResultaat
+]]></Implementation>
+</Method>
+
+<Method name="Warning">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+  Set From = $$$SystemMail("ReceptieProductie - versie 05")
+  Set lbTo = $LB("ict_sysop@vanhoecke.be")
+  Set Subject = "Fout tijdens synchroniseren berichten."
+  Set Body = "Fout tijdens synchroniseren van berichten."_$C(13,10)
+  Set Body = Body_$C(13,10)
+  Set Body = Body_"Kon geen lock nemen op "_$Name(^aRecProdRecsToSend($J))_$C(13,10)
+  Set Body = Body_"Waarschijnlijk heeft een backgroundjob een lock genomen op deze global."_$C(13,10)
+  Set Body = Body_$C(13,10)
+  Set Body = Body_"JobID: "_$J_$C(13,10)
+  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 SendMiniMail^vhLib.Mail(From,lbTo,Subject,Body)
+]]></Implementation>
+</Method>
+
+<Method name="SENDCoupledInfoIntern">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>makovaStrings:%Library.TMStrings=0,SynchronizeOnly:%Library.Boolean=0</FormalSpec>
+<Language>cache</Language>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Library.List</ReturnType>
+<SoapBindingStyle>document</SoapBindingStyle>
+<SoapBodyUse>literal</SoapBodyUse>
+<Implementation><![CDATA[
  ; RETURN
  ; -4: Lock troubles
  ; -3: Er zijn enkele synchronisatie-berichten niet verstuurd