Cor no Tbrowse

[negrao]

/**************************************************/
STATIC FUNCTION TBROWFIN(CONTA)
LOCAL oTbr := TBrowseDb(02,01,22,78) ,nKey, bFilter

SELECT("FIN")
otbr:colorspec := "B/W,W+/BG,N/W,R/W,N/W"
oTbR:addColumn( TBColumnNew("conta", {|| FIN->FIN_CODI}))
oTbR:addColumn( TBColumnNew("Data ", {|| FIN->FIN_DATA}))
oTbR:HeadSep:= "Ä"
oTbR:ColSep := "³"

FOR I = 1 TO 2
v_bloq=oTbr:getcolumn(i)

IF !EMPTY(CONTA)
IF FIN->FIN_DEBI == CONTA
v_bloq:colorblock := IIF(SUBS(FIN->FIN_SALD,1,1)="E",{||{3,2}},{|| {4,2}})
ELSE
v_bloq:colorblock := IIF(SUBS(FIN->FIN_SALD,4,1)=="E", {||{3,2}},{|| {4,2}})
ENDIF
ELSE
v_bloq:colorblock := {|| {1,2} }
ENDIF
NEXT

==> explicacao
meu problema ta no seguinte: Qndo entra na baixa, eu informo qual conta irei usar.(por exemplo , conta = 123).
Feito isso , vou carregar no meu tbrowse todos os lancamentos que tem essa conta.
Qndo comeco a montar os lancamentos no Tbrowse, eu verifico se o lancamento é entrada ou saida, tenho um campo que ja tem essa informacao(fin->fin_sald).
O que ta acontecendo é que qndo inicia o for, e faz a verificacao do tipo , nos proximos registros nao esta sendo feito a verificacao, ou seja, ele assume sempre a 1º condicao feita.

Obrigado pela ajuda

[Dudu_XBase]

Boa noite montei sem compilar se tiver algum erro me fale...eu uso assim..

STATIC FUNCTION TBROWFIN(TIPO)
LOCAL oTbr := TBrowseDb(02,01,22,7Virando o olho ,nKey, bFilter

SELECT("FIN")

if TIPO = NIL
TIPO := space(len(FIN_DEBI))
endif


otbr:colorspec := "B/W,W+/BG,N/W,R/W,N/W"
oTbR:HeadSep:= "Ä"
oTbR:ColSep := "³"


oCol1 := tbcolumnnew ("Conta", {|| FIN_CODI})
oCol2 := tbcolumnnew ("Data", {|| FIN_DATA})

// pode ser q esqueci de algum ")" ....rs naum tive tempo pra compilar...
oCol1:colorblock := {||iif (EMPTY(TIPO), {1,2}, iif(FIN_DEBI=TIPO,IIF(SUBS(FIN->FIN_SALD,1,1)="E",{3,2},{4,2}),IIF(SUBS(FIN->FIN_SALD,4,1)=="E", {3,2}},{4,2})) )}

oCol2:colorblock := {||iif (EMPTY(TIPO), {1,2}, iif(FIN_DEBI=TIPO,IIF(SUBS(FIN->FIN_SALD,1,1)="E",{3,2},{4,2}),IIF(SUBS(FIN->FIN_SALD,4,1)=="E", {3,2}},{4,2})) )}


oTbr:addcolumn(oCol1)
oTbr:addcolumn(oCol2)

[negrao]

Dudu, valeu.
Funcionou como eu queria, obrigaduuuuuuu

[Dudu_XBase]

(Y) depois vc me paga umas brejas (B) na sexta...rs