Perguntas criar um legenda no grid

Bom dia,

Estou precisando melhorar a legenda dentro do Grid utilizando o MVC, ela já esta aparecendo porem usando somente um cor, como eu faço para que, quando o tipo de produto for diferente ele muda a cor da legenda dentro do grid

Esta é uma parte da Função

oModel:GetModel("SZHDETAIL"):GoLine(nI)
oModel:GetModel("SZHDETAIL"):SetValue("ZH_ITEM" , STRZERO(nI, 3)) && ITEM
oModel:GetModel("SZHDETAIL"):SetValue("ZH_PRODFIL" , aProdutos[i,3]) && CODIGO PRODUTO FILHO
oModel:GetModel("SZHDETAIL"):SetValue("ZH_DESCFIL" , aProdutos[i,4]) && DESCRICAO PRODUTO FILHO
oModel:GetModel("SZHDETAIL"):SetValue("ZH_UND" , alltrim(aProdutos[i,5])) && TIPO DE PRODUTO
oModel:GetModel("SZHDETAIL"):SetValue("ZH_CMANT" , SLDMANT->QTDE)
oModel:GetModel("SZHDETAIL"):SetValue("ZH_AEMPENH" , (aProdutos[i,6] * nNroBras))
oModel:GetModel("SZHDETAIL"):SetValue("ZH_SLDDISP" , posicione("SB2",1,XFILIAL("SB2")+aProdutos[i,3]+'FB',"B2_QATU")


Quando aProdutos[i,5] = pa azul
Quando aProdutos[i,5] = mp vermelho

etc...

Segue abaixo:

//Dentro da funcao principal do modelo 03
Local aCores := {}
Local cAlias1 := ZZD //tabela
Private aLegenda := {}

aAdd(aCores, {"ZZD_STATUS = 'A'", "BR_VERDE" , "Legenda 01" })
aAdd(aCores, {"ZZD_STATUS = 'B'", "BR_VERMELHO" , "Legebda 92" })

For nX := 1 to Len(aCores)
aAdd(aLegenda, {aCores[nX, 2], aCores[nX, 3]})
Next

dbselectarea(cAlias1)
dbsetorder(1)
dbgotop()

//mBrowse(,,,,cAlias1)
mBrowse(6, 1, 22, 75, cAlias1,,,,,, aCores ,,,,,,,,/*cFiltro*/)
Return