convertion error
strsql:=´insert into capfor(codigo,numeracao,descricao,descrcalcu,sinonimo,sinonimo1,sinonimo2,sinonimo3´;
strsql:=strsql+´,controlado,valormc,valorui,valorutr,unidest,unidade,preco´;
strsql:=strsql+´,fator,preven,precoanterior,prevenanterior,conversao,barra,classific,nomeclassi,tipo,endereco,analise)values´;
strsql:=strsql+´(:cod,:num,:des,:desc,:sin,:sin1,:sin2,:sin3,:cont,:vmc,:vui,:vutr,:udest,:uni,:pre,:fat,:prev,:pant´;
strsql:=strsql+´,:pvant,:con,:bar,:cla,:nome,:tip,:end,:ana)´;
DataModulederma.ZQueryCapfor.SQL.Add(strsql);
DataModulederma.ZQueryCapfor.ParamByName(´cod´).AsInteger:=strtoint(edit1.Text);
DataModulederma.ZQueryCapfor.ParamByName(´num´).AsFloat:=strtofloat(txtnumero.Text);
DataModulederma.ZQueryCapfor.ParamByName(´des´).AsString:=txtdescricao.Text;
DataModulederma.ZQueryCapfor.ParamByName(´desc´).AsString:=txtdescricao.Text;
DataModulederma.ZQueryCapfor.ParamByName(´sin´).AsString:=txtsinonimo.Text;
DataModulederma.ZQueryCapfor.ParamByName(´sin1´).AsString:=txtsinonimo1.Text;
DataModulederma.ZQueryCapfor.ParamByName(´sin2´).AsString:=txtsinonimo2.Text;
DataModulederma.ZQueryCapfor.ParamByName(´sin3´).AsString:=txtsinonimo3.Text;
DataModulederma.ZQueryCapfor.ParamByName(´cont´).AsString:=txtcontrolado.Text;
DataModulederma.ZQueryCapfor.ParamByName(´vmc´).AsFloat:=0;
DataModulederma.ZQueryCapfor.ParamByName(´vui´).AsFloat:=0;
DataModulederma.ZQueryCapfor.ParamByName(´vutr´).AsFloat:=0;
DataModulederma.ZQueryCapfor.ParamByName(´udest´).AsString:=txtunidade.Text;
DataModulederma.ZQueryCapfor.ParamByName(´uni´).AsString:=txtunidade.Text;
DataModulederma.ZQueryCapfor.ParamByName(´pre´).AsFloat:=currencypcusto.Value;
DataModulederma.ZQueryCapfor.ParamByName(´fat´).AsFloat:=currencydolar.Value;
DataModulederma.ZQueryCapfor.ParamByName(´prev´).AsFloat:=currencypvenda.Value;
DataModulederma.ZQueryCapfor.ParamByName(´pant´).AsFloat:=0;
DataModulederma.ZQueryCapfor.ParamByName(´pvant´).AsFloat:=0;
DataModulederma.ZQueryCapfor.ParamByName(´con´).AsFloat:=strtofloat(txtconversao.Text);
DataModulederma.ZQueryCapfor.ParamByName(´bar´).AsFloat:=0;
DataModulederma.ZQueryCapfor.ParamByName(´cla´).AsString:=txtclassi.Text;
DataModulederma.ZQueryCapfor.ParamByName(´nome´).AsString:=txtdesclassi.Text;
DataModulederma.ZQueryCapfor.ParamByName(´tip´).AsString:=txttipo.Text;
DataModulederma.ZQueryCapfor.ParamByName(´end´).AsString:=txtendereco.Text;
DataModulederma.ZQueryCapfor.ParamByName(´ana´).AsFloat:=strtofloat(txtanalise.Text);
DataModulederma.ZQueryCapfor.ExecSQL;
estou fazendo assim não sei porque da esse erro.
convertion error.
:?:
strsql:=strsql+´,controlado,valormc,valorui,valorutr,unidest,unidade,preco´;
strsql:=strsql+´,fator,preven,precoanterior,prevenanterior,conversao,barra,classific,nomeclassi,tipo,endereco,analise)values´;
strsql:=strsql+´(:cod,:num,:des,:desc,:sin,:sin1,:sin2,:sin3,:cont,:vmc,:vui,:vutr,:udest,:uni,:pre,:fat,:prev,:pant´;
strsql:=strsql+´,:pvant,:con,:bar,:cla,:nome,:tip,:end,:ana)´;
DataModulederma.ZQueryCapfor.SQL.Add(strsql);
DataModulederma.ZQueryCapfor.ParamByName(´cod´).AsInteger:=strtoint(edit1.Text);
DataModulederma.ZQueryCapfor.ParamByName(´num´).AsFloat:=strtofloat(txtnumero.Text);
DataModulederma.ZQueryCapfor.ParamByName(´des´).AsString:=txtdescricao.Text;
DataModulederma.ZQueryCapfor.ParamByName(´desc´).AsString:=txtdescricao.Text;
DataModulederma.ZQueryCapfor.ParamByName(´sin´).AsString:=txtsinonimo.Text;
DataModulederma.ZQueryCapfor.ParamByName(´sin1´).AsString:=txtsinonimo1.Text;
DataModulederma.ZQueryCapfor.ParamByName(´sin2´).AsString:=txtsinonimo2.Text;
DataModulederma.ZQueryCapfor.ParamByName(´sin3´).AsString:=txtsinonimo3.Text;
DataModulederma.ZQueryCapfor.ParamByName(´cont´).AsString:=txtcontrolado.Text;
DataModulederma.ZQueryCapfor.ParamByName(´vmc´).AsFloat:=0;
DataModulederma.ZQueryCapfor.ParamByName(´vui´).AsFloat:=0;
DataModulederma.ZQueryCapfor.ParamByName(´vutr´).AsFloat:=0;
DataModulederma.ZQueryCapfor.ParamByName(´udest´).AsString:=txtunidade.Text;
DataModulederma.ZQueryCapfor.ParamByName(´uni´).AsString:=txtunidade.Text;
DataModulederma.ZQueryCapfor.ParamByName(´pre´).AsFloat:=currencypcusto.Value;
DataModulederma.ZQueryCapfor.ParamByName(´fat´).AsFloat:=currencydolar.Value;
DataModulederma.ZQueryCapfor.ParamByName(´prev´).AsFloat:=currencypvenda.Value;
DataModulederma.ZQueryCapfor.ParamByName(´pant´).AsFloat:=0;
DataModulederma.ZQueryCapfor.ParamByName(´pvant´).AsFloat:=0;
DataModulederma.ZQueryCapfor.ParamByName(´con´).AsFloat:=strtofloat(txtconversao.Text);
DataModulederma.ZQueryCapfor.ParamByName(´bar´).AsFloat:=0;
DataModulederma.ZQueryCapfor.ParamByName(´cla´).AsString:=txtclassi.Text;
DataModulederma.ZQueryCapfor.ParamByName(´nome´).AsString:=txtdesclassi.Text;
DataModulederma.ZQueryCapfor.ParamByName(´tip´).AsString:=txttipo.Text;
DataModulederma.ZQueryCapfor.ParamByName(´end´).AsString:=txtendereco.Text;
DataModulederma.ZQueryCapfor.ParamByName(´ana´).AsFloat:=strtofloat(txtanalise.Text);
DataModulederma.ZQueryCapfor.ExecSQL;
estou fazendo assim não sei porque da esse erro.
convertion error.
:?:
Rjcerri
Curtidas 0
Respostas
Afarias
18/10/2004
Em que momento ocorre o erro? Vc já parou para depurar o programa?
T+
T+
GOSTEI 0
Rjcerri
18/10/2004
Ja achei o problema estava colocando o tipo do campo errado.
GOSTEI 0