Impedir borrado de campo secundario!!

[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.

[oscarnoe]

Hola magnu9... siento reabrirte el tema... es solo para aplicar otra idea al tema

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

Este codigo seria en el caso de que tuvieras un registro, como cuando te devolvia un campo de agregado, p.e. el COUNT(codcli) en las consultas que tenias antes. No se si ahora te dará error de esa forma cuando no haya un registro.

Por cierto no se que tipo de dato es codzon, pero si es de tipo cadena, tendrias que poner el valor para la query entre comillas.

Código Delphi [-]
sqlcliente.SQL.Text:='select codcli from cliente where codzon='+ QuotedStr(dbeCodigo.Text);

Creo que te quedaria mas simple asi:

Código Delphi [-]
procedure TmtZona.btBorrarClick(Sender: TObject);
begin 
  sqlcliente.SQL.Text:='select codcli from cliente where codzon='+ dbeCodigo.Text;
  // no necesitas que te devuelva el campo codzon ni tampoco agruparlos por cliente ni zona, ya lo sabes 
  sqlcliente.Open; 
  if sqlcliente.RecordCount>0 then // Cantidad de registros <>0 
    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;

O si prefieres con el Count como tenias antes:

Código Delphi [-]
procedure TmtZona.btBorrarClick(Sender: TObject);
begin 
  sqlcliente.SQL.Text:='select count(codcli) from cliente where codzon='+ dbeCodigo.Text;
  sqlcliente.Open; 
  if sqlcliente.Field[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;

[Ken_Masters]

O también puedes facilitarte la vida usando excpeiones, solamente atraapas la excepcion y mandas un mensaje conprensible al susuario jeje