| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | Acidentes/Estatísticas (MDTC710) |
| País: | Brasil |
| Ticket: | Não há. |
| Issue: | Não há. |
Ponto de entrada GPBWCORES que permite incluir ou alterar os tipos apresentados na Legenda do Browse na consulta de Acidentes (MDTC710). Para que o ponto de entrada seja executado na rotina, é necessário que o parâmetro MV_MDTACSE esteja configurado como S - Sim.
| Ponto de Entrada | GPBWCORES() |
|---|---|
| Chamada | Ao acessar a consulta de Acidentes (MDTC710) e clicar na cor da legenda. |
| Pré-Requisito | Existir acidente cadastrado no sistema. |
| Evento | Ao selecionar o acidente e clicar na cor da legenda o evento é disparado. |
| Retorno | Array com as legendas disponíveis. |
| Função | GPBWCORES() |
|---|---|
| Parâmetros | ParamIXB, Vetor, Vetor contém as informações do filtro que serão usadas para apresentar a cor desejada na Legenda do Browse. |
| Retorno | aCores, Array, Apresenta as cores disponíveis para a legenda. |
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:
#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"
//*Filtro mais restritivo que o abaixo
AADD(aTemp, {"SRA->RA_SITFOLH == ' ' .AND. Date() <= SRA->RA_DTVTEST", "ORANGE", "Data Vencto.Estabilidade Expirado" })
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) |