soldat
27 de Junio del 2005

hola , de nuevo busco su ayuda de antemano muchas gracias, tengo el siguiente codigo para comprobar que la clave que se introduce sea de 5 caracteres combinado con numeros la variables es tipo string pero me marca incompatibilidad, aqui les muestro el codigo muchas gracias y se lo agradesco a quien me pueda ayudar a solucionarlo

a=0
SELECT 2
CLAVE=val(THISFORM.TEXT10.VALUE)
a=allt((clave))
if (a>5)or (a<5) then
x=messagebox("LA CLAVE DEBE SER DE 5 CARACTERES O DIGITOS")
ELSE
SEEK CLAVE
IF EOF()THEN
THISFORM.TEXT2.SETFOCUS
ELSE
Z=MESSAGEBOX("CLAVE YA EXISTE, VUELVA A CAPTURARLA",16+4)
IF(Z=6) THEN
THISFORM.TEXT10.VALUE=""
THISFORM.COMMAND4.SETFOCUS
ELSE
THISFORM.TEXT10.VALUE=""
THISFORM.COMMAND4.SETFOCUS
ENDIF
ENDIF
ENDIF

Daniel
27 de Junio del 2005

En la tercera línea de tu rutina, lo que estás haciendo es convertir el texto en numero "123"=123, pero no estás contando los carateres, para eso podrías usar algo como:
a=len(alltrim(clave))
en este caso, 'a' contiene el numero de carateres dentro del campo. Si entendí bien tu problema, esto lo resolvería.
Saludos.

soldat
27 de Junio del 2005

OK, GRACIAS, estaba haciendolo al reves muchas gracias por la ayuda ya salio