[Sintaxis] Cargar la lista por columnas ctList de DBI-Tech

[Breew]

Hola.

Me gustaria utilizar el ctlist de dbi-tech.
Queria colorear algunas lineas del listado y veo que esa posibilidad si que esta.
El caso es que no consigo cargar la lista por columnas.
Solamente cargo en la primera columna.
¿ Podeis pasarme algun ejemplo de como se realiza la carga ?

Gracias.

[Hrmcobol]

Hola Breew, tu quieres por ejemplo llenar la columna 1, luego la dos luego la tres y así sucesivamente?
Saludos
Hrm

---------- Post añadido : 08:37 ---------- Post anterior : 08:14 ----------

                   INVOKE CT-List "AddItem" USING W-LINEA RETURNING V-NroLinea

                  MOVE  "texto" TO  "CellText"(Line Col) OF CT-List

[Breew]

Hola.

Mi intencion era cargar la linea entera con varias columnas de un golpe :rie:
, pero como no lo consigo, tampoco es mala idea cargarlas por columnas

Gracias

[Hrmcobol]

Los campos deben estr separados por > ; < todo deben tener informacion aunque sea Spaces, y deben ser la misma cantidad de la definida en el control
Saludos
Hrm

 01 W-LINEA.
     02 CHEKBOX     PIC X(001).
     02             PIC X(001) VALUE ";".
     02 SLC-CRITIC  PIC X(001).
     02             PIC X(001) VALUE ";".
     02 SLC-SITUAC  PIC X(015).
     02             PIC X(001) VALUE ";".
     02 SLC-TIPOLO  PIC X(015).
     02             PIC X(001) VALUE ";".
     02 SLC-AQUIEN  PIC X(015).
     02             PIC X(001) VALUE ";".
     02 SLC-TITULO  PIC X(070).
     02             PIC X(001) VALUE ";".
     02 SLC-DESCRI  PIC X(070).
     02             PIC X(001) VALUE ";".
     02 SLC-CODBIEN PIC X(015).
     02             PIC X(001) VALUE ";".

[Breew]

hola otra vez.

Ahora no consigo ordenar la lista por columnas,

*     MOVE POW-ARG-COLUMNINDEX  TO "SortColumn" OF CMLISTVIEW1 .
*     MOVE 1 to "SortOrder" OF CMLISTVIEW1 . *>DESCENDENTE
 
     MOVE POW-ARG-NCOLUMN TO "SortColumn" OF ctlist1 .

[Hrmcobol]

     MOVE WL-CUALCOL  TO "SortColumn"      OF CT-CtList    
     MOVE WL-QUEDIREC TO "SortDirection"   OF CT-CtList    
     INVOKE CT-CtList    "SortList"

---------- Post añadido : 17:59 ---------- Post anterior : 17:57 ----------

     INVOKE CT-CtList"SortMultiColumns" USING nColumn1 nColumn2 nColumn3 
     MOVE WL-QUEDIREC TO "SortDirection"   OF CT-CtList
     INVOKE CT-CtList"SortList"