Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 27

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.

...

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 é disparadisparado.

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.

...

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" })    
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)

...