FoxPro/Visual FoxPro - PROBLEMAS TABLEREVERT

 
Vista:

PROBLEMAS TABLEREVERT

Publicado por NELSON ROFRIGUEZ (61 intervenciones) el 08/02/2002 20:30:20
GRACIAS !! En especial a Foxperto, el SEEK al fin funcionó,
pero porque el programa siempre graba el registro aunque tenga :
el TABLEREVERT, gracias de nuevo.

*Verifica que el código no exista.
Set multilock on
Cursorsetprop("Buffering",3,alias())
KEY=THISFORM.txtcodbod.VALUE
SELECT vibode
Inreg=RECNO()
SET ORDER TO codbod
SEEK KEY
IF FOUND()AND RECNO() <> Inreg
=MESSAGEBOX("Codigo de Bodega ya Existe,Intentelo de nuevo",0,"ATENCION")
=TABLEREVERT(.T.)
*Go Bottom
thisform.enadicion=.f.
thisform.enedicion=.f.
thisform.opciones_botoncancelar()
THISFORM.txtnombre.ENABLED=.F.
THISFORM.txtdireccion.ENABLED=.F.
ELSE
thisform.txtnombre.visible=.t.
thisform.txtnombre.enabled=.t.
thisform.txtdireccion.visible=.t.
thisform.txtdireccion.enabled=.t.
ENDIF

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:PROBLEMAS TABLEREVERT

Publicado por Charles Benzon (340 intervenciones) el 09/02/2002 02:50:52
Buenas,
seguro que graba?, al parecer aun el dato lo vez en la pantalla...eso pienzo, creo que faltaria refrescar la pantalla despues del Go bottom.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar