| Hrmcobol |
3 de junio de 2018 14:09 |
1 Archivos Adjunto(s)
Hola Breew, te paso las lineas para mostrar el SubText en el el CtList.
Ojo corte rápido las lineas, ya que estoy de vacaciones, no te fijes en la lógica.
En principio necesitas un 01. que contenga los datos a mostrar y saber la longitud desde el inicio del texto hasta el ultimo carácter distinto de espacios (wl-longi) y definir desde que columna queres que empiece a mostrar.
Empeza a probar y lo vamos viendo.
Por sino teles el Help del CtList te mando una foto.
Código COBOL:
ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 WL-LONGI PIC S9(9) COMP-5. *> longitud del texto a mostrar 01 WL-ALARMA. 02 WL-TABALR. 03 AL-VENCI PIC X(012) VALUE "Vto: ". 03 AL-FECHA PIC X(010). 03 AL-FILL PIC X(001). 03 AL-DESCRI PIC X(070). 03 AL-0D0A PIC X(002). LINKAGE SECTION. 01 POW-NINDEX PIC S9(9) COMP-5. 01 POW-NCOLUMN PIC S9(4) COMP-5. PROCEDURE DIVISION USING POW-NINDEX POW-NCOLUMN. **>*-------------------------------------------------------------------------------------------------------------------- MOVE ZEROS TO "ListSubHeight"(POW-NINDEX) OF CtList MOVE 3 TO "SubColumnStart" OF CtList *> columna del CtList donde comienza el SUbTexto en Azul MOVE WL-ALARMA(01:WL-LONGI) TO "ListSubText" (POW-NINDEX) OF CtList INVOKE CtList "CalcSubTextHeight" USING POW-NINDEX RETURNING WL-CANTI MOVE WL-CANTI TO "ListSubHeight"(POW-NINDEX) OF CtList **>*------------------------------------------------------------------------------------------------------- *> si el click es en la column zero borro en SubTexto IF POW-NCOLUMN = ZEROS MOVE ZEROS TO "ListSubHeight"(POW-NINDEX) OF CT-011101 EXIT PROGRAM. **>*-------------------------------------------------------------------------------------------------------
|
