P.E. para incluir uma nova legenda no Contas a Receber

Exemplo da Rotina:

User Function F040ADLE()
//...
Return aRet

Exemplo 1- Adicionando a cor violeta:

User Function F040ADLE()
	Local aArea := GetArea()
	Local aRet  := {}

	aAdd(aRet, {"BR_VIOLETA", "Título PLS"})
	
	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 F040URET;

Referências:

• TDN