Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Ponto de Entrada GPBWCORES que permite incluir ou alterar os tipos apresentados na Legenda do Browse na consulta de 


Ponto de EntradaGPBWCORES()
ChamadaAo acessar a rotina Prontuário Médico (MDTA410) e quando clicar para mudar de aba.
Pré-RequisitoN/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

ParamIXBVetorVetor 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
languagejava
themeEclipsecpp
firstline1
titleExemplo
linenumberstrue
#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)

...