Cobol Foro - [Sintaxis] Ordenar CmListView

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Sintaxis] Ordenar CmListView (https://www.cobolforo.es/showthread.php?t=1427)

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:

     MOVE POW-SORTORDER-ASC TO 'SortOrder' OF LISTVIEW.
     MOVE POW-ARG-COLUMNINDEX TO "SortColumn" of LISTVIEW.
 
     IF POW-ARG-COLUMNINDEX = 1 OR 4 OR 5 THEN MOVE POW-SORTKIND-NUMERIC TO 'SortKind' OF LISTVIEW
     ELSE 
     MOVE POW-SORTKIND-TEXT TO 'SortKind' OF LISTVIEW END-IF
     MOVE POW-ARG-COLUMNINDEX TO 'SortKind' OF LISTVIEW.

Muchas gracias.

Comentario de Moderador

Usa los botones de resalto de sintaxis ;)

@Socavi, lo tengo hecho de la siguiente manera.

En el evento ColumnClick tengo:

Código COBOL:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 LINKAGE         SECTION.
 01  POW-COLUMNINDEX PIC S9(9) COMP-5.
 PROCEDURE       DIVISION USING POW-COLUMNINDEX.
     MOVE POW-COLUMNINDEX TO "SortColumn" OF CMLISTVIEW1

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

Windows 10 (64) PCobol v.-9

@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.

No ordena, compila perfecto. La pretensión si no entiendo mal es poder ordenar en cualquier columna, me refiero.

@Socavi,

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

Un salu2.-

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