Algemene taken voor de FOP-processor BL.Sys.FOP.Common 1 %RegisteredObject 0 Merge Docs from PPOD with OMR and Print the resulted .ps file Meer info : zie CreateTask...() Oproepen via : s sc=##class(BL.Sys.FOP.CommonTasks).MergePrintOMR("GR02","~") w sc,! 1 PrintGroupName:%String,PrinterName:%String,RunMode:%String,Priority:%String %Status Afdrukken van een bestaande PDF-file. Meer info : zie CreateTask...() Oproepen via : s sc=##class(BL.Sys.FOP.CommonTasks).PrintPDF("\\Notes01\f$\Archive\Factuur200701\Factuur_725218_20070521.pdf","KyoceraFS4000",,,) w sc,! 1 FilePath:%String,PrinterName:%String,NumberOfCopies:%Integer,RunMode:%String,Priority:%String %Status Fax verzenden van een bestaande PDF-file. Meer info : zie CreateTask...() Oproepen via : s sc=##class(BL.Sys.FOP.CommonTasks).FaxPDF(.ObjActFax,,,"\\Notes01\f$\Archive\Factuur200701\Factuur_725218_20070521.pdf") w sc,! 1 Action:Sys.FOP.SubTaskFax,RunMode:%String,Priority:%String,OverrideFilePath:%String %Status Fax verzenden van een bestaande PDF-file. Meer info : zie CreateTask...() Oproepen via : s sc=##class(BL.Sys.FOP.CommonTasks).FaxPDF("\\Notes01\f$\Archive\Factuur200701\Factuur_725218_20070521.pdf",,,037601919, ...) w sc,! 1 FilePath:%String,RunMode:%String,Priority:%String,FaxNr:%String,TAV:%String,SenderName:%String,Subject:%String,OnErrorMailTo:%String %Status File verzenden naar een Ftp-server Meer info : zie CreateTask...() Oproepen via : s sc=##class(BL.Sys.FOP.CommonTasks).SendFileToFtpServer(##class(Sys.FOP.SubTaskFTP).%New()) w sc,! 1 Action:Sys.FOP.SubTaskFTP,RunMode:%String,Priority:%String %Status ============================================================================================================================ Taak creëren voor ... Oproepen via : s tsk=##class(BL.Sys.FOP.CommonTasks).CreateTask...(params) w tsk,! ============================================================================================================================ Taak creëren voor : Merge Docs from PPOD with OMR and Print the resulted .ps file Bij verwerking van de taak worden volgende stappen uitgevoerd: 1. Rename file (if exists) in PPODOutDir to .BAK 2. DocBase MergePPOD : genereert .ps-file in PPODOutDir 3. Move .ps-file to OMRPrintDir + rename file (add timestamp) 4. Print file Als PrintGroupName van de vorm "filedir\filename.ps" dan worden stap 1 en 2 niet uitgevoerd (file wordt wel geRENAMED!). PrinterName : naam van de printer (op de FOP-server) die ps-printing aankan. PrinterName="~" : niet afdrukken van het bestand 1 PrintGroupName:%String,PrinterName:%String Sys.FOP.Task Taak creëren voor het afdrukken van een bestaande PDF-file. FilePath : volledige path (t.o.v. van FOP-server) van het .pdf/.ps bestand PrinterName : naam van de printer (op de FOP-server) die PDF-printing aankan, of postscript in geval van .ps bestand. 1 FilePath:%String,PrinterName:%String,NumberOfCopies:%Integer=1 Sys.FOP.Task Taak creëren voor het faxen van een bestaande PDF-file. Action : Fax-subTask; indien niet opgegeven, dan moeten alle volgende params ingevuld zijn OverrideFilePath : (optioneel) volledige path (t.o.v. van FOP-server) van het te faxen .pdf bestand 1 Action:Sys.FOP.SubTaskFax,OverrideFilePath:%String,FaxNr:%String,TAV:%String,SenderName:%String,Subject:%String,OnErrorMailTo:%String Sys.FOP.Task Taak creëren voor het verzenden van een file naar een ftp-server. Action : Ftp-subTask 1 Action:Sys.FOP.SubTaskFTP Sys.FOP.Task ============================================================================================================================ Run an existing FOPTask s sc=##class(BL.Sys.FOP.CommonTasks).RunFopTask(tsk,RunMode,) w $$ParseStatus^vhLib(sc) Priority is defaulted by the RunMode, or can be overruled by your own value (low=2, medium=5, high=8, allowed values : 1-10) 1 FopTask:Sys.FOP.Task,RunMode:%String,Priority:%String %Status ============================================================================================================================ Omzetten van PapierSoort naar PSMediaType of PSTraySelect PapierSoort = LOGO / GEEL / A5-L / (To Do: WIT / MANUEEL / AUTO / ... ) ReturnWhat = TRAY / MEDIA Oproepen via: Set pTraySelect=##class(BL.Sys.FOP.CommonTasks).GetPrinterTray(txtPrinter,txtPapierSoort,"TRAY") 1 PrinterName:%String,PapierSoort:%String,ReturnWhat:%String="TRAY" %String Xslt-parameter pStaplingConfig wordt opgebouwd op basis van de PrinterName, StaplingMode en OutputTray. StaplingMode : "0" of "1"; later mogelijkheid tot uitbreiding met andere codes. StaplingMode als .local doorgeven, wordt op "" (leeg) gezet wanneer de printer geen Stapling ondersteund. 1 %String Geeft volledige dir+filename van de output van PPOD 1 PPODGroup:%String,OutputType:%String="ps" %String Kopieert een bestand naar de InetPub dir op de FOP-server en geeft tevens de FileURL terug (als .local doorgeven) 1 %Status "*") verwijderd worden. ]]> 1 %String Deze method is gerelateerd aan GeefUniekeNaamMetPlaceholder() Via deze method kan de placeholder vervangen worden door : - ofwel zijn voorziene waarde : parameter "VervangWaarde" moet leeg zijn - ofwel de opgegeven parameter VervangWaarde : moet ingevuld zijn 1 NaamMetPlaceholder:%String,VervangWaarde:%String="" %String Geeft het pad van de gebruiker die aangelogd is op het systeem via TELNET sessie 1 0 %String 1 0 Do ##class(BL.Sys.FOP.CommonTasks).CleanOld() opkuisen van oude data gegenereerd door DocBase 1 Opkuisen van oude data (globals) gegenereerd door DocBase Do ##class(BL.Sys.FOP.CommonTasks).CleanOldData() 1 Opkuisen van oude logging Do ##class(BL.Sys.FOP.CommonTasks).CleanOldLogging() 1 BeforeH:%Integer Opkuisen van oude data (QueueArchive + Task + TaskSeq) Do ##class(BL.Sys.FOP.CommonTasks).CleanOldTasks() 1 BeforeH:%Integer don't delete ; Remove objects Set sc=$zobjclassmethod("Sys.FOP.QueueArchive","%DeleteId",QArchID) ; ##class($$$QueueClassID).%DeleteId(QItemID) If $L(TaskID) Do . Set sc=$zobjclassmethod("Sys.FOP.Task","%DeleteId",TaskID) . Set:($L(TSeqID)) sc=$zobjclassmethod("Sys.FOP.TaskSequence","%DeleteId",TSeqID) Quit ]]>