Histórico da Página

import.css=/download/attachments/3279126062824/newLayouttecnologia.css

...

...

Retorna

...

um

...

array

...

com

...

o

...

nome

...

dos

...

fontes

...

compilados.

Sintaxe

GetSrcArray( <

 cNome > )

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

Retorno

...

Observações

• Função disponível a partir da build 7.00.080806P.

Exemplos

User Function 

exemplo()
  Local aFontes := {}
  Local nI , nTaFontes := 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

Abrangência

Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server