Erro de Invalid Parameter usando a TStoredProc no delphi 7
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
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
Curtidas 0
Respostas
Bruno Rosa
11/07/2011
Vc ja configurou no componente os parametros com Input na propriedade params??
GOSTEI 0
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