Mostrar os novos registros no browse qdo cheio

[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
    *__________________  

[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,

[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?

[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,

[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