BL.EC.Common,Prod.Product,BL.Derde.Kennis 1 TECH.RegisteredObject AX.Uitgaand.EC.DataAX.impl.ProductValidator AX.Uitgaand.EC.DataAX.impl.Translator TECH.Iterator %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.DataAX.impl.ProductValidator,Translator:AX.Uitgaand.EC.DataAX.impl.Translator %Status 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