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.
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Manejo OCX impresora Fiscal Epson nueva generación fastpho PowerCOBOL (ActiveX, v4 - v11) 82 28 de agosto de 2019 05:46
[Sintaxis] Ordenar CmListView Breew PowerCOBOL (ActiveX, v4 - v11) 5 20 de marzo de 2017 12:24
[Información] Error al pasar un GRID a EXCEL Josber PowerCOBOL y COM/OLE 3 10 de septiembre de 2015 16:04
[Aporte] Exportar CmListview en Excel Rapinto Cocina PowerCOBOL + COM/OLE 0 25 de febrero de 2015 22:31
Respuesta
 
Herramientas

  #1
Antiguo 12 de febrero de 2015, 08:49
IDENTIFICATION DIVISION
Josber
Super Moderador
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
UbicaciónAlicante
Última Actividad14.10.2019 20:30
PROCEDURE DIVISION
PostsPosts: 466
Ha dicho GraciasEnviado: 187
Ha recibido agradecimientosRecibido: 202
Mejores respuestasSoluiones: 31
Medallas recibidas: 1Medallas: Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ReputaciónReputación: 18
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
Tabla Manejo de control CmListView (Grid)

Me gustaría empezar una nueva sección y, si éste foro continua y se hace grande, hacerla como un nuevo subforo más adelante. La sección sería nuestras aportaciones, trucos, rutinas, ejemplos, etc.

Para empezar aporto ésta mía en la que pongo un ejemplo del manejo del control de PWC listview, que aunque es un control "muy flojo", se pueden hacer más cosas de lo que parece, como mover columnas de sitio, poner una rejilla, marcar una linea entera, checkbox ...

Como norma, me gustaría, que se pusiera que incluye y la versión del compilador, así como alguna imágen, (si es posible)

Incluye: ppj, exe y librerías e iconos completas
Versión compilador: PWC 9, aunque en la versión 7 también funciona



Descarga
Descargar Ejemplo de ListView

Un saludo a todos y espero más ideas, trucos, ejemplos, etc.

Última edición por Josber fecha: 7 de agosto de 2018 a las 12:09. Razón: Arreglar enlace de descarga que no funciona.
Josber no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 2
parmida (28 de septiembre de 2016), Rapinto ( 3 de marzo de 2015)
  #2
Antiguo 2 de marzo de 2015, 10:45
IDENTIFICATION DIVISION
Josber
Super Moderador
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
UbicaciónAlicante
Última Actividad14.10.2019 20:30
PROCEDURE DIVISION
PostsPosts: 466
Ha dicho GraciasEnviado: 187
Ha recibido agradecimientosRecibido: 202
Mejores respuestasSoluiones: 31
Medallas recibidas: 1Medallas: Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ReputaciónReputación: 18
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

Pues después del post que puso Rui sobre el traspaso a Excel de un ListView, y siguiendo su consejo, he añadido el código al programa, para que podais ver la facilidad con la que se puede pasar un ListView a Excel através de COM.

Además, he añadido un .ocx llamado AniGIF.ocx, que permite añadir un GIF animado a un Form, en el botón "Acerca de ..." podeis verlo, recordar que hay que registrar el ocx en Windows.

Podeis descargarlo todo desde el siguiente enlace:

Código:
https://mega.co.nz/#!b4E1iarb!Qa3iFtvHhctQgVqZQa87sR6MJH4a6gX0E2IwNwK6nVc
Un saludo.-
Imágenes Adjuntas
Tipo de Archivo: jpg Prueba Grid.jpg (215,9 KB, 70 descargas)
Josber no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 6
JRBonafonte (23 de julio de 2016), Lascu ( 3 de mayo de 2016), parmida (28 de septiembre de 2016), Rapinto ( 3 de marzo de 2015), Recato53 ( 9 de marzo de 2015), Socavi (11 de marzo de 2015)
  #3
Antiguo 5 de julio de 2016, 04:12
IDENTIFICATION DIVISION
Juanes
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Juanes
DATA DIVISION
Forero desde (Registrado)abril 2015
Colombia
Última Actividad29.03.2019 11:49
PROCEDURE DIVISION
PostsPosts: 11
Ha dicho GraciasEnviado: 11
Ha recibido agradecimientosRecibido: 2
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
Juanes is on a distinguished road
Predeterminado

