Descrição
| 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
| GetApoInfo( <cFonte> ) |
Parâmetros
| Par | Nome | Tipo | Descrição | Default | Obg | Ref |
| 01 |
cFonte |
Caracter |
Indica o nome do arquivo de código fonte (.PRW) |
X |
Retorno
| Retorno | Tipo | Descrição |
| aRet | Array |
Retorna um array com os dados do arquivo de código fonte |
Exemplo
#INCLUDE "TOTVS.CH"
User Function GetApoInfo()
Local aRet := {}
aRet := GetApoInfo('ConPad1.PRW')
MsgInfo( "Nome do fonte: " + aRet[1] + CRLF + ;
"Linguagem do fonte: " + aRet[2] + CRLF + ;
"Modo de Compilação: " + aRet[3] + CRLF + ;
"Data da última modificação: " + Dtoc(aRet[4]) + CRLF + ;
"Hora da última modificação: " + aRet[5], 'UniversoADVPL' )
Return( Nil )
Resultado
ARET
|
aRet[0] |
Caracter |
Nome do fonte |
|
aRet[1] |
Caracter |
Linguagem do fonte. Exemplo: AdvPL, 4GL |
|
aRet[2] |
Caracter |
Modo de Compilação |
|
aRet[3] |
Data |
Data da última modificação do arquivo |
|
aRet[4] |
Caracter |
Hora da última modificação do arquivo |
MODO DE COMPILAÇÃO
|
0 – BUILD_FULL |
A execução do programa não utiliza o Smart Client, geralmente é um JOB |
|
1 – BUILD_USER |
Usuário só pode compilar User Functions |
|
2 – BUILD_PARTNER |
Smart Client das versões 6 e 7 em ambiente Windows |
|
3 – BUILD_PATCH |
Smart Client das verões 8 e 10 em ambiente Windows (*) |
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