1 BL.Flow.Docs.Basis,BL.Flow.Basis.Doc 0 This parameter should be overridden in each derived class must_specify_template transportlijst_01.01 aflevnotas_01.01 levbewijsNotStapled_01.01 levbewijsStapled_01.01 DocType voor task-keywords (zie ook BL.Sys.FOP.Common.INC) TRANSPORTLIJST TransportLijst TL LEVBON_PS Opbouw van de ListBuild TransportLijst : zie klasse BL.Flow.Proxy.pxTransportLijst method Create() 1 TransportLijst:%List %String " If (TYPE = "TRANSP"){ Set ToString = ToString_"Nr: "_$LG(TransportLijst,2) }ElseIf (TYPE = "TOER"){ Set ToString = ToString_"Van: "_$zd($LG(TransportLijst,2),4) Set ToString = ToString_", Tot: "_$zd($LG(TransportLijst,3),4) Set ToString = ToString_", VerzendWijze: "_$LG(TransportLijst,4) }ElseIf (TYPE = "BONS"){ Set BonNrs = $LG(TransportLijst,2) Set ToString = ToString_"BonNrs: " For i=1:1:$LL(BonNrs) { Set ToString = ToString_$LG(BonNrs,i) If (i'= $LL(BonNrs)) Set ToString = ToString_", " } } Set ToString = ToString_")" Quit ToString ]]> 1 %Status Oproepen via : s sc=##class(BL.Flow.TransportLijst.Doc).RenderAndPrintANotas(+$H,+$H,"OD1",,) w sc,! s sc=##class(BL.Flow.TransportLijst.Doc).RenderAndPrintANotas(61349,61349,"OD5","BrotherBoekH",) w sc,! 1 DatumVan:%String,DatumTot:%String,VerzendWijze:%String,PrinterName:%String,pWithLogo:%Boolean=1 %Status Oproepen via : s sc=##class(BL.Flow.TransportLijst.Doc).RenderAndPrintANotasViaBons($LB(335823),"BrotherBoekH",1,"1",) w sc,! or s sc=##class(BL.Flow.Levering.Doc).RenderAndPrintDocViaType(305229,"BonWit_Bewijs","BrotherBoekH") w sc,! 1 lbBONNrs,PrinterName:%String,pWithLogo:%Boolean=1,pTraySelect:%String="",StaplingMode:%String="" %Status Oproepen via : s sc=##class(BL.Flow.TransportLijst.Doc).RenderAndPrintDoc(330313,,) w sc,! 1 TransportNr:%String,PrinterName:%String,pWithLogo:%Boolean=1 %Status Debug Tool Genereert de XML voor list lbDocs en bewaart deze in de opgegeven file (path/dir moet reeds bestaan) Oproepen via : s FP="\\Cache02\c$\Temp\TransportLijst_" s sc=##class(BL.Flow.TransportLijst.Doc).FopXMLToFile(FP_$P($H,",",2)_".xml", $LB(2292)) w sc,! s sc=##class(BL.Flow.TransportLijst.Doc).FopXMLToFile("\\Notes01\Shared\P V\TransportLijst.xml", $LB("TOER",+$H,+$H,"OD1")) w sc,! -------------------------------------------------------------------- Aanmaken van het proxy-object pxTransportLijst. Als $LI(lbTransport)="TRANSP" - 2de item : Transportnr Als $LI(lbTransport)="TOER" - 2de item : VanDatum ($H format) - 3de item : TotDatum ($H format) - 4de item : VerzendWijze Als $LI(lbTransport)="BONS" - 2de item : List van BONNr 1 BL.Flow.Proxy.pxTransportLijst Geeft de standaard Keywords terug op basis van de opgegeven AnalyseRoutine 1 DocType:%String,AnalyseRoutine:%String %String XSLT-parameters voor RenderDoc berekenen. Geeft een $LB() terug. Bvb: $LB("pWithLogo=0","pWithBgColors=1") 1 lbXsltParams:%List,pWithLogo:%Boolean=0,pWithBgColors:%Boolean="",pTraySelect:%String="",pImageColVisible:%String="",pStaplingConfig:%String="" %List De render-data toevoegen aan het Doc. Alleen gebruiken wanneer de data van het document gedefinieerd is via lbDocs, i.e. xml wordt pas later gegenereerd via method GetFopXML() 1 Doc:Sys.FOP.emDoc,lbDocs:%List,TransformType:%String="PDF",lbPPODKeywords:%List,pWithLogo:%Boolean,pTraySelect:%String,pStaplingConfig:%String="",blnStapling:%Boolean=0 %Status 1 TransportNr:%String,Extension:%String="pdf" %String DocRef kan ofwel BONNr zijn, ofwel lbDocs (list) Target: File, FileWWW, FileWWWUrl, TempFTP, Mail, TempMail 1