Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Cocina Casera > Cocina PowerCOBOL
Cocina PowerCOBOL Rutinas y ejemplos codificados por nuestros foreros.
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Información] Traspaso de Excel a ListView Socavi Fujitsu COBOL 16 7 de abril de 2020 19:39
[Sintaxis] Modificar altura de una fila en CmTable Begoguay PowerCOBOL (ActiveX, v4 - v11) 6 29 de mayo de 2019 20:00
[Sintaxis] Programación CmTable jmeza PowerCOBOL (ActiveX, v4 - v11) 6 13 de diciembre de 2018 13:51
[Sintaxis] Destacar una celda en un Cmtable Breew PowerCOBOL (ActiveX, v4 - v11) 3 14 de septiembre de 2017 23:20
[Aporte] Crear un ListView Kuk Cocina PowerCOBOL V3L10 1 19 de diciembre de 2015 21:10
Respuesta
 
Herramientas

  #1
Antiguo 7 de abril de 2020, 19:26
IDENTIFICATION DIVISION
Josber
Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Alicante
Última Actividad05.03.2021 17:00
PROCEDURE DIVISION
PostsPosts: 562
Ha dicho GraciasEnviado: 254
Ha recibido agradecimientosRecibido: 271
Mejores respuestasSoluiones: 35
ReputaciónReputación: 27
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Excel Desde Excel a ListView o CmTable

Bueno es un pequeño aporte de un programa que pasa una hoja de cálculo con algo más de 14.500 registros a un control ListView, (Grid) o a un control CmTable, (Tabla).

El fichero Excel que se traspasa es el de códigos postales de España, hay que tener en cuenta que, los códigos postales , municipios y provincias, son válidos, pero las coordenadas X e Y, (columna 5 y 6), son datos ficticios, añadidos sólo para esta ocasión.

Otros detalles:
- El control CmTable, no soporta más de 2.000 lineas, por lo que se hace la carga en varias veces, (si el usuario así lo desea).
- Tanto el control CmTable, como el control ListView, no soportan más de 14 enteros y 4 decimales, si ponemos más nos dará un aviso, que no un error, y todos los que pongamos de más, se mostrarán como 0, (ceros).
- El proceso es lento, al empezar el traspaso, hay un pequeño retardo, debido a la apertura de la hoja de cálculo, y además, se comprueba la cantidad de registros que hay, para poder cargarlos en el control ProgressIndicator
- En varios sitios, se utiliza la llamada a la subrutina CBL_DELETE_FILE2, por lo que sólo funcionará en PWC ver. 7 o superior, para las versiones 4, 5 y 6, hay que cambiarla por CBL_DELETE_FILE, con la salvedad de que ésta última, no soporta los espacios en blanco en la ruta ni en el nombre del fichero.
- Como ejemplo, porque creo que no hay ninguno, utilizo un fichero Sort, (uso de SD en vez de FD en FILE SECTION) para ordenar la tabla, (evento Click del control TABLA)

Entorno: PWC 7 a PWC 9
Tipo: Ejecutable
Contenido: Ejecutable, Proyecto, Iconos, Imágenes, archivo excel en un archivo RAR
Tamaño de la descarga: 780Kb
.
Imágenes Adjuntas
Tipo de Archivo: jpg Screenshot_6.jpg (122,3 KB, 20 descargas)
Archivos Adjuntos
Tipo de Archivo: rar Excel.rar (779,9 KB, 23 descargas)

Última edición por Josber fecha: 7 de abril de 2020 a las 20:04.
Josber no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 4
Kuk ( 7 de abril de 2020), Paulo (14 de abril de 2020), Roger ( 3 de mayo de 2020), Tigre ( 9 de abril de 2020)
  #2
Antiguo 9 de abril de 2020, 19:18
IDENTIFICATION DIVISION
Socavi
Novato Junior
ENVIRONMENT DIVISION
Avatar de Socavi
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Esplugues De Llobregat ( Barcelona )
Edad77 años
Última Actividad02.03.2021 23:14
PROCEDURE DIVISION
PostsPosts: 38
Ha dicho GraciasEnviado: 37
Ha recibido agradecimientosRecibido: 7
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
Socavi is on a distinguished road
Predeterminado

Hola Josber:

Para probar, lo he puesto en c:\excel, lo he compilado y me llevo la primera sorpresa puesto que no arranca, dónde he de instalarlo para verlo funcionar ?

