Ordenar CmListView

[Breew]

Hola.

No doy con el sistema para poder ordenar un CmListView por columnas en tiempo de ejecucion.
Quisiera posicionarme en cualquier columna y al clikar se ordene entero, pero solo consigo que
se ordene por la columna sort que le he definido en las propiedades.

¿ Se puede ?

Gracias

[Kuk]

@Breew, en el evento "ColumnClick" debes hacer lo siguiente:

 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.

[Rapinto]

Breew,

em run-time, deves fazer em seguida o SortOrder para reordenar
( A seguir ao SortColumn indicado pelo KUK)

Fujitsu Cobol User's Manual:

0 – None  (POW-SORTORDER-NONE)
1 – Ascending  (POW-SORTORDER-ASC)
2 – Descending  (POW-SORTORDER-DESC)

The objects are resorted as soon as the value is changed.

Por Exemplo:

move 1 to "SortOrder" of CmListView.

Saludos,
Rui

[Breew]

Hola.

Nada, no hay manera. Siempre reordena la columna 3 marque la columna que sea .

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 LINKAGE         SECTION.
 01  POW-ARG-COLUMNINDEX PIC S9(9) COMP-5.
 PROCEDURE       DIVISION USING POW-ARG-COLUMNINDEX.
     MOVE 1 to "SortOrder" OF CMLISTVIEW1.
     MOVE POW-ARG-COLUMNINDEX  TO "SortColumn" OF CMLISTVIEW1.
     INVOKE CMLISTVIEW1 "Refresh".
     DISPLAY POW-ARG-COLUMNINDEX

[Rapinto]

Breew,

Troca as instruções:

 
 MOVE POW-ARG-COLUMNINDEX  TO "SortColumn" OF CMLISTVIEW1.
 MOVE 1 to "SortOrder" OF CMLISTVIEW1.

Saludos,
Rui

[Lascu]

Hola,
Además de si el orden es ascendente o descendente, tambien tenes que indicarle si la columna por la que vas a ordenar el listview es númerica (POW-SORTKIND-NUMERIC) o de texto (POW-SORTKIND-TEXT) en el atributo "SortKind".
Con esto debería funcionar sin problemas. Acordate que las fechas en powercobol son texto.
Saludos

Lascu

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

En mi ejemplo las columnas 1, 2, 5, 6, y 9 son de texto, el resto numéricas.