Dica Mudar cor de fundo (BGCOLOR) da linha inteira (Incluindo campos Calculados)

Passo 1: Definir uma Temp-Table para armazenar as Handles das colunas:

Código:

DEFINE TEMP-TABLE ColunasMeuBrowse
            FIELD ColunaHandle AS HANDLE.

Passo 2: Preencher a Temp-Table ao iniciar o programa (Antes de fazer o OPEN-QUERY do Browse):

Código:

EMPTY TEMP-TABLE ColunasMeuBrowse.
DEF VAR idx AS INTEGER.
DO idx = 1 TO BROWSE MeuBrowse:NUM-COLUMNS.
   CREATE ColunasMeuBrowse.
   ASSIGN ColunasMeuBrowse.ColunaHandle = BROWSE MeuBrowse:GET-BROWSE-COLUMN(idx).
END.

Passo 3: Colocar o código no evento ROW-DISPLAY, abaixo um exemplo:

Código:

IF Tabela.deletado = TRUE THEN DO: /* Pinta de amarelo as linhas de registros deletados */
   FOR EACH ColunasMeuBrowse NO-LOCK.
       ColunasMeuBrowse.ColunaHandle :BGCOLOR = 14.
    END.
END.

IMPORTANTE: Testado apenas na versão 10.2B em Browser FreeForm. Seria bom que testassem em outras circunstâncias e postassem aqui seus resultados.

Espero que tenham gostado.

Abraço

Rafael

-- É um prazer compartilhar --

não precisa da temp-table, dá pra colocar o do idx direto no row-display, correto ?

Não dá, o método GET-BROWSE-COLUMN não pode ser executado dentro do ROW-DISPLAY, dá erro.

Esses são os 2 erros se colocar direto no evento ROW-DISPLAY:





Abraço

Rafael

saquei