Erro de Invalid Parameter usando a TStoredProc no delphi 7

Delphi

11/07/2011

Pessoal,   Converti um sistema feito em delphi 3 para Delphi 7 e está dando um erro na execução de várias procedures utilizadas normalmente no D3.   Ao executar ocorre o erro de invalid parameter.. e só.   Abaixo segue como estão a procedure no banco e a execução da mesma no sistema..
 NO BANCO :  ALTER procedure [dbo].[SPFretando]   @NumCGCRemetente        float,   @NumCGCDestinatario     float,   @NumCGCPagador          float,   @IntNaoContribuinte     smallint,     @BooSubTrib_REMETENTEFP bit      OUTPUTas   declare @Calculado      int   declare @TotalFrPeso    bit   declare @TotalFrValor   bit   declare @BooSubADEME    bitbegin   /* inicializa as taxas com zeros */   select @NumFrPeso   = 0   select @NumFrValor  = 0   select @NumAdeme    = 0   select @NumPedagio  = 0   select @NumSeguro   = 0   select @NumAliquota = 0   /* frete */   execute @Calculado = SPFreteNormal       @NumCGCRemetente,       @NumCGCDestinatario,       @LngCidOrigem, @LngOrigem, @IntAreaOrigem,

   /* verifica erro no calculo do frete peso */   if (@Calculado = 1)      return (1)
... continua
NO SISTEMA         SPFretando.ParamByName('@NumCGCRemetente').AsFloat      := Frete.NumCGC;      SPFretando.ParamByName('@NumCGCDestinatario').AsFloat    := Frete.NumCGC;      SPFretando.ParamByName('@NumCGCPagador').AsFloat          := Frete.NumCGC;      SPFretando.ParamByName('@IntNaoContribuinte').AsInteger   := TRUE;      SPFretando.ExecProc;
Após o EXECPROC ocorre o erro acima citado.Procurei remover o arroba no Parambyname e no componente e nda.
Se alguém puder ajudar agradeço
Marco



   
Marco Aurelio

Marco Aurelio

Curtidas 0

Respostas

Bruno Rosa

Bruno Rosa

11/07/2011

Vc ja configurou no componente os parametros com Input na propriedade params??
GOSTEI 0
Marco Aurelio

Marco Aurelio

11/07/2011

Sim... Todos configurados conforme imagem abaixo.De acordo com o primeiro parametro todos os demais seguem o mesmo padrão.
 
GOSTEI 0
POSTAR