Página 3 de 3 PrimerPrimer 1 2 3
Resultados 21 al 25 de 25

Tema: Código para recibir archivo json y leerlo

  1. #21
      Senior
    Avatar de fastpho

    Registrado
    diciembre de 2016
    Ubicación
    Mendoza
    Edad
    52
    Mensajes
    288
    Última visita
    Ayer a las 16:24

    Agradecimientos
     
    Recibidos
    189
    Enviados
    178

    Citaciones y menciones
     
    Mentioned
    32 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    8 Post(s)
    Poder de Reputación
    20
    Concurso: Primer puesto / Point Value: 0

    Gadget

    Hola @Fito, probe tu ejemplo solamente cambiando la coma por punto y funciona perfecto , modifique el valor de 1000.02 por 21000.02 y tambien lo toma
    COBOL Código:
    1. 01  wdatos.
    2.      02 wtipo                pic 999.
    3.      02 wperiodo            pic x(7).
    4.      02 wimporte            pic 9(9)v99.
    5.      02 l-importe            pic z(9).zz.   *> Cambia la coma por punto y funciona perfecto
    Me parece que el problema es la configuracion regional.....
    te mando un pantalllazo
    Saludos ...
    Imagem Anexada Imagem Anexada

    0 Not allowed!

  2. #22
      Guardián del Foro
    Avatar de Fito

    Registrado
    febrero de 2015
    Ubicación
    Córdoba, Villa María
    Edad
    51
    Mensajes
    364
    Última visita
    Hoy a las 03:30

    Agradecimientos
     
    Recibidos
    190
    Enviados
    202

    Citaciones y menciones
     
    Mentioned
    31 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    25
    Agradecimientos / Point Value: 0 Guardián del Foro / Point Value: 0 Activista del Foro / Point Value: 0

    Predeterminado

    Hola @fastpho

    Si Sr., el problema es la configuración regional. La tengo con coma decimal y el ocx me pide con puntos. Ahora que recuerdo, en algún otro post se habló de ese tema.

    Le agregué para que cambia a punto al comienzo y después que trabajo el json lo vuelvo a coma y anduvo a la perfección.

    COBOL Código:
    1.  ENVIRONMENT     DIVISION.
    2.  DATA            DIVISION.
    3.  WORKING-STORAGE SECTION.
    4.  
    5. *... variables para verificar la configuración regional...
    6.  01  caracter        pic x(255).
    7.  01  buffer          pic s9(9) comp-5.
    8.  01  retcode         pic s9(9) comp-5.
    9.  01  estilo          pic s9(9) comp-5.
    10.  77  wsep-dec        pic x.
    11.  77  wsep-mil        pic x.
    12.  
    13.  01  wcobranza.
    14.      02 pic x(50)    value '{'.
    15.      02 pic x(50)    value '  "ALUMNO": "Chiavazza Adolfo Carlos",'.
    16.      02 pic x(50)    value '  "DNI": "22222222",'.
    17.      02 pic x(50)    value '  "FECHA": "10-03-2022",'.
    18.      02 pic x(50)    value '  "COBRANZA": ['.
    19.      02 pic x(50)    value '    {'.
    20.      02 pic x(50)    value '      "TIPO": 1,'.
    21.      02 pic x(50)    value '      "PERIODO": "03-2022",'.
    22.      02 pic x(50)    value '      "IMPORTE": 5000'.
    23.      02 pic x(50)    value '    },'.
    24.      02 pic x(50)    value '    {'.
    25.      02 pic x(50)    value '      "TIPO": 2,'.
    26.      02 pic x(50)    value '      "PERIODO": "03-2022",'.
    27.      02 pic x(50)    value '      "IMPORTE": 1000.02'.
    28.      02 pic x(50)    value '    }'.
    29.      02 pic x(50)    value '  ]'.
    30.      02 pic x(50)    value '}'.
    31.      
    32.  01  jfecha                 pic x(10).
    33.  01  redefines jfecha.
    34.      02 jfecha-dd           pic 99.
    35.      02                     pic x.
    36.      02 jfecha-mm           pic 99.
    37.      02                     pic x.
    38.      02 jfecha-aa           pic 9999.
    39.      
    40.  01  wfecha                 pic 9(8).
    41.  01  redefines wfecha.
    42.      02 wfecha-aa           pic 9999.
    43.      02 wfecha-mm           pic 99.
    44.      02 wfecha-dd           pic 99.
    45.  
    46.  01  indA                   pic s9(9) comp-5 value zeros.
    47.  01  w--ii                  pic 9(8).
    48.  01  dato                   pic x(200).
    49.  
    50.  01  wdatos.
    51.      02 wtipo               pic 999.
    52.      02 wperiodo            pic x(7).
    53.      02 wimporte            pic 9(12)v99.
    54.      02 l-importe           pic z(12),zz.
    55.  
    56.  PROCEDURE       DIVISION.
    57.  
    58.  comienzo.
    59.      perform pone-punto.
    60.      
    61.      invoke json "Clear".
    62.  
    63.      invoke json "Load" using wcobranza.
    64.      
    65.      invoke json "StringOf" using "FECHA" returning jfecha.
    66.  
    67.      display jfecha.
    68.          
    69.      invoke json "SizeOfArray" using "COBRANZA" returning indA.
    70.          
    71.      perform varying w--ii from zeros by 1 until w--ii = indA
    72.         move spaces      to dato
    73.         string "COBRANZA["    delimited by size
    74.                   w--ii       delimited by size
    75.                   "]"         delimited by size
    76.                   "."         delimited by size
    77.                   "TIPO"      delimited by size              
    78.                   into dato
    79.         end-string
    80.         invoke Json "StringOf" using dato  returning wtipo
    81.  
    82.         move spaces      to dato
    83.         string "COBRANZA["    delimited by size
    84.                   w--ii       delimited by size
    85.                   "]"         delimited by size
    86.                   "."         delimited by size
    87.                   "PERIODO"   delimited by size              
    88.                   into dato
    89.         end-string
    90.         invoke Json "StringOf" using dato  returning wperiodo
    91.      
    92.         move spaces      to dato
    93.         string "COBRANZA["    delimited by size
    94.                   w--ii       delimited by size
    95.                   "]"         delimited by size
    96.                   "."         delimited by size
    97.                   "IMPORTE"   delimited by size              
    98.                   into dato
    99.         end-string
    100.         invoke Json "StringOf" using dato  returning wimporte
    101.         move wimporte    to l-importe
    102.        
    103.         display wtipo, "   ", wperiodo, "   ", l-importe
    104.      
    105.      end-perform.
    106.      
    107.      perform pone-coma.
    108.  
    109.      exit program.
    110.      
    111.      
    112.  pone-coma.    
    113.      *>... Seteo en Windows el separador decimal
    114.      move spaces        to caracter.
    115.      move ","           to caracter(1:1).
    116.      move X"00"         to caracter(2:1).  
    117.      call "SetLocaleInfoA" with stdcall linkage
    118.         using by value 1024
    119.               by value 14
    120.               by reference caracter
    121.         returning retcode.
    122.      cancel "SetLocaleInfoA".          
    123.      
    124.      *>... Seteo en Windows el separador de miles
    125.      move spaces        to caracter.
    126.      move "."           to caracter(1:1).
    127.      move X"00"         to caracter(2:1).  
    128.      call "SetLocaleInfoA" with stdcall linkage
    129.         using by value 1024
    130.               by value 15
    131.               by reference caracter
    132.         returning retcode.
    133.      cancel "SetLocaleInfoA".          
    134.  
    135.  pone-punto.    
    136.      *>... Seteo en Windows el separador decimal
    137.      move spaces        to caracter.
    138.      move "."           to caracter(1:1).
    139.      move X"00"         to caracter(2:1).  
    140.      call "SetLocaleInfoA" with stdcall linkage
    141.         using by value 1024
    142.               by value 14
    143.               by reference caracter
    144.         returning retcode.
    145.      cancel "SetLocaleInfoA".          
    146.      
    147.      *>... Seteo en Windows el separador de miles
    148.      move spaces        to caracter.
    149.      move ","           to caracter(1:1).
    150.      move X"00"         to caracter(2:1).  
    151.      call "SetLocaleInfoA" with stdcall linkage
    152.         using by value 1024
    153.               by value 15
    154.               by reference caracter
    155.         returning retcode.
    156.      cancel "SetLocaleInfoA".          

    Pensando un poco, trabajando con un servidor con escritorio remoto, desde un usuario cambio la configuración regional, se le cambia automáticamente a todos los usuarios, o solamente a este?

    Si bien el proceso es rápido, y enseguida vuelve todo a la normalidad, no sea cosa que este cambio afecte a otro usuario que esté haciendo otra cosa, como un excel o listado.

    Muchas gracias

    Saludos...

    Fito...

    0 Not allowed!

  3. #23
      Administrador
    Avatar de Kuk

    Registrado
    enero de 2015
    Ubicación
    Madrid
    Edad
    38
    Mensajes
    2,157
    Última visita
    Ayer a las 23:18

    Agradecimientos
     
    Recibidos
    957
    Enviados
    827

    Citaciones y menciones
     
    Mentioned
    71 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    15 Post(s)
    Poder de Reputación
    10

    Predeterminado

    @Fito, según dicen, el Locale se cambia a nivel sistema y no a nivel del usuario: Set language per user Solved - Windows 10 Forums

    0 Not allowed!
    ¿Te han ayudado? NO TE OLVIDES de darle al botón
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención, tienes 2 opciones:
    1. Haciendo clic en el icono al lado de su nick
    2. Haciendo clic en el botón en el editor y escribiendo su nick.

  4. #24
      Senior
    Avatar de fastpho

    Registrado
    diciembre de 2016
    Ubicación
    Mendoza
    Edad
    52
    Mensajes
    288
    Última visita
    Ayer a las 16:24

    Agradecimientos
     
    Recibidos
    189
    Enviados
    178

    Citaciones y menciones
     
    Mentioned
    32 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    8 Post(s)
    Poder de Reputación
    20
    Concurso: Primer puesto / Point Value: 0

    Predeterminado

    Hola @Kuk, @Fito, la configuracion regional , el idioma , el escritorio etc es a nivel usuario de windows , NO a nivel sistema
    el cambio si puede afectar al usuario que por ejemplo este realizando algun proceso al mismo tiempo que tu programa , como pusiste de ejemplo Excel
    Saludos ....

    0 Not allowed!

  5. #25
      Guardián del Foro
    Avatar de Fito

    Registrado
    febrero de 2015
    Ubicación
    Córdoba, Villa María
    Edad
    51
    Mensajes
    364
    Última visita
    Hoy a las 03:30

    Agradecimientos
     
    Recibidos
    190
    Enviados
    202

    Citaciones y menciones
     
    Mentioned
    31 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    25
    Agradecimientos / Point Value: 0 Guardián del Foro / Point Value: 0 Activista del Foro / Point Value: 0

    Predeterminado

    Hola Amigos.

    Excelente, entonces no voy a tener ningún problema. Aunque en este caso tampoco lo hubiera tenido porque en este servidor solamente corre el programa para servidor web, no se loguea ningún usuario

    Saludos..

    Fito,,,,

    0 Not allowed!

Página 3 de 3 PrimerPrimer 1 2 3

Información de Tema

Usuarios Viendo este Tema

Actualmente hay 1 usuarios viendo este tema. (0 miembros y 1 visitantes)

Temas Similares

  1. [Información] JSON en Cobol...
    Por Fito en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 20
    Último Mensaje: 02.07.2021, 23:07
  2. [Compilador] Json & Powercobol
    Por Joseg en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 1
    Último Mensaje: 12.04.2021, 15:13
  3. [Componente] Generador código QR
    Por atncasiello en el foro PowerFORM
    Respuestas: 1
    Último Mensaje: 30.12.2020, 00:49
  4. [Componente] Imprimir código QR
    Por Armando en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 12
    Último Mensaje: 19.06.2019, 00:53
  5. [Sintaxis] Enviar y Recibir Mail
    Por fastpho en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 1
    Último Mensaje: 14.10.2017, 10:07

Etiquetas para este Tema

Marcadores

Marcadores

Permisos de Publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •