Descrição
GetApoInfo [AS] - 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
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! 😎
