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

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