Perguntas Incluir Legenda em rotina padrão compilada como User Function

Bom dia a todos!

Compilei a rotina PMSA600 com User Function e fiz algumas alterações.

Na base do cliente tanto a rotina padrão como minha User Function, na opções legenda, traz uma caixinha sem especificar legenda e sem cor. e na rotina todos os registos estão com a cor Cinza. Procurei por ponto de entrada dessa rotina para legenda mas não encontrei nenhum. Como posso fazer para incluir essa legenda na rotina?

Bom dia, você especificou a legenda?
Exemplo:
User Function Leg()

BrwLegenda("Número de Série","Legenda",;
{{"BR_VERDE" ,"Livre"},;
{"BR_VERMELHO" ,"Usado"}})
Return

Ronaldo estou usando assim:

Estou chamando a legenda nesse ponto:

Local aRotina := {{ STR0002, "AxPesqui" , 0 , 1,,.F.},; //"Pesquisar"
{ STR0022, "U_PMS600Dlg" , 0 , 4 },; //"Faturar"
{ STR0006, "BLegenda" , 0 , 6,,.T.}} //"Legenda"

E minha rotina é assim:

Static Function BLegenda()
Local aLegenda := {}
AADD(aLegenda,{"BR_VERDE" ,"Projeto em Aberto" })
AADD(aLegenda,{"BR_AMARELO" ,"Projeto faturado parcialmente" })
AADD(aLegenda,{"BR_VERMELHO" ,"Projeto faturado integralmente" })
BrwLegenda(cCadastro, "Legenda", aLegenda)
Return (aLegenda)


Quando entro na rotina me aparece a seguinte mensagem:
Função: BLegenda Called by execute

O que será que pode estar errado?

Boa tarde pessoal funcionou dessa forma.

o Bcores chamei no acores, da mbrowse.

User Function BLegenda()
Local aLegenda := {}
AADD(aLegenda,{"BR_VERDE" ,"Projeto em Aberto" })
AADD(aLegenda,{"BR_AMARELO" ,"Projeto faturado parcialmente" })
AADD(aLegenda,{"BR_VERMELHO" ,"Projeto faturado integralmente" })
BrwLegenda(cCadastro, "Legenda", aLegenda)
Return (aLegenda)

//Telecio 16-7-2013
User Function BCores()

Private aRet := {}

aAdd(aRet,{'AF8_STS == "1"',"VERMELHO"})
aAdd(aRet,{'Empty(AF8_STS) .OR. AF8_STS == "3"',"VERDE"})
aAdd(aRet,{'AF8_STS == "2"',"AMARELO"})


Return aRet