Fórum Quantidade * preço... como faço? #152232
05/04/2003
0
Por favor alguém pode me ajudar? Como multiplico a quantidade de
produtos pelo seu valor unitário?
No evento onExit do meu Edit17.Text coloquei isto:
procedure TFormPedidos.Edit17Exit(Sender: TObject);
begin
Edit18.Text:= Edit17.Text * Edit16.Text;
Edit49.Text:= Edit18.Text;
Aparece a seguinte mensagem:
[Error] Unit1.pas(269): Operator not applicable to this operand type
Vejam:
Edit16.text é a quantidade de produtos, Nome quant1, type integer
da minha tabela ;
Edit17.text é o preço unitário, nome precoun1, Type $(money) da
minha tabela;
Edit18.text é o Sub-Total, nome SubT1, Type $(money) da minha tabela;
Edit49.text é o Total Geral, Nome TotalGeral, Type $(money) da
minha tabela;
Eu sei que esses cálculos estão todos errados. Serve só para dar uma
idéia de como devem ser feitos. Se alguém puder me ajudar agradeço
muito! :idea:
produtos pelo seu valor unitário?
No evento onExit do meu Edit17.Text coloquei isto:
procedure TFormPedidos.Edit17Exit(Sender: TObject);
begin
Edit18.Text:= Edit17.Text * Edit16.Text;
Edit49.Text:= Edit18.Text;
Aparece a seguinte mensagem:
[Error] Unit1.pas(269): Operator not applicable to this operand type
Vejam:
Edit16.text é a quantidade de produtos, Nome quant1, type integer
da minha tabela ;
Edit17.text é o preço unitário, nome precoun1, Type $(money) da
minha tabela;
Edit18.text é o Sub-Total, nome SubT1, Type $(money) da minha tabela;
Edit49.text é o Total Geral, Nome TotalGeral, Type $(money) da
minha tabela;
Eu sei que esses cálculos estão todos errados. Serve só para dar uma
idéia de como devem ser feitos. Se alguém puder me ajudar agradeço
muito! :idea:
Ginosam
Curtir tópico
+ 0
Responder
Posts
05/04/2003
Feliperodrigues
Edit18.Text:= Edit17.Text * Edit16.Text;
voce ta pegando a propriedade TEXT e ela é to tipo string.. intaum vc tem q usar as funcoes de conversão de tipo para isso!
StrToInt ou StrToFloat
ex.:
Edit18.Text:=inttostr(strtoint(edit17.text)*strtoint(edit16.text));
voce ta pegando a propriedade TEXT e ela é to tipo string.. intaum vc tem q usar as funcoes de conversão de tipo para isso!
StrToInt ou StrToFloat
ex.:
Edit18.Text:=inttostr(strtoint(edit17.text)*strtoint(edit16.text));
Responder
Gostei + 0
05/04/2003
Anonymous
Por favor alguém pode me ajudar? Como multiplico a quantidade de
produtos pelo seu valor unitário?
No evento onExit do meu Edit17.Text coloquei isto:
procedure TFormPedidos.Edit17Exit(Sender: TObject);
begin
Edit18.Text:= Edit17.Text * Edit16.Text;
Edit49.Text:= Edit18.Text;
Aparece a seguinte mensagem:
[Error] Unit1.pas(269): Operator not applicable to this operand type
Vejam:
Edit16.text é a quantidade de produtos, Nome quant1, type integer
da minha tabela ;
Edit17.text é o preço unitário, nome precoun1, Type $(money) da
minha tabela;
Edit18.text é o Sub-Total, nome SubT1, Type $(money) da minha tabela;
Edit49.text é o Total Geral, Nome TotalGeral, Type $(money) da
minha tabela;
Eu sei que esses cálculos estão todos errados. Serve só para dar uma
idéia de como devem ser feitos. Se alguém puder me ajudar agradeço
muito! :idea:
Caro colega!!!
vc esta usando edit ou Dbedit ?? se Edit vc deve fazer a conversão para um tipo numerico....agora se tiver usando dbedit já ligado no datasource e datafield o cálculo pode ser feito direto ...
ex: no evento onexit
tablesubtotal.value := tablequant.value * tablevalor.value;
espero que compreende....
Responder
Gostei + 0
07/04/2003
Ginosam
Estou usando DBEdit, valeu Visitante, compreendi e funcionou!
Obrigado e T+
Quanto ao exemplo do colega feliperodrigues, não testei, mas acho
que também deve funcionar. Valeu, mano, obrigado pra você também!
Obrigado e T+
Quanto ao exemplo do colega feliperodrigues, não testei, mas acho
que também deve funcionar. Valeu, mano, obrigado pra você também!
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)