Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 23

changes.mady.by.user Roberta Schneider Borchardt

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Ana Karolina Holmes Coelho

Gravado em

Chave

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


01. DADOS GERAIS

Produto:

Solucoes_totvs_parceirosexptotvs
SolucaoParcsExpsTOTVSTOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoRH

Módulo:

Modulos_totvs_rh
ModulosTOTVSRHTOTVS 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 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 é

dispara

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.

...

Bloco de código
languagejava
themeEclipse
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"
//*Filtro mais restritivo que o abaixo
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
...