TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Oberdan de Almeida Santos

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Gabriel de Jesus Santos Cunha

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/6062824/tecnologia.css

Pagetitle
GetSrcArray
GetSrcArray

...

Bloco de código
collapsefalse
GetSrcArray( < cNome >, [ nRPO ] )

Parâmetros

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 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, 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)



Retorno

Nome

Tipo

Descrição

aFontes

vetor

Retorna um array de strings, contendo o nome dos fontes compilados identificados no repositório.

Informações
icontrue
titleObservações
  • Função disponível a partir da build 7.00.080806P.

Exemplos

Bloco de código
languagecpp
themeEclipse
titleExemplo 1
linenumberstrue
collapsefalse
User Function exemploexemplo1()
  Local aFontes := {}
  Local nI ,:= nT0

  aFontes := GetSrcArray("M??R*.PRW")
tFontes := len(aFontes)

If tFontes > 0
  For nTnI := len(aFontes)
  If nT > 0   
    For 1 to tFontes
    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 := 1 to nT       
   0

aFontes := GetSrcArray("*.PRW", 3)
tFontes := len(aFontes)

If tFontes > 0
  For nI := 1 to tFontes
    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

Abrangência

Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server20.3.0.x