Documento: Exemplo típico de um programa

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     := {}

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
  • Sem rótulos