| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | Gestão de Pessoal (SIGAGPE) |
| Função: | Funcionários (GPEA010) |
| País: | Brasil |
Ponto de Entrada que permite incluir ou alterar as cores apresentadas na Legenda do Browse do Cadastro de Funcionários (aCores).
| Tipo | Conteúdo |
|---|---|
| Vetor | Vetor contendo as informações do Filtro que será usado para apresentar a cor desejada na Legenda. |
Estrutura do vetor:
| Posição | Conteúdo |
|---|---|
| 1 | Nome que aparecerá no Cabeçalho da Rotina. |
| 2 | Nome da rotina associada. |
| 3 | Reservado. |
| 4 | Tipo de transação a ser efetuada. |
| 5 | Nível de acesso. |
| 6 | Habilita menu funcional. |
#INCLUDE 'PROTHEUS.CH'
User Function GPBWCORES()
Local aTemp := {}
Local aCores := aClone(PARAMIXB)
Local i
AADD(aTemp, {"SRA->RA_SITFOLH == ' ' .AND. Date() <= SRA->RA_DTVTEST", "BR_PRETO"})
For i := 1 to len(aCores)
AADD(aTemp,aCores[i])
Next
aCores := aClone(aTemp)
Return(aCores) |