[Sintaxis] Cambiar el punto decimal por coma

[Joseg]

Estou com outro problema, o pessoal normalmente pede-me para alterar o "." (ponto) do teclado numerico pela "," virgula.
Sabe como se poderá fazer isso via API ou outro meio?
Eu ja tenho rotinas em PowerCobol para alterar as definições regionais automáticamente, mas esta esta troca do ponto pela virgula só no teclado numerico não estou a ver como.

Cumprimentos,
JoseManuel

[Josber]

❞ Estou com outro problema, o pessoal normalmente pede-me para alterar o "." (ponto) do teclado numerico pela "," virgula. Sabe como se poderá fazer isso via API ou outro meio?

En el evento "Keypress" del control que quieras, pones:

     EVALUATE POW-ARG-KEYASCII 
              WHEN 46
                   MOVE 44 TO POW-ARG-KEYASCII
     END-EVALUATE.

y debería de funcionar.

Un saludo.-

[Joseg]

❞ En el evento "Keypress" del control que quieras, pones:      EVALUATE POW-ARG-KEYASCII               WHEN 46                    MOVE 44 TO POW-ARG-KEYASCII      END-EVALUATE. y debería de funcionar. Un saludo.-

Gracias!

Mas ...é complicado. Tinha que alterar muito código
Tem que ser de outra forma. Quando entra na aplicação alterar logo para todo o programa. A Microsoft tem um utilitario para fazer isso, mas não é pratico para o cliente.
O Excel já faz a "," no lugar do "." no teclado numerico.

[Kuk]

Joseg, el propio Form tiene también eventos de teclado. Al menos en la versión 9 me acuerdo que hay PreKeyDown, donde creo que se podría hacer.

[Joseg]

❞ Joseg, el propio Form tiene también eventos de teclado. Al menos en la versión 9 me acuerdo que hay PreKeyDown, donde creo que se podría hacer.

Gracias, mas também é necessario alterar a programação.
Com o utilitário "keytweak" consegui alterar. É uma altaração global e não apenas para o meu programa, que era o que pretendia, mas para já resolve.

[Kuk]

Joseg, no entiendo nada... Preguntabas por cómo cambiar el punto decimal por coma. Pensábamos que te referías al teclado, en tu programa, que cuando introduzcas el punto decimal del teclado numérico te aparezca coma en vez de punto. Luego, según lo que has dicho, he entendido que tendías muchos CmEdit (por ejemplo) y que te suponía muchos cambios en el código. El Form también tiene "PreKeyPress" en el cual si pones el código de Josber te cambia el punto por la coma en todos los controles de ese Form.

Pero ahora dices que no quieres alterar tu programa. Entonces nos vamos a la configuración de Windows (en adjuntos). Pero cambiar esta configuración significa que todos los programas la comparten. Lo cual, no es aconsejable, si en tu país es la norma es la configuración americana (999,999,999.00) y no la europea (999.999.999,00).

Se puede cambiar por programa y por tiempo limitado dicha configuración de WIndows, pero tampoco es aconsejable si usas otros programas al mismo tiempo.

