Cópia de GetRpoLog

Retorna um array com informações (nome, linguagem, modo de compilação, data da última modificação e hora/minuto/segundo) de um determinado arquivo de código-fonte (*.PRW).

Sintaxe

GetRpoLog()

Retorno

Nome	Tipo	Descrição
aData	vetor	Retorna um array com os dados de todos os patchs aplicados. Para informações do formato do array, consulte a tabela Formato do array de retorno, na área Observações.

Observações

Formato do Array de retorno:

Posição	Valor
aData[1]	Array com informações sobre o RPO
aData[1][1]	Versão do RPO
aData[1][2]	Data do RPO
aData[2]	Quantidade de patchs aplicados
aData[3]	Array com informações sobre o patch
aData[3][1]	Nome do patch
aData[3][2]	Data de geração do patch
aData[3][3]	Build de geração do patch
aData[3][4]	Data de aplicação do patch
aData[3][5]	Build de aplicação do patch
aData[3][6]	Número de programas contidos no patch
aData[3][7]	Array com informações sobre os programas
aData[3][7][1]	Nome do programa
aData[3][7][2]	Data do programa
aData[3][8]	Array com informações sobre os programas
aData[3][8][1]	Nome do programa
aData[3][8][2]	Data do programa
aData[3][...]	Array com informações sobre os programas
aData[3][...+1]	Lógico com a informação se o patch foi aplicado forçado
aData[3][...+2]	Tipo do patch

Importante: A partir da build 7.00.090818P, foi implementado o 5º elemento no formato do array de retorno desta função.
Desta forma, caso um código fonte seja modificado para utilizar este novo elemento de retorno, e este código fonte pode ser executado em uma build anterior a 7.00.090818P, deve-se proteger a execução verificando a existência do quinto elemento, sob pena de reproduzir a ocorrência de erro fatal AdvPL "Array ou of bounds".

Tipo do patch:

Valor	Descrição
0 - BUILD_FULL	Usuário tem permissão para compilar qualquer tipo de fonte
2 - BUILD_PARTNER	Permissão de compilação da Fábrica de Software TOTVS
3 - BUILD_PATCH	Aplicação de Patch
1 - BUILD_USER	Usuário só pode compilar User Functions

Exemplos

Exemplo 1

User function Exemplo()
  aData := GetAPOInfo("ExemplosTDN.prw")
Return

Abrangência

Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

Árvore de páginas