Histórico da Página

#Include "PROTHEUS.CH"
User Function EXEMPLO()

Private cCadastro := "ADVPL - TOTVS"
Private aRotina     := {}

aAdd( aRotina, {"Pesquisar" 	,'AxPesqui',0,1})
aAdd( aRotina, {"Visualizar" 	,'AxVisual',0,2})
aAdd( aRotina, {"Incluir"       ,'AxInclui',0,3})
aAdd( aRotina, {"Alterar"      	,'AxAltera',0,4})
aAdd( aRotina, {"Excluir"      	,'AxDeleta',0,5})

dbSelectArea("SA1")
dbSetOrder(1)
dbGoTop()

mBrowse(,,,,"SA1")

Return