Histórico da Página

#INCLUDE 'PROTHEUS.CH'

User Function GPBWCORES()
Local aTemp := {}
Local aCores := aClone(PARAMIXB)
Local i 
AADD(aTemp, {"RASRA->RA_SITFOLH==' '"    , "GREEN", "Situação Normal"})   //"Situação Normal"
AADD(aTemp, {"RASRA->RA_SITFOLH=='D'"    , "RED", "Demitido"})   //"Demitido"
AADD(aTemp, {"RASRA->RA_RESCRAI$'30/31'" , "PINK" , "Transferido"})   //"Transferido"
AADD(aTemp, {"RASRA->RA_SITFOLH=='A'"    , "YELLOW"  , "Afastado"})   //"Afastado"
AADD(aTemp, {"RASRA->RA_SITFOLH=='F'"    , "BLUE" , "Férias" })   //"Férias" 
AADD(aTemp, {"SRA->RA_SITFOLH == ' ' .AND. Date() <= SRA->RA_DTVTEST", "ORANGE", "Data Vencto.Estabilidade Expirado" })
For i := 1 to len(aCores) 
    AADD(aTemp,aCores[i])
Next

aCores := aClone(aTemp)
Return(aCores)