cPontoEntradaNome do ponto de entrada ou bloco a executar.
AdvPL GuiaExecBlock( <cPontoEntrada>, [lMostraErro], [lRetorna], [aParametros] ) --> uRetExecuta um ponto de entrada ou bloco customizado do ambiente Protheus.
ExecBlock() chama uma customização registrada no ambiente. É um mecanismo clássico de extensão do Protheus: a rotina padrão verifica ou executa um ponto de entrada para permitir validações, complementos e comportamentos específicos sem alterar diretamente o fonte padrão.
ExecBlock( <cPontoEntrada>, [lMostraErro], [lRetorna], [aParametros] ) --> uRetcPontoEntradaNome do ponto de entrada ou bloco a executar.
lMostraErroIndica tratamento/exibição de erro conforme o padrão do ambiente.
lRetornaIndica se a chamada deve considerar retorno do bloco executado, conforme contrato da rotina.
aParametrosParâmetros enviados ao ponto de entrada, quando previstos pelo contrato.
#Include "TOTVS.ch"
User Function ExExecBlock()
Local lContinua := .T.
If ExistBlock("MA030VLD")
lContinua := ExecBlock("MA030VLD", .F., .F.)
EndIf
If !lContinua
MsgStop("Validação interrompida pelo ponto de entrada.")
EndIf
ReturnExecuta a customização apenas quando existe e respeita o retorno lógico.
© 2026 Usina.BR. Todos os direitos reservados. TOTVS, Protheus, Microsiga e seus respectivos logotipos são marcas de seus titulares. O AdvPL Guia é independente e utiliza citações limitadas, atribuídas e justificadas por finalidade educativa. Consulte os Termos de Uso. Termos de Uso
Comentários
Ainda não há comentários aprovados.
Entre com Google ou Microsoft para comentar.