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 5

changes.mady.by.user Fabio Garbin

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 o repositório que será feita a busca. Valores possíveis: 1 - RPO Padrão, 3 - RPO Custom. Caso o parâmetro não seja informado o valor 1 é assumido como padrão. 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

.

Observações

...

.

...

Exemplos

Bloco de código
languagecpp
themeEclipse
titleExemplo 1
linenumberstrue
collapsefalse
User Function exemploexemplo1()
  Local aFontes := {}
  Local nI , nT
nTaFontes  aFontes := GetSrcArray("M??R*.PRW") 
  nT := len(aFontes)
  If nT > 0
  For nI := 1 to nT
    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  For:= {}
Local nI , nTaFontes := 1 to GetSrcArray("M??R*.PRW", 3)
nT := len(aFontes)
If nT > 0
  For nI := 
1 to nT
    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 Server13.2.3.x