problemilla con la ñ

[Uri]

¿Como podriamos capturar la letra ñ en mayúscula?
Con el picture "@!" ingreso todas las letras en mayúscula (independientemente si tengo activado ó no el Bloq-Mayús).
Menos la ñ.
Gracias.

[Willi Quintana]

Holas,,
Luego de la captura (ouede ser en el valid) podrias usar esto:

Function RevisaLetras(cDat)
local nLen, nCont
If VALTYPE(cDat) = "A" // es un array
nLen := LEN(cDat)
FOR nCont := 1 TO nLen
IF VALTYPE(cDat[nCont]) = "C"
cDat[nCont] := STRTRAN(cDat[nCont],"'","´")
cDat[nCont] := STRTRAN(cDat[nCont],"'","´")
cDat[nCont] := STRTRAN(cDat[nCont],"ñ","Ñ")
ENDIF
NEXT nCont
Else
cDat := STRTRAN(cDat,"'","´")
cDat := STRTRAN(cDat,"`","´")
cDat := STRTRAN(cDat,"ñ","Ñ")
EndIF
Return(cDat)

[Patricio Avalos Aguirre]

Uri

modifica la clase tget en la METHOD KeyChar

yo la modifique asi

Code: Select all  Expand view

   if ! Empty( ::cPicture ) .and. '@!' $ ::cPicture
      nKey = Asc( Upper( Chr( nKey ) ) )
      //patricio
      if nKey = 241 // ñ
         nKey := 209 // Ñ
      endif
      //fin patricio
   endif


[Uri]

Gracias, voy a intentarlo.