TOTVSTEC

Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 5 Atual »

Verifica se uma determinada função está disponível no repositório ou no binário do Application Server. 

Sintaxe

Find4GLFunction(Param1,Param2)
 

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

Param1

Caracter

Nome da função a ser procurada.

X

 

Param2NuméricoVariável para retorno por referência com a quantidade de parâmetros da função.    

 

Retorno

Nome

Tipo

Descrição

var

Lógico

Retorna verdadeiro (true), se a função está disponível no repositório ou no binário; caso contrario, falso(false).

Observações

  • Função disponível a partir da build 7.00.101202A.
  • Para funções declaradas como Private, somente será retornado TRUE caso a função esteja declarada no mesmo arquivo. Caso contrário, sempre será retornado Falso. O recurso de Private Functions está disponível a partir da build 7.00.131227A.
  • Se o segundo parâmetro for informado e a função não for encontrada, o valor retornado por referência será igual a zero.

Exemplos

Exemplo 1
 MAIN
  DEFINE bOK SMALLINT

 
 LET bOK = Find4GLFunction("SetOracleStmtCache")
 
 IF bOK = TRUE THEN
  CALL CONOUT("Funcao encontrada")
 ELSE
  CALL CONOUT("Funcao nao encontrada")
 END IF
 END MAIN
Exemplo 2
 MAIN
   define total integer
   IF Find4GLFunction("SetOracleStmtCache",total) THEN
     CALL CONOUT("Total de parametros: "||total)
   END IF
 END MAIN

 

 

 

 

  • Sem rótulos