Tbrowse

[negrao]

Pessoal , to com o seguinte problema
Uso o Tbrowse e vi que ele possui um comando chamado REFRESHCURRENT(), que atualiza somente a informacao que foi alterada.
Como se pode ver na minha funcao abaixo, eu uso o REFRESHALL().
So que esse comando ele vai atualizar na tela do browse todos os registro, mesmo os que nao foram alterados.
A minha pergunta é, como faco para usar o refreshcurrent(), pq ja tentei simplesmente coloca-lo no lugar do refreshall() e nao deu certo.

Obs.: veja as asneiras que ja coloquei e nao deram resultados:
oTbr:refreshcurrent:forcestable() => atualizou mas repetiu no browse o registro que eu alterei.

oTbr:refreshcurrent:stabilize() => atualizou mas repetiu no browse o registro que eu alterei.

obrigado por qualquer ajuda


*---------------------------------------------------------------------------*
FUNCTION TBROW()
LOCAL oTbr := TBrowseDb(03,02,21,76) ,nKey, bFilter , ;
nCLAS := 0
oTbr:addColumn( TBColumnNew("Codigo ", {|| CLI->CODI }))
oTbr:addColumn( TBColumnNew("Nome ", {|| CLI->NOME }))
OTBR:colorspec := "R/W,R/W,G/BG,W+/W,N/BG"
oTbr:HeadSep:= "Ä"
oTbr:ColSep := "³"

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

DO CASE
CASE nKey == K_ESC ; EXIT
OTHER ; LOOP
ENDCASE
oTbr:refreshALL()
return .t.

[Dudu_XBase]

Código: Selecionar todos

FUNCTION TBROW() 
LOCAL oTbr := TBrowseDb(03,02,21,76) ,nKey, bFilter , ; 
nCLAS := 0 
oTbr:addColumn( TBColumnNew("Codigo ", {|| CLI->CODI })) 
oTbr:addColumn( TBColumnNew("Nome ", {|| CLI->NOME })) 
OTBR:colorspec := "R/W,R/W,G/BG,W+/W,N/BG" 
oTbr:HeadSep:= "Ä" 
oTbr:ColSep := "³" 

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

 DO CASE 
    CASE nKey == K_ESC ; EXIT 
    OTHER 
      oTbr:refreshCurrent() 
 ENDCASE 
 oTbr:refreshCurrent() 
Enddo

return .t.