Mostrar os novos registros no browse qdo cheio

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

Paulao
Usuário Nível 3
Usuário Nível 3
Mensagens: 186
Registrado em: 09 Jul 2004 11:03
Localização: Franca
Contato:

Mostrar os novos registros no browse qdo cheio

Mensagem por Paulao »

Boa noite amigos, tenho um sistema de supermercado que na tela de frente caixa possui um browse que vai mostrando os itens vendidos, quando os itens do browse ocupa todas as linhas e conforme vai se cadastrando mais itens eles não aparecem, tenho que usar a barra de rolagem do browse para ve-los, gostaria de saber como fazer para qdo o browse encher ele ir mostrando os novos item em baixo.
o Codigo do meu browse esta assim:

Código: Selecionar todos

    *__________________   
    DEFINE BROWSE Browse_1
        ROW 40
        COL 300
        WIDTH 570                                                                               
        HEIGHT 650                                                                               
        FONTNAME "Miriam Fixed"
        FONTSIZE 12
        FONTBOLD .T.
        HEADERS { 'Produto' , 'Quant.' , 'Valor'}
        WIDTHS { 350 , 100 , 100 }
        WORKAREA itvsismk
        FIELDS { 'itvsismk->prod_itv' , 'itvsismk->quan_itv' , 'itvsismk->vlto_itv' }
        VALUE 1
        LOCK .T.
        ALLOWEDIT .F.
        ALLOWAPPEND .F.
        ALLOWDELETE .T.
        READONLY { .F. , .F. , .F.  }
        ONDBLCLICK EDIT_ITV(itvsismk->prod_itv,"EDITA")
*        ON LOSTFOCUS form_ven.oGet_prod_itv.setfocus
    END BROWSE
    *__________________  
Avatar do usuário
Toledo
Administrador
Administrador
Mensagens: 3133
Registrado em: 22 Jul 2003 18:39
Localização: Araçatuba - SP
Contato:

Mostrar os novos registros no browse qdo cheio

Mensagem por Toledo »

Olá Paulo, no seu programa deve ter alguma rotina que grava os itens vendidos, então depois desta gravação, tente o seguinte:

Código: Selecionar todos

form_ven.Browse_1.Value:=RECNO()
form_ven.Browse_1.Refresh
Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Paulao
Usuário Nível 3
Usuário Nível 3
Mensagens: 186
Registrado em: 09 Jul 2004 11:03
Localização: Franca
Contato:

Mostrar os novos registros no browse qdo cheio

Mensagem por Paulao »

Obrigado Toledo, funcionou, com um pequeno problema, o browse tem umas 30 linhas, mas a rolagem começa quando preencho 15 linhas, como contornar este problema?
Avatar do usuário
Toledo
Administrador
Administrador
Mensagens: 3133
Registrado em: 22 Jul 2003 18:39
Localização: Araçatuba - SP
Contato:

Mostrar os novos registros no browse qdo cheio

Mensagem por Toledo »

Olá Paulo, tente o seguinte:

Código: Selecionar todos

If reccount()>30
  form_ven.Browse_1.Value:=RECNO()
  form_ven.Browse_1.Refresh
Endif
Abraços,
Toledo - Clipper On Line
toledo@pctoledo.com.br
Harbour 3.2/MiniGui/HwGui
Faça uma doação para o fórum, clique neste link: http://www.pctoledo.com.br/doacao
Paulao
Usuário Nível 3
Usuário Nível 3
Mensagens: 186
Registrado em: 09 Jul 2004 11:03
Localização: Franca
Contato:

Mostrar os novos registros no browse qdo cheio

Mensagem por Paulao »

Ola Toledo, obrigado pelo ajuda, da forma que vc passou não funcionou, mas me deu uma ideia que deu certo, fiz assim:

Código: Selecionar todos

form_ven.Browse_1.Value:=Recno()-15
form_ven.Browse_1.Refresh
Grande abraço
Responder