No mostrar ventana resultado c/Select
Publicado por DanielVFP (37 intervenciones) el 21/11/2010 15:02:27
Hola a todos.
¿Como debo hacer para que VFP no me muestre la ventana con el resultado de la consulta?
SET MULTILOCKS ON
SET TALK ON
SET PATH TO C:\VFPPROYECTO\VENCIMIENTOS\TABLAS
USE datos IN 0
SELECT("datos")
SET ORDER TO codigo
SELECT COUNT(codigo) AS _cantidad FROM datos
cantidad = _cantidad
SELECT COUNT(codigo) AS _borrados FROM datos WHERE DELETED()
borrados = _borrados
IF cantidad <> 1
IF cantidad = 0
ThisForm.SetAll( "Enabled", .F., "CommandButton")
ThisForm.bAgregar.Enabled = .T.
ThisForm.bSalir.Enabled = .T.
ENDIF
ELSE
ThisForm.bBuscar.Enabled = .F.
ENDIF
ThisForm.LblAyuda.Visible = .F.
ThisForm.LbAyuda3.Visible = .F.
IF borrados = 0
ThisForm.bRecupera.Enabled = .F.
ENDIF
Bueno eso es todo.-
Saludos.
Daniel
¿Como debo hacer para que VFP no me muestre la ventana con el resultado de la consulta?
SET MULTILOCKS ON
SET TALK ON
SET PATH TO C:\VFPPROYECTO\VENCIMIENTOS\TABLAS
USE datos IN 0
SELECT("datos")
SET ORDER TO codigo
SELECT COUNT(codigo) AS _cantidad FROM datos
cantidad = _cantidad
SELECT COUNT(codigo) AS _borrados FROM datos WHERE DELETED()
borrados = _borrados
IF cantidad <> 1
IF cantidad = 0
ThisForm.SetAll( "Enabled", .F., "CommandButton")
ThisForm.bAgregar.Enabled = .T.
ThisForm.bSalir.Enabled = .T.
ENDIF
ELSE
ThisForm.bBuscar.Enabled = .F.
ENDIF
ThisForm.LblAyuda.Visible = .F.
ThisForm.LbAyuda3.Visible = .F.
IF borrados = 0
ThisForm.bRecupera.Enabled = .F.
ENDIF
Bueno eso es todo.-
Saludos.
Daniel
Valora esta pregunta


0