Exclusão de Registros em TBrowse()

[alaminojunior]

Ei-la,

Código: Selecionar todos

Function Destaca(_Tb) // Recebe como parâmetro, o objeto tbrowse que se deseja manipular.
Local Place:= Recno()
If Eof()
   return
Endif
_Tb:RefreshAll()
Do While !_Tb:Stabilize()
Enddo
Do While Recno() != Place // Enquanto recno() não for o registro desejado, vai tentando....
   _Tb:Up()                      // Setinha pra cima  :D
   Do While !_Tb:stabilize()
   Enddo
Enddo
Return

Enfim, depois do comando loop, quando o tbrowse estabilizar, chame esta função para assegurar que a barra de destaque esteja sobre o registro desejado.

[lucimauro]

Com a sua funcao funcionando voce ja tentou apagar o primeiro registro de sua lista para ver se ele realmente some da relacao.?

[sygecom]

Com a sua funcao funcionando voce ja tentou apagar o primeiro registro de sua lista para ver se ele realmente some da relacao.?

Lucimauro,
O exemplo que postei é só compilar que funciona, se for o exemplo do colega acima só incluir o SET DELETED ON que tmb. funciona.

[aferra]

Desculpe entrar assim no assunto , sou novo por aqui e a intenção é somente de ajudar,

acho que somente essas linhas já resolveria o problema:

Select <alias>
b:RefreshCurrent()
b:Configure()

Abraços