FiveTech Support Forums

Alguien sabe a que se debe que cuando utilizo la sentencia picture en un get del tipo PICTURE "@!" osea que me tome en mayusculas cuando coge una ñ me la pone en minusculas y tengo que pulsar el Shift para que la ponga en Ñ.
Problema del Harbour o Fivewin... todo el resto de letras me lo toma correcto, todas en mayusculas pero no en este caso.

Alguien conoce una solucion...

Hola Andres,

Realmente es muy extraño este comportamiento, pero lo que hago es en Resource Workshop, en la propriedad del get, lo pongo como UPPER CASE y listo.

Si alguna persona pueda darnos la solución desde codigo, seria buenissimo.

Saludos,

Buen día para todos...

Prueba colocando el siguiente código en la clase TGet en el método KeyChar despues de declaraciones LOCAL y antes de cualquier otra linea de código. Ejemplo

KeyChar( nKey, nFlags ) CLASS TGet

LOCAL .........
LOCAL .........

if !Empty( ::cPicture ) .and. '@!' $ ::cPicture
nKey := Asc( UpperCase( Chr( nKey ) ) )
endif

...............
...............
Resto de código del método.

Nota: Deberás compilar y enlazar la clase TGet con los cambio mencionados en tu aplicación para que tome el cambio. Esta modificacion tambien toma los signos de puntuación en mayúsculas. Ej. Á É Í Ó Ú

La sentencia que indicas ya viene incluida en la clase y justamente en el lugar que indicas, por lo que me temo que no es eso la solucion....

Gracias

Andrés,

Incluido para el próximo build, gracias!

Andrés González wrote:Un poco basto pero funciona, el problema es que realizas una comparacion mas por cada pulsacion. Supongo que el error debe de estar en la funcion Upper que no realiza el trabajo bien.

Code: Select all Collapse

 if ! Empty( ::cPicture ) .and. '@!' $ ::cPicture
		  if chr( nKey ) = "ñ"
				nKey = 209    //Ñ en mayusculas
		  else
        		nKey = Asc( Upper( Chr( nKey ) ) )
		  end
   endif

Creo que debe ser otra cosa. Yo uso la clase Tget sin modificar esa parte y me funciona sin problemas.

Sí Manuel tienes razón, seguro que corresponde a otro procedimiento el asignar el tema de las mayúsculas por eso he hecho la refexión que el tema esta a la hora de transformar los códigos en el procedimiento UPPER no se si el tema va de la tabla ascii o que, pero bueno con esto se soluciona desde fivewin. Supongo que el tema del upper viene del harbour y que debe ser ahí donde se solucione.

Efectivamente también hace falta la ç, sobre todo aquellos que como yo vivimos en regiones de dominio del catalán. No usan la ñ (ny) pero si la ç.

Andrés González wrote:La sentencia que indicas ya viene incluida en la clase y justamente en el lugar que indicas, por lo que me temo que no es eso la solucion....

Gracias

ARCC wrote:Buen día para todos...

Andrés González wrote:La sentencia que indicas ya viene incluida en la clase y justamente en el lugar que indicas, por lo que me temo que no es eso la solucion....

Gracias

Fe de errata, el problema es la funcion Upper y se resuelve con este código que se me olvidó colocar en mi post anterior. fijate lo que coloque antes y veras la función UpperCase(), lo que se me olvidó es este código colocalo al final de la clase y listo. Disculpa que pasé por alto esto.

DLL32 STATIC Function UpperCase(cStr AS STRING) AS STRING PASCAL;
FROM "CharUpperA" LIB "user32.dll"

Nota: Por favor utilizalo y me comentas.

Ojo, aqui funciona bien con Harbour pero NO con xHarbour

Antonio Linares wrote:Ojo, aqui funciona bien con Harbour pero NO con xHarbour

Antonio,

Totalmente de acuerdo. Hemos cambiado Upper() por UpperCase(). Gracias!

Visto que xHarbour no lo hace bien, y que además hay diferencia con Harbour, lo idóneo es usar la propia función del API de Windows.