Se hacen registros sin autorizacion
Publicado por Jajo0494 (1 intervención) el 28/07/2012 15:41:43
Buen día expertos, estoy trabajando en un proyecto del colegio y tengo un inconveniente y es que en un formulario de ingreso de cliente debo ingresar la identidad que consta de 13 caracteres, el problema es que al ingresar una nueva identidad me dice que el registro ya existe. ademas al salir del formulario esta identidad queda guardada en la tabla sin mi autorización (no presiono nada mas, ni el botón de guardar) esta es mi codificación:
WITH thisform
videntidad=ALLTRIM(.text1.Value)
IF LEN(videntidad)<>13
resp=MESSAGEBOX('Identidad Incompleta',37)
DO CASE
CASE resp=4
RETURN 0
CASE resp=2
.Release
ENDCASE
ENDIF
IF LEN(videntidad)=13
SELECT clientes
IF SEEK(videntidad)
resp=MESSAGEBOX('Cliente ya Registrado',37)
DO CASE
CASE resp=4
.init
CASE resp=2
.Release
ENDCASE
ENDIF
ENDIF
ENDWITH
WITH thisform
videntidad=ALLTRIM(.text1.Value)
IF LEN(videntidad)<>13
resp=MESSAGEBOX('Identidad Incompleta',37)
DO CASE
CASE resp=4
RETURN 0
CASE resp=2
.Release
ENDCASE
ENDIF
IF LEN(videntidad)=13
SELECT clientes
IF SEEK(videntidad)
resp=MESSAGEBOX('Cliente ya Registrado',37)
DO CASE
CASE resp=4
.init
CASE resp=2
.Release
ENDCASE
ENDIF
ENDIF
ENDWITH
Valora esta pregunta
0