Bom dia

Temos uma customização de uma tela que foi gerada a partir da função TWBrowse e gostaríamos de apresentar as linhas do grid com cores diferentes conforme o conteúdo de um coluna específica.

Mas não estamos conseguindo. Peço sua ajuda nesse sentido.

As linhas de código estão abaixo:

oBrowse:lUseDefaultColors := .F.oBrowse:SetBlkColor({|| CorFonte(aBrowse , oBrowse:nAt )}) oBrowse:SetBlkBackColor({|| CorFundo(aBrowse , oBrowse:nAt )})

Static Function CorFundo(aBrowse , nPos )

Local nRet := 16777215

If DtoS(aBrowse[nPos][10]) > DtoS(dDataBase) nRet := CLR_WHITE Endif

Return nRet

Static Function CorFonte(aBrowse , nPos )

Local nRet := CLR_BLACK

If DtoS(aBrowse[nPos][10]) > DtoS(dDataBase) nRet := CLR_RED Endif

Return nRet