Porque no me hace el seek!!!!
Publicado por marcos (15 intervenciones) el 04/06/2002 19:16:12
hola!
tengo un formulario con dos tablas, departamentos y grupostrabajo, tengo que hacer una busqueda en la tabla grupostrabajo de un registro.
Si existe en la tabla grupostrabajo, se permitira borrar el registro en la tabla departamentos.
Pero el seek no lo hace bien, tengo dado como indice el campo iddep, y el codigo que pongo es el siguiente:
select grupostrabajo
set order to tag iddep
seek grupostrabajo.iddep
if found()
=messagebox("No se puede eliminar este registro, tiene grupos de trabajo asignados","Atención")
thisform.refresh
thisform.show
else
select departamentos
if messagebox("¿Está seguro?",4+32+256,"Eliminar") =6
delete
=tableupdate(.t.)
thisform.refresh
thisform.show
endif
endif
select departamentos
Agradeceria que alguien me dara una mano
tengo un formulario con dos tablas, departamentos y grupostrabajo, tengo que hacer una busqueda en la tabla grupostrabajo de un registro.
Si existe en la tabla grupostrabajo, se permitira borrar el registro en la tabla departamentos.
Pero el seek no lo hace bien, tengo dado como indice el campo iddep, y el codigo que pongo es el siguiente:
select grupostrabajo
set order to tag iddep
seek grupostrabajo.iddep
if found()
=messagebox("No se puede eliminar este registro, tiene grupos de trabajo asignados","Atención")
thisform.refresh
thisform.show
else
select departamentos
if messagebox("¿Está seguro?",4+32+256,"Eliminar") =6
delete
=tableupdate(.t.)
thisform.refresh
thisform.show
endif
endif
select departamentos
Agradeceria que alguien me dara una mano
Valora esta pregunta


0