Josber, excelente aporte. Por favor me puede decir, como define el checkbox dentro del CmListView?
gracias.
Juanes no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 5 de julio de 2016, 07:02
IDENTIFICATION DIVISION
Josber
Super Moderador
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
UbicaciónAlicante
Última Actividad14.10.2019 20:30
PROCEDURE DIVISION
PostsPosts: 466
Ha dicho GraciasEnviado: 187
Ha recibido agradecimientosRecibido: 202
Mejores respuestasSoluiones: 31
Medallas recibidas: 1Medallas: Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ReputaciónReputación: 18
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 Juanes Ver Mensaje
Josber, excelente aporte. Por favor me puede decir, como define el checkbox dentro del CmListView?
gracias.
Código COBOL:
  1.     *>
  2.     *> Variables para poner el checkbox en el ListView
  3.     *>
  4.  01  WS-HANDLE              PIC S9(09)  COMP-5 VALUE 0.
  5.  01  LVM-SETEXTENDEDLISTVIEWSTYLE PIC S9(09)    COMP-5 VALUE 4150.
  6.  01  LVS-EX-CHECKBOXES            PIC S9(09)    COMP-5 VALUE 05.
  7.     *>
  8.     *> Variables para Drag'n'Drop de columnas
  9.     *>
  10.  01  WS-DRAG                      PIC S9(09) COMP-5.
  11.  01  LVS-EX-HEADERDRAGDROP        PIC S9(09) COMP-5 VALUE 16.
  12.     *>
  13.     *> Variables para colorear linea entera
  14.     *>
  15.  01  WS-LINHA-INTEIRA             PIC S9(09) COMP-5.
  16.  01  LVS-EX-FULLROWSELECT         PIC S9(09) COMP-5 VALUE 32.

Y en la PROCEDURE ...

Código COBOL:
  1. *
  2. *
  3. * Poner el "checkbox" en el ListView
  4. *
  5.      MOVE "hWnd" OF VIEW2 TO WS-HANDLE.
  6.      CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE
  7.                                             BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE
  8.                                             BY VALUE LVS-EX-CHECKBOXES
  9.                                             BY VALUE LVS-EX-CHECKBOXES
  10.      CANCEL "SendMessageA".
  11. *    
  12.      CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE
  13.                           BY VALUE 4150
  14.                           BY VALUE 64
  15.                           BY VALUE 64 *> COLUMNA 1, TIPO HiperLink
  16.      CANCEL "SendMessageA".
  17. *    
  18.      MOVE 32 TO WS-LINHA-INTEIRA.   *> SELECCIONAR LA LÍNEA ENTERA
  19.      CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE
  20.                                             BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE
  21.                                             BY VALUE LVS-EX-FULLROWSELECT
  22.                                             BY VALUE WS-LINHA-INTEIRA
  23.      CANCEL "SendMessageA".
  24. *                                          
  25.      MOVE 16 TO WS-DRAG.    *> ARRASTRAR Y CAMBIAR UNA COLUMNA DE SITIO
  26.      CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE
  27.                                             BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE
  28.                                             BY VALUE LVS-EX-HEADERDRAGDROP
  29.                                             BY VALUE WS-DRAG
  30.      CANCEL "SendMessageA".
  31. *
  32.      IF POW-CHECK OF CHECK2 = POW-ON
  33.         CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE
  34.                              BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE
  35.                              BY VALUE 1
  36.                              BY VALUE 1 *> GRIDLINES - 1 = Si - 0 = No
  37.         CANCEL "SendMessageA"
  38.      ELSE
  39.         CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HANDLE
  40.                              BY VALUE LVM-SETEXTENDEDLISTVIEWSTYLE
  41.                              BY VALUE 1
  42.                              BY VALUE 0 *> GRIDLINES - 1 = Si - 0 = No
  43.         CANCEL "SendMessageA"
  44.      END-IF.

Un saludo.-
Josber no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Juanes ( 5 de julio de 2016)
  #5
