Dificuldade para Encontrar erro do Delphi
Bom dia a todos, estou tendo uma grande dificuldade para
encontrar a causa de erro que esta dando quando mando salvar as
informações de uma tela, o erro é: Conversion erro for String, este erro
ocorre no seguinte código:
with spIUCompra do
begin
Params[0].AsInteger := cdsCompraID_COMPRA.AsInteger;
Params[1].AsString := cdsCompraNF_COMPRA.AsString;
Params[2].AsInteger := cdsCompraID_FORNECEDOR.AsInteger;
Params[3].AsBCD := cdsCompraVL_TOTALCOMPRA.AsCurrency;
Params[4].AsInteger := cdsCompraID_SOLICITACAOCOMPRA.AsInteger;
Params[5].AsInteger := cdsCompraID_FUNCIONARIO.AsInteger;
Params[6].AsInteger := cdsCompraCFOP.AsInteger;
Params[7].AsDateTime := cdsCompraDT_COMPRA.AsDateTime;
ExecProc; O erro está ocorrendo nesta linha.
Comit;
idCompra := Params[9].AsInteger;
end;
with spIUCompra do
begin
Params[0].AsInteger := cdsCompraID_COMPRA.AsInteger;
Params[1].AsString := cdsCompraNF_COMPRA.AsString;
Params[2].AsInteger := cdsCompraID_FORNECEDOR.AsInteger;
Params[3].AsBCD := cdsCompraVL_TOTALCOMPRA.AsCurrency;
Params[4].AsInteger := cdsCompraID_SOLICITACAOCOMPRA.AsInteger;
Params[5].AsInteger := cdsCompraID_FUNCIONARIO.AsInteger;
Params[6].AsInteger := cdsCompraCFOP.AsInteger;
Params[7].AsDateTime := cdsCompraDT_COMPRA.AsDateTime;
ExecProc; O erro está ocorrendo nesta linha.
Comit;
idCompra := Params[9].AsInteger;
end;
George Medeiros
Curtidas 0
Respostas
Carlos Mazzi
13/05/2010
Tente ver se nao é a linha de cima, a do DateTime, que no banco pode estar indo com formatacao incorreta..
GOSTEI 0
Marco Salles
13/05/2010
Bom dia a todos, estou tendo uma grande dificuldade para encontrar a causa de erro que esta dando quando mando salvar as informações de uma tela, o erro é: Conversion erro for String, este erro ocorre no seguinte código:
with spIUCompra do
begin
Params[0].AsInteger := cdsCompraID_COMPRA.AsInteger;
Params[1].AsString := cdsCompraNF_COMPRA.AsString;
Params[2].AsInteger := cdsCompraID_FORNECEDOR.AsInteger;
Params[3].AsBCD := cdsCompraVL_TOTALCOMPRA.AsCurrency;
Params[4].AsInteger := cdsCompraID_SOLICITACAOCOMPRA.AsInteger;
Params[5].AsInteger := cdsCompraID_FUNCIONARIO.AsInteger;
Params[6].AsInteger := cdsCompraCFOP.AsInteger;
Params[7].AsDateTime := cdsCompraDT_COMPRA.AsDateTime;
ExecProc; O erro está ocorrendo nesta linha.
Comit;
idCompra := Params[9].AsInteger;
end;
Bem pode ser muitas coisas
Eu faria o seguinte , não custa tentar , eu alteraria a definição do parametro Params[3].AsBCD para ftCurrency
bem , o problema que so isso talves não resolva , ainda mais se esses parametros foram passados ao
clientDataSet... Talves tenha que remover e adicionar novament este parametro e depois dar um
fatchParams ( no caso de ClientDataSet )
boa sorte..
with spIUCompra do
begin
Params[0].AsInteger := cdsCompraID_COMPRA.AsInteger;
Params[1].AsString := cdsCompraNF_COMPRA.AsString;
Params[2].AsInteger := cdsCompraID_FORNECEDOR.AsInteger;
Params[3].AsBCD := cdsCompraVL_TOTALCOMPRA.AsCurrency;
Params[4].AsInteger := cdsCompraID_SOLICITACAOCOMPRA.AsInteger;
Params[5].AsInteger := cdsCompraID_FUNCIONARIO.AsInteger;
Params[6].AsInteger := cdsCompraCFOP.AsInteger;
Params[7].AsDateTime := cdsCompraDT_COMPRA.AsDateTime;
ExecProc; O erro está ocorrendo nesta linha.
Comit;
idCompra := Params[9].AsInteger;
end;
GOSTEI 0
Carlos Mazzi
13/05/2010
Resolveu companheiro?
GOSTEI 0
Marcos Moura
13/05/2010
Obrigado resolvi já o problema.
GOSTEI 0
George Medeiros
13/05/2010
Obrigado a todos consegui resolver.
GOSTEI 0