PEsquisa!!!!!!!!!!!!!VERIFICA!!!!!!!!!!!!NAO RETIRA!!!!!!!!!

Question

Ol� Amigos, estou usando o seguinte c�digo ao excluir um convenio que � o seguinte: Ta baela clienetes tenho o campo CodConvenio para que cada cliente cadastrado eu seleciono o comvenio que ele perten...

Anonymous · Answer

Caso vc estivesse trabalhando com query, seria mais f�cil e r�pido fazer esta exclus�o.

A query ficaria assim:

with query_consulta do
begin
close;
sql.text := �Select cod_convenio from convenio � +
� where nom_convenio = �� + edt_convenio.text + �� +
� and cod_convenio in (Select c.cod_convenio
� from cliente_deve cd, cliente c� +
� where c.cod_cliente = cd.cod_cliente� +
� and cd.val_debito = 0�);
Open;
//Esta query ir� verificar se existe algum d�bito para o conv�nio digitado no edt_convenio
if recordcount = 1 then
begin
with query_deleta do
begin
close;
sql.text := �delete from conv�nio � +
� where cod_convenio = � +query_consulta.fields[0].asstring;
execsql;
end;
end
else
begin
Showmessage(�O conv�nio informado possui d�bito. N�o pode ser exclu�do!�);
end;
end;

Espero ter ajudado.

At� mais

Ruy Salles