#include 'protheus.ch'
#include 'parmtype.ch'

User Functionfunction TCF040VLDGPBWLEG()
Local lRet := .F.

// - Validações necessárias
// - Caso as verificações sejam de acordo com a pré-condição estabelecida para atender a solicitação
// - Mudar o retorno para .T.
lRet := .T.

Return (lRet 

/*Novo Ponto de Entrada */

aCores:= {	{"BR_PRETO","ALTEREI"			},;	
					{"BR_PINK"      ,"Transferido" 		 },;		
					{"BR_VERMELHO","Demitido"		},;		
					{"BR_AMARELO","Afastado"		},;		
					{"BR_AZUL","Ferias"						} ;
				                  											}
Return(aCores)