fazer um dbedit receber o resultado de um cálculo.

Delphi

21/08/2003

gostaria de saber com fazer para um dbedit assumir o resultado de um cálculo.

ex: preço de venda = preço de custo*(1+(margem de comercialização)),

sendo que estou usando datamodule, sql connection, sqldataset, datasetprovider, datasource e clientdataset(este está recebendo os campos das tabelas).os campos preco venda,preco custo e margem_comerc sao decimais. Como fazer esse código. e Aonde colocar o código?


Bruno_costa

Bruno_costa

Curtidas 0

Respostas

4_olho

4_olho

21/08/2003

var
  preco_venda, preco_custo e margem_comerc : real;

SeuDataSetpreco_venda:=SeuDataSetpreco_custo*(1+SeuDataSetmargem_comerc);
edit1.text:=FloatToStr(SeuDataSetpreco_venda);


não testei - pode dar erro de sintaxe em algum lugar ...


GOSTEI 0
POSTAR