Histórico da Página
...
Posição | Conteúdo |
---|---|
1 | Filtro que define a cor da Legenda.* |
2 | Cor desejada. |
3 | Descrição da Legenda. |
*Obs: Em caso de condições similares, atentar à ordem dos filtros passados no vetor, que será respeitada ao executar a rotina.
05. EXEMPLO
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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) |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas