GPBWCORES - Cores do Browse da Rotina de Gestão de Funcionários

01. DADOS GERAIS

Produto:	TOTVS RH
Linha de Produto:	Linha Protheus
Segmento:	RH
Módulo:	Gestão de Pessoal (SIGAGPE)
Função:	Gestão de Funcionários (GPEA011)
País:	Brasil

02. VISÃO GERAL

Ponto de Entrada que permite incluir ou alterar as cores apresentadas na Legenda do Browse na rotina de Gestão de Funcionários (GPEA011).

Encontra-se posicionado no fonte GPEXFGEN.PRX.

03. PARÂMETROS

Nome	Tipo	Descrição
ParamIXB	Vetor	Vetor contendo as informações do Filtro que será usado para apresentar a cor desejada na Legenda do Browse.

Estrutura do vetor:

Posição	Conteúdo
1	Filtro que define a cor da Legenda.
2	Cor desejada.
3	Descrição da Legenda.

São possíveis os seguintes valores:

GREEN – Para a cor Verde
RED – Para a cor Vermelha
YELLOW – Para a cor Amarela
ORANGE – Para a cor Laranja
BLUE – Para a cor Azul
GRAY – Para a cor Cinza
BROWN – Para a cor Marrom
BLACK – Para a cor Preta
PINK – Para a cor Rosa
WHITE – Para a cor Branca

04. RETORNO

Tipo	Conteúdo
Vetor	Vetor contendo as informações do Filtro que será usado para apresentar a cor desejada na Legenda do Browse.

Estrutura do vetor:

Posição	Conteúdo
1	Filtro que define a cor da Legenda.*
2	Cor desejada.
3	Descrição da Legenda.

*Obs: Em caso de condições similares, atentar à ordem dos filtros passados no vetor, que será respeitada na execução da rotina.

05. EXEMPLO

Exemplo

#INCLUDE 'PROTHEUS.CH'

User Function GPBWCORES()
Local aTemp := {}
Local aCores := aClone(PARAMIXB)
Local i 
AADD(aTemp, {"SRA->RA_SITFOLH=='D'"    , "RED", "Demitido"})   //"Demitido"
AADD(aTemp, {"SRA->RA_RESCRAI$'30/31'" , "PINK" , "Transferido"})   //"Transferido"
AADD(aTemp, {"SRA->RA_SITFOLH=='A'"    , "YELLOW"  , "Afastado"})   //"Afastado"
AADD(aTemp, {"SRA->RA_SITFOLH=='F'"    , "BLUE" , "Férias" })   //"Férias" 
AADD(aTemp, {"SRA->RA_SITFOLH == ' ' .AND. Date() <= SRA->RA_DTVTEST", "ORANGE", "Data Vencto.Estabilidade Expirado" })	//*Filtro mais restritivo que o abaixo
AADD(aTemp, {"SRA->RA_SITFOLH==' '"    , "GREEN", "Situação Normal"})   //"Situação Normal"
 For i := 1 to len(aCores) 
    AADD(aTemp,aCores[i])
Next

aCores := aClone(aTemp)
Return(aCores)

Árvore de páginas