FoxPro/Visual FoxPro - Se hacen registros sin autorizacion

   
Vista:

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