Cobol Foro - [Duda] Cambio formato de numero

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Duda] Cambio formato de numero (https://www.cobolforo.es/showthread.php?t=34)

Cambio formato de numero

Amigos del foro
Tengo un instalador de mi sistema pero tengo un problema cuando se instala en una maquina y el formato de numero esta estableciod como "," y no el simbolo decimal "." no funciona la cargada de datos en los ctlist
se puede por programa cambiar? si tener que el usuario este entrando a panel de control ,cambio de formato numero.....

he visto que otros software al momento de instalar cambia este formato como lo hacen???

:rey:

No estoy seguro, pero si abres el editor del registro y vas a la clave

HKEY_USERS\.DEFAULT\Control Panel\International

Tienes todos los valores que se cambian desde el panel de control, es cuestión de probar a cambiar 2 valores que se llaman sDecimal y sMonDecimalSep.

Ten en cuenta que ésto lo hace para todo los programas de manera permanente, ¿ no te sería más facil incluir en el evento Keypress de tus programas el cambio de punto decimal por comma ?, es un simple IF y un MOVE.

Un saludo y suerte.-

Hola Amigo, te envie un correo al hotmail.
Saludos

Gracias por la respuesta Josber y Hrmcobol
Recibi el correo con el programa , se pone al comienzo de cada programa o al inicio del
sistema?
Si tengo ya establecido "." y "," lo invierte? porque a las maquinas que se instala no se
como lo tienen su sistema numerico este paquete lo vendo por internet.
En todo caso habria una forma de trastear si esta con el formato numerico requerido
caso contrario activo este programa.
Probare en todos los casos haber como funciona.

Reger, yo tengo un EXE que hace de menu y ejecuta las dlls, por lo tanto cuando arranca(opened) cambio la configuracion y cuansa salgo(closed) la vuelvo a dar vuelta.

Saludos

Cita:

Citación del post de Josber (Mensaje 85)

Josber
Si no es mucho, me podrías dar un ejemplo de esta instrucción (?, es un simple IF y un MOVE)
para implementarlo en mi programs,

Saludos

Cita:

Citación del post de jmeza (Mensaje 4295)

Josber
Si no es mucho, me podrías dar un ejemplo de esta instrucción (?, es un simple IF y un MOVE)
para implementarlo en mi programs,

Cambié el IF por un EVALUATE, pero funciona exactamente igual.

En el Evento KeyPress del campo, pones:

Código COBOL:

     EVALUATE POW-ARG-KEYASCII 
              WHEN 46           *> Cambiamos el punto por una coma
                   MOVE 44 TO POW-ARG-KEYASCII
     END-EVALUATE.

Un saludo.-

Cita:

Citación del post de Josber (Mensaje 4299)

Cambié el IF por un EVALUATE, pero funciona exactamente igual.

En el Evento KeyPress del campo, pones:

Código COBOL:

     EVALUATE POW-ARG-KEYASCII 
              WHEN 46           *> Cambiamos el punto por una coma
                   MOVE 44 TO POW-ARG-KEYASCII
     END-EVALUATE.

Un saludo.-

Josber, esto funciona ok para transforma el punto en coma en la digitación.
El problema se presenta cuando la configuración del compu en el panel de control el (.) punto esta como decimal y la comma (,) como unidad de mil, al grabar se registra como un numero entero.

Hay alguna forma de cambiar la configuración del panel de control por programa sin intervención del usuario.

Agradecido por tu ayuda

Saludos

Juan, fijate si en tu form estas usando en SPECIAL-NAMES DECIMAL-POINT IS COMMA.

Archivo Adjunto 468

Cita:

Citación del post de Roger (Mensaje 4312)

Juan, fijate si en tu form estas usando en SPECIAL-NAMES DECIMAL-POINT IS COMMA.

Archivo Adjunto 468

Roger, efectivamente en el form esta configurado como me indicas

Cita:

Citación del post de jmeza (Mensaje 4308)

Josber, esto funciona ok para transforma el punto en coma en la digitación.
El problema se presenta cuando la configuración del compu en el panel de control el (.) punto esta como decimal y la comma (,) como unidad de mil, al grabar se registra como un numero entero.
Hay alguna forma de cambiar la configuración del panel de control por programa sin intervención del usuario.

Supongo que a través del registro de windows, se podrá hacer, si es así y alguno sabe la "rama" del registro, puedo poner un ejemplo de como leer/grabar el registro.

Un salu2.-

Amigos, a ver si usamos la búsqueda ;) [Sintaxis] Cambiar el punto decimal por coma - COBOL Foro

