Stored Procedure(SQLServer) Continuo com problemas

[Gilnet 0]

Olá,

 

Tenho essa stored procedure no SQLServer:

 

CREATE procedure pCliente

@Operacao int,

@Nome varchar(40),

@idCliente int OUTPUT

as

begin tran

if(@Operacao = 1)

begin

insert into tbCliente(Nome)

values(@Nome)

set @idCliente = @@identity

end

return

commit transaction

 

e no delphi tenho o código abaixo:

 

pICliente.ProcedureName := 'pCliente;1';

pICliente.Parameters.CreateParameter('Operacao', ftInteger, pdInput, 4, 1);

pICliente.Parameters.CreateParameter('Nome', ftString, pdInput, 30, edNome.Text);

 

pICliente.Parameters.CreateParameter('idCliente', ftInteger, pdReturnValue, 4, I); -- Quando comento essa linha, dá o seguinte erro: O parâmetro @idCliente não foi encontardo se não comento, O objeto parameter está definido incorretamente ou as informações são inconsistente.

 

pICliente.Prepared := True;

pICliente.ExecProc;

I := pICliente.Parameters.ParamByName('idCliente').Value;

webapplication.ShowMessage(inttostr(i));

 

Alguma dica ?????

[marcio.theis 3]

Veja se lhe ajuda:

 

http://forum.imasters.com.br/index.php?showtopic=222356