Aprovecho para felicitarte, por la buena presentación y la pulcritud en la escritura de todo el programa, lo que me da a entender que eres un buen profesional, haber si puedo utilizar el programa, y se me "pega algo", jajaja.

Si no es mucha molestia y tus obligaciones te lo permiten, me atrevo a sugerir otra clase práctica, pero ésta vez con las coordenadas de Latitud y Longitud, a mi se me ha ocurrido ya que no se puede trabajar con los 6 decimales, hacerlo con numeros enteros, sin decimales, sustituyéncolos, por la presentacion -ZZ.ZZZZZZ, pero no me gusta como queda.

Muchas Gracias y lo dicho Felicidades, por tu bien hacer.
Socavi no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Josber (10 de abril de 2020)
  #3
Antiguo 10 de abril de 2020, 12:56
IDENTIFICATION DIVISION
Josber
Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Alicante
Última Actividad05.03.2021 17:00
PROCEDURE DIVISION
PostsPosts: 562
Ha dicho GraciasEnviado: 254
Ha recibido agradecimientosRecibido: 271
Mejores respuestasSoluiones: 35
ReputaciónReputación: 27
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

Cita del post de Socavi Ver Mensaje
Para probar, lo he puesto en c:\excel, lo he compilado y me llevo la primera sorpresa puesto que no arranca, dónde he de instalarlo para verlo funcionar ?
Qué raro, porque está creado y compilado ahí, dime cuál es el error que te da, a ver si le sacamos punta.

Cita del post de Socavi Ver Mensaje
por la buena presentación y la pulcritud en la escritura de todo el programa
Muuuuuuchas gracias, como he comentado en otro post de éste foro, me gusta mucho dejar espacios en blanco y, sobre todo, indentar el código, COBOL es un lenguaje muy bonito, pero hay que escribir mucho y, si no lo hacemos con claridad, mal vamos.

Cita del post de Socavi Ver Mensaje
con numeros enteros, sin decimales, sustituyéncolos, por la presentacion -ZZ.ZZZZZZ
¡¡¡ Uff !!, es que te quedan pocas posibilidades más, a no ser que utilices un componente de terceros que sí permita más de 4 decimales. La verdad es que soy de los que piensan que, 4 decimales es muy poco, pero es lo que hay. A ver si a alguien se le ocurre otra idea de presentación y la quiere exponer por aquí.

Un saludo.-
Josber no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 10 de abril de 2020, 13:18
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
Ubicación Madrid
Edad36 años
Última Actividad04.03.2021 21:00
PROCEDURE DIVISION
PostsPosts: 1.710
Ha dicho GraciasEnviado: 516
Ha recibido agradecimientosRecibido: 698
Mejores respuestasSoluiones: 92
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Socavi, Josber, cuál es el problema exactamente con las decimales ? No caigo


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 10 de abril de 2020, 14:24
IDENTIFICATION DIVISION
Socavi
Novato Junior
ENVIRONMENT DIVISION
Avatar de Socavi
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Esplugues De Llobregat ( Barcelona )
Edad77 años
Última Actividad02.03.2021 23:14
PROCEDURE DIVISION
PostsPosts: 38
Ha dicho GraciasEnviado: 37
Ha recibido agradecimientosRecibido: 7
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
Socavi is on a distinguished road
Predeterminado

Hola Josber:

No da ningún error, 'activas el programa' una vez compilado, sale unos segundos el circulito oazul rodando, pero no hace nada de nada, no sale el programa para poder operar con el, nada.
Imágenes Adjuntas
Tipo de Archivo: jpg 2020-04-10_14-08-04.jpg (79,2 KB, 6 descargas)
Socavi no ha iniciado sesión   Responder Con Cita
  #6
Antiguo 10 de abril de 2020, 16:20
IDENTIFICATION DIVISION
Socavi
Novato Junior
ENVIRONMENT DIVISION
Avatar de Socavi
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Esplugues De Llobregat ( Barcelona )
Edad77 años
Última Actividad02.03.2021 23:14
PROCEDURE DIVISION
PostsPosts: 38
Ha dicho GraciasEnviado: 37
Ha recibido agradecimientosRecibido: 7
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
Socavi is on a distinguished road
Predeterminado

Hola Kuk:

Lo de los 6 decimales, viene al caso de las coordenadas geográficas (Latitud-Longitud) , Cobol no permite trabajar con 6 decimales y creo recordar que en una ocasión, le sugertíste a Fito que utilizara dos TextBox y Fito recordó tener un programa mediante el cual conseguía obtener la posibilidad de operar a plena satisfacción.

