Problemas con las Ñ y las tildes

[leandro]

Buenos días para todos,

En estos días un cliente noto, que el momento de digitar la ñ o las vocales con las tildes, después de ese carácter no permite ingresar mas caracteres.

Para solucionarlo de momento le coloque la clausula PICTURE "@N", pero es que no quiero tener que ponerme a colocar en todos los GET de la aplicación la misma sentencia.

Espero haberme hecho entender,

De antemano gracias,

[karinha]

¿Por qué no haces un programa para convertir letras acentuadas en letras normales?

Code: Select all

//-> C:\FWH..\SAMPLES\TABISO.PRG - Tabela: ISO 8859-1 - 24/01/2020

// http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=23861

#Include "FiveWin.ch"

STATIC oWnd

FUNCTION Main()

   LOCAL oBar

   DEFINE WINDOW oWnd TITLE "Tabela: ISO 8859-1 - Marcos Kieron - www.fivewin.com.br"

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar ACTION TABISO()

   SET MESSAGE OF oWnd TO "Tabela: ISO 8859-1 - Marcos Kieron - www.fivewin.com.br" ;
      NOINSET CLOCK DATE KEYBOARD

   ACTIVATE WINDOW oWnd MAXIMIZED

RETURN NIL

FUNCTION TABISO()

   LOCAL x, i, j

   x := 10
   i := 1

   WHILE i <= 255

      SYSREFRESH()

      FOR j := 3 TO 42

         @ j, x SAY RIGHT( STR( i ), 3 ) + SPACE(1) + CHR( i++ ) OF oWnd

         IF i > 255

           EXIT

         ENDIF

      NEXT j

      x += 10

   ENDDO

RETURN NIL

// FIM - Modificado by kapiaba - kapiabafwh@gmail.com - 24/01/2020.
 

Saludos.