FoxPro/Visual FoxPro - Ayuda por Favor con el evento VALID !!

 
Vista:

Ayuda por Favor con el evento VALID !!

Publicado por Ernesto Rodríguez (61 intervenciones) el 17/10/2002 01:59:57
Tengo una textbox con el siguiente codigo en el evento VALID:
SET MULTILOCKS ON
CURSORSETPROP("BUFFERING,5,ALIAS())
gcregactual=RECNO()
KEY=THISFORM.combo1.VALUE+THISFORM.txtcodcuenta.VALUE
SELECT cuentas
SET ORDER TO codcuenta
SEEK KEY
IF FOUND() AND RECNO()<>gcregactual
=MESSAGEBOX("El codigo ya existe en este Banco",48,"ATENCION")
RETURN 0
ENDIF

Y funciona muy bien, porque con el RETURN 0 no permita avanzar,
pero si el usuario borra lo que ha escrito y vuelve a digitar el
codigo repetido, en esta segunda ocasión si lo deja pasar a
la siguiente texbox.

Que le pasa al EVENTO VALID que solo lo verifica una vez ?

Gracias.


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
sin imagen de perfil

RE:Ayuda por Favor con el evento VALID !!

Publicado por Guillermo Arias (294 intervenciones) el 17/10/2002 07:16:29
¿Porque no pruebas con el evento INTERACTIVECHANGE?, ojalá te sirva mi sugerencia.
chau
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

RE:Ayuda por Favor con el evento VALID !!

Publicado por alberto (37 intervenciones) el 17/10/2002 07:20:28
el problema es tu variable gcregactual
en la primera vez que checas key, lo encuentra y hace gcrecactual= al # de registro de la llave, la segunta vez como ya son iguales el if _____ retorna siempre falso y no se efectua la instruccion msgbox(...)
para que usas grregactual?
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