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 ($H-150))&&(pxHoofding.VerzendWijze="DI1") ;bon nummers worden herbruikt { try{ Set pxHoofding.TransportTraceURL = ..TrackAndTraceService.GeefPubliekeTrackAndTraceURL(pxHoofding.LeveringID) }Catch E{ /// geen TrackAndTrace URL beschikbaar } } ;Set pxHoofding.EDIReferentie=$P(OrderRec,"\",40) ;Set pxHoofding.CommissieReferentie=$P(OrderRec,"\",19) ;Set pxHoofding.InternMedewerker="" ;Set pxHoofding.ExterneMedewerker="" ]]> pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List 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 Set HoofdingVolgNr=$I(^||ECCache("D")) Set ^||ECCache("D",HoofdingVolgNr)=$LB("L",ORDNr,BONNr,,$LG($G(Sort(ORDCnt))),^KUL(..KlantID,..Node,BONNr,1),,^KUL(..KlantID,..Node,BONNr,3)) Set ^||ECCache("IO",ORDNr,$O(^||ECCache("IO",ORDNr,""),-1)+1)=HoofdingVolgNr 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("D",HoofdingVolgNr,$I(LijnCnt))=$LB("T",,GrpTekst(OLUNr)) Set:LijnType="P" ^||ECCache("D",HoofdingVolgNr,$I(LijnCnt))=$LB("P",BLRec,$G(GrpTekst(ORDCnt,OLUNr))) } } } ]]> BONNr