tsbrowse II

[Zeca Roque]

Boa Tarde a Todos!!!

Estou migrando do clipper para minigui e notei que, de um modo geral, todos os exemplos são para HARBOUR e não xHARBOUR.

Mesmo assim, com ajuda de amigos estou conseguindo compilar meus programas em xHarbour mas esbarrei no TSBROWSE que parece

ser somente compilada em HARBOUR. A pergunta que faço é se alguém conseguiu compilar em XHARBOUR?. Alterei meu MINIGUI

para a versão 2.1.9 e o TSBROWSE está preparado para HARBOUR e não xHARBOUR.

Uso HB3.20Rev 18767 xHB121Rev9413 e minigui 2.19

Caso não consiga compilar o TSBROWSE tem algum Browse, além do que vem no MINIGUI que possa ser usado?

Grato a todos

[Pablo César]

Estou migrando do clipper para minigui e notei que, de um modo geral, todos os exemplos são para HARBOUR e não xHARBOUR.

Sim, claro !

Mesmo assim, com ajuda de amigos estou conseguindo compilar meus programas em xHarbour mas esbarrei no TSBROWSE

Desculpe perguntar-lhe: por quê insiste ficar em xHarbour, se vai trabalhar com Minigui ?

Caso não consiga compilar o TSBROWSE tem algum Browse, além do que vem no MINIGUI que possa ser usado?

Parece que no fórum do FW tem para xHarbour. Mas eu não tenho, pois eu não uso xHarbour.

[Zeca Roque]

Ola a todos!!!

Com ajuda de algumas pessoas, consegui implementar o TSBROWE com xHarbour, mas tenho um problema, aparentemente sem solução.
A seguencia é Form_main, frm_cliente e brw_cliente. Na tela principal(form_main) chamo uma tela (frm_cliente) e depois a tela do Browse(brw_cliente).
Dentro do Browse faço a consulta por nome que após localizar o nome digitado, o mesmo vai para o topo do browse. Até ai, tudo bem. O problema aparece quando encerro o browse e volto para a tela do cliente(frm_cliente) afim de abrir novamente o browse para outra consulta de outro cliente. O browse (brw_cliente) não dá release para começar "do zero" como deveria. Ele mostra no Browse a ultima consulta. Para "zerar" o browse, preciso sair do programa(form_main) e voltar novamente.

Código: Selecionar todos

 button btn_07;
   caption 'ESC  Sair';
   picture cPathImagem+'voltar.bmp';
   adjust;
   ACTION { || BtSair_Clientes() }
   tooltip 'Fechar esta tela'


Function BtSair_Clientes()
    clientes->(DbClearFilter())
    clientes->(DbCloseArea())
    IF _IsControlDefined ("Brw_cliente","Frm_cliente","txt_pesquisa")
        _ReleaseControl ("Brw_cliente","Frm_cliente","txt_pesquisa")
    endif
Return Nil

Como devo fazer? Será que falta algum comando TSBrowse?

Grato a todos