BL.EC.Common,Prod.Product,BL.Derde.Kennis 1 %RegisteredObject %String ProductValidator %String %String %String Standaard of Contract %String APPS.OV.impl.TrackAndTraceService KlantID:%String,Taal:%String,GenerationID:%String,ProductValidator:ProductValidator %Status pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,lbHoofding:%List pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List ($H-150))&&($P($P(LeveringRec,"\",7)," #")="DI1") ;bon nummers worden herbruikt { try{ Set pxHoofding.TransportTraceURL = ..TrackAndTraceService.GeefPubliekeTrackAndTraceURL(pxLijn.LeveringId) }Catch E{ /// geen TrackAndTrace URL beschikbaar } } If pxLijn.Aantal<0 { Set pxLijn.Status=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Terugname() } ElseIf pxLijn.Aantal>0 { Set pxLijn.Status=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InLevering() } ]]> BONNr:%String ",1:"")_$P(BLRec,"\",5) Set LastGrpOLUNr=GrpOLUNr } } } } Set BLNr=$O(^KUL(..KlantID,..Node,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("ORD",ORDNr)) { Set OrderDatum=..GeefOrderDatum(Sort(ORDCnt)) Set ^||ECCache("ORD",ORDNr)=$LB("L",ORDNr,Sort(ORDCnt),^KUL(..KlantID,..Node,BONNr,3),^KUL(..KlantID,..Node,BONNr,1)) Set ^||ECCache("IORD",OrderDatum,ORDNr)="" } 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("ORD",ORDNr,OLUNr,$I(LijnCnt))=$LB("L","T",,GrpTekst(OLUNr),,BONNr,^KUL(..KlantID,..Node,BONNr,1)) Set:LijnType="P" ^||ECCache("ORD",ORDNr,OLUNr,$I(LijnCnt))=$LB("L","P",BLRec,$G(GrpTekst(ORDCnt,OLUNr)),,BONNr,^KUL(..KlantID,..Node,BONNr,1)) } } } ]]> ORDRec BONNr