0
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):
COBOL Código:
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.
Marcadores