Calculo preço revenda não confere
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
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
Curtidas 0
Respostas
Silviogs
12/07/2005
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
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
GOSTEI 0