Antiguo 5 de agosto de 2018, 02:51
IDENTIFICATION DIVISION
hugoluis
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de hugoluis
DATA DIVISION
Forero desde (Registrado)febrero 2017
Argentina
UbicaciónBuenos Aires
Última Actividad03.08.2019 22:04
PROCEDURE DIVISION
PostsPosts: 6
Ha dicho GraciasEnviado: 2
Ha recibido agradecimientosRecibido: 0
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
hugoluis is an unknown quantity at this point
Predeterminado

Hola Buenas
Puede ser que no este disponible
el archivo de Tabla Manejo de control CmListView (Grid)
Gracias
hugoluis no ha iniciado sesión   Responder Con Cita
  #6
Antiguo 5 de agosto de 2018, 09:49
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)diciembre 2014
España
UbicaciónMadrid
Edad34 años
Última Actividad14.10.2019 19:59
PROCEDURE DIVISION
PostsPosts: 1.415
Ha dicho GraciasEnviado: 318
Ha recibido agradecimientosRecibido: 539
Mejores respuestasSoluiones: 87
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

hugoluis, ¿estás preguntando si PowerCOBOL puede venir sin el control CmListView? Si es eso, la respuesta es NO. Todas las versiones ActiveX de PowerCOBOL, que yo sepa, traen el ListView.


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
  #7
Antiguo 5 de agosto de 2018, 12:55
IDENTIFICATION DIVISION
hugoluis
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de hugoluis
DATA DIVISION
Forero desde (Registrado)febrero 2017
Argentina
UbicaciónBuenos Aires
Última Actividad03.08.2019 22:04
PROCEDURE DIVISION
PostsPosts: 6
Ha dicho GraciasEnviado: 2
Ha recibido agradecimientosRecibido: 0
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
hugoluis is an unknown quantity at this point
Predeterminado

Hola Buen día Kuk
Hay un ejemplo de Josber viejo (12/2/2015) que ya no esta disponible en el link que se publica
Quería saber si esta disponible en otro lugar
Gracias
hugoluis no ha iniciado sesión   Responder Con Cita
  #8
Antiguo 5 de agosto de 2018, 20:08
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)diciembre 2014
España
UbicaciónMadrid
Edad34 años
Última Actividad14.10.2019 19:59
PROCEDURE DIVISION
PostsPosts: 1.415
Ha dicho GraciasEnviado: 318
Ha recibido agradecimientosRecibido: 539
Mejores respuestasSoluiones: 87
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

hugoluis, cuál es el post en el que hay un enlace sin funcionar? Pon el enlace hacía dicho post


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
  #9
Antiguo 5 de agosto de 2018, 23:04
IDENTIFICATION DIVISION
hugoluis
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de hugoluis
DATA DIVISION
Forero desde (Registrado)febrero 2017
Argentina
UbicaciónBuenos Aires
Última Actividad03.08.2019 22:04
PROCEDURE DIVISION
PostsPosts: 6
Ha dicho GraciasEnviado: 2
Ha recibido agradecimientosRecibido: 0
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
hugoluis is an unknown quantity at this point
Predeterminado

Cita del post de Kuk Ver Mensaje
hugoluis, cuál es el post en el que hay un enlace sin funcionar? Pon el enlace hacía dicho post
Descarga
MEGA
hugoluis no ha iniciado sesión   Responder Con Cita
  #10
Antiguo 6 de agosto de 2018, 12:03
IDENTIFICATION DIVISION
Josber
Super Moderador
ENVIRONMENT DIVISION
Avatar de Josber
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
UbicaciónAlicante
Última Actividad14.10.2019 20:30
PROCEDURE DIVISION
PostsPosts: 466
Ha dicho GraciasEnviado: 187
Ha recibido agradecimientosRecibido: 202
Mejores respuestasSoluiones: 31
Medallas recibidas: 1Medallas: Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por muchos agradecimientos 
ReputaciónReputación: 18
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 hugoluis Ver Mensaje
Descarga
MEGA

¡¡Uff!! a ver si encuentro el proyecto y lo vuelvo a subir.

Un saludo.-
Josber no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
hugoluis ( 8 de agosto de 2018)
Respuesta

Tags
checkbox , grid , gridlines , listview


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 04:56.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.