Selecao DevMedia QUERO SER PRIME

Fórum ATUALIZAÇÃO DE CAMPO COM O CHECKBOX #371483

22/06/2009

0

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;


Andsantos

Andsantos

Responder

Posts

22/06/2009

Woinch

Favor verificar se tem algo informado no campo DBEdit15.Text


Responder

Gostei + 0

22/06/2009

Andsantos

ENTAO O CAMPO DBEDIT15.TEXT É O CAMPO CUSTO ONDE VOU DIGITAR O VALOR INICIAL DEPOIS ATUALIZA-LO PELO CHECKBOX


Responder

Gostei + 0

22/06/2009

Emerson Nascimento

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;



Responder

Gostei + 0

22/06/2009

Andsantos

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.


Responder

Gostei + 0

22/06/2009

Andsantos

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.


Responder

Gostei + 0

22/06/2009

Jair Bg

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 ´.´;


Responder

Gostei + 0

22/06/2009

Andsantos

VOU TENTAR .VALEU AI PELAS DICAS


Responder

Gostei + 0

22/06/2009

Emerson Nascimento

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].


Responder

Gostei + 0

24/06/2009

Andsantos

VALEU EMERSON PELA DICA.CONSEGUI RESOLVER!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar