Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Sintaxis] Cargar la lista por columnas ctList de DBI-Tech (https://www.cobolforo.es/showthread.php?t=815)

Breew 25 de febrero de 2018 11:34
Cargar la lista por columnas ctList de DBI-Tech
 
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 25 de febrero de 2018 12:37
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 ----------

Código COBOL:
  1.                    INVOKE CT-List "AddItem" USING W-LINEA RETURNING V-NroLinea

Código COBOL:
  1.                   MOVE  "texto" TO  "CellText"(Line Col) OF CT-List

Breew 25 de febrero de 2018 13:50
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 25 de febrero de 2018 14:31
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



Código COBOL:
  1.  01 W-LINEA.
  2.      02 CHEKBOX     PIC X(001).
  3.      02             PIC X(001) VALUE ";".
  4.      02 SLC-CRITIC  PIC X(001).
  5.      02             PIC X(001) VALUE ";".
  6.      02 SLC-SITUAC  PIC X(015).
  7.      02             PIC X(001) VALUE ";".
  8.      02 SLC-TIPOLO  PIC X(015).
  9.      02             PIC X(001) VALUE ";".
  10.      02 SLC-AQUIEN  PIC X(015).
  11.      02             PIC X(001) VALUE ";".
  12.      02 SLC-TITULO  PIC X(070).
  13.      02             PIC X(001) VALUE ";".
  14.      02 SLC-DESCRI  PIC X(070).
  15.      02             PIC X(001) VALUE ";".
  16.      02 SLC-CODBIEN PIC X(015).
  17.      02             PIC X(001) VALUE ";".

Breew 25 de febrero de 2018 21:22
hola otra vez.

Ahora no consigo ordenar la lista por columnas,

Código COBOL:
  1. *     MOVE POW-ARG-COLUMNINDEX  TO "SortColumn" OF CMLISTVIEW1 .
  2. *     MOVE 1 to "SortOrder" OF CMLISTVIEW1 . *>DESCENDENTE
  3.  
  4.      MOVE POW-ARG-NCOLUMN TO "SortColumn" OF ctlist1 .

Hrmcobol 25 de febrero de 2018 21:59
Código COBOL:
  1.      MOVE WL-CUALCOL  TO "SortColumn"      OF CT-CtList    
  2.      MOVE WL-QUEDIREC TO "SortDirection"   OF CT-CtList    
  3.      INVOKE CT-CtList    "SortList"


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

Código COBOL:
  1.      INVOKE CT-CtList"SortMultiColumns" USING nColumn1 nColumn2 nColumn3 
  2.      MOVE WL-QUEDIREC TO "SortDirection"   OF CT-CtList
  3.      INVOKE CT-CtList"SortList"
  4.      


La franja horaria es GMT +2. Ahora son las 14:39.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.