Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Executa uma stored procedure do banco de dados.

Sintaxe

aResult := tcSPExec(<cStoredProcedure>[, <xParam>])

...

RetornoTipoDescrição
aResultArrayRetorna um array que contêm os valores de retorno da stored procedure. O retorno será nulo se nenhum valor for retornado pela stored procedure ou ocorrer algum erro na chamda da procedure.

Exemplo

Exemplo de Stored Procedure

Exemplo de stored procedure para o banco SQL Server

Bloco de código
languagesql
Create Procedure USRTESTE( @IN_VALUE int, @OUT_STR char(64) OUT, @OUT_VALUE int OUT) As
Begin
set @OUT_STR = 'Teste'
set @OUT_VALUE = @IN_VALUE + 3
End 

 

Exemplo de chamada AdvPL

Bloco de código
linenumberstrue
#include "totvs.ch"
User Function exemplo()
Local aResult := {}
  aResult := TCSPEXEC("USRTESTE", 100)
  IF empty(aResult)
    Conout('Erro na execução da Stored Procedure : '+TcSqlError())
  Else
    Conout("Retorno String : "+aResult[1])
    Conout("Retorno Numerico : "+str(aResult[2]))
    MsgInfo("Procedure Executada")
  Endif
Return