Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Cálculos (https://www.clubdelphi.com/foros/showthread.php?t=62035)

lKinGl 02-12-2008 04:39:30

Cálculos
 
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,Pre3:Double;
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 :D 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

Lepe 02-12-2008 15:50:45

Cita:

Empezado por lKinGl (Mensaje 329036)
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

Eso tendrá que decírtelo tu cliente, o esperas que te lo diga un argentino, chileno, español, .... :confused: (en cada pais es distinto y para cada negocio).

Saludos

coso 02-12-2008 15:58:24

Hola, lo veo mal organizado y te liara. Lo mejor seria estructurarlo mas o menos asi:

base,
iva,
iva_p, (del 0 al 1)
subtotal
descuento,
descuento_p (del 0 al 1, pej, 15% = 0.15)
pvp

luego el resto seria algo asi:
desde base

iva = base*iva_p
subtotal = (1+iva_p)*base
descuento = subtotal*descuento_p
pvp = subtotal - descuento
o bien
pvp = (1-descuento_p)*subtotal

para 'extento' solo tendrias que hacer iva_p = 0

coso 02-12-2008 16:05:03

Sobre el margen de ganancia, no seria mas que el precio base del producto - su precio de compra entre el total del precio de compra. Si se vende con descuento, entonces, seria recalcularlo todo a la inversa

subtotal = pvp + descuento // si hay descuentos fijos
o bien
subtotal = pvp/(1-descuento_p) // descuento al tanto por ciento (del 0 al 1%)
base = subtotal / (1 + iva_p)

y de aqui

beneficio = base-precio_compra
margen = beneficio / precio_compra (del 0 al 1%)

lKinGl 03-12-2008 03:47:42

jeje gracias coso por la respuesta voy a intentarlo y cuento como me fué


La franja horaria es GMT +2. Ahora son las 18:00:46.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi