[PowerCOBOL] Desde Excel a ListView o CmTable

[Socavi]

Josber, podrías ayudarme ? al objeto de actualizar datos de un programa demografico que hice por el 2015. utilice tu programa creo que era éste Desde_Excel que sigue funcionando perfectamente, pero no encuentro el programa complemento, para que una vez conseguido pasar los datos de una hoja de calculo de Excel, pasaba los datos del listView al programa.

Podrías hacer un pequeño ejemplo para rescatar los datos y grabarlos en el Programa.

Saludos

[Josber]

@Socavi, Perdona, no entiendo exactamente qué es lo que necesitas, ¿pasar de Excel a programa o al revés?

Un salu2.-

[Socavi]

Lo que necesito es que una ves pasado el Excel a la grilla, disponer de lo expuesto, para grabarlo en el programa.

Es decir yo tengo un programa demográfico en el que hay municipios, por ejemplo, al tener más de 8.000 pues traspasar los habitantes de cada municipio a su lugar, sin necesidad de "picar" las entradas una a una.

Aprovechando que tengo la grilla cómo he de hacerlo para integrarlo en el programa concreto de municipio. Lo tenia echo pero he cambiado el PC y por lo vísto lo he perdido o no lo encuentro,

Muchas gracias

[Socavi]

Por si ayuda a entender mi necesidad, acompaño esta "captura" en la que señalo con una flecha, que necesito que al oprimir el boton indicado, mediante la programación (que he perddido) pudiera hacer el traspaso al programa correspondiente, de la totalidad de los datos que figuran en el listview.Archivo Adjunto 833

[Josber]

Vale @Socavi, ahora lo pillo,
A ver, te subo el programa que tengo hecho en PWC9 de códigos postales, que importa todos los códigos postales de España, que me bajé en Excel de la página web de correos hace un tiempo. El programa no lo podrás ejecutar, porque te faltarán librerías, etc, pero creo que lo entenderás bastante bien como para darle un vistazo al subprograma de importación. Lo que hago es leer un archivo Excel y traspasar los datos a una BD en MySql, (MariaDB para ser más exactos), a la vez que genero un fichero plano de log, con la información del traspaso. A ver si con esto te vale ...

Si tienes dudas me lo dices, te paso el rar con el ppj, el Excel y un ejemplo de log que genero.

Un salu2.-

[Socavi]

No se utilizarlo Josber, pero muchas gracias.

Esto que acompaño, no me funciona, pero quisiera algo así:

 ENVIRONMENT     DIVISION.
 ENVIRONMENT DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 77 WK-ROW      PIC 9(5).
 01  CODIGO      PIC 9(5).
 01  FINFIC      PIC X.
 01  LI          PIC 9(8).
 01  LIO         PIC 9(8).
 01  DESDE       PIC 9(8).
 01 POW-PCMLIST OBJECT REFERENCE POW-CLISTITEM. 
 PROCEDURE   DIVISION.
 
   OPEN OPEN I-O PROVIN
     MOVE POW-NUMERIC OF P-LIN  TO DESDE
     MOVE POW-NUMERIC OF P-LIN3 TO PROVCOD
     MOVE ROWCOUNT OF VIEW TO LIO
     PERFORM VARYING LI FROM DESDE BY 1 UNTIL LI > LIO
     MOVE 'TEXT'    OF "listitems"(LI, 1) OF VIEW2 TO PROVCOD
     MOVE "Text"    OF "listitems"(LI, 2) OF VIEW2 TO PROVNOM
     MOVE 'Numeric' OF "listitems"(LI, 3) OF VIEW2 TO PROVPOB
     MOVE 'Numeric' OF "listitems"(LI, 4) OF VIEW2 TO PROVHOM
     MOVE 'Numeric' OF "listitems"(LI, 5) OF VIEW2 TO PROVDON
     REWRITE REGPROV
           DISPLAY 'ERROR AL GRABAR'
     END-WRITE
           ADD 1 TO PROVCOD
     END-PERFORM
     CLOSE PROVIN     
     
     OPEN INPUT PROVIN
     DISPLAY '---------<  INICIO FICHERO  >----------------'
     INITIALIZE FINFIC
     PERFORM UNTIL FINFIC = 'S'
        READ PROVIN NEXT RECORD AT END MOVE 'S' TO FINFIC
           NOT AT END
           DISPLAY PROVCOD ' - ' PROVNOM(1) ' - ' PROVPOB ' - ' PROVHOM
        END-READ
     END-PERFORM
     CLOSE PROVIN

[Josber]

@Socavi, a ver, porque ando algo "espeso", el ejemplo que te he pasado, es para, leer un Excel y, ese Excel, lo pasa a un fichero, en éste caso es un BD, pero que da lo mismo si es eso o si es un fichero nativo COBOL, por lo que yo entiendo, el traspaso de Excel a la grilla, ya lo haces tú sin problemas, ¿no?, o ¿es eso lo que no tienes?, (el traspaso de Excel a la grilla)

De todas forma, en el código que has puesto, te sobra un OPEN al principio, lo pones 2 veces y, por otro lado, la grilla que usas, ¿es un Table Control o un ListView Control?, porque dependiendo del que uses, (y parece que es un Table Control), se hará de una manera o de otra.

¿Qué versión de PWC?, tienes, por como codificas, parece la versión 3

Un salu2.-

[Fito]

Hola @Socavi, :

Nunca he usado listview, así que no conozco su sintaxis, pero si me guio por el ejemplo de @Josber, ahí lo estás usando mal. A lo mejor es otra forma de hacerlo.

Y también me llama la atención el REWRITE que finaliza con un END-WRITE.

Además veo que arriba estás moviendo un valor numérico a PROVCOD en dentro del perform le movés texto y abajo de write le sumás 1.

Otra cosa, si ya hiciste el proceso para pasar del Excel al Listview, podés usar el mismo para pasarlo a tu archivo. En vez de pasar desde el Listview lo pasas de nuevo desde el Excel,

Saludos

Fito...

[Socavi]

uso Listview. PWC9 en Windows-11.

Necesito ayuda porque no he sabido encontrar ningun ejemplo que pase del listview al programa.

el Listview que estoy usando es de un ejemplo tuyo que nombraste como Desde_Excel, adaptado a mis ficheros, esto lo he conseguido pero no se pasarlos al programa. Muchas gracias por vuestra paciencia.

[Socavi]

Estimado Fito, gracias por tus puntuales observaciones, a las que intentaré dar solución aunque no me hago ilusiones, porque en realidad soy un entusiasta pero muchas veces no consigo entender, como se puede hacer algo tan simple, que os parece a los profesionales con los aprendices tardíos, jajaja.

No sabia que se pudieran pasar los datos desde Excel al Listview, chico entre que no hablo inglés y los 'mareos mentales' hay cosas que para hacerlas, despues de muchas pruebas, se consiguen y otras no, cuando me aburro de hacer pruebas lo dejo una temporada y cuando me vuelve a despertar el interés, regreso al redil.

Si te parece bien y puedes mandarme un ejemplo de pasar la información de Excel a programa, me esforzaré para obtener el resultado deseado

Muchas gracias por vuestra dedicación y paciencia