ayuda urgente, codepage :-(

[carlos vargas]

Hola amigos, hoy tengo el siguiente problema.

dado el siguiente codigo:

Code: Select all

REQUEST  HB_LANG_ESWIN, HB_CODEPAGE_ESWIN

PROCEDURE t()
   LOCAL cCadena
   LOCAL cI, cF, nI, nF

    hb_langselect( "ESWIN" )
    hb_setcodepage( "ESWIN" )

   cI="A"
   cF="Z"
   nI=Asc(cI)
   nF=Asc(cF)
   cCadena=""
   FOR x=nI TO nF
      cCadena = cCadena + Chr(x)
   NEXT
   cCadena = cCadena + " - " + STR(LEN(cCadena))
   alert(cCadena)
return

Necesito que me retorne "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ", aca la Ñ es la del problema. (nota: se que Ñ tiene un valor asc de 165), lo que quiero saber es si modificando el codepage por ejemplo con
hb_setcodepage("ESWIN") funciona?

he probado con este codepage y no me funciona , esto me urge (para variar )

estoy usando xharbour.

gracia por la ayuda

salu2
carlos vargas.