P.E. para adicionar uma nova legenda no Contas a Receber
Exemplo da Rotina:
User Function F040URET() //... Return aRet
Exemplo 1- Adicionando a cor violeta:
User Function F040URET()
	Local aArea := GetArea()
	Local aRet  := {}
	aAdd(aRet, {"E1_ORIGEM == 'PLSA510'", "BR_VIOLETA"})
	
	RestArea(aArea)
Return aRet
Observações:
- Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
 - Se tiver sugestões de rotinas, pode entrar em contato;
 - Exemplo enviado por Cássio Winkler;
 - Este p.e. deve ser usado juntamente com o F040ADLE;