Cabeçalho

TCSPExist [AS]

Autor: Eurai Criado: 01/01/2016 Atualizado: 25/04/2025 Acesso a Dados

Postagem

Descrição

TCSPExist [AS] - Verifica a existência de uma stored procedure no banco de dados atual..

Sintaxe

TCSPExist( <cProc> )

Parâmetros

Par	Nome	Tipo	Descrição	Default	Obg	Ref
01	cProc	Caracter	Indica o nome da stored procedure		X

Retorno

Retorno	Tipo	Descrição
lRet	Boolean	Retorna verdadeiro (.T.), se a stored procedure existe; caso contrário, falso (.F.)

Exemplo

#INCLUDE "TOTVS.CH"

User Function TCSPExist()
Local cProc		:= 'PROCEDURE'
Local aResult 	:= {}

If TCSPExist( cProc )

	aResult := TCSPEXEC( cProc, 'PARAM1', 'PARAM2' )
	
	If Empty( aResult )
		Conout('Erro na execução da Stored Procedure : ' + TcSqlError() )
	Else
		VarInfo( 'aResult', aResult )
	Endif
	
Endif

Return( Nil )

Resultado
tcspexist_-_resultado_01