Jos?uis
11 de Mayo del 2004

tengo el siguiente codigo para al momento de darle un codigo de cliente me muestra los demas datos, nombre direccion ect. el problema es que es numerico, pero yo lo ocupo alfanumerico, les pongo el codigo haber si me pueden ayudar como hacerle..

SELECT CLIENTES
SET order to Codcli
IF thisform.Codcli.value<>0
SEEK (thisform.Codcli.Value)
IF found()
register=recno()
thisform.mostrar
ETE=.F.
ELSE
ETE=.T.

ENDIF
ENDIF

ernesto
11 de Mayo del 2004

Puedes declarar el objeto Codcli con las propiedades InputMask = XXXXX... para que el campo acepte alfanumericos.

SELECT CLIENTES
SET order to Codcli
IF !empty(thisform.Codcli.value)
SEEK (thisform.Codcli.Value)
IF found()
register=recno()
thisform.mostrar
ETE=.F.
ELSE
ETE=.T.
ENDIF
ELSE
wait wind "El campo esta vacio..."
thisform.Codcli.setfocus
return
ENDIF

foxleonardo
11 de Mayo del 2004

Mejor, dependiendo del largo del campo usa lo siguiente:

x=padl(alltrim(str(variable)),10,'0')

eso si el campo tiene largo 10, lo que hace es que al digitar "1" 0 "6" completa el campo con ceros a la izquierda por ejemplo "0000000001"

www.empresadae.cl

quinteroff
11 de Mayo del 2004

No entendi muy bien lo que escribiste pero para transformar de numerico a caracter :
str(x)&&donde x es el campo a transformar