Prod.Product,vhLib.Macro %RegisteredObject DOM.PM.ProductAPI 1 %Integer %String 1 d ##class(APPS.StockBeheer.impl.PalletLijstMetWaarde).test(PRNr) 1 PRNr %Status Magazijn:APPS.MAG.enu.Magazijn ProductID:%String,PalletID:%String,PalletAantal:%Decimal,NietAangebroken:%Integer Product:DOM.PM.Product SOPRProduct.GeefNettoAankoopPrijsInclCif()) CifPPL=SOPRProduct.GeefNettoAankoopPrijsInclCif() } } Quit CifPPL ]]> Magazijn:APPS.MAG.enu.Magazijn %Integer %SQLQuery LocM:%Integer Select Loc_ID, Product,Qty_Pcs,Is_Full from EWMS.Inventory where Loc_M=:LocM OR isNull(:LocM,0)=0