BL.EC.Common,Prod.Product,BL.Derde.Kennis 1 TECH.RegisteredObject AX.Uitgaand.EC.Data.impl.ProductValidator AX.Uitgaand.EC.DataAX.impl.Translator %String %String %String %String %String %String %String Standaard of Contract %String DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository APPS.OV.impl.TrackAndTraceService AxCustomerID:%String,KlantId:%String,Taal:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator,Translator:AX.Uitgaand.EC.DataAX.impl.Translator %Status pxHoofding:WS.Vhisie4.KlantDocument.dto.FactuurHoofding,lbHoofding:%List pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List ($H-150))&&(pxLijn.VerzendWijze="DI1") ;bon nummers worden herbruikt daarom beperken in tijd { try{ Set pxLijn.TransportTraceURL = ..TrackAndTraceService.GeefPubliekeTrackAndTraceURL(pxLijn.LeveringId) }Catch { Do ##class(TECH.ExceptionHandler).Catch() /// geen TrackAndTrace URL beschikbaar } } ]]> pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List "_"Ref: "_$P(OLRec,"\",5) } If 'pxLijn.InAssortiment && 'pxLijn.InConfigurator { Set pxLijn.Afbeelding="" } ]]> pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List FactuurProforma:%String FactuurProforma:%String,Periode:%Integer TotDatum Do . For Set FAKNr=$O(@..GlobalIndex@(..Node,..KlantId,Datum,FAKNr)) Quit:FAKNr="" Do . . Quit:'..CheckFactuur(FAKNr,Periode) . . Do ..OphalenFactuur(FAKNr) ]]> FAKNr:%String FAKNr:%String,BONNr:%String ",1:"")_$P(BLRec,"\",5) Set LastGrpOLUNr=GrpOLUNr } } } } Set BLNr=$O(@..GlobalData@(..Node,FAKNr,BONNr,BLNr)) } Set ORDCnt = "" For { set ORDCnt = $order(Sort(ORDCnt)) quit:ORDCnt="" Continue:'$D(Sort(ORDCnt))>1 // heeft Sort subnodes Set ORDNr=$P($P($LG($G(Sort(ORDCnt))),"\",5)," ") Continue:ORDNr="" Continue:ORDNr=999999 ; dummy order voor plus/min bonnen If '$D(^||ECCache("FAK",FAKNr)) { Set FactuurRec=@..GlobalData@(..Node,FAKNr,0,0) Set FactuurDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",6)) Set ^||ECCache("FAK",FAKNr)=$LB(..FactuurProforma,FAKNr,FactuurRec) Set ^||ECCache("IFAK",FactuurDatum,FAKNr)="" } Set ^||ECCache("FAK",FAKNr,BONNr,ORDNr,1,1)=$LB(..FactuurProforma,"O",Sort(ORDCnt),,ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0)) Set ProdGrp = "" for { set ProdGrp = $order(Sort(ORDCnt,ProdGrp)) quit:ProdGrp="" Set BLNr = "" for { set BLNr = $order(Sort(ORDCnt,ProdGrp,BLNr)) quit:BLNr="" Set LijnType = $LI(Sort(ORDCnt,ProdGrp,BLNr),1) Set BLRec = $LI(Sort(ORDCnt,ProdGrp,BLNr),2) #dim OLUNr As %String = $P(BLRec,"\",15) Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("FAK",FAKNr,BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB(..FactuurProforma,"T",,GrpTekst(OLUNr),ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0)) Set:LijnType="P" ^||ECCache("FAK",FAKNr,BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB(..FactuurProforma,"P",BLRec,$G(GrpTekst(ORDCnt,OLUNr)),ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0)) } } } ]]> ORDRec ($H+5)) Datum=+$P($P(ORDRec,"\",4),"#",3) Quit Datum ]]> ORDRec FAKNr,Periode FAKNr,BONNr