BL.Sys.FOP.Common 1 %RegisteredObject,%XML.Adaptor 62014,37705.934091 60975,42176.14965 0 %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 1 PrinterName:%String 1 %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") ;Set Attachments=$G(Attachments,"TestFOP_"_$P($H,",",2)) ; _","_"TestFOP2"_","_"TestFOP3") ;Set DistType=DistType_";"_$$$dmkDistributionEmail 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,OutFile:%String %Status