vhLib.Macro 1 %RegisteredObject %String list 1 1 1 %Status ",$LB("bbe@vanhoecke.be","vdr@vanhoecke.be","tfl@vanhoecke.be","nze@vanhoecke.be","nwu@vanhoecke.be"),"Stockniveaus documentatieproducten","",,,,,$LB($LB(Stream.Filename))) Do ##class(%File).Delete(Stream.Filename) ]]> TimeStamps:%ListOfDataTypes 1 %String Product:DOM.common.Product 1 %Integer Product:DOM.PM.Product 1 %Boolean Product:DOM.PM.Product 1 %Boolean 1 %SQLQuery 1 SELECT KortTekst, IdentNummer, Uitverkoop, Voorraad, Lev.Naam, CifPPL FROM Prod.Product JOIN Derde_Lev.Lev ON Product.LeverancierNummer = Lev.ID WHERE Uitverkoop IS NOT NULL ORDER BY KortTekst ASC