Segue solução.
Código: Selecionar todos
#define XBACKCOLOR { || iIf( This.CellRowIndex / 2 == Int( This.CellRowIndex / 2 ), { 245, 245, 245 }, { 255, 255, 255 } ) }
Private xForeColor1 := LeArquivoINI( ARQUIVOINI, "Pesquisa", "Financeiro Grid Credito" ) // Cor Credito
Private xForeColor2 := LeArquivoINI( ARQUIVOINI, "Pesquisa", "Financeiro Grid Debito" ) // Cor Debito
Private xForeColorFinanceiro := { |x| iIf( x[3] == "C", &xForeColor1, &xForeColor2 ) } // x3(3 é o número da coluna no grid)
Código: Selecionar todos
DEFINE GRID Grid_Pesquisa
ROW 240
COL 10
WIDTH 960
HEIGHT 360
HEADERS {"Registro","Documento","C/D","Emissão","Vencimento","Pag / Rec","Valor","Favorecido","Histórico","Portador","Sub-Conta","Centro Custo"}
WIDTHS {70,85,40,80,80,80,70,150,170,60,75,100}
ITEMS {{'','','','','','','','','','','',''}}
DYNAMICBACKCOLOR { XBACKCOLOR, XBACKCOLOR, XBACKCOLOR, XBACKCOLOR, XBACKCOLOR, XBACKCOLOR, XBACKCOLOR, XBACKCOLOR, XBACKCOLOR, XBACKCOLOR, XBACKCOLOR, XBACKCOLOR }
DYNAMICFORECOLOR { xForeColorFinanceiro, xForeColorFinanceiro, xForeColorFinanceiro, xForeColorFinanceiro, xForeColorFinanceiro, xForeColorFinanceiro, xForeColorFinanceiro, xForeColorFinanceiro, xForeColorFinanceiro, xForeColorFinanceiro, xForeColorFinanceiro, xForeColorFinanceiro }
ONDBLCLICK Form_Contas2(2)
NOSORTHEADERS .F.
JUSTIFY { BROWSE_JTFY_LEFT, BROWSE_JTFY_LEFT, BROWSE_JTFY_CENTER, BROWSE_JTFY_LEFT, BROWSE_JTFY_LEFT, BROWSE_JTFY_LEFT, BROWSE_JTFY_RIGHT, BROWSE_JTFY_LEFT, BROWSE_JTFY_LEFT, BROWSE_JTFY_LEFT, BROWSE_JTFY_LEFT }
HEADERIMAGE ""
ALLOWSORT .T.
END GRID