Histórico da Página

GetFuncArray ( < cMascara>, [ @aTipo], [ @aArquivo], [ @aLinha], [ @aData], [ @aHora] ) --> aScr

aScr(vetor)
• Retorna um array que contém os nomes das funções localizadas através da máscara, compiladas no repositório em uso pelo ambiente.

A função GetFuncArray() tem o objetivo de retornar um array com as funções contidas no RPO - Repositório de Objetos, a partir de uma máscara fornecida como parâmetro. Caso nenhuma função que atenda ao parâmetro informado seja encontrada, o retorno será um array vazio.

Release

A partir da build 7.00.081215P, esta função passou a ter 5 parâmetros opcionais para retorno de informações adicionais:

• Tipo da função ( USER, FULL , etc.. ) 
• Nome do arquivo que contém o código fonte onde a função está declarada.
• Número da linha, no código fonte, onde a função foi declarada.
• Data do código fonte compilado. 
• Tipo do fonte compilado (***) 

Ao executar essa função, na build 7.00.081215P, o sistema apresentava ocorrência de Access Violation caso algum parâmetro opcional fosse utilizado por referência,  (***) e o 5º parâmetro não retornava uma informação incorreta. 

Em builds superiores a 7.00.090818P, a ocorrência de Access Violation mencionada acima foi corrigida, E , o 5º parâmetro nao retorna mais o tipo do recurso, mas sim uma string contendo a hora do arquivo fonte compilado no RPO. vide abaixo a lista dos parametros opcionais e seus respectivos retornos, na ordem : 

• Tipo da função ( USER, FULL , etc.. ) 
• Nome do arquivo que contém o código fonte onde a função está declarada.
• Número da linha, no código fonte, onde a função foi declarada.
• Data do código fonte compilado. 
• Hora do código fonte compilado. 

User Function TestaGetFuncArray()Local aRetLocal nCount// Para retornar a origem da função: FULL, USER, PARTNER, PATCH, TEMPLATE ou NONELocal aType // Para retornar o nome do arquivo onde foi declarada a funçãoLocal aFile// Para retornar o número da linha no arquivo onde foi declarada a funçãoLocal aLine// Para retornar a data do código fonte compiladoLocal aDate// Para retornar a hora do código fonte compiladoLocal aTime                                               // Buscar informações de todas as funções contidas no APO// tal que tenham a substring 'test' em algum lugar de seu nomeaRet := GetFuncArray('U_TEST*', aType, aFile, aLine, aDate,aTime)for nCount := 1 To Len(aRet)                                   	conout("Funcao " + cValtoChar(nCount) + "= " + aRet[nCount])                                         	conout("Arquivo " + cValtoChar(nCount) + "= " + aFile[nCount])		conout("Linha " + cValtoChar(nCount) + "= " + aLine[nCount])	conout("Tipo " + cValtoChar(nCount) + "= " + aType[nCount])		conout("Data " + cValtoChar(nCount) + "= " + DtoC(aDate[nCount]))	conout("Hora " + cValtoChar(nCount) + "= " + aTime[nCount])Next Return