BL.Sys.FOP.Common 1 BL.Flow.Docs.Basis,BL.Flow.Basis.DocNew 0 Previous value : "levering_01.01" levdocNotStapled_01.01 levdocStapled_01.01 levdocNotStapled_01.01 DocType voor task-keywords (zie ook BL.Sys.FOP.Common.INC) LEVBON LevBon L LEVBON_PS 16bit, 7 ->32bit]]> 6 1 lbLevering:%Integer %String 1 BONNr:%String,KLNr:%String %Status FileURL : als .local doorgeven enkel de FileName doorgeven indien gewenst, anders wordt deze ge-default. het volledige pad (server+dir+filename) wordt in URL-vorm teruggegeven 1 %Status 1 %Status 1 BONNr:%String,MailTo:%String,Subject:%String,Body:%String,FileName:%String,blnShowRembours:%Boolean=0,MailFrom:%String %Status Oproepen via : s sc=##class(BL.Flow.Levering.Doc).RenderAndFtpDoc(171251,"vhisiedownload.vanhoecke.be",,"TestWimV002.pdf") w sc,! 1 BONNr:%String,FtpServer:%String,DestDir:%String,DestFName:%String,blnShowRembours:%Boolean=0 %Status Oproepen via : s sc=##class(BL.Flow.Levering.Doc).RenderAndPrintDoc(330313,,) w sc,! s sc=##class(BL.Flow.Levering.Doc).RenderAndPrintDoc(305229,0,"BrotherBoekH",1) w sc,! 1 BONNr:%String,blnShowRembours:%Boolean=1,PrinterName:%String,pWithLogo:%Boolean=1,pTraySelect:%String="" %Status Leveringsdocument printen, waarbij de levbon centraal staat. LevDocType bepaalt de samenstelling en de specificaties van het document: levbon, bewijs, kopie (geel), ... . blnStapling enkel mogelijk indien de printer dit ondersteunt (uiteraard!) Oproepen via : s sc=##class(BL.Flow.Levering.Doc).RenderAndPrintDocViaType(305229,"BonWit\BonGeel\Pakbon","KYOCERAFS4000") w sc,! 1 BONNr:%String,LevDocType:%String,PrinterName:%String,blnStapling:%Boolean=1 %Status Genereert de XML voor de leveringsbon in lbDocs en geeft deze terug via DataStream. DataStream als .local doorgeven. 1 %Status initiator ;Set sc=pxDoc.XMLExportToStream(.DataStream,"DOCS","literal,indent") Quit sc ]]> Debug Tool Genereert de XML voor de leveringsbon in lbDocs en bewaart deze in de opgegeven file (path/dir moet reeds bestaan) Oproepen via : s FP="\\Cache02\c$\Temp\LevBon_" s sc=##class(BL.Flow.Levering.Doc).FopXMLToFile(FP_$P($H,",",2)_".xml", $LB( )) w sc,! s sc=##class(BL.Flow.Levering.Doc).FopXMLToFile(FP_$P($H,",",2)_".xml", $LB(371901)) w sc,! !!! Op Cache02 !!! 1 FileName:%String,lbDocs:%List %Status
]]> 1 BL.Flow.Proxy.pxFlowDocs 1 lbLeveringen:%List,KLNr:%String %Status Geeft de standaard Keywords terug op basis van de opgegeven AnalyseRoutine. Deze method kan in de afgeleide klasse overschreven worden voor specifieke uitbreidingen. DocType:%String,AnalyseRoutine:%String %String DocRef kan ofwel BONNr zijn, ofwel lbDocs (list) Target: File, FileWWW, FileWWWUrl, TempFTP, Mail, TempMail Berekent de checksum voor leveringbons, facturen en proforma facturen BONNr:%Integer,FacSoort:%String="",KLNr:%String="" %Integer berekent een controlegetal van een factuur FAKNr:%Integer,BONNr:%Integer %Integer berekent een controlegetal van een proforma factuur FAKNr:%Integer,BONNr:%Integer %Integer Cheksum van de hoofding van een leverbon PreviousCheckSum:%Integer,BONNr:%Integer,xHeader:%String,xAdres:%String 1 %Integer vervolg van de berekening van de checksum: vertrekt van de cheksum van de header iedere detaillijn vertrekt van de checksum van de vorige lijn PreviousCheckSum:%Integer,BONNr:%Integer,LNr:%Integer,XLN:%String 1 %Integer PreviousCheckSum:%Integer,Tekst:%String 1 %Integer 1 BeginDat!'Dat Do ..Set FactuurNr="" For Set FactuurNr=$O(^KFA1("F",KlantNr,Dat,FactuurNr)) Quit:FactuurNr="" Do ...Set ^HULP($J,"Fac",-Dat,FactuurNr)=KlantNr ...Set aantalFac=aantalFac+1 Set Dat="" For Set Dat=$O(^HULP($J,"Fac",Dat)) Quit:Dat="" Do .Set FactuurNr="" For Set FactuurNr=$O(^HULP($J,"Fac",Dat,FactuurNr)) Q:FactuurNr="" Do ..Set KlantNr=^HULP($J,"Fac",Dat,FactuurNr) ..Set LevNr="U" For Set LevNr=$O(^KFA("F",FactuurNr,LevNr)) Q:$E(LevNr)'="U" Do ...Set BonNr=$E(LevNr,2,99) ...If '$D(^KU1(BonNr)) Write $zd(Dat,4)," Factuur: ",FactuurNr," Bon ",BonNr," bestaat niet",! Quit ...Set xKFAKlant=^KFA("F",FactuurNr,LevNr,1) ...Set KlantNrFKA=$Piece(xKFAKlant,"\",6) ...Set DatKFA=$Piece(xKFAKlant,"\",2) ...Set KlantNrKUL=$Piece(^KU1(BonNr,"F"),"\") ...If KlantNrKUL'=KlantNrFKA Write $zd(Dat,4)," Factuur: ",FactuurNr," Bon ",BonNr," is overschreven",! Quit ...; een bonnr kan worden herbruikt => dat zie je aan het klantnummer ...Set FacSoort=$$NODE^FLOWBON(BonNr) ...Set xKULKlant=$G(^KUL(KlantNr,FacSoort,BonNr,1)) ...Set DatKUL=$Piece(xKULKlant,"\",2) ...If DatKUL'=DatKFA w $zd(Dat,4)," Factuur: ",FactuurNr," Bon ",BonNr," is overschreven => datum is verschillend",! Quit ...; een bonnr kan worden herbruikt => dat zie je ook aan de datum ...Set Ref=..%New() ...Set CheckSumFactuur=Ref.CheckSumFactuur(FactuurNr,BonNr) ...Set CheckSumLevNr=Ref.CheckSumBon(BonNr) ...Set aantalLevBon=aantalLevBon+1 ...If CheckSumFactuur=CheckSumLevNr d ....s aantalOK=aantalOK+1 ...Else Do ....Set aantalFout=aantalFout+1 ....Write $zd(Dat,4)," ",FactuurNr," ",BonNr," ",CheckSumFactuur," ",CheckSumLevNr,! ;r test Write "Aantal facturen: ",aantalFac,! Write "Aantal leveringsbonnen: ",aantalLevBon,! Write "Fout: ",aantalFout,! Write "OK: ",aantalOK,! ]]> 1