BL.EC.Common,Prod.Product,BL.Derde.Kennis 1 %RegisteredObject %String ProductValidator %String %String %String Standaard of Contract %String APPS.OV.impl.TrackAndTraceService Translator DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository KlantId:%String,Taal:%String,GenerationID:%String,ProductValidator:ProductValidator %Status VerzendWijze:%String pxHoofding:WS.Vhisie4.KlantDocument.dto.LeveringHoofding,lbHoofding:%List ($H-150))&&(pxHoofding.VerzendWijze="DI1") ;bon nummers worden herbruikt { try{ Set pxHoofding.TransportTraceURL = ..TrackAndTraceService.GeefPubliekeTrackAndTraceURL(pxHoofding.LeveringId) }Catch E{ Do ##class(TECH.ExceptionHandler).Catch() /// geen TrackAndTrace URL beschikbaar } } ; Niet voor AX ;Do ..VulAanMetFactuur(pxHoofding, lbHoofding) ]]> pxHoofding:WS.Vhisie4.KlantDocument.dto.LeveringHoofding,lbHoofding:%List pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List 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 Node:%String,Periode:%Integer BONNr:%String ",1:"")_$P(BLRec,"\",5) Set LastGrpOLUNr=GrpOLUNr } } } } Set BLNr=$O(^KUL(..KlantId,..Node,BONNr,BLNr)) } Set LeverDatum=$$INTDATE^vhLib.DataTypes($P(^KUL(..KlantId,..Node,BONNr,1),"\",2)) 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("L",BONNr)) { Set ^||ECCache("L",BONNr)=$LB(..Node,BONNr,^KUL(..KlantId,..Node,BONNr,1),^KUL(..KlantId,..Node,BONNr,3)) Set ^||ECCache("IL",LeverDatum,BONNr)="" } Set ProdGrp = "" for { set ProdGrp = $order(Sort(ORDCnt,ProdGrp)) quit:ProdGrp="" Set ^||ECCache("L",BONNr,ORDNr,1,1)=$LB("O",Sort(ORDCnt),,ORDNr) 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("L",BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB("T",,GrpTekst(OLUNr)) Set:LijnType="P" ^||ECCache("L",BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB("P",BLRec,$G(GrpTekst(ORDCnt,OLUNr))) } } } ]]> BONNr,Periode ORDRec 1 ($H+5)) Datum=+$P($P(ORDRec,"\",4),"#",3) Quit Datum ]]> ORDRec 1