Cor por coluna MsNewGetDados

0

Boa tarde,

Estou tentando mudar a cor de certas colunas do meu GetDados para poder destaca-las, contudo, não estou conseguindo usando SetBlkBackColor nem SetBlkColor. Observem meu codigo:

oTabelaEmb:oBrowse:lUseDefaultColors := .F.
oTabelaEmb:oBrowse:SetBlkColor({|| fGetCor(oTabelaEmb:aCols,oTabelaEmb:nAt,aHeader)})


Static Function fGetCor(aLinha,nLinha,aHeader)
    Local nPosOP  := aScan(aHeader,{|x| Alltrim(x[2]) == "NOPS"})
    Local nPosSuf := aScan(aHeader,{|x| Alltrim(x[2]) == "SUFPR"})
    Local nPosQtd := aScan(aHeader,{|x| Alltrim(x[2]) == "QTD"})
    Local nCor    := CLR_HMAGENTA

    If !Empty(aLinha[nLinha][nPosOP]) .OR. !Empty(aLinha[nLinha][nPosSuf]) .OR. !Empty(aLinha[nLinha][nPosQtd])
        nCor := CLR_HGREEN
    Endif

Return nCor

Neste exemplo esta ficando tudo verde, como podem ver em anexo (no caso o anexo é com a SetBlkColor), minha validação esta errada ou não tem nada mesmo que mude as colunas individualmente ao inves das linhas?

compartilhar
Anexos
  • getDados.png
    1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
    2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
    3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
    4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
    5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

    1 resposta

    Não é a resposta que estava procurando? Procure outras perguntas com as tags msnewgetdados ou faça a sua própria pergunta.