...
Nome | Tipo | Descrição | Obrigatório | Referência |
|---|---|---|---|---|
cNome | caractere | Indica o nome do código fonte ou máscara. Observação: São aceitos os caracteres curingas (* e ?). | X | |
nRPO | numérico | Indica o nome o do repositório que será feita a busca. Valores possíveis: 1 - RPO Padrão, 2 - RPO TLPP, 3 - RPO Custom. Caso o parâmetro não seja informado o valor 1 é assumido como padrão, a busca sera realizada em todos os repositórios citados. Este parâmetro é válido a partir a release 20.3.0.x (Application Server Harpia) |
...
Nome | Tipo | Descrição |
|---|---|---|
aFontes | vetor | Retorna um array de strings, contendo o nome dos fontes compilados identificados no repositório. |
| Informações | ||||
|---|---|---|---|---|
| ||||
|
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
User Function exemplo1()
Local aFontes := {}
Local nI , nTaFontes:= 0
aFontes := GetSrcArray("M??R*.PRW")
nTtFontes := len(aFontes)
If nTtFontes > 0
For nI := 1 to nTtFontes
conout("Fonte "+aFontes[nI]+" encontrado.")
Next
MsgInfo("Fontes encontrados. Verifique log de console.")
Else
MsgStop("Nenhum fonte encontrado.")
Endif
Return
// Exemplo válido a partir da versão 20.3.0.x
User Function exemplo2()
Local aFontes := {}
Local nI , nTaFontes:= 0
aFontes := GetSrcArray("M??R*.PRW", 3)
nTtFontes := len(aFontes)
If nTtFontes > 0
For nI := 1 to nTtFontes
conout("Fonte "+aFontes[nI]+" encontrado no RPO Custom.")
Next
MsgInfo("Fontes encontrados. Verifique log de console.")
Else
MsgStop("Nenhum fonte encontrado no RPO Custom.")
Endif
Return
|
1320.23.30.x