Perguntas Incluir uma legenda na MsNewGetDados

Private aLegenda := { {"BR_VERDE", 'Margem Normal'},; //"Contagem Batida"
{"BR_VERMELHO" ,'Margem Abaixo Minimo'} } //"Contagem Finalizada"
PRIVATE aCores := {LoadBitmap( GetResources(), aLegenda[1,1] ), ;
LoadBitmap( GetResources(), aLegenda[2,1] )}
aAdd(xCols,Array(Len(xHeader)+1))
nLin := Len(xCols)
For y:=1 To Len(xHeader)
If y==1
If ((KAD->D2_PRCVEN-KAD->D2_CUSJM)/KAD->D2_CUSJM)*100 < MV_PAR11 // traatamento Margem Lucro
xCols[nLin][y] := aCores[2]
Else
xCols[nLin][y] := aCores[1]
Endif
ElseIf xHeader[y,2] == 'C6_PRCVEN'
xCols[nLin][y] := ((KAD->D2_PRCVEN-KAD->D2_CUSJM)/KAD->D2_CUSJM)*100
ElseIf xHeader[y,2] == 'B1_DESC'
xCols[nLin][y] := SB1->B1_DESC
ElseIf xHeader[y,2] == 'B1_UM'
xCols[nLin][y] := SB1->B1_UM
ElseIf xHeader[y,2] == 'A1_NOME'
xCols[nLin][y] := SA1->A1_NOME
ElseIf xHeader[y,2] == 'B1_UPRC'
xCols[nLin][y] := SB1->B1_UPRC
ElseIf xHeader[y,2] == 'A3_NOME'
xCols[nLin][y] := SA3->A3_NOME
Else
xCols[nLin][y] := &(xHeader[y,2])
Endif
Next y

//Tratamento de primeira e ultima linha
xCols[nLin,Len(xHeader)+1] := .F.