Nesse vídeo demonstraremos a utilização da função GetPrograms, que serve para buscar as funções abertas em memória.

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe281
Retorna as funções abertas em memória
@type  Function
@author Atilio
@since 21/02/2023
@see https://tdn.totvs.com/display/tec/GetPrograms
@obs 
    
    Função GetPrograms
    Parâmetros
        Função não tem parâmetros
    Retorno
        + aRet      , Array      , Array com os programas em AdvPL abertos na memória

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

User Function zExe281()
    Local aArea      := FWGetArea()
    Local aProgramas := {}
    Local cMensagem  := ""
    Local cPrograma  := ""
    
    //Busca os programas carregados e joga em um array
    aProgramas := GetPrograms()

    //Percorre os programas incrementando a mensagem
    aEval(aProgramas, {|cPrograma| (cMensagem += cPrograma + CRLF) } )

    //Exibe uma mensagem com os programas
    ShowLog(cMensagem)

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++