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.