Fox pro 6 ayuda urgente.
Mira tengo este problema..
Estoy haciendo un sistema para un hotel, todo lo tengo en raíz c:\
En este formulario tengo un botón validar que es donde quiero que al poner una habitación me diga si esta o no esta ocupada.
Aveces me marca que se infringe la unicidad de indice.
Otras veces no hace nada solo el mismo msg de que ya esta ocupada y no cambia
Tengo este código:
ThisForm.menu1.enabled=.T.
use c:\cliente.dbf alias check_in order habitacion
GO TOP
hab=thisform.habitacion_c.value
seek thisform.habitacion_c.value
if found()
=messagebox("La habitación está ocupada",16)
thisform.habitacion_c.value=0
else
messagebox("La habitación está vacía", 16)
THISFORM.refresh
Endif
Espero y me puedas ayudar con esto expert estaría muy agradecido
Estoy haciendo un sistema para un hotel, todo lo tengo en raíz c:\
En este formulario tengo un botón validar que es donde quiero que al poner una habitación me diga si esta o no esta ocupada.
Aveces me marca que se infringe la unicidad de indice.
Otras veces no hace nada solo el mismo msg de que ya esta ocupada y no cambia
Tengo este código:
ThisForm.menu1.enabled=.T.
use c:\cliente.dbf alias check_in order habitacion
GO TOP
hab=thisform.habitacion_c.value
seek thisform.habitacion_c.value
if found()
=messagebox("La habitación está ocupada",16)
thisform.habitacion_c.value=0
else
messagebox("La habitación está vacía", 16)
THISFORM.refresh
Endif
Espero y me puedas ayudar con esto expert estaría muy agradecido
2 respuestas
Respuesta de César Pech
1
Respuesta de dgodinr
1