Nesse vídeo demonstraremos a utilização da função RetModName, que serve buscar os módulos do sistema e trazer a informação em um array.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe416
Retorna os módulos do sistema
@type Function
@author Atilio
@since 22/02/2023
@obs 

    Função RetModName
    Parâmetros
        Define se é para listar também o Configurador (.T.) ou não (.F.)
    Retorno
        Retorna um array com todos os módulos do sistema

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe416()
    Local aArea      := FWGetArea()
    Local aModulos   := {}

    //Busca o nome do módulo logado
    aModulos := RetModName(.T.)

    //Exibe uma mensagem de teste
    FWAlertInfo("Foi encontrado " + cValToChar(Len(aModulos)) + " modulo(s) ", "Teste RetModName")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++