procedures

[dreamsoft_PR]

ola, fiz uma procedures no base funciona mas quando coloco no delphi SQLStoredProc1 nao funciona porque sera

esse é na base:

SET TERM ^ ;

CREATE OR ALTER PROCEDURE ATUALIZA_INF_COMPLEMENTAR (
    codigo integer,
    inf_complementar varchar(500),
    frete char(1),
    tran_cpf_cnpj varchar(50),
    tran_razao_nome varchar(100),
    tran_endereco varchar(100),
    tran_municipio varchar(50),
    tran_uf varchar(2),
    vei_placa varchar(50),
    vei_rntc varchar(50),
    vei_uf char(2),
    reb_tipo_veiculo varchar(50),
    reb_placa varchar(50),
    reb_rntc varchar(50),
    reb_uf char(2),
    reb_identi_vagao_balsa varchar(500),
    vol_qtd varchar(50),
    vol_marca varchar(50),
    vol_numeracao varchar(50),
    vol_peso_liq double precision,
    vol_peso_bruto double precision,
    vol_lacres varchar(50),
    vol_especie varchar(50),
    vfrete double precision)
as
begin
    update tab_vend set
    INF_COMPLEMENTAR=:INF_COMPLEMENTAR,
    FRETE_S=:FRETE,
    TRAN_CPF_CNPJ=:TRAN_CPF_CNPJ,
    TRAN_RAZAO_NOME=:TRAN_RAZAO_NOME,
    TRAN_ENDERECO=:TRAN_ENDERECO,
    TRAN_MUNICIPIO=:TRAN_MUNICIPIO
    ,TRAN_UF=:TRAN_UF,
      VEI_PLACA=:VEI_PLACA,
      VEI_RNTC=:VEI_RNTC,
      VEI_UF=:VEI_UF,
      REB_TIPO_VEICULO=:REB_TIPO_VEICULO,
       REB_PLACA=:REB_PLACA,
        REB_RNTC=:REB_RNTC,
        REB_UF=:REB_UF,
   REB_IDENTI_VAGAO_BALSA=:REB_IDENTI_VAGAO_BALSA,
   VOL_QTD=:VOL_QTD,
       VOL_MARCA=:VOL_MARCA,
      VOL_NUMERACAO=:VOL_NUMERACAO,
        VOL_PESO_LIQ=:VOL_PESO_LIQ ,
     VOL_PESO_BRUTO=:VOL_PESO_BRUTO,
     VOL_LACRES=:VOL_LACRES,
     VOL_ESPECIE=:VOL_ESPECIE
     ,VFRETE=:VFRETE
    where CODVEND = :CODIGO;
  suspend;
end^

SET TERM ; ^

/* Following GRANT statements are generated automatically */

GRANT SELECT,UPDATE ON TAB_VEND TO PROCEDURE ATUALIZA_INF_COMPLEMENTAR;

/* Existing privileges on this procedure */

GRANT EXECUTE ON PROCEDURE ATUALIZA_INF_COMPLEMENTAR TO SYSDBA;


ESSE É NO DELPHI:

    with SP_Inf_Complementar1 do
    begin
      Params[0].AsInteger:=cdsNfeCODCLIE.AsInteger;
      Params[1].AsString :=CdsNfeINF_COMPLEMENTAR.AsString;
      Params[2].AsString:=frete;
      Params[3].AsString:=CdsNfeTRAN_CPF_CNPJ.AsString;
      Params[4].AsString:=CdsNfeTRAN_RAZAO_NOME.AsString;
      Params[5].AsString:=CdsNfeTRAN_ENDERECO.AsString;
      Params[6].AsString:=CdsNfeTRAN_MUNICIPIO.AsString;
      Params[7].AsString:=CdsNfeTRAN_UF.AsString;
      Params[8].AsString:=CdsNfeVEI_PLACA.AsString;
      Params[9].AsString:=CdsNfeVEI_RNTC.AsString;
      Params[10].AsString:=CdsNfeVEI_UF.AsString;
      Params[11].AsString:=CdsNfeREB_TIPO_VEICULO.AsString;
      Params[12].AsString:=CdsNfeREB_PLACA.AsString;
      Params[13].AsString:=CdsNfeREB_RNTC.AsString;
      Params[14].AsString:=CdsNfeREB_UF.AsString;
      Params[15].AsString:='...';//CdsNfeREB_IDENTI_VAGAO_BALSA.AsString;
      Params[16].AsString:=CdsNfeVOL_QTD.AsString;
      Params[17].AsString:=CdsNfeVOL_MARCA.AsString;
      Params[18].AsString:=CdsNfeVOL_NUMERACAO.AsString;
      Params[19].AsFloat :=CdsNfeVOL_PESO_LIQ.AsFloat;
      Params[20].AsFloat :=CdsNfeVOL_PESO_BRUTO.AsFloat;
      Params[21].AsString:=CdsNfeVOL_LACRES.AsString;
      Params[22].AsString:=CdsNfeVOL_ESPECIE.AsString;
      Params[23].AsFloat :=cdsNfeVFRETE.AsFloat;
      ExecProc;
    end;

 

 

 

 

[Solivan]

boa noite, eu utilizo dessa forma com o meu banco de dados que é SQL Server, pela instrução acima vi que você utiliza outro banco, então vou postar um pedaço do meu código 

  with FStoredProc do
    begin
      try
        Active := False ;
        Connection := AFonteDadosUni ;
        StoredProcName := 'NomeDaProcedure;1' ;
        Prepare;
        Params[1].Value := valor1;
        Params[2].Value := valor2;
        ExecProc ;

      except On
      E : Exception do
        begin
          Result := False ;
          FUtil.MessageError('Salvar', 'Ocorreram os seguintes erros: '+E.Message);
        end ;
      end;

verifique sua síntese, pode está faltando algum comando.