Prod.Product,vhLib.Macro %RegisteredObject DOM.PM.ProductAPI 1 %Date %Date DOM.common.enu.InterneFirma %String 1 d ##class(APPS.StockBeheer.impl.VoorraadBewegingenLijst).test() 1 %Status InterneFirma:DOM.common.enu.InterneFirma,VanDatum:%Date,TotDatum:%Date ProductID:%String HistRec:%String ProductID:%String ProductID:%String,HistRec:%String ..TotDatum) { If ..InterneFirma=##class(DOM.common.enu.InterneFirma).HaluxNv() { Set Geldig=($P(HistRec,"\",5)="W") ; Werkvloer } ElseIf ..InterneFirma=##class(DOM.common.enu.InterneFirma).VanHoeckeNv() { Set Geldig=($P(HistRec,"\",5)="M") ; Magazijn } } } Quit Geldig ]]>