s SQL="SELECT Periode,Factuur,KlantDtl->Naam AS KlantDtl_Naam,ProductDtl->KortTekst AS ProductDtl_KortTekst,Marge,Aantal FROM DW.OmzetKlantD"
 s SQL=SQL_" WHERE FactuurType='M' and isnull(KlantDtl->Regio,-1)=? and marge<0"
 s SQL=SQL_" and Periode>?"
 
 s RS=##class(%ResultSet).%New("%DynamicQuery:SQL")
 w RS.Prepare(SQL)
	w RS.Execute(-1,59321)
	For  Quit:'RS.Next()  Do
	. Write RS.GetData(1),! 
 
 
 Quit