01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

Função:Acidentes/Estatísticas (MDTC710)
País:Brasil
Ticket:Não há.
Requisito/Story/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 


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.

Estrutura do vetor:

Posição

Conteúdo

1Filtro que define a cor da Legenda.
2

Cor desejada.

3Descriçã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"
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)



04. ASSUNTOS RELACIONADOS