Nesse vídeo demonstraremos a utilização da função GetApoInfo, que serve para buscar informações de um objeto contido no Repositório de Objetos (RPO).
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe264
Função que retorna informações de um objeto dentro do RPO
@type Function
@author Atilio
@since 21/02/2023
@see https://tdn.totvs.com/display/tec/GetAPOInfo
@obs
Função GetApoInfo
Parâmetros
+ cFonte , Caractere , Nome do Código Fonte
Retorno
+ aData , Array , Array com os detalhes do código fonte
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe264()
Local aArea := FWGetArea()
Local aDados := {}
Local cMensagem := ""
//Busca as informações do fonte
aDados := GetApoInfo("zMiniForm.prw")
//Se houver informações, monta a mensagem e exibe
If Len(aDados) > 0
cMensagem := "Nome do Fonte: " + aDados[01] + CRLF
cMensagem += "Linguagem: " + aDados[02] + CRLF
cMensagem += "Modo de Compilação: " + aDados[03] + CRLF
cMensagem += "Data da última modificação: " + dToC(aDados[04]) + CRLF
cMensagem += "Hora da última modificação: " + aDados[05]
FWAlertInfo(cMensagem, "Teste GetApoInfo")
EndIf
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
