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