ATUALIZAÇÃO DE CAMPO COM O CHECKBOX
Estou com a seguinte duvida:
Preciso atualizar o ICMS atraves da opção checkbox mas esta aparecendo erro ´ is a not floting point a value ´
como devo proceder:
Banco de Dados Paradox - Campo VALOR - Currency.
procedure TFrmCadEst.CheckBox1Click(Sender: TObject);
var
ValorICM: Real;
begin
if Checkbox1.Checked then
Begin
ValorIcm := DmDados.TbTrib.FieldByName(´VALOR´).AsFloat;
ValorICM := ((ValorICM*StrToFloat(DBEdit15.Text))/100+StrToFloat(DBEdit15.Text));
Edit1.Text := Format(´¬F´,[ValorICM]);
end;
end;
Preciso atualizar o ICMS atraves da opção checkbox mas esta aparecendo erro ´ is a not floting point a value ´
como devo proceder:
Banco de Dados Paradox - Campo VALOR - Currency.
procedure TFrmCadEst.CheckBox1Click(Sender: TObject);
var
ValorICM: Real;
begin
if Checkbox1.Checked then
Begin
ValorIcm := DmDados.TbTrib.FieldByName(´VALOR´).AsFloat;
ValorICM := ((ValorICM*StrToFloat(DBEdit15.Text))/100+StrToFloat(DBEdit15.Text));
Edit1.Text := Format(´¬F´,[ValorICM]);
end;
end;
Andsantos
Curtidas 0
Respostas
Woinch
22/06/2009
Favor verificar se tem algo informado no campo DBEdit15.Text
GOSTEI 0
Andsantos
22/06/2009
ENTAO O CAMPO DBEDIT15.TEXT É O CAMPO CUSTO ONDE VOU DIGITAR O VALOR INICIAL DEPOIS ATUALIZA-LO PELO CHECKBOX
GOSTEI 0
Emerson Nascimento
22/06/2009
o campo ligado ao DBEdit15 é um campo numérico? se for, faça:
procedure TFrmCadEst.CheckBox1Click(Sender: TObject);
var
ValorICM: Real;
begin
if Checkbox1.Checked then
Begin
ValorIcm := DmDados.TbTrib.FieldByName(´VALOR´).AsFloat;
ValorICM := ((ValorICM * DBEdit15.Field.AsFloat)) / 100 + DBEdit15.Field.AsFloat);
Edit1.Text := Format(´¬F´,[ValorICM]);
end;
end;GOSTEI 0
Andsantos
22/06/2009
NAO E UM CAMPO $ .(CURRENCY). ESSE CAMPO CUSTO É O INICIAL DEPOIS ATRAVES DO CHECKBOX IREI ATUALIZA-LO E COLOCADO UM NOVO VALOR ATRAVES DO CAMPO EDIT1.TEXT .TENTEI FAZER MAS DEU ESSA MENSAGEM DE ERRO.
GOSTEI 0
Andsantos
22/06/2009
NAO E UM CAMPO $ .(CURRENCY). ESSE CAMPO CUSTO É O INICIAL DEPOIS ATRAVES DO CHECKBOX IREI ATUALIZA-LO E COLOCADO UM NOVO VALOR ATRAVES DO CAMPO EDIT1.TEXT .TENTEI FAZER MAS DEU ESSA MENSAGEM DE ERRO.
GOSTEI 0
Jair Bg
22/06/2009
Verifique se na conversão o valor que está aparecendo no campo ´DBEdit15.Text´ está com ponto decimal ou virgula.
se estiver faça a conversao de substituir ´,´ por ´.´;
se estiver faça a conversao de substituir ´,´ por ´.´;
GOSTEI 0
Andsantos
22/06/2009
VOU TENTAR .VALEU AI PELAS DICAS
GOSTEI 0
Emerson Nascimento
22/06/2009
NAO E UM CAMPO $ .(CURRENCY). ESSE CAMPO CUSTO É O INICIAL DEPOIS ATRAVES DO CHECKBOX IREI ATUALIZA-LO E COLOCADO UM NOVO VALOR ATRAVES DO CAMPO EDIT1.TEXT .TENTEI FAZER MAS DEU ESSA MENSAGEM DE ERRO.
Se o campo é currency, então é um campo numérico.
Campos numéricos: Currency, Float, Integer, BCD, Numeric, etc.
O exemplo que eu passei deve funcionar.
Note que no exemplo passado está sendo usado [b:227762f6d3]DBEdit15.Field.AsFloat[/b:227762f6d3].
GOSTEI 0
Andsantos
22/06/2009
VALEU EMERSON PELA DICA.CONSEGUI RESOLVER!
GOSTEI 0