Hasta la Proxima...
Código Delphi
[-]
procedure TmtZona.btBorrarClick(Sender: TObject);
begin sqlcliente.SQL.Text:='select codcli, codzon from clientewhere codzon='+dbeCodigo.Text +' group by codcli,codzon';
sqlcliente.Open; if sqlcliente.Fields[0].AsInteger <>0 then
showmessage('Esta Zona Tiene Clientes Asignados')
else
if MessageDlg('¿ Seguro que desea borrar la Zona ' + dbeCodigo.Text + ' ?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
tZona.Delete; sqlcliente.close;
end;
FiN del Temita.