Histórico da Página

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