//Código do Botão
a_chave is array of string
Add(a_chave,"id_clientes_cps")
Add(a_chave,"id_obras")
Add(a_chave,"id_cotacao_capa")
Add(a_chave,"id_insumos")

a_valoresdebusca is array of string
Add(a_valoresdebusca,1)
Add(a_valoresdebusca,1)
Add(a_valoresdebusca,1)
Add(a_valoresdebusca,230)
sresultado is string = "data_entrega"

sCampo_result is string = pro_do_boller(gs_Tabela,a_chave,a_valoresdebusca,sresultado)

Info(sCampo_result)

PROCEDURE pro_do_boller(s_tabela is string, a_chaves is array of string, a_valores_de_busca is array of string, s_resultado is string)

resultado is string

sCodigosql is string = [
select [%s_resultado%] as resultado from [%s_tabela%]
where
]
x is int
filtro is string
total is int = a_chaves.Count()
LOOP (total)
x++
filtro+= a_chaves[x] + "=" + a_valores_de_busca[x] + " and "
END

sCodigosql += Middle(filtro,1,Length(filtro)-4)


ds_query01 is Data Source

IF HExecuteSQLQuery(ds_query01,hQueryDefault,sCodigosql) = True THEN
FOR EACH ds_query01
resultado = ds_query01.resultado
END
END

RESULT resultado