PAGUE 6 MESES
LEVE 12 MESES
GARANTIR DESCONTO

Fórum Calculo preço revenda não confere #287793

12/07/2005

0

Olá amigos

tenho um tabela no postgrsql 8.0.3 windows que preciso calcular o preço de revenda como segue abaixo:

// calculo do preço de revenda
precorevenda := QryEstoqueprecocusto.Value + ((QryEstoqueprecocusto.Value * QryEstoqueipi.Value) /100 );
precorevenda := precorevenda + ((QryEstoqueprecocusto.Value * QryEstoquefrete.Value) / 100 );
precorevenda := precorevenda + ((QryEstoqueprecocusto.Value * QryEstoqueiss.Value) / 100 );
precorevenda := precorevenda + ((QryEstoqueprecocusto.Value * QryEstoquedificms.Value) / 100 );
precorevenda := precorevenda + ((QryEstoqueprecocusto.Value * QryEstoquemargrevenda.Value) / 100 );
QryEstoqueprecorevenda.Value := precorevenda;

Ex:
precocusto R$ 10,00
ipi = 1¬
frete = 2¬
iss=5¬
comissão=5¬
margem revenda=30¬
margem venda=40¬

na calculadora do windows o valor é R$ 14,7653415
e no delphi 7 é 14,30

qual é o problema? ou a diferença?

Silvio Guedes


Silviogs

Silviogs

Responder

Posts

12/07/2005

Silviogs

Olá amigos

um amigo ajudou nos calculos, vai aí o codigo correto:

// calculo do preço de revenda
precorevenda := QryEstoqueprecocusto.Value * ( 1 + (QryEstoqueipi.Value / 100));
precorevenda := precorevenda * ( 1 + (QryEstoquefrete.Value / 100 ));
precorevenda := precorevenda * ( 1 + (QryEstoqueiss.Value / 100 ));
precorevenda := precorevenda * ( 1 + (QryEstoquedificms.Value / 100 ));
precorevenda := precorevenda * ( 1 + (QryEstoquemargrevenda.Value / 100 ));
QryEstoqueprecorevenda.Value := precorevenda;


Atenciosamente

Silvio Guedes


Responder

Gostei + 0

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

Aceitar