Preço de Venda através da margem

Delphi

07/02/2014

Galera eu tenho um campo chamado margem onde existe um percentual digital, e tenho o preço de custo do produto, como faço para calcular o preço de venda no delphi, eu tenho esses dois valores a margem e o custo.

tentei assim:
CdsProdutos.FieldByName('PROD_VALOR_VENDA').AsFloat :=
   ((CdsProdutos.FieldByName('PROD_VALOR_COMPRA').AsFloat + CdsProdutos.FieldByName('PROD_MARGEM_LUCRO').AsFloat)/100)+
   CdsProdutos.FieldByName('PROD_VALOR_COMPRA').AsFloat;

mas não deu certo
Sidney Abreu

Sidney Abreu

Curtidas 0

Respostas

Leandro Chiodini

Leandro Chiodini

07/02/2014

Bom dia


CdsProdutos.FieldByName('PROD_VALOR_VENDA').AsFloat :=
	(CdsProdutos.FieldByName('PROD_VALOR_COMPRA').AsFloat + ((CdsProdutos.FieldByName('PROD_MARGEM_LUCRO').AsFloat/100)*CdsProdutos.FieldByName('PROD_VALOR_COMPRA').AsFloat))
GOSTEI 0
Marco Salles

Marco Salles

07/02/2014

Acho que poderia simplificar utilizando a Propriedade distribuitiva da Multiplicação

with CdsProdutos.do
FieldByName('PROD_VALOR_VENDA').AsFloat :=
                    FieldByName('PROD_VALOR_COMPRA').AsFloat*(1+FieldByName('PROD_MARGEM_LUCRO').AsFloat/100);


[]sds
GOSTEI 0
Sidney Abreu

Sidney Abreu

07/02/2014

Obrigado amigos, deu certo! abraço
GOSTEI 0
POSTAR