Totvs Protheus Função mBrowse AdvPL [Tlpp]

Hoje vamos aprender a usar a Função mBrowse do AdvPL [Tlpp], [tl++] Monta um browse para cadastro na Base de Dados. – Curso Protheus grátis AdvPL / TLPP.

#Include "Protheus.ch"
/*----------------------------------------------------------------------------------*
{Protheus.doc} User Function mCadZZ1()
@type:      User Function
@author:    Jose Moura
@site:      https://academiaproerp.com
@canal:     [Inscreva-se no canal https://www.youtube.com/@academiaprotheus]
@desc.:     Função mBrowse. Monta um browse para cadastro na Base de Dados.
@Sintaxe:   mBrowse(<nlinini>, <ncolini>, <nlinfim>, <ncolfim>, "cAlias")
*-----------------------------------------------------------------------------------*/

User Function mCadZZ1()
Local aArea       := GetArea()
Local cAlias      := "ZZ1"
Private cCadastro := "Cadastro Limite Meses Viagens"
Private aRotina   := {}

//Array aRotina, com as funções do menu
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})
aAdd(aRotina,{"*Gera Excel", "U_GRExTrp", 0, 8})

DbSelectArea(cAlias)
(cAlias)->(DbSetOrder(1))

//Montando o Browse
mBrowse(6, 1, 22, 75, cAlias)

(cAlias)->(DbCloseArea())
RestArea(aArea)
Return

Moura

Analista de sistemas, programador com mais de 18 anos de experiência no sistema Totvs Protheus, administrador, suporte e customizações, idealizador da Academia ProERP, já ajudou centenas de pessoas a programar em AdvPL/Tlpp.