Hola Amigos:

Asi lo hago yo al ingresar a la primera ventana.

Código COBOL:

*... variables para verificar la configuración regional...
 01  caracter        pic x(255).
 01  buffer          pic s9(9) comp-5.
 01  retcode         pic s9(9) comp-5.
 01  estilo          pic s9(9) comp-5.
 77  wsep-dec        pic x.
 77  wsep-mil        pic x.
*......................................................... 
*... variables para verificar el tamaño de la pantalla
 01  xsysmetric      pic s9(9) comp-5.
 01  xancho-pan      pic 9(9).
 01  xalto-pan       pic 9(9).
 
 
 01  control-win     pic S9(9) COMP-5.
     88 cw-ok        value 0.
     88 cw-cancel    value 1.

Código COBOL:

      *-------------------------------------------------------------------------------------------------------------
      *   Hago las llamadas a las API de Windows para controlar:
      *        Tamaño de la pantalla (no debe ser inferior a 1024 x 768)
      *        Configuración regional (controlo los separadores decimales y de miles)
      *             en caso de no ser los correctos, pregunta si quiere cambiarlos automáticamente
      *-------------------------------------------------------------------------------------------------------------
       llamadas-api-windows.
      *... Saco el tamaño de la Pantalla
           call "GetSystemMetrics" with stdcall linkage using by value 0 returning xsysmetric.
           move xsysmetric     to xancho-pan.           
           call "GetSystemMetrics" with stdcall linkage using by value 1 returning xsysmetric.
           cancel "GetSystemMetrics".
           move xsysmetric     to xalto-pan.          
           if xancho-pan < 1024 or xalto-pan < 720
              invoke pow-self "displaymessage" using 
                    "El tamaño de la pantalla no puede ser inferior a 1024 x 768 pixeles"
              move 1           to sen-salida
              invoke pow-self "closeform"
              go sale
           end-if.      
     
      *... Saco de Windows el separador decimal
           call "GetLocaleInfoA" with stdcall linkage
                                 using by value 1024
                                       by value 14
                                       by reference caracter
                                       by reference buffer
              returning retcode.
           cancel "GetLocaleInfoA".           
           move caracter      to wsep-dec.
     
      *... Saco de Windows el separador de miles
           call "GetLocaleInfoA" with stdcall linkage
                                 using by value 1024
                                       by value 15
                                       by reference caracter
                                       by reference buffer
              returning retcode.
           cancel "GetLocaleInfoA".           
           move caracter      to wsep-mil.
     
      *... En el caso de que sea incorrecto pregunto si los quiere modificar
           if wsep-dec not = "," or wsep-mil not = "."
              compute estilo = pow-dmokcancel + pow-dmiconexclamation + pow-dmdefbutton2
              invoke pow-self "displaymessage" using
                 "¿Autoriza establecer COMA como separador decimal y PUNTO como separador de miles?"
                 "Configuración regional incorrecta para esta aplicación"
                 returning retcode
              if retcode = pow-dmrcancel
                 move 1           to sen-salida
                 invoke pow-self "closeform"
                 go sale
              end-if
           end-if.
     
      *... Seteo en Windows el separador decimal
           move spaces        to caracter.
           move ","           to caracter(1:1).
           move X"00"         to caracter(2:1).  
           call "SetLocaleInfoA" with stdcall linkage 
              using by value 1024
                    by value 14
                    by reference caracter
              returning retcode.
           cancel "SetLocaleInfoA".           
     
      *... Seteo en Windows el separador de miles
           move spaces        to caracter.
           move "."           to caracter(1:1).
           move X"00"         to caracter(2:1).  
           call "SetLocaleInfoA" with stdcall linkage 
              using by value 1024
                    by value 15
                    by reference caracter
              returning retcode.
           cancel "SetLocaleInfoA".           
      *-------------------------------------------------------------------------------------------------------------
      *   Fin de las llamadas
      *-------------------------------------------------------------------------------------------------------------

Saludos.

Fito...