BL.EC.Common,Prod.Product,BL.Derde.Kennis 1 AX.Uitgaand.EC.Data.impl.Helper AX.Uitgaand.EC.Data.impl.ProductValidator %String %String %String %String KlantID:%String,Taal:%String,GenerationID:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator 0 %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 "_"Ref: "_$P(OLRec,"\",5) } If 'pxLijn.InAssortiment && 'pxLijn.InConfigurator { Set pxLijn.Afbeelding="" } ]]> pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List BeperkOrderType:%String ORDNr:%String ",1:"")_$P(OLRec,"\",5) . Set LastGrpOLUNr=GrpOLUNr Quit:'HasProd Set LijnCnt=0 Set OrderDatum=..GeefOrderDatum(^KOD(..KlantID,"F",ORDNr,1)) Set ^||ECCache("ORD",ORDNr)=$LB("O",ORDNr,^KOD(..KlantID,"F",ORDNr,1),^KOD(..KlantID,"F",ORDNr,3)) Set ^||ECCache("IORD",OrderDatum,ORDNr)="" 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("ORD",ORDNr,OLUNr,$I(LijnCnt))=$LB("O","T",,GrpTekst(OLUNr)) . . Set:LijnType="P" ^||ECCache("ORD",ORDNr,OLUNr,$I(LijnCnt))=$LB("O","P",OLRec,$G(GrpTekst(OLUNr)),$LI(Sort(ProdGrp,OLNr),3)) ]]> ORDRec ORDNr:%String,BeperkOrderType:%String 0 { If $D(^ORDW("IO",ORDNr,OLUNr)) { Set VoorraadStatus=##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VerwerkingMagazijn() } Else { If $P(Rec,"\",27)'="" { Set VoorraadStatus=$S($D(^KPR(PRNr,"J6332")):##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InProductie(),1:##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).InBestelling()) } Else { Set VoorraadStatus=$CASE(..VoorraadStatus(PRNr,$P(Rec,"\",3),,1),"F":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).NietInVoorraad(),"P":##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).BeperkteVoorraad(),:##class(WS.Vhisie4.KlantDocument.enu.OrderLijnStatus).VoldoendeVoorraad()) } } } Set LijnType="P" ]]> PRNr:%Integer,Aantal:%Integer,Week:%Date,ReedsInOrder:%Boolean 0