BL.Sys.FOP.Common 1 %RegisteredObject,%XML.Adaptor right %String BeanRuntimeProperty list Param (SeedData) toevoegen aan ProptList. 1 XsltParams toevoegen aan ProptList. XSLT Parameters : - input lbXsltParams=$LB("param=value","param=value",...) 1 Data-param toevoegen aan ProptList. De waarde van SourceType bepaalt of de proptname "Url" of "Bytes" wordt ingevuld. Beide ProptNames moeten dus meegegeven worden via lbProptNames : $LB(ProptNameUrl,ProptNameBytes). Bijvoorbeeld: lbProptNames=$LB("renderInfo.sourceBytesFromUrl","renderInfo.sourceBytesToRender") 1 General routine to fill in the DocBase InputData for the "Render" task. - SourceType: Url/File/Stream/Data - SourceData: bevat de data die doorgegeven wordt naar DocBase 1 %Status General routine to fill in the DocBase "Render" task; Use method AddSeedDataRenderDataIn() to add the RenderData 1 %Status General routine to fill in the DocBase "Save" task. If FileName is specified, then Dir and extension are only used if not yet included in FileName 1 %Status General routine to fill in the DocBase "SaveToPPOD" task. 1 %Status General routine to fill in the DocBase "XsltTransform" task. 1 ProptList:%ListOfObjects,PrintGroupName:%String %Status General routine to fill in the DocBase "Render" task; Use method AddSeedDataRenderDataIn() to add the RenderData 1 %Status General routine to fill in the DocBase "Print" task. 1 %Status Printer ondersteund geen Postscript-printing, kan alleen printen via PCL [Previously private] 1 PrinterName:%String %Boolean General routine to fill in the DocBase "Mail" task. From, zijn optionele parameters 1 %Status General routine to fill in the DocBase "Mail" task. 1 %Status 1) Do . Set Attachments=##class(%ListOfDataTypes).%New() . For iKey=1:1:$LL(lbAttachNames) Do . . Set Key=$P($LG(lbAttachNames,iKey),"=",1) . . Do:($L(Key)) Attachments.Insert($LI(lbAttachNames,iKey)) Else Do . Set Attachments=$LG(lbAttachNames,1) ;,"TestFOP_"_$P($H,",",2)) ; _","_"TestFOP2"_","_"TestFOP3") If (##class(TECH.Config.ConfigMgr).Instance().GetBoolean("vhLib.Mail_RedirectMailToDevelopment")) { set Body = "Intended Recipients - To: "_$$LCVT^vhLib(lbTo)_" CC: "_$$LCVT^vhLib(lbCC)_" BCC: "_$$LCVT^vhLib(lbBCC)_$$$CRLF_"-------------------------"_$$$CRLF_$$$CRLF_Body set lbTo=$listbuild(##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Error.impl.ErrorHandler_DefaultMailAddress")) set lbCC = "" set lbBCC = "" } If $LL(lbTo)>1 Do . Do ..AddBeanRuntimeProperty(ProptList, $$$MailTask, "mailToList", ..CvtListBuildToObjList(lbTo), "list") Else Do . Do ..AddBeanRuntimeProperty(ProptList, $$$MailTask, "mailToList", ..CvtListBuildToObjList(lbTo), "list") . ;Do ..AddBeanRuntimeProperty(ProptList, $$$MailTask, "mailTo", $LG(lbTo,1)) ; $$LCVTSimple^vhLib(lbTo," ")) Do ..AddBeanRuntimeProperty(ProptList, $$$MailTask, "mailFrom", From) Do ..AddBeanRuntimeProperty(ProptList, $$$MailTask, "subject", Subject) Do ..AddBeanRuntimeProperty(ProptList, $$$MailTask, "text", Body) If $IsObject(Attachments) Do . Do:(Attachments.Count()) ..AddBeanRuntimeProperty(ProptList, $$$MailTask, "attachmentList", Attachments, "list") Else Do . Do:($L(Attachments)) ..AddBeanRuntimeProperty(ProptList, $$$MailTask, "attachmentName", Attachments) Do:($L(lbCC)) ..AddBeanRuntimeProperty(ProptList, $$$MailTask, "ccList", $$LCVTSimple^vhLib(lbCC," ")) ; , "list") Do:($L(lbBCC)) ..AddBeanRuntimeProperty(ProptList, $$$MailTask, "bccList", $$LCVTSimple^vhLib(lbBCC," ")) ; , "list") ; "wv@vanhoecke.be" Quit $$$OK ]]> General routine to fill in the DocBase "Notify" task. 1 lbData %ListOfDataTypes General routine to fill in the DocBase "Notify" task. 1 %Status General routine to fill in the DocBase "Load" task. 1 %Status 1) Do . Set InFiles=##class(%ListOfDataTypes).%New() . For iKey=1:1:$LL(lbInFiles) Do . . Do InFiles.Insert($$AddFilePrefix($LI(lbInFiles,iKey))) Else Do . Set InFiles=$$AddFilePrefix($LI(lbInFiles,1)) If $IsObject(InFiles) Do . Do:(InFiles.Count()) ..AddBeanRuntimeProperty(ProptList, $$$LoadTask, "inputFilesUrls", InFiles, "list") Else Do ..AddBeanRuntimeProperty(ProptList, $$$LoadTask, "inputFileUrl", InFiles) Quit $$$OK AddFilePrefix(InFile) Quit $S($$$FileHasPrefix(InFile):InFile, 1:"file:///"_InFile) ]]> General routine to fill in the DocBase "XsltTransform" task. 1 ProptList:%ListOfObjects,XsltStream:%BinaryStream %Status