cPontoEntradaCaracterObrigatório
Nome do ponto de entrada, bloco ou identificador de customização a verificar.
FUNçãOPublicado
ExistBlock
ExistBlock( <cPontoEntrada> ) --> lExisteVerifica se um ponto de entrada ou bloco customizado existe antes de executá-lo.
Visão geral
ExistBlock() é usada para consultar se determinada customização está disponível no ambiente. Em rotinas extensíveis, ela evita chamar ExecBlock() para um ponto inexistente e torna o código mais seguro para ambientes com variações por cliente, filial ou módulo.
Sintaxe
ExistBlock( <cPontoEntrada> ) --> lExisteParâmetros
Retorno
Lógico. Retorna .T. quando o bloco existe e .F. quando não existe.
Executar ponto de entrada apenas se existir
#Include "TOTVS.ch"
User Function ExExistBlock()
Local lValido := .T.
If ExistBlock("MA030VLD")
lValido := ExecBlock("MA030VLD", .F., .F.)
EndIf
If lValido
MsgInfo("Validação autorizada.")
EndIf
ReturnResultado esperado
A chamada ao ponto de entrada só acontece quando ele existe no ambiente.
- Use antes de ExecBlock() quando a customização for opcional.
- Documente o ponto de entrada esperado e o contrato de retorno.
- É comum em fontes que precisam funcionar em vários ambientes sem exigir todas as customizações.
- ExistBlock() só informa existência; a validade dos parâmetros e do retorno continua sendo responsabilidade da rotina.
- Evite transformar pontos opcionais em dependência invisível sem documentação.
Comentários
Ainda não há comentários aprovados.
Entre com Google ou Microsoft para comentar.