Histórico da Página
01. DADOS GERAIS
Produto: |
| ||||
---|---|---|---|---|---|
Linha de Produto: |
| ||||
Segmento: |
| ||||
Módulo: |
| ||||
Função: |
Acidentes/Estatísticas (MDTC710) | |
País: | Brasil |
---|---|
Ticket: | Não há. |
Issue |
---|
: | Não há. |
---|
02. DESCRIÇÃO
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 |
...
. |
03. DEMAIS INFORMAÇÕES
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. Local aTemp := {}, Array, contém as informações sobre o status/descrição do funcionário na empresa. Local aCores, Array, contém as cores que vão ser utilizadas no ponto de entrada. Local i, Array, variável utilizada no loop For que serve como contador para iterar os itens do array aCores. | |
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. |
...
- VERDE – Para a cor Verde
- RED – Para a cor Vermelha
- AMARELO – Para a cor Amarela
- ORANGE – Para a cor Laranja
- AZUL – Para a cor Azul
- CINZA – Para a cor Cinza
- BROWN – Para cor Marrom
- BLACK – Para a cor preta
- PINK – Para a cor Rosa
- WHITE – Para a cor Branca
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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) |
...
04. ASSUNTOS RELACIONADOS
...