Prod.Product,BL.Sys.Proxy,BL.Sys.FOP.Common 1 %RegisteredObject 0 d ##class(BL.Stat.Aventosbak).ExcelLijst() 1 Is het een Aventos-bak? 1 PRNr:%Integer %Boolean IsAventos 1 1 FileName:%String KortTekst,KindProduct->IdentNummer,Aantal,OptieCode Into :KindProduct,:SubKortTekst,:SubIdentNummer,:Aantal,:Locatie from Prod.Bouwstenen where MoederProduct=:PRNr and Type='K') . &sql(Open SubCursor) . For &Sql(fetch SubCursor) Quit:SQLCODE'=0 Do . . Write ";",";",";",";",KindProduct,";",SubKortTekst,";",SubIdentNummer,";",Aantal,";",Locatie,! . &sql(close SubCursor) &sql(close HoofdCursor) Do CLOSE^vhDEV(Dev) ]]>