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:
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
