BL.EC.Common,Prod.Product,BL.Derde.Kennis 1 TECH.RegisteredObject %String AX.Uitgaand.EC.Data.impl.ProductValidator %String %String %String %String %String %String Standaard of Contract %String DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository KlantId:%String,Taal:%String,GenerationID:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator %Status pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,lbHoofding:%List pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List 0 { Set pxLijn.Status=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).Gefactureerd() } ]]> 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 BonLijnNummer=$O(@..GlobalData@(..Node,FAKNr,BONNr,BonLijnNummer)) } 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(..FactuurProforma,ORDNr,$LG($G(Sort(ORDCnt))),$G(@..GlobalData@(..Node,FAKNr,BONNr,3))) 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(..FactuurProforma,"T",,GrpTekst(OLUNr),,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0)) Set:LijnType="P" ^||ECCache("ORD",ORDNr,OLUNr,$I(LijnCnt))=$LB(..FactuurProforma,"P",BLRec,$G(GrpTekst(ORDCnt,OLUNr)),,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0)) } } } /*Set HoofdingVolgNr=$I(^||ECCache("D")) Set ^||ECCache("D",HoofdingVolgNr)=$LB(..FactuurProforma,,$E(BONNr,2,9),FAKNr,$LG($G(Sort(ORDCnt))),@..GlobalData@(..Node,FAKNr,BONNr,1),@..GlobalData@(..Node,FAKNr,0,0),$G(@..GlobalData@(..Node,FAKNr,BONNr,3))) Set ^||ECCache("IO",ORDNr,$O(^||ECCache("IO",ORDNr,""),-1)+1)=HoofdingVolgNr Set ^||ECCache("IF",FAKNr,$O(^||ECCache("IF",FAKNr,""),-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,OLUNr,$I(LijnCnt))=$LB("T",,GrpTekst(OLUNr)) Set:LijnType="P" ^||ECCache("D",HoofdingVolgNr,OLUNr,$I(LijnCnt))=$LB("P",BLRec,$G(GrpTekst(ORDCnt,OLUNr)),$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1)) } } } */ ]]> ORDRec FAKNr:%String,Periode %Boolean 0 ; alleen openstande Quit $$$True ]]> FAKNr:%String,BONNr %Boolean