Histórico da Página
...
Ponto de Entrada GPBWCORES que permite incluir ou alterar os tipos apresentados na Legenda do Browse na consulta de
| Ponto de Entrada | GPBWCORES() |
|---|---|
| Chamada | Ao acessar a rotina Prontuário Médico (MDTA410) e quando clicar para mudar de aba. |
| Pré-Requisito | N/A |
| Evento | Ao selecionar o funcionário e alterar entre as abas |
| Retorno | Array com os campos que não serão ou não exibidos em tela. |
03. DEMAIS INFORMAÇÕES
Nome | Tipo | Descrição |
|---|---|---|
| ParamIXB | Vetor | Vetor contém as informações do Filtro que serão usadas para apresentar a cor desejada na Legenda do Browse. |
...
- 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"
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) |
...
Import HTML Content
Visão Geral
Conteúdo das Ferramentas