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 > Cocina Casera > Cocina PowerCOBOL V3L10
Cocina PowerCOBOL V3L10 Código listo para usar en el IDE PowerCOBOL V3L10
Noticias y Avisos
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 19:57
[Información] Recorrer Control Table sin modificar datos Begoguay PowerCOBOL (ActiveX, v4 - v11) 8 21 de diciembre de 2015 09:34
[Aporte] Selección de línea en Table control Kuk Cocina PowerCOBOL V3L10 1 19 de diciembre de 2015 21:39
Respuesta
 
Herramientas

  #1
Antiguo 2 de septiembre de 2015, 13:25
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad34 años
Última Actividad17.11.2019 11:00
PROCEDURE DIVISION
PostsPosts: 1.421
Ha dicho GraciasEnviado: 318
Ha recibido agradecimientosRecibido: 541
Mejores respuestasSoluiones: 87
ReputaciónReputació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.
Imágenes Adjuntas
Tipo de Archivo: png PowTable.png (136,1 KB, 49 descargas)


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando 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 11:15.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.