Cobol Foro
Página 1 de 3 1 23
Mostrar 40 mensajes desde este tema en una página

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Sintaxis] Cambiar el punto decimal por coma (https://www.cobolforo.es/showthread.php?t=264)

Joseg 13 de noviembre de 2015 11:02
Cambiar el punto decimal por coma
 
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 13 de noviembre de 2015 12:44
Cita:
Citación del post de Joseg (Mensaje 1228)
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:

Código COBOL:
  1.      EVALUATE POW-ARG-KEYASCII 
  2.               WHEN 46
  3.                    MOVE 44 TO POW-ARG-KEYASCII
  4.      END-EVALUATE.

y debería de funcionar.

Un saludo.-

Joseg 13 de noviembre de 2015 16:11
Cita:
Citación del post de Josber (Mensaje 1231)
En el evento "Keypress" del control que quieras, pones:

Código COBOL:
  1.      EVALUATE POW-ARG-KEYASCII 
  2.               WHEN 46
  3.                    MOVE 44 TO POW-ARG-KEYASCII
  4.      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 13 de noviembre de 2015 17:07
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 13 de noviembre de 2015 17:28
Cita:
Citación del post de Kuk (Mensaje 1234)
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 13 de noviembre de 2015 18:11
1 Archivos Adjunto(s)
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":

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  LOCALE-USER-DEFAULT     PIC S9(9) COMP-5 VALUE h"0400". 
  5.  01  LOCALE-SDECIMAL         PIC S9(9) COMP-5 VALUE h"0E". 
  6.  01  RET                     PIC S9(9) COMP-5. 
  7.  01  LONG                    PIC S9(9) COMP-5.
  8.  01  BUFFER                  PIC X(256).
  9.  
  10.  PROCEDURE       DIVISION.
  11.  
  12.      MOVE 256 TO LONG
  13.      
  14.      CALL "GetLocaleInfoW" WITH STDCALL USING BY VALUE LOCALE-USER-DEFAULT    
  15.                                               BY VALUE LOCALE-SDECIMAL
  16.                                               BY REFERENCE BUFFER
  17.                                               BY VALUE LONG
  18.                                               RETURNING RET.
  19.           
  20.      IF  BUFFER(1:1) = ","
  21.          DISPLAY "COMA : " BUFFER  
  22.          
  23.      ELSE
  24.          DISPLAY "PUNTO : " BUFFER  
  25.      END-IF
  26.      

Joseg 14 de noviembre de 2015 17:50
1 Archivos Adjunto(s)
Cita:
Citación del post de Kuk (Mensaje 1236)
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":

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  LOCALE-USER-DEFAULT     PIC S9(9) COMP-5 VALUE h"0400". 
  5.  01  LOCALE-SDECIMAL         PIC S9(9) COMP-5 VALUE h"0E". 
  6.  01  RET                     PIC S9(9) COMP-5. 
  7.  01  LONG                    PIC S9(9) COMP-5.
  8.  01  BUFFER                  PIC X(256).
  9.  
  10.  PROCEDURE       DIVISION.
  11.  
  12.      MOVE 256 TO LONG
  13.      
  14.      CALL "GetLocaleInfoW" WITH STDCALL USING BY VALUE LOCALE-USER-DEFAULT    
  15.                                               BY VALUE LOCALE-SDECIMAL
  16.                                               BY REFERENCE BUFFER
  17.                                               BY VALUE LONG
  18.                                               RETURNING RET.
  19.           
  20.      IF  BUFFER(1:1) = ","
  21.          DISPLAY "COMA : " BUFFER  
  22.          
  23.      ELSE
  24.          DISPLAY "PUNTO : " BUFFER  
  25.      END-IF
  26.      

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 14 de noviembre de 2015 19:49
Joseg, eso lo he entendido desde el primer post :D Lo que no entiendo es cómo lo quieres hacer sin modificar el programa! ;)

Josber 14 de noviembre de 2015 22:39
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 18 de noviembre de 2015 16:51
Cita:
Citación del post de Josber (Mensaje 1240)
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). :sis:


La franja horaria es GMT +2. Ahora son las 03:03.
Página 1 de 3 1 23
Mostrar 40 mensajes desde este tema en una página

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.