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 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