Nesse vídeo demonstraremos a utilização das funções ExistFunc e FindFunction, sendo que ambas servem para validar se uma função esta compilada dentro do RPO.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas #Include "TOTVS.ch" /*/{Protheus.doc} User Function zExe161 Verifica se uma função existe no RPO @type Function @author Atilio @since 19/12/2022 @see https://tdn.totvs.com/display/tec/Findfunction @obs Função ExistFunc Parâmetros + Nome da função a ser verificada Retorno + .T. Se a função foi encontrada ou .F. se ela não foi encontrada Função FindFunction Parâmetros + cFuncao , Caractere , Nome da função a ser verificada Retorno + lRet , Lógico , .T. Se a função foi encontrada ou .F. se ela não foi encontrada **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao **** /*/ User Function zExe161() Local aArea := FWGetArea() //Se a função existir, aciona ela, senão mostra mensagem de erro If ExistFunc("u_zExe084") u_zExe084() Else FWAlertError("Função não encontrada", "Teste ExistFunc") EndIf //Se a função existir, aciona ela, senão mostra mensagem de erro If FindFunction("u_zExe084") u_zExe084() Else FWAlertError("Função não encontrada", "Teste FindFunction") EndIf FWRestArea(aArea) Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.