Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Cocina Casera > Cocina PowerCOBOL V3L10
Cocina PowerCOBOL V3L10 Código listo para usar en el IDE PowerCOBOL V3L10
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Información] En un table control de 6 columnas Hector PowerCOBOL (ActiveX, v4 - v11) 3 29 de diciembre de 2017 18:57
[Información] Recorrer Control Table sin modificar datos Begoguay PowerCOBOL (ActiveX, v4 - v11) 8 21 de diciembre de 2015 08:34
[Aporte] Selección de línea en Table control Kuk Cocina PowerCOBOL V3L10 1 19 de diciembre de 2015 20:39
Respuesta
 
Herramientas

  #1
Antiguo 2 de septiembre de 2015, 12:25
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
37 años
26.06.2022 11:57
PROCEDURE DIVISION
Posts: 1.998
Enviado: 701
Recibido: 852
Soluciones: 100
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Tabla AltBackColor en el control Table

He hecho una aplicación en la cual simulo el AltBackColor de los Grid en el control Table de Power 3.

Creamos una rutina común en PROCEDURE del Form (prefiero llamar el Sheet Form como en Power 9):

Código COBOL:
  1.  IDENTIFICATION DIVISION.
  2.  PROGRAM-ID. COLOREA IS COMMON.
  3.  
  4.  ENVIRONMENT DIVISION.                                        
  5.  DATA DIVISION.                        
  6.  
  7.  WORKING-STORAGE SECTION.
  8.  01  IDX-1            PIC 9(9). *> indice de Rows
  9.  01  IDX-2            PIC 9(9). *> indice de Cols
  10.  01  MAX              PIC 9(9). *> máximo
  11.  
  12.  PROCEDURE DIVISION.
  13.      
  14.      IF  POW-ROWS OF TABLE1 < 22  *> los Rows que hay en vacio
  15.          MOVE 22 TO POW-ROWS OF TABLE1
  16.          MOVE 22 TO MAX
  17.          
  18.      ELSE
  19.          MOVE POW-ROWS OF TABLE1 TO MAX
  20.      END-IF    
  21.          
  22.      MOVE 2 TO IDX-1
  23.      
  24.      PERFORM UNTIL IDX-1 > MAX
  25.          MOVE 1 TO IDX-2
  26.          
  27.          PERFORM UNTIL IDX-2 > 15 *> recorre todas las columnas de un row, sustituir 15 por las que tengáis
  28.              MOVE X'FFEEFF00' TO POW-BACKCOLOR (IDX-1 IDX-2) OF TABLE1 *> nombre de la tabla que tengáis en el Form
  29.              
  30.              ADD 1 TO IDX-2
  31.          END-PERFORM
  32.          
  33.          ADD 2 TO IDX-1
  34.      END-PERFORM
  35.          
  36.      EXIT PROGRAM.
  37.  
  38.  END PROGRAM COLOREA.  

El color X'FFEEFF00' corresponde al formato RGB de WEB + un nulo al final (X"00"). Podéis sustituirlo por cualquier otro color que queráis.

Cada vez que vaciáis o rellenáis la tabla, hacési CALL "COLOREA" y listo.
Miniatura de Adjuntos
Pulsar la imagen para la versión amplia
Nombre:  PowTable.png
Vistas: 175
Tamaño:  136,1 KB  



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 3
Galileo (19 de diciembre de 2015), Hrmcobol ( 2 de septiembre de 2015), Rmcostar ( 9 de abril de 2016)
Respuesta

Tags
altbckcolor , table control


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