Estou fazendo uma consulta para gerar um relatorio, esa cosnulta está certinho,
mais ele consulta apanas uma matricula no EDMATRICULAS.TEXT, eu no caso preciso
que ela consulte varias matriculas, ou seja, ao colocar uma matricula e a
virgula, outra matricula e a virgula, ele consulte e gere o relatorio de todas
as matriculas inseridas, até não encontrar a virgula. Acredito precisar de um
while mais eu nao tenho ideia de como fazer.
Se alguem puder me ajuda reu agradeço...
Segue abaixo a consulta que estou usando....
procedure btnOKOnClick(Sender: TfrxComponent);
begin
qLOCAL.sql.clear;
qCLIENTE.sql.clear;
qCLIENTE.sql.add('select distinct c.matricula, c.categoria, c.nome, c.endereco,
c.numero_imovel, c.hidrometro, c.complemento, c.ROTEIRO,');
qCLIENTE.sql.add('c.ECO_AGUA_RES, c.ECO_AGUA_COM, c.ECO_AGUA_IND,
c.ECO_AGUA_PUB, c.ECO_AGUA_UTP,');
qCLIENTE.sql.add('c.ECO_ESG_RES, c.ECO_ESG_COM, c.ECO_ESG_IND, c.ECO_ESG_PUB,
c.ECO_ESG_UTP, c.DT_INSTALACAO, l.nome,');
qCLIENTE.sql.add('s.cpf_cnpj, s.bairro, s.telefone, s.codope');
qCLIENTE.sql.add('from cliente c, sgcf s, local l');
qCLIENTE.sql.add(' where c.matricula = ' + EDMATRICULAS.TEXT);
qCLIENTE.sql.add('and c.matricula = s.matricula and c.i_local = l.i_local');
QLOCAL.SQL.ADD('select * from servicos where i_servico = ' + CBSERVICO.TEXT);
end;
