Dúvida sobre comando Grid

[Paulo_CPV]

Boa tarde!

Estou desenvolvendo um sistema que tem um Grid utilizando um banco de dados com aproximadamente 1.000 registros, utilizo o Minigui Extend 2.2.8. Minha dúvida como eu posso me movimentar dentro do Grid, como: ir para o topo, para o último item, ir para o item anterior e item próximo, utilizo comandos BUTTONEX para chamar as funções. Estou fazendo da seguinte forma as rotinas de movimentação:

Código: Selecionar todos

FUNCTION GridAtualiza()

    Consulta.grid_1.Refresh

    Consulta.grid_1.fontcolor:= BRANCO
    Consulta.grid_1.fontbold:= .T.
    Consulta.grid_1.backcolor:= AZUL_006

RETURN NIL
//*****************************************************************//
FUNCTION GridInicio()

    IF siscpvimp->(RECCOUNT()) > 0

      siscpvimp->(DbGotop())

      Consulta.grid_1.Value := siscpvimp->(RECNO())

      GridAtualiza()

   ENDIF
  
RETURN NIL
//*****************************************************************//
FUNCTION GridAnterior() 

    IF ! Siscpvimp->(BOF())

      siscpvimp->(DBSKIP(-1))
      Consulta.grid_1.Value := siscpvimp->(RECNO())

      GridAtualiza()

    ENDIF

RETURN NIL
//*****************************************************************//
FUNCTION GridProximo() 

    IF ! siscpvimp->(EOF())

      siscpvimp->(DBSkip())

      IF siscpvimp->(EOF())

        siscpvimp->(DBSkip(-1))

      ENDIF

      Consulta.grid_1.Value := siscpvimp->(RECNO())

      GridAtualiza()

     ENDIF

RETURN NIL
//*****************************************************************//
FUNCTION GridUltimo()

    siscpvimp->(DbGoBottom())

    Consulta.grid_1.Value := siscpvimp->(RECNO())

    GridAtualiza()

RETURN NIL

Espero que alguém possa me auxiliar nesta dúvida. Eles não estão funcionando direito.

[]'s
Paulo - Jacareí/SP