Perguntas Visualizar informações de um arquivo de dados e navegar entre o registro anterior e o próximo

DbSelectArea(cAlias)
DbGoTop()
Do While !Eof()
	IF (cAlias)->E2_OK == cMarca
		DbSelectArea("SZ4")
		DbSetOrder(1)
		If DbSeek(xFilial("SZ4") + (cAlias)->Z4_NUMERO + (cAlias)->Z4_ITEM)
			RegToMemory("SZ4")
			AxVisual("SZ4",SZ4->(Recno()),2,,,,,aButtons,,,,,,,,,)
			SZ4->(Dbclosearea())
			RestArea(aArea)
			Return
		EndIf
	Else
		Dbskip()
	Endif
EndDo

Static Function IM002Vis(cAlias)
Local aArea := GetArea()
Local nReg  := 0
Local cnumero
Local citem
Local cacao := "Dbskip()"
Private oImvisu
Private  aButtons := {}
Private cCadastro := "Solicitação de pagamento"

//adiciona botoes na Enchoice                       
aAdd( aButtons, { "PRÓXIMO", {|| oImvisu:End(),cacao := "Dbskip()}, "Próximo", "Próximo" } )
aAdd( aButtons, { "ANTERIOR", {|| oImvisu:End(),cacao := "Dbskip(-1)",MsgAlert("Anterior novamente")}, "Anterior", "Anterior" } ) 

DbSelectArea(cAlias)
DbGoTop()
Do While !Eof()
	IF (cAlias)->E2_OK == cMarca
		DbSelectArea("SZ4")
		DbSetOrder(1)
		If DbSeek(xFilial("SZ4") + (cAlias)->Z4_NUMERO + (cAlias)->Z4_ITEM)
			RegToMemory("SZ4")
			oImvisu := AxVisual("SZ4",SZ4->(Recno()),2,,,,,aButtons,,,,,,,,,)
		EndIf
		&cacao
	Else
		&cacao
	Endif
EndDo

SZ4->(Dbclosearea())
RestArea(aArea)
Return