Fórum ATUALIZAÇÃO DE CAMPO COM O CHECKBOX #371483
22/06/2009
0
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
Curtir tópico
+ 0Posts
22/06/2009
Woinch
Gostei + 0
22/06/2009
Andsantos
Gostei + 0
22/06/2009
Emerson Nascimento
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
22/06/2009
Andsantos
Gostei + 0
22/06/2009
Andsantos
Gostei + 0
22/06/2009
Jair Bg
se estiver faça a conversao de substituir ´,´ por ´.´;
Gostei + 0
22/06/2009
Andsantos
Gostei + 0
22/06/2009
Emerson Nascimento
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
24/06/2009
Andsantos
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)