Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 4 minutos


01. DADOS GERAIS

Produto:

TOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linha Protheus

Segmento:

RH

Módulo:

TOTVS RH (Linha Protheus) - Medicina e Segurança do Trabalho (SIGAMDT)

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 EntradaGPBWCORES()
ChamadaAo acessar a consulta de Acidentes (MDTC710) e clicar na cor da legenda.
Pré-RequisitoExistir 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çãoGPBWCORES()
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.

RetornoaCores, Array, Apresenta as cores disponíveis para a legenda.


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:

  • 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


Exemplo
#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