Impedir borrado de campo secundario!!

[[Caral]]

Como consejo ademas que en este foro lo ponen como norma.

Hay que poner el codigo entre etiqueas.

Facil, aprieta el boton de ir a avanzado, que esta abajo, te enviara a otra pagina, en la parte de arriba a la derecha de esta, veras, varias figuras, si pasas el mouse veras de que son, aprieta la que te interese y en el centro pegas el codigo, si no saves como se ve, presiona vista previ de Mensaje, con esto veras el mensaje antes de enviarlo, te lo digo antes de que algun moderador te regañe, ya que por un lado tienen razon se ve y entiende mejor el codigo.
Saludos

[magnu9]

Observa esto Caral un momentito, dime si esta bien...

Código Delphi [-]
sqlcliente.SQL.Text:=('select count(c.codcli),c.codzon from cliente c where c.codzon='+ dbeCodigo.Text + ' group by c.codzon');
sqlcliente.Open;

if sqlcliente.Fields[0].AsInteger <=0 then
sqlZon.Delete;

Y por que el Error... gracias de antemano

[[Caral]]

Hola

Código Delphi [-]
sqlcliente.SQL.Text:= 'select count(c.codcli),c.codzon from cliente c where c.codzon='+ dbeCodigo.Text + ' group by c.codzon';
sqlcliente.Open;

if sqlcliente.Fields[0].AsInteger <=0 then
sqlZon.Delete

Cuando usas Add se san los parentesis.

Código Delphi [-]
sqlcliente.SQL.ADD:=('select count(c.codcli),c.codzon from cliente c where c.codzon='+ dbeCodigo.Text + ' group by c.codzon');
sqlcliente.Open;

if sqlcliente.Fields[0].AsInteger <=0 then
sqlZon.Delete

Revisa que cuando usas text no se usan ( ), revisalo., no se que error te da.
Saludos

[[Caral]]

Otra cosa con esto:

Código Delphi [-]
if sqlcliente.Fields[0].AsInteger <=0 then

Estas diciendo que es el primer campo (Fields[0].), creo que segun la sentencia deves indicar el segundo campo (Fields[1].)., que es el 1. asi:

Código Delphi [-]
if sqlcliente.Fields[1].AsInteger <=0 then

No se pruebalo.
saludos

[magnu9]

Con este codigo pude lograrlo, espero no encontrar mas problemita en esto..

Código Delphi [-]
procedure TmtZona.btBorrarClick(Sender: TObject);
   begin
        sqlcliente.SQL.Text:='select codcli, codzon from cliente  where codzon='+ dbeCodigo.Text +' group by codcli,codzon';
            sqlcliente.Open;
        if  sqlcliente.Fields[0].AsInteger <=0 then
            tZona.Delete;

De verdad que estoy leyendo de delphi desde marzo pasado, y no sabia que existian ustedes y este foro.. desde el marte hasta hoy he aprendido mucho mas, con su ayuda. Me gustaria hacerte mi historia con delphi, pero Creo q Dios es el que sabe cuando a uno le vienen bien obtener los conocimientos. Creo que un poco tarde pero pa' lante es que vamos, como dicen en mi pais. Gracias un millon de Gracias!!!!

[[Caral]]

Hola magnu9
Me alegro mucho que puedas aprender en este foro, aqui hay mucha jente que son verdaderos maestros, la verdad yo empece a programar hace mas o menos cuatro o cinco meses, solo que soy muy persistente y aprendo rapido, tambien ten en cuenta que no soy programador, esto lo hago por necesidad para mi negocio y un poco como jovi.
Repito me alegro que estes por aqui aprendiendo, como yo.
Saludos

[magnu9]

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.