topic-38439

Posts: 1818

Joined: Wed Oct 26, 2005 02:49 PM

Problemas con las Ñ y las tildes

Posted: Mon Feb 03, 2020 02:43 PM

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,

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Problemas con las Ñ y las tildes

Posted: Mon Feb 03, 2020 03:08 PM

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

Code (fw): Select all Collapse

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

// <!-- m --><a class="postlink" href="http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=23861">http://www.pctoledo.com.br/forum/viewto ... =4&t=23861</a><!-- m -->

#Include "FiveWin.ch"

STATIC oWnd

FUNCTION Main()

   LOCAL oBar

   DEFINE WINDOW oWnd TITLE "Tabela: ISO 8859-1 - Marcos Kieron - <!-- w --><a class="postlink" href="http://www.fivewin.com.br">www.fivewin.com.br</a><!-- w -->"

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar ACTION TABISO()

   SET MESSAGE OF oWnd TO "Tabela: ISO 8859-1 - Marcos Kieron - <!-- w --><a class="postlink" href="http://www.fivewin.com.br">www.fivewin.com.br</a><!-- w -->" ;
      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 - <!-- e --><a href="mailto:kapiabafwh@gmail.com">kapiabafwh@gmail.com</a><!-- e --> - 24/01/2020.

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Problemas con las Ñ y las tildes

Re: Problemas con las Ñ y las tildes

Continue the discussion