Page 1 of 1
problemilla con la ñ
Posted: Thu May 31, 2007 11:27 am
by Uri
¿Como _ 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.
Posted: Thu May 31, 2007 2:19 pm
by 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)
Posted: Thu May 31, 2007 3:13 pm
by Patricio Avalos Aguirre
Uri
modifica la clase tget en la METHOD KeyChar
yo la modifique asi
Code: Select all
if ! Empty( ::cPicture ) .and. '@!' $ ::cPicture
nKey = Asc( Upper( Chr( nKey ) ) )
//patricio
if nKey = 241 // ñ
nKey := 209 // Ñ
endif
//fin patricio
endif
Posted: Fri Jun 01, 2007 9:32 am
by Uri
Gracias, voy a intentarlo.