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


0