Histórico da Página

O programa EXEMPLO.PRW, apresentado a seguir, consiste em uma tela mostrando para o usuário todos os clientes cadastrados no ERP e as opções para a manutenção dessas informações.

O objetivo desse programa é a seleção e a execução das operações de manutenção (Pesquisa, Inclusão, Alteração, Visualização e Exclusão) nas informações dos clientes. Por meio desse exemplo visualizamos vários componentes do AdvPL, que discutiremos na sequência dessa documentação.

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

Private cCadastro := "ADVPL - TOTVS"
Private aRotina 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