Salu2 amigos foristas
en esta oportunidad no tengo problema de programación sino de cáldulo jejej
tengo este código:
Código Delphi
[-]
procedure TForm5.Timer3Timer(Sender: TObject);
var
Cos,Exe,Iva,Pre1,Pre2,Pre3ouble;
begin
if ComboBox2.Text='Seleccione' then
Begin
exit;
End;
if ComboBox2.Text='Si' then
Begin
Cos:=StrToFloat(Edit3.Text);
Iva:=Cos*0.09;
Exe:=Cos-Iva;
With Form1.zAjustes do
begin
Pre1:=(Cos*FieldValues['porcentajepre1'])/100;
Pre2:=(Cos*FieldValues['porcentajepre2'])/100;
Pre3:=(Cos*FieldValues['porcentajepre3'])/100;
end;
Edit4.Text:=FloatToStr(Cos-Exe);
Edit5.Text:=FloatToStr((Cos+Pre1)-Iva);
Edit6.Text:=FloatToStr((Cos+Pre2)-Iva);
Edit7.Text:=FloatToStr((Cos+Pre3)-Iva);
End;
if ComboBox2.Text='No' then
Begin
Cos:=StrToFloat(Edit3.Text);
Iva:=0;
Exe:=Cos-Iva;
With Form1.zAjustes do
begin
Pre1:=(Cos*FieldValues['porcentajepre1'])/100;
Pre2:=(Cos*FieldValues['porcentajepre2'])/100;
Pre3:=(Cos*FieldValues['porcentajepre3'])/100;
end;
Edit4.Text:=FloatToStr(Cos-Exe);
Edit5.Text:=FloatToStr(Cos-Pre1);
Edit6.Text:=FloatToStr(Cos-Pre2);
Edit7.Text:=FloatToStr(Cos-Pre3);
End;
end;
el inconveniente que tengo es como se saca el pago final del cliente, el sistema tiene estas variables...
Cos,Exe,Iva,Pre1,Pre2,Pre3
Cos= Inserción manual
Exe= Exento
Iva= Iva del Producto
Pre1= Precio1 lleva 15% de descuento(se puede ajustar en tabla).
Pre2= Precio2 lleva 10% de descuento (se puede ajustar en tabla).
Pre3= PRecio3 lleva 5% de descuento (se puede ajustar en tabla).
esté cálculo se hace en el formulario de registro de productos de un sistema de facturacion
pero tengo esa pequeña duda..... no se, no estoy claro en los calculos del valor Exento,Iva y los Precios....
Gracias adelantadas
P.D. creo que tendria tambien que manejar la variable de margen de ganancia :S