SqlExecuta is string = [
Select * from clientes where codigo <= §codigo§
]

SqlExecuta = Replace(SqlExecuta , "§codigo§", 100)

DS_Executa is Data Source

ok is boolean = HExecuteSQLQuery(DS_Executa, QueryDefault, SqlExecuta)

IF ok = True
For each DS_Executa
IF HFound(DS_Executa) = True
//leitura dos dados
Info(DS_Executa.codigo, DS_Executa.Nome, DS_Executa.CPF)
END//if
END//for

ELSE
Info(ErrorInfo())
END