TOTVSTEC

Árvore de páginas

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