Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 19

changes.mady.by.user Ana Karolina Holmes Coelho

Gravado em

comparado com

Nova versão 20

changes.mady.by.user Roberta Schneider Borchardt

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á.
Requisito/Story/Issue (informe o requisito relacionado) :Não há.


02. DESCRIÇÃO

Ponto de Entrada GPBWCORES que permite incluir ou alterar os núcleos tipos apresentados na Legenda do Browse na rotina consulta de Gestão de Funcionários (GPEA011). Encontra-se posicionado na fonte GPEXFGEN.PRX


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
languagecpp
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)


Card documentos
InformacaoUse esse box para destacar informações relevantes e/ou de destaque.
TituloIMPORTANTE!

04. ASSUNTOS RELACIONADOS

...