Impedir borrado de campo secundario!!

[magnu9]

Saludo a todos.

Como puedo hago para lanzar un mensaje al intentar borrar un indice secundario. Ejemplo si tengo una zona ya creada.

Al crear un cliente este nesecita asignarles una zona, bueno cuando guardo el cliente numero 1, este toma una zona, por ejemplo les asigno la zona 1, pero al querer borrar dicho zona, este me dice que estoy violando la relacion de cliente-zona, y con razon, se que no es debido.

Pero mi pregunta es como al boton Borrar les asigno que al momento de hacer click, si esta zona tiene un o varios cliente, me salga un mensaje de que no se pueda borrar.

[oscarnoe]

Hola magnu9,

Empezado por magnu9

Pero mi pregunta es como al boton Borrar les asigno que al momento de hacer click, si esta zona tiene un o varios cliente, me salga un mensaje de que no se pueda borrar.

Antes de hacer el post en el evento del onClick haz una consulta simple que te retorne el numero de clientes en esa zona, si es mayor que 0, impide la eliminacion y no te dara el error.

Otra opcion seria que en el formulario se mostra como maestro detalle la zona y los clientes que correspondan a esa zona.

Espero que te sea de ayuda...

Oscar Noe

[magnu9]

Como puedo asignar el codigo de la zona la cual quiero borrar, osea tengo lo siguiente:

sqlZona.sql.text:= (´Select count(codcli) from cliente group by codzon´);
sqlZona.open;

Como hago para que el codigo de la zona sirva como parametro al sql, osea que a la hora de decir si es igual a 0 tendria que compararlo con dicho conteo.

No se si me doy a entender. Gracias de antemanos.

[magnu9]

Pero me da un pequñito error...

He cambiado el sql un poquito, pero estoy utilizando un AdoSql llamado sqlCliente
con el cual llamo la tabla cliente. sqlzon me maneja la tabla de Zona.
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;

Pero me da un error de No found Codcli

[[Caral]]

Hola magnu9
A veces es un poco dificil entenderte, pero haremos lo que se pueda:
Dices:

Como puedo asignar el codigo de la zona la cual quiero borrar

Y tienes Esto, creo en un boton:

Código SQL [-]
sqlZona.sql.text:= (´Select count(codcli) from cliente group by codzon´);
sqlZona.open;

1- si la zona esta en la tabla clientes:
Con esto llamas al campo, Zona (No se si lo llamas asi, es una idea), siempre en la tabla clientes:

Código SQL [-]
sqlZona.sql.text:= (´Select Zona, count(codcli) from cliente group by codzon´);
sqlZona.open;

2- Si el campo Zona esta en otra tabla, ejemplo tabla zonas:

Código SQL [-]
sqlZona.sql.text:= (´Select Zona, count(codcli) from cliente, Zonas group by codzon´);
sqlZona.open;

Con esto indicas que el campo zona, sea en la tabla clientes o Zonas, quieres que este presente en el resultado del sql.
Espero te sirva.
Saludos

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