Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Aporte] Manejo de control CmListView (Grid) Josber Cocina PowerCOBOL 27 18 de noviembre de 2019 08:16
[Sintaxis] Ordenar CmListView Breew PowerCOBOL (ActiveX, v4 - v11) 5 20 de marzo de 2017 12:24
[Sintaxis] Ordenar fichero con comando Sort Begoguay PowerCOBOL (ActiveX, v4 - v11) 4 14 de noviembre de 2016 09:43
[Aporte] Exportar CmListview en Excel Rapinto Cocina PowerCOBOL + COM/OLE 0 25 de febrero de 2015 22:31
Respuesta
 
Herramientas

  #1
Antiguo 16 de enero de 2022, 09:57
IDENTIFICATION DIVISION
Socavi
 Junior
ENVIRONMENT DIVISION
Avatar de Socavi
DATA DIVISION
febrero 2015
Esplugues De Llobregat (b
78 años
26.06.2022 16:17
PROCEDURE DIVISION
Posts: 58
Enviado: 53
Recibido: 15
Soluciones: 0
Reputación: 9
Socavi is on a distinguished road Socavi is on a distinguished road
Tabla Ordenar CmListView

Repasando temas del foro, he intentado aplicar, sin éxito, las soluciones aportadas al tema que con éste mísmo título planteó el compañero Breew (19/2/2017).

No consigo que me funcione:

Código COBOL:
  1.      MOVE POW-SORTORDER-ASC TO 'SortOrder' OF LISTVIEW.
  2.      MOVE POW-ARG-COLUMNINDEX TO "SortColumn" of LISTVIEW.
  3.  
  4.      IF POW-ARG-COLUMNINDEX = 1 OR 4 OR 5 THEN MOVE POW-SORTKIND-NUMERIC TO 'SortKind' OF LISTVIEW
  5.      ELSE
  6.      MOVE POW-SORTKIND-TEXT TO 'SortKind' OF LISTVIEW END-IF
  7.      MOVE POW-ARG-COLUMNINDEX TO 'SortKind' OF LISTVIEW.

Muchas gracias.


Mensaje de MODERADOR
Usa los botones de resalto de sintaxis

Última edición por Kuk fecha: 16 de enero de 2022 a las 10:03. Razón: botones de resalto de sintaxis
Socavi no ha iniciado sesión   Responder Con Cita
Mejores respuestas Soluciones: 1
  #2
Antiguo 16 de enero de 2022, 11:19
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
37 años
26.06.2022 11:57
PROCEDURE DIVISION
Posts: 1.998
Enviado: 701
Recibido: 852
Soluciones: 100
Reputació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, lo tengo hecho de la siguiente manera.

En el evento ColumnClick tengo:

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  LINKAGE         SECTION.
  5.  01  POW-COLUMNINDEX PIC S9(9) COMP-5.
  6.  PROCEDURE       DIVISION USING POW-COLUMNINDEX.
  7.      MOVE POW-COLUMNINDEX TO "SortColumn" OF CMLISTVIEW1



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Socavi (16 de enero de 2022)
  #3
Antiguo 16 de enero de 2022, 16:09
IDENTIFICATION DIVISION
Socavi
 Junior
ENVIRONMENT DIVISION
Avatar de Socavi
DATA DIVISION
febrero 2015
Esplugues De Llobregat (b
78 años
26.06.2022 16:17
PROCEDURE DIVISION
Posts: 58
Enviado: 53
Recibido: 15
Soluciones: 0
Reputación: 9
Socavi is on a distinguished road Socavi is on a distinguished road
Predeterminado

Gracias Kuk, por responder, he modificado, creo que de acuerdo con las instrucciones, pero no me funciona

Windows 10 (64) PCobol v.-9
Imágenes Adjuntas
Tipo de Archivo: bmp 2022-01-16_17-04-18.bmp (333,0 KB, 62 descargas Quién descargó)
Socavi no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 16 de enero de 2022, 20:23
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
37 años
26.06.2022 11:57
PROCEDURE DIVISION
Posts: 1.998
Enviado: 701
Recibido: 852
Soluciones: 100
Reputació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, qué es lo que no te funciona exactamente? No compila o no ordena?

Mi código hace efecto cuando haces clic en la cabecera de una de las columnas.



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 16 de enero de 2022, 20:51
IDENTIFICATION DIVISION
Socavi
 Junior
ENVIRONMENT DIVISION
Avatar de Socavi
DATA DIVISION
febrero 2015
Esplugues De Llobregat (b
78 años
26.06.2022 16:17
PROCEDURE DIVISION
Posts: 58
Enviado: 53
Recibido: 15
Soluciones: 0
Reputación: 9
Socavi is on a distinguished road Socavi is on a distinguished road
Predeterminado

No ordena, compila perfecto. La pretensión si no entiendo mal es poder ordenar en cualquier columna, me refiero.
Socavi no ha iniciado sesión   Responder Con Cita
  #6
Antiguo 17 de enero de 2022, 10:59
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
febrero 2015
Alicante
26.06.2022 19:10
PROCEDURE DIVISION
Posts: 636
Enviado: 297
Recibido: 334
Soluciones: 45
Reputación: 35
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
2 usuarios han marcado este post como "Solución"

@Socavi,

Bájate el manual que puse en éste post, que hay un ejemplo de cómo hacer lo que quieres

Un salu2.-
Josber no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 2
Kuk (17 de enero de 2022), Socavi (17 de enero de 2022)
  #7
Antiguo 17 de enero de 2022, 13:21
IDENTIFICATION DIVISION
Socavi
 Junior
ENVIRONMENT DIVISION
Avatar de Socavi
DATA DIVISION
febrero 2015
Esplugues De Llobregat (b
78 años
26.06.2022 16:17
PROCEDURE DIVISION
Posts: 58
Enviado: 53
Recibido: 15
Soluciones: 0
Reputación: 9
Socavi is on a distinguished road Socavi is on a distinguished road
Predeterminado

Enhorabuena Josber, menudo trabajo, ahí hay mucho esfuerzo y dedicación, eres un "TITAN", es un trabajo impecable, los aprendices nos acongojamos ante semejante talento.

Lo único que me atrevo a sugerir, por si lo encuentras aceptable es de que en una póoxima actualización numeres las páginas porque tengo la impresión de que, si en el indice (no se cómo) se da un click sobre la pàgina deseada, resultaría muy cómodo, para los menos dotados, por ejemplo como yo.

Estoy en ello y cuando lo encuentre intentarè adaptarlo y si me sale mal, te anticipo que solicitaré de nuevo tu ayuda.

Te reitero mi admiración poe éste inmenso trabajo, que tanto bien reportara a los interesados.

---------- Post añadido el 17 de enero de 2022 a las 22:03 ----------

Por fin ya puedo dormir tranquilo, por hoy, la serlección de Ordenar CmListView en cualquier columna, ya ha quedado resuelta, gracias a vuestras indicaciones.

Hasta el próximo problema.- Saludos cordiales.

---------- Post añadido el 18 de enero de 2022 a las 21:51 ----------

Josber, por favor podrías decirme que librería de PCobol es necesaria incorporar al programa de Artticulos, porque al compilar todo esta bien menos F-LIS-ART. Gracias

---------- Post añadido el 18 de enero de 2022 a las 21:56 ----------

@Josber,
Josber, por favor podrías decirme que librería de PCobol es necesaria incorporar al programa de Artticulos, porque al compilar todo esta bien menos F-LIS-ART. Gracias
Socavi no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 2
Josber (17 de enero de 2022), Kuk (17 de enero de 2022)
Respuesta


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