Ponto de Entrada chamado na montagem do browse para definir as cores e filtros utilizados no semáforo, para a tela de Solicitações de Serviço.

MNTA290.PRW

MNTA2906 - Tela de Solicitações de Serviço ( ) --> aCores / aCoresPE

aCores / aCoresPE(array_of_record)
• Array com cores e filtros.

Têm-se acesso à duas variáveis: aCoresPE e aVarsPE.

A primeira é carregada com o array dos filtros e cores para montagem do browse. Caso se deseje fazer apenas alguma alteração simples, basta alterar esta array e retorná-la da fução. Ou então é possível também recriar esta array e retorná-la ao término da função.

A outra, aVarsPE, é utilizada para no caso de se desejar utilizar uma variável ou texto no filtro. Basta atribuir os valores à array, e utilizar suas respectivas posições no filtro.
O exemplo abaixo mostra as duas possíveis maneiras de alteração do filtro: alterando ou recriando a array.
 

#include "rwmake.ch"      User Function MNTA2906()aAdd(aVarsPE,"A")aAdd(aVarsPE,"D")//Acesso: aCoresPE//Acesso: aVarsPE//Para adicionar ou alterar itens da legenda -> alterar array aCoresPE e return//aAdd(aCoresPE,{"Funcao/Condicao","Cor"})aCoresPE[1][2] := 'BR_CINZA'aCoresPE[2][2] := 'BR_LARANJA'//Para criar nova legenda -> definir novo array/*aCores := {{"NGSEMAFARO('TQB->TQB_SOLUCA $ aVarsPE[1] .And. Empty(TQB->TQB_CDSERV)')"  ,'BR_LARANJA'},;{"NGSEMAFARO('TQB->TQB_SOLUCA $ aVarsPE[1] .And. !Empty(TQB->TQB_CDSERV)')" ,'BR_VERDE'},;{"NGSEMAFARO('TQB->TQB_SOLUCA $ aVarsPE[2]')" ,'BR_CINZA'}}*/Return aCoresPE