[PowerCOBOL v3] AltBackColor en el control Table

[Kuk]

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):

 IDENTIFICATION DIVISION.
 PROGRAM-ID. COLOREA IS COMMON.
 
 ENVIRONMENT DIVISION.                                        
 DATA DIVISION.                         
 
 WORKING-STORAGE SECTION. 
 01  IDX-1            PIC 9(9). *> indice de Rows
 01  IDX-2            PIC 9(9). *> indice de Cols
 01  MAX              PIC 9(9). *> máximo
 
 PROCEDURE DIVISION.
     
     IF  POW-ROWS OF TABLE1 < 22  *> los Rows que hay en vacio
         MOVE 22 TO POW-ROWS OF TABLE1
         MOVE 22 TO MAX
         
     ELSE
         MOVE POW-ROWS OF TABLE1 TO MAX
     END-IF    
         
     MOVE 2 TO IDX-1
     
     PERFORM UNTIL IDX-1 > MAX
         MOVE 1 TO IDX-2
         
         PERFORM UNTIL IDX-2 > 15 *> recorre todas las columnas de un row, sustituir 15 por las que tengáis
             MOVE X'FFEEFF00' TO POW-BACKCOLOR (IDX-1 IDX-2) OF TABLE1 *> nombre de la tabla que tengáis en el Form
             
             ADD 1 TO IDX-2
         END-PERFORM
         
         ADD 2 TO IDX-1
     END-PERFORM
          
     EXIT PROGRAM.
 
 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.