formulario generado en VF7
Publicado por rivo (26 intervenciones) el 21/11/2002 15:28:19
Hola a todos , creè un formulario con el generador de vf7 , el problema es
q no me valida los codigos repetidos , si alguien ha pasado por èsto le
estaria agradecido de escribir el còdigo.
Todo funciona muy bien , hasta q el usuario presiona el botòn de NUEVO ,
el generador comparte este boton con el de GUARDAR , asi q asume q aunque
el usuario coloque un codigo repetido o q no haga nada , como habilita el
boton de GUARDAR , LE CREA un registro nuevo.HE CONTROLADO EL CODIGO
REPETIDO a traves del evento VALID del texbox , pero no hayo como
programar el boton GRABAR (q tiene metodod heredados) para q en caso q el
usuario coloque el codigo en blanco no agregue el registro.
Disculpen si no me he expresado bien , pero creo q les he dado una idea
del problema.
El codigo del EVENTO VALID del texbox es el siguiente ,
SET DELETED ON
SELECT FRANQUICIAS
SET ORDER TO codigo
BUSCO=ALLTRIM(THIS.Value)
IF !EMPTY(BUSCO)
SEEK BUSCO
IF found() AND RECNO()<>regactual
=MESSAGEBOX("LA FRANQUICIA "+BUSCO+" ya existe",48,"ATENCION")
GO bott
SKIP
this.Value=SPACE(2)
RETURN .F.
ELSE
DODEFAULT()
ENDIF
ELSE
RETURN .F.
ENDIF
Agrdeciendo cualquier respuesta , muy agradecido de antemano
Salud
q no me valida los codigos repetidos , si alguien ha pasado por èsto le
estaria agradecido de escribir el còdigo.
Todo funciona muy bien , hasta q el usuario presiona el botòn de NUEVO ,
el generador comparte este boton con el de GUARDAR , asi q asume q aunque
el usuario coloque un codigo repetido o q no haga nada , como habilita el
boton de GUARDAR , LE CREA un registro nuevo.HE CONTROLADO EL CODIGO
REPETIDO a traves del evento VALID del texbox , pero no hayo como
programar el boton GRABAR (q tiene metodod heredados) para q en caso q el
usuario coloque el codigo en blanco no agregue el registro.
Disculpen si no me he expresado bien , pero creo q les he dado una idea
del problema.
El codigo del EVENTO VALID del texbox es el siguiente ,
SET DELETED ON
SELECT FRANQUICIAS
SET ORDER TO codigo
BUSCO=ALLTRIM(THIS.Value)
IF !EMPTY(BUSCO)
SEEK BUSCO
IF found() AND RECNO()<>regactual
=MESSAGEBOX("LA FRANQUICIA "+BUSCO+" ya existe",48,"ATENCION")
GO bott
SKIP
this.Value=SPACE(2)
RETURN .F.
ELSE
DODEFAULT()
ENDIF
ELSE
RETURN .F.
ENDIF
Agrdeciendo cualquier respuesta , muy agradecido de antemano
Salud
Valora esta pregunta


0