Ordenar CmListView

[Socavi]

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:

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.


Usa los botones de resalto de sintaxis ;)

[Kuk]

@Socavi, lo tengo hecho de la siguiente manera.

En el evento ColumnClick tengo:


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

[Socavi]

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

Windows 10 (64) PCobol v.-9

[Kuk]

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

[Socavi]

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

[Josber]

@Socavi,

Bájate el manual que puse en éste post (https://www.cobolforo.es/showthread.php?t=831), que hay un ejemplo de cómo hacer lo que quieres

Un salu2.-

[Socavi]

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