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 09:16
[Sintaxis] Ordenar fichero con comando Sort Begoguay PowerCOBOL (ActiveX, v4 - v11) 4 14 de noviembre de 2016 10:43
[Aporte] Exportar CmListview en Excel Rapinto Cocina PowerCOBOL + COM/OLE 0 25 de febrero de 2015 23:31
Respuesta
 
Herramientas

  #1
Antiguo 19 de febrero de 2017, 18:59
IDENTIFICATION DIVISION
Breew
 Patrocinador del Foro
ENVIRONMENT DIVISION
Avatar de Breew
DATA DIVISION
febrero 2015
Barcelona
57 años
21.11.2021 12:34
PROCEDURE DIVISION
Posts: 123
Enviado: 103
Recibido: 10
Soluciones: 0
Reputación: 8
Breew is on a distinguished road Breew is on a distinguished road
Predeterminado Ordenar CmListView

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
Breew no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 19 de febrero de 2017, 20:14
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
enero 2015
Madrid
36 años
26.11.2021 19:14
PROCEDURE DIVISION
Posts: 1.892
Enviado: 613
Recibido: 800
Soluciones: 99
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

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

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.  
  8.      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
  #3
Antiguo 20 de febrero de 2017, 00:24
IDENTIFICATION DIVISION
Rapinto
 Gran amigo del Foro y Guru de COBOL
Activista del Foro: Activista del Foro - Razón: ¡Gracias!  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
febrero 2015
Porto
29.01.2018 20:23
PROCEDURE DIVISION
Posts: 246
Enviado: 19
Recibido: 225
Soluciones: 47
Reputación: 16
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

Breew,

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

Fujitsu Cobol User's Manual:

Código:
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:
Código COBOL:
  1. move 1 to "SortOrder" of CmListView.

Saludos,
Rui
Rapinto no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 22 de febrero de 2017, 15:44
IDENTIFICATION DIVISION
Breew
 Patrocinador del Foro
ENVIRONMENT DIVISION
Avatar de Breew
DATA DIVISION
febrero 2015
Barcelona
57 años
21.11.2021 12:34
PROCEDURE DIVISION
Posts: 123
Enviado: 103
Recibido: 10
Soluciones: 0
Reputación: 8
Breew is on a distinguished road Breew is on a distinguished road
Predeterminado

Hola.

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

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  LINKAGE         SECTION.
  5.  01  POW-ARG-COLUMNINDEX PIC S9(9) COMP-5.
  6.  PROCEDURE       DIVISION USING POW-ARG-COLUMNINDEX.
  7.      MOVE 1 to "SortOrder" OF CMLISTVIEW1.
  8.      MOVE POW-ARG-COLUMNINDEX  TO "SortColumn" OF CMLISTVIEW1.
  9.      INVOKE CMLISTVIEW1 "Refresh".
  10.      DISPLAY POW-ARG-COLUMNINDEX
Breew no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 23 de febrero de 2017, 00:03
IDENTIFICATION DIVISION
Rapinto
 Gran amigo del Foro y Guru de COBOL
Activista del Foro: Activista del Foro - Razón: ¡Gracias!  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
febrero 2015
Porto
29.01.2018 20:23
PROCEDURE DIVISION
Posts: 246
Enviado: 19
Recibido: 225
Soluciones: 47
Reputación: 16
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

Breew,

Troca as instruções:
Código COBOL:
  1.  
  2.  MOVE POW-ARG-COLUMNINDEX  TO "SortColumn" OF CMLISTVIEW1.
  3.  MOVE 1 to "SortOrder" OF CMLISTVIEW1.
Saludos,
Rui
Rapinto no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Breew (23 de febrero de 2017)
  #6
Antiguo 20 de marzo de 2017, 13:24
IDENTIFICATION DIVISION
Lascu
 Junior
ENVIRONMENT DIVISION
Avatar de Lascu
DATA DIVISION
noviembre 2015
Videla, Santa Fe
27.08.2021 03:19
PROCEDURE DIVISION
Posts: 31
Enviado: 50
Recibido: 16
Soluciones: 1
Reputación: 0
Lascu is on a distinguished road Lascu is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

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

Código COBOL:
  1. MOVE POW-SORTORDER-ASC TO"SortOrder" OF LISTVIEW.
  2. IF POW-ARG-COLUMNINDEX = 1 OR 2 OR 5 OR 6 OR 9 THEN
  3.                                                    MOVE POW-SORTKIND-TEXT TO "SortKind" OF LISTVIEW
  4.    ELSE
  5.         MOVE POW-SORTKIND-NUMERIC TO "SortKind" OF LISTVIEW
  6. END-IF.
  7. 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.
Lascu no ha iniciado sesión   Responder Con Cita
Respuesta

Tags
listview , ordenar , pow-columnindex , sort , sortcolumn


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