Cor no Tbrowse

[negrao]

Pessoal, ve se tem como

Na Funcao teste() abaixo , tem um Tbrowse que exibe todos os registros que foram filtrados de acordo com o que preciso.
Dependendo do TIPO do registro, ele devera aparecer na tela de uma outra cor, para diferenciar uma entrada de uma saida por exemplo.
So que so vou saber o TIPO(se ele é entrada ou saida) do registro qndo tiver montando os registros na tela.
So que nao sei onde devo por essa funcao que faca essa verificacao, ja coloquei o comando em tudo que é lugar e nao funcionou.

Como devo fazer isso ?

Obrigado

/********************************************************
tipo = E (entrada) , cor preta
tipo = S (saida) , cor vermelha
********************************************************/
STATIC FUNCTION teste()
LOCAL oTbr := TBrowseDb(02,01,22,78) ,nKey, bFilter
otbr:colorspec := "B/W,W+/BG,N/W,R/W,N/W"
oTbR:addColumn( TBColumnNew("codi", {|| tes->CODI }))
oTbR:addColumn( TBColumnNew("Data", {|| tes->DATA }))

FOR I = 1 TO 12
v_bloq=oTbr:getcolumn(i)
v_bloq:colorblock:={||IIf(!EMPTY(tes->data), IF(tipo == "E", {3,2}, {4,2}))}
NEXT

WHILE .T.
oTbr:colorrect({oTbr:rowpos,1,oTbr:rowpos,oTbr:colcount},IIF(!EMPTY(tes->data),if(tipo == "E",{3,2},{4,2}}))

DO WHILE !oTbr:stabilize() .AND. NEXTKEY() == 0
ENDDO

nKey := InKey(0)
DO CASE
cASE nKey == K_ESC ; EXIT
OTHER ; FMOVIMENTO(OTBR,NKEY) ; LOOP
ENDCASE

FIN->(dbgotop())
oTbr:refreshALL()
ENDDO
RETURN NIL