Yo tengo código para comprobar el punto decimal, si es punto o coma (yo lo hago en el evento "Opened":

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  LOCALE-USER-DEFAULT     PIC S9(9) COMP-5 VALUE h"0400". 
 01  LOCALE-SDECIMAL         PIC S9(9) COMP-5 VALUE h"0E". 
 01  RET                     PIC S9(9) COMP-5. 
 01  LONG                    PIC S9(9) COMP-5.
 01  BUFFER                  PIC X(256).
 
 PROCEDURE       DIVISION.
 
     MOVE 256 TO LONG
     
     CALL "GetLocaleInfoW" WITH STDCALL USING BY VALUE LOCALE-USER-DEFAULT    
                                              BY VALUE LOCALE-SDECIMAL
                                              BY REFERENCE BUFFER
                                              BY VALUE LONG
                                              RETURNING RET.
          
     IF  BUFFER(1:1) = ","
         DISPLAY "COMA : " BUFFER  
         
     ELSE
         DISPLAY "PUNTO : " BUFFER  
     END-IF
     

[Joseg]

❞ Joseg, no entiendo nada... Preguntabas por cómo cambiar el punto decimal por coma. Pensábamos que te referías al teclado, en tu programa, que cuando introduzcas el punto decimal del teclado numérico te aparezca coma en vez de punto. Luego, según lo que has dicho, he entendido que tendías muchos CmEdit (por ejemplo) y que te suponía muchos cambios en el código. El Form también tiene "PreKeyPress" en el cual si pones el código de Josber te cambia el punto por la coma en todos los controles de ese Form. Pero ahora dices que no quieres alterar tu programa. Entonces nos vamos a la configuración de Windows (en adjuntos). Pero cambiar esta configuración significa que todos los programas la comparten. Lo cual, no es aconsejable, si en tu país es la norma es la configuración americana (999,999,999.00) y no la europea (999.999.999,00). Se puede cambiar por programa y por tiempo limitado dicha configuración de WIndows, pero tampoco es aconsejable si usas otros programas al mismo tiempo. Yo tengo código para comprobar el punto decimal, si es punto o coma (yo lo hago en el evento "Opened":  ENVIRONMENT     DIVISION.  DATA            DIVISION.  WORKING-STORAGE SECTION.  01  LOCALE-USER-DEFAULT     PIC S9(9) COMP-5 VALUE h"0400".  01  LOCALE-SDECIMAL         PIC S9(9) COMP-5 VALUE h"0E".  01  RET                     PIC S9(9) COMP-5.  01  LONG                    PIC S9(9) COMP-5.  01  BUFFER                  PIC X(256).    PROCEDURE       DIVISION.        MOVE 256 TO LONG            CALL "GetLocaleInfoW" WITH STDCALL USING BY VALUE LOCALE-USER-DEFAULT                                                   BY VALUE LOCALE-SDECIMAL                                               BY REFERENCE BUFFER                                               BY VALUE LONG                                               RETURNING RET.                IF  BUFFER(1:1) = ","          DISPLAY "COMA : " BUFFER                  ELSE          DISPLAY "PUNTO : " BUFFER        END-IF

OK, portugués / español problema entendimiento.
Quiero simplemente haciendo clic en el botón "." (botón DEL) keypad (teclado numerico), asumir "," (coma) (ver imagem em anexo).

[Kuk]

Joseg, eso lo he entendido desde el primer post Lo que no entiendo es cómo lo quieres hacer sin modificar el programa!

[Josber]

Joseg, Si no quieres tocar nada de programación, lo tienes muuuuuyyyy dificil, o lo haces como te ha puesto Kuk o lo haces como te he puesto yo, el problema de hacerlo en el evento "PreKeyPress" es que lo cambia para todo, incluido cuando es un texto, pero cambiar el programa tienes que hacerlo sí o sí.

Un saludo.-

[Joseg]

❞ Joseg, Si no quieres tocar nada de programación, lo tienes muuuuuyyyy dificil, o lo haces como te ha puesto Kuk o lo haces como te he puesto yo, el problema de hacerlo en el evento "PreKeyPress" es que lo cambia para todo, incluido cuando es un texto, pero cambiar el programa tienes que hacerlo sí o sí. Un saludo.-

Sem nenhuma programação fiz o que queria!
Teclado PT, apenas no teclado numerico (keypad) trocar o "ponto" (mesma tecla do "DEL") pela "coma".
O resto é para ficar como esta. A onde esta a "," fazer a "coma" a onde esta "." fazer o "ponto".
Na verdade ainda não entenderam o que estou a pedir. Queria ser eu a controlar esta ação sem ter que recorrer a utilitários externos.
Quero apenas alterar o layout do teclado (keypad e apenas uma tecla).