El caso es que yo he probado utilizar con 8 números sin decimales, pero con la máscara
-ZZ.ZZZZZZ, pero no acaba de convencerme porque hay casos donde la longitud y Latitud se expresa con cinco decimales y en ésos casos se añade un cero al final para completar lo determinado por la máscara de presentación.

Total que sugeri a Josber, si se pudiera plantear una solución mas idónea que reflejara una mayor exactitud.
Socavi no ha iniciado sesión   Responder Con Cita
  #7
Antiguo 10 de abril de 2020, 17:57
IDENTIFICATION DIVISION
Josber
Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Alicante
Última Actividad05.03.2021 17:00
PROCEDURE DIVISION
PostsPosts: 562
Ha dicho GraciasEnviado: 254
Ha recibido agradecimientosRecibido: 271
Mejores respuestasSoluiones: 35
ReputaciónReputación: 27
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

Cita del post de Kuk Ver Mensaje
cuál es el problema exactamente con las decimales ? No caigo
Kuk, Socavi utiliza el tema de coordenadas GPS y necesita al menos 6 decimales, los controles CmTable y ListView, no soportan más de 4 decimales en pantalla

Socavi, ¿Tienes instalado Excel, ¿no?, (no vale uno compatible tipo LibreOficce o por el estilo, tiene que ser Microsoft Excel)

Cita del post de Socavi Ver Mensaje
se añade un cero al final para completar lo determinado por la máscara
Pero eso te va a pasar igual si soportase 4, 6 o 20 decimales, ¿no?

Un salu2.-
Josber no ha iniciado sesión   Responder Con Cita
  #8
Antiguo 11 de abril de 2020, 03:33
IDENTIFICATION DIVISION
Fito
Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por el Avatar  Activista del Foro: Activista del Foro - Razón: Por aportar ideas 
ENVIRONMENT DIVISION
Avatar de Fito
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
Ubicación Córdoba, Villa María
Edad50 años
Última Actividad25.02.2021 23:50
PROCEDURE DIVISION
PostsPosts: 253
Ha dicho GraciasEnviado: 127
Ha recibido agradecimientosRecibido: 113
Mejores respuestasSoluiones: 13
ReputaciónReputación: 17
Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road Fito is on a distinguished road
Predeterminado

Hola:

Lo estuve pensando y no te va a quedar otra que tratar como texto, y después analizarás el string para determinar dónde está la coma decimal y así interpretar el valor, así después lo podés grabar en un campo de archivo con formato de seis decimales.

Saludos...

Fito...
Fito no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Socavi (11 de abril de 2020)
  #9
Antiguo 11 de abril de 2020, 13:53
IDENTIFICATION DIVISION
Socavi
Novato Junior
ENVIRONMENT DIVISION
Avatar de Socavi
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Esplugues De Llobregat ( Barcelona )
Edad77 años
Última Actividad02.03.2021 23:14
PROCEDURE DIVISION
PostsPosts: 38
Ha dicho GraciasEnviado: 37
Ha recibido agradecimientosRecibido: 7
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
Socavi is on a distinguished road
Predeterminado

Josber,

El 'paquete' corresponde a Microsoft Office 2.019. con toda seguridad, saludos cordiales

2020-04-11_13-49-03.jpg
Socavi no ha iniciado sesión   Responder Con Cita
  #10
Antiguo 11 de abril de 2020, 17:23
IDENTIFICATION DIVISION
Josber
Super Moderador
Activista del Foro: Activista del Foro - Razón: Por aportar manuales y enriquecer   Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Alicante
Última Actividad05.03.2021 17:00
PROCEDURE DIVISION
PostsPosts: 562
Ha dicho GraciasEnviado: 254
Ha recibido agradecimientosRecibido: 271
Mejores respuestasSoluiones: 35
ReputaciónReputación: 27
Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road Josber is on a distinguished road
Predeterminado

Cita del post de Socavi Ver Mensaje
El 'paquete' corresponde a Microsoft Office 2.019. con toda seguridad, saludos cordiales
Pues es muy raro, a ver si se lo puede bajar alguin más, probarlo en esa misma ruta y decir si le funciona.

Un saludo.-
Josber no ha iniciado sesión   Responder Con Cita
Respuesta

Tags
cmtable , excel , grid , importar , listview , tabla


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 02:07.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.