INPUTMASK - ALFANUMERICO

[SALINETAS24]

Hola a todos
Esto es lo que tengo en la documentación...,

Code: Select all

InputMask String (Numeric Textbox):

      9 Displays digits
      $ Displays a dollar sign in place of a leading space
      * Displays an asterisk in place of a leading space
      . Specifies a decimal point position
      , Specifies a comma position

InputMask String (Non-Numeric Textbox):

      9 Digits
      A Alphabetic Characters
      ! Converts an alphabetic character to uppercase

Pero que pasa cuando queremos crear una mascara para contener caratereres ALFANUMERICOS (aAbBcC...., 123...) y que tenga una determinada longitud. En Clipper creo recordar teniamos el "#" que nos permitia crear campos de una determinada longitud y con esas caracteristicas.

El problema es que cuando utilizo un TEXTBOX alfanumerico con MAXLENGTH 13, y cuyo dato será para introducir una clave, el resultado que obtengo no tiene una longitud de 13, tiene una longitud de los caracteres que he introducido por lo que tengo que estar rellenado los espacios.

¿no hay ninguna máscara en HMG..?

Gracias

He visto que ya se reporto en su dia, pero desconozco si posteriormente se realizo alguna aportación.

http://www.hmgforum.com/viewtopic.php?f ... RICO#p2607

Lo dicho, gracias a todos y vamos con una cervecita bien fresquita.

[Claudio Ricardo]

Hola Salinetas, Yo fijo el MaxLenght (a 13 en tu caso) y luego uso esta función:

Code: Select all

/////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Función Validate () Comprueba si los caracteres de cCadena están validados por cChars (retorna .T.)
// Uso Validate (cName,"abcdefghijklmnñopqrstuvwxyz0123456789") Si cName = a-z y 0-9 retorna .T.

Function Validate (cCadena,cChars)

LOCAL cValid := .T.
LOCAL i

	For i = 1 To Len (cCadena)
	
		If ! Lower ( SubStr (cCadena,i,1)) $cChars
		
			cValid := .F.
			
		EndIf
		
	Next

Return cValid

Se puede poner en un CodeBlock en OnChange para que sea como " Valid " en los Get de Cli**er
y lo termino con: cVar := Padl ( cVar, 13, "0") para rellenar con ceros (o lo que necesites) a la izquierda.

[andyglezl]

Con INPUTMASK "AAAAAAAAA9999" no te funciona ??

[SALINETAS24]

Hola Claudio,

Hola Salinetas, Yo fijo el MaxLenght (a 13 en tu caso) y luego uso esta función:
..../...[
Se puede poner en un CodeBlock en OnChange para que sea como " Valid " en los Get de Cli**er
y lo termino con: cVar := Padl ( cVar, 13, "0") para rellenar con ceros (o lo que necesites) a la izquierda.

Efectivamente la solución pasa por emplear una funcion, HMG carece de mascara para admitir cualquier tipo de caracter.

Hola Andy

Con INPUTMASK "AAAAAAAAA9999" no te funciona ??

A mi no me funciona, en el caso que tu indicas solo admite letras en las 9 primeras posiciones y numeros en las 4 ultimas, y yo quiero ponerlos en cualquier lugar.

En fin, seguiremos usando PAD.

Gracias por vuestra colaboración y vamos con una "serveseta" virtual.

[arturoorta]

Buenas tardes.

Yo tenía el mismo problema y modifiqué el código fuente de HMG para que acepte la "X" en INPUTMASK. Ahí te paso el programa modificado. Solo hay que recompilar las librerias HMG.

Se usa la "X" igual que en el Get de Clipper. Ejemplo INPUTMASK "!!!!999999XXX", esto es las primeras cuatro covertir a mayúscula, del 5 al 10 solo números y las tres últimas posiciones cualquier caracter. Espero te sirva. Saludos desde Chihuahua, México.

PDTA. ¿Podrán incluir esto en las siguientes revisiones de HMG? Solo es una sugerencia.

[arturoorta]

Ok. Ya revisé el problema que mencionan. Cuando lees el valor del Textbox siempre te quita los espacios sobrantes sin importarle el Maxlenght o InputMask. Por ejemplo:

Textbox oTxtBox Value Space(5) InputMask "!!!!!"

Si el usuario teclea "ABC" y hacemos lo siguiente:

cCode:=oWindow.oTxtBox.Value

cCode queda con el siguiente valor "ABC" eliminando los dos espacios restantes del valor original "ABC " y provocando que si hacemos una busqueda donde necesitamos que el valor sea exactamente igual, por ejemplo:

Select XDATA
DBSeek(cCode)
While cCode==XDATA->CODEFIELD .AND. !EoF()
Skip 1
Enddo

No funcione. Ya que "ABC" NO ES EXACTAMENTE IGUAL A "ABC ".

La solución sería modificar el código de TextBox para que no recorte los espacios sobrantes si hay un Maxlenght o un InputMask de por medio.

Esa es mi humilde opinión.

[AUGE_OHR]

hi,

you are right when use "=="

instead of

Code: Select all

While cCode==XDATA->CODEFIELD .AND. !EoF()

i would recommend to use

Code: Select all

While XDATA->CODEFIELD = cCode .AND. !EoF()

[andyglezl]

A mi no me funciona, en el caso que tu indicas solo admite letras en las 9 primeras posiciones y numeros en las 4 ultimas,
(Creo que así funciona el INPUTMASK)
y yo quiero ponerlos en cualquier lugar.

Simple TEXTBOX:

@ <nRow>, <nCol>
TEXTBOX <ControlName> OF <ParentWindowName> HEIGHT <nHeight> WIDTH <nWidth> VALUE <cValue> ;
MAXLENGTH <nInputLength> ON CHANGE Valida() ON LOSTFOCUS Valida() ON ENTER Valida()
:
:
:
Function Valida()
:
: Lo que quieras validar...
:
RETURN