Data class : business-logic for in/output of the FopTask/FopTaskSequence objects. BL.Sys.FOP.Common 1 %RegisteredObject 1 TaskID:%String Sys.FOP.Task Set Task=##class(BL.Sys.FOP.Data).NewTask() 1 Sys.FOP.Task Wijzigt de status van de Task. Indien het object reeds bewaard werd en blnSaveObj = true, dan wordt het object opnieuw bewaard. 1 Task:Sys.FOP.Task,NewStatus:%String,blnSaveObj:%Boolean=1 %Status Bvb.: Set emDoc=..TaskAddMainDoc(Task,"XML","URL;c:\DataDir\Sample.xml","PDF","TestDocBase","N",,) DataRefs kunnen doorgegeven worden via "DataFetchType;DataRef"; niet mogelijk voor "STREAM","PROXY" en "DEFS" (data via resp. stream, pxObject en listbuild) 1 Task:Sys.FOP.Task,DataType:%String="XML",DataRef:%String,TransformType:%String="PDF",Template:%String,Taal:%String,Options:%String,OptionsPDF:%String Sys.FOP.emDoc DataRefs kunnen doorgegeven worden via "DataFetchType;DataRef"; niet mogelijk voor "STREAM","PROXY" en "DEFS" (data via resp. stream, pxObject en listbuild) 1 DataType:%String="XML",DataRef:%String,TransformType:%String="PDF",Template:%String,Taal:%String,Options:%String,OptionsPDF:%String Sys.FOP.emDoc Set sc=..TaskAddActionPrint(Task,"DocuColor 240",1,,) 1 Task:Sys.FOP.Task,Printer:%String,NumCopies:%Integer=1,RectoVerso:%Boolean=0,PapierLade:%String,OMRCode:%String="" %Status Set sc=..TaskAddActionFile(Task,"TestSample_"_$P($H,",",2),"E:\FOP\PDFTemp") 1 Task:Sys.FOP.Task,FileName:%String,Folder:%String %Status Set sc=..TaskAddActionMail(Task,"wv@vanhoecke.be","Test van WimV - FOP","Schoon he ..."_$$$CRLF) 1 Task:Sys.FOP.Task,MailTo:%String,Subject:%String,Body:%String,From:%String,CC:%String,BCC:%String %Status THIS METHOD IS DEPRECATED. It should not be used anymore (from 29/01/2008) Please use method CreateActionFax() instead Set sc=..TaskAddActionFax(Task,"037601919", ...) 1 Task:Sys.FOP.Task,FaxNr:%String,TAV:%String,SenderName:%String,Subject:%String,FilePath:%String,OnErrorMailTo:%String %Status Set sc=..CreateActionFax("037601919", ...) 1 FaxNr:%String,TAV:%String,SenderName:%String,Subject:%String,FilePath:%String,OnErrorMailTo:%String Sys.FOP.SubTaskFax ) ]]> 1 Task:Sys.FOP.Task,FtpServer:%String,FromPath:%String,DestDir:%String,DestFName:%String,UserName:%String,PassWord:%String,Port:%Integer,BinaryFtp:%Boolean,DeleteAfterSend:%Boolean %Status Data van emDoc converteren naar Data of DataStream; dit wordt bepaald door Type Parameters Type, Data en StreamObj als .locals doorgeven. 1 0 %Status Set TSeq=##class(BL.Sys.FOP.Data).NewTaskSequence(Task) 1 Task:Sys.FOP.Task Sys.FOP.TaskSequence Set SeqItem=##class(BL.Sys.FOP.Data).TSeqAddNewItem(TSeq,Type) 1 TSeq:Sys.FOP.TaskSequence,Type:%String Sys.FOP.emSeqItem Set SeqItem=##class(BL.Sys.FOP.Data).TSeqNewItem(TSeq,Type) 1 TSeq:Sys.FOP.TaskSequence,Type:%String Sys.FOP.emSeqItem Add SeqItem to array Set sc=##class(BL.Sys.FOP.Data).TSeqAddItem(TSeq,SeqItem,.Key,) 1 %Status Wijzigt de status van de TSeqItem. Indien het TaskSeq-object reeds bewaard werd en blnSaveObj = true, dan wordt het object opnieuw bewaard. 1 TSeq:Sys.FOP.TaskSequence,SeqItem:Sys.FOP.emSeqItem,NewStatus:%String,blnSaveObj:%Boolean=1 %Status Build Array from TaskSequence. For Debugging purposes mainly. Set sc=##class(BL.Sys.FOP.Data).BuildTSeqArray(TSeq,.arTaskSeq) 1 %Status