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"