Cor nas linhas do browse

Por nada Denek! Precisando, estamos aqui..

Muito boa a dica.
Para mim que estou iniciando no desenvolvimento de aplicações... ajuda muito estes comandos.
Obrigado.

Tem um esquema legal de se fazer:

No bloco principal, criar uma estrutura com as informações de cada browse da sua tela:

Código:

  do i-col = 1 to br_comissoes:num-columns:  
     create tt_column.
     assign tt_column.browse_ = br_comissoes:handle
     tt_column.handle_ = br_comissoes:get-browse-column(i-col).  
  end.

  do i-col = 1 to br_movimentos:num-columns :  
    create tt_column.
    assign tt_column.browse_ = br_movimentos:handle
    tt_column.handle_ = br_movimentos:get-browse-column(i-col).
  end.

Depois, cria-se uma rotina para pintar:

Código:

/*------------------------------------------------------------------------------
  Purpose:   
  Parameters:  <none>
  Notes:   
------------------------------------------------------------------------------*/
define input parameter p-browse as handle no-undo.
define input parameter p-color  as integer no-undo.
define variable j as integer no-undo.

for each tt_column
  where tt_column.browse_ = p-browse.
  assign j = j + 1.
  assign tt_column.handle_:bgcolor = p-color.   
end.

END PROCEDURE.

e por fim,
no row-display:

Código:

  if tt_comissoes.selecionado
  then run pi-bgcolor(br_comissoes:handle,14).
  else run pi-bgcolor(br_comissoes:handle,15). 

Facilita muito, quando se tem varias grids em tela!!!!

Bom dia novamente.

Coloquei a função da Eilleen em várias telas.
Ocorre que ao acessá-las individualmente o sistema coloca as cores corretamente.
Contudo, ao acessar uma tela através de uma que possui a função, na tela acessada não funciona a rotina de colorir o grid.

Alguma sugestão???

Oi andivieira, eu uso o esquema acima em duas telas , funciona normalmente.