Ejemplo típico de un programa - Español

El programa EXEMPLO.PRW, que se presenta a continuación, consiste en una pantalla que muestra al usuario todos los clientes registrados en el ERP y las opciones para el mantenimiento de esta información.

El objetivo de este programa es la selección y ejecución de las operaciones de mantenimiento (búsqueda, inclusión, modificación, visualización y borrado) en la información de los clientes. Por medio de este ejemplo visualizamos varios componentes del AdvPL, los cuales se discutirán después de esta documentación.

#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