Histórico da Página

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.

MNTA280.PRX

MNTA2805 - 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 MNTA2805()//Acesso: aCoresPE//Acesso: aVarsPEaAdd(aVarsPE,"A")aAdd(aVarsPE,"D")//Para adicionar ou alterar itens da legenda -> alterar array aCoresPE e return//aAdd(aCoresPE,{"Funcao/Condicao","Cor"})//aCoresPE[1][2] := 'BR_AZUL'//Para criar nova legenda -> definir novo arrayaCores := {;{"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 aCores