cPontoEntradaCaracterObligatorio
Nome do ponto de entrada, bloco ou identificador de customização a verificar.
FUNCIóNPublicado
ExistBlock
ExistBlock( <cPontoEntrada> ) --> lExisteVerifica si existe un punto de entrada o bloque personalizado antes de ejecutarlo.
Descripción general
ExistBlock() consulta si determinada personalización está disponible en el entorno. En rutinas extensibles, evita llamar ExecBlock() para un punto inexistente y hace el código más seguro entre clientes, sucursales o módulos.
Sintaxis
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("Validación autorizada.")
EndIf
ReturnResultado esperado
La llamada al punto de entrada ocurre solo cuando existe en el entorno.
- 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.
Comentarios
Todavía no hay comentarios aprobados.
Inicia sesión con Google o Microsoft para comentar.