Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Lectura del ultimo registro jmeza PowerCOBOL (ActiveX, v4 - v11) 4 5 de febrero de 2018 03:13
[Problema con el Foro] Uso del Foro... jasb COBOLForo.es 13 7 de diciembre de 2017 10:15
[Sintaxis] Uso de COMP-6 en registro jmeza Fujitsu COBOL 3 17 de junio de 2017 01:52
[Sintaxis] Uso del control CmProgress Breew PowerCOBOL (ActiveX, v4 - v11) 17 25 de abril de 2016 06:55
[Aporte] Uso del ChartControl de Codejock Kuk Cocina PowerCOBOL + COM/OLE 0 28 de mayo de 2015 19:47
Respuesta
 
Herramientas

  #11
Antiguo 3 de junio de 2018, 13:09
IDENTIFICATION DIVISION
Hrmcobol
Guardián del Foro
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
UbicaciónPuerto Madryn
Edad67 años
Última Actividad10.10.2019 00:12
PROCEDURE DIVISION
PostsPosts: 261
Ha dicho GraciasEnviado: 91
Ha recibido agradecimientosRecibido: 83
Mejores respuestasSoluiones: 8
Medallas recibidas: 1Medallas: Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ReputaciónReputación: 12
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Predeterminado

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:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  
  5.  01 WL-LONGI   PIC S9(9)    COMP-5.  *> longitud del texto a mostrar
  6.  
  7.  01  WL-ALARMA.
  8.      02  WL-TABALR.
  9.          03  AL-VENCI  PIC X(012) VALUE "Vto: ".
  10.          03  AL-FECHA  PIC X(010).
  11.          03  AL-FILL   PIC X(001).
  12.          03  AL-DESCRI PIC X(070).
  13.          03  AL-0D0A   PIC X(002).
  14.  
  15.  LINKAGE         SECTION.
  16.  01  POW-NINDEX  PIC S9(9) COMP-5.
  17.  01  POW-NCOLUMN PIC S9(4) COMP-5.
  18.  PROCEDURE       DIVISION USING POW-NINDEX POW-NCOLUMN.
  19.  
  20. **>*--------------------------------------------------------------------------------------------------------------------      
  21.         MOVE ZEROS TO "ListSubHeight"(POW-NINDEX) OF CtList
  22.  
  23.         MOVE 3 TO "SubColumnStart" OF CtList *> columna del CtList donde comienza el SUbTexto en Azul
  24.  
  25.         MOVE WL-ALARMA(01:WL-LONGI) TO "ListSubText"  (POW-NINDEX) OF CtList  
  26.         INVOKE CtList "CalcSubTextHeight" USING POW-NINDEX RETURNING WL-CANTI
  27.         MOVE WL-CANTI TO "ListSubHeight"(POW-NINDEX) OF CtList
  28.  
  29. **>*-------------------------------------------------------------------------------------------------------      
  30.  
  31.      *> si el click es en la column zero borro en SubTexto
  32.      IF POW-NCOLUMN = ZEROS
  33.         MOVE ZEROS        TO "ListSubHeight"(POW-NINDEX) OF CT-011101
  34.         EXIT PROGRAM.
  35. **>*-------------------------------------------------------------------------------------------------------      
  36.  
Imágenes Adjuntas
Tipo de Archivo: jpg Capturaza.JPG (109,4 KB, 5 descargas)
Hrmcobol no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Kuk ( 3 de junio de 2018)
Respuesta

Tags
ampliar , ctlist , grid , listview


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