[lKinGl]

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