Index: BL/Sys/FOP/Verwerker/tmpDev.mac.rou =================================================================== diff -u -r61687 -r63765 --- BL/Sys/FOP/Verwerker/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 61687) +++ BL/Sys/FOP/Verwerker/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 63765) @@ -1122,6 +1122,8 @@ Set ErrorMessage=Exceptie.GeefOmschrijving()_" (zie log)" } + Do ##class(vhLib.Logger).%New().Info("PrintOrderViaWatchfolder","MaakProductieDetailPDFAndMove: FilePath van gemaakte PDF = '"_ProductieDetailPDFFilePath_"'. File will be moved to '"_ToPath_"'.") + If ($L(ToPath))&&(ErrorMessage="") { If ##class(%File).Exists(ToPath) { Set Rslt=##class(%File).Delete(ToPath) @@ -1154,6 +1156,9 @@ Set:(SeqItem.Params.IsDefined("MailFiles.lbCC")) lbCC=SeqItem.Params.GetAt("MailFiles.lbCC") Set:(SeqItem.Params.IsDefined("MailFiles.lbBCC")) lbBCC=SeqItem.Params.GetAt("MailFiles.lbBCC") Set sc=$$SendMiniMail^vhLib(From,lbTo,Subject,Body,BodyIsStream,IsHTML,,,lbAttachments,ReplyTo,lbCC,lbBCC) + + Do ##class(vhLib.Logger).%New().Info("TaskMailFiles","Task mail files naar :"_$$$LCVT(lbTo)_" Status code sc ='"_$$ParseStatus^vhLib(sc)_"'.") + H:($LL(lbAttachments)) 1 ; wait 1 second; allow SendMiniMail() to release the possible locks on the files Quit sc