Estou com dúvidas em relação a alguns cálculo de um form,no caso tenho que calcular o IPI ,desconto,quantidade e inserir o valor,obtive um bom resultado em todos,mas não sei como fazer quando deleto um numero por exemplo do IPI,me gera um erro isso ocorre no desconto também,no caso o erro é porque ficou sem numero no dbedit,como posso fazer para que esses valores possam ser alterados,e na quantidade por exemplo
se eu altero de 2 para 4 vamos dizer,esta somando os dois que tinham mais 4 e não zerando e contado só os quatro,abaixo vai meus códigos:
Pergunta
Felipe da Silva COsta
Estou com dúvidas em relação a alguns cálculo de um form,no caso tenho que calcular o IPI ,desconto,quantidade e inserir o valor,obtive um bom resultado em todos,mas não sei como fazer quando deleto um numero por exemplo do IPI,me gera um erro isso ocorre no desconto também,no caso o erro é porque ficou sem numero no dbedit,como posso fazer para que esses valores possam ser alterados,e na quantidade por exemplo
se eu altero de 2 para 4 vamos dizer,esta somando os dois que tinham mais 4 e não zerando e contado só os quatro,abaixo vai meus códigos:
IPI
var Desconto : real ;
var Total : Real ;
begin
Desconto := StrToFloat(dbedit6.Text);
total := StrToFloat(dbedit4.Text);
Total := (Desconto * Total) / 100;
Total := StrToFloat(dbedit4.Text) + Total;
DBText8.Caption := FloatToStr(Total);
end;
DESCONTO
var Desconto : real ;
var Total : Real ;
begin
Desconto := StrToFloat(dbedit7.Text);
total := StrToFloat(dbtext8.caption);
Total := (Desconto * Total) / 100;
Total := StrToFloat(dbtext8.caption)- Total;
dbtext8.caption:=FloatToStr(Total);
end;
Quantidade
var
o: real;
o1: real;
begin
o :=strtofloat (DBEdit5.text);
o1 :=strtofloat (DBtext8.caption);
DBText8.Caption:= (floatToStr (o * o1));
end;
end.
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.