BL.EC.Common,Prod.Product,BL.Derde.Kennis 1 AX.Uitgaand.EC.Data.impl.Helper %String AX.Uitgaand.EC.Data.impl.ProductValidator APPS.VKP.LeveringsTermijn %String %String Standaard of Contract %String 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 pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List Periode:%Integer OFFNr:%String ",1:"")_$P(OLRec,"\",5) . Set LastGrpOLUNr=GrpOLUNr Quit:'HasProd Set LijnCnt=0 Set HoofdingVolgNr=$I(^||ECCache("D")) Set ^||ECCache("D",HoofdingVolgNr)=$LB("O",OFFNr,,,^KOFKL(..KlantID,"F",OFFNr,1),,,^KOFKL(..KlantID,"F",OFFNr,3)) Set ^||ECCache("IO",OFFNr,$O(^||ECCache("IO",OFFNr,""),-1)+1)=HoofdingVolgNr Set (ProdGrp,OLNr)="" For Set ProdGrp=$O(Sort(ProdGrp)) Quit:ProdGrp="" Do . For Set OLNr=$O(Sort(ProdGrp,OLNr)) Quit:OLNr="" Do . . Set LijnType=$LI(Sort(ProdGrp,OLNr),1) . . Set OLRec=$LI(Sort(ProdGrp,OLNr),2) . . Set OLUNr=$P(OLRec,"\",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",OLRec,$G(GrpTekst(OLUNr))) ]]> OFFNr:%String,Periode:%Integer pxLijn:WS.Vhisie4.KlantDocument.dto.OfferteLijn