Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-12-2008
lKinGl lKinGl is offline
Miembro
 
Registrado: ago 2007
Posts: 333
Poder: 17
lKinGl Va por buen camino
Exclamation 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,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
__________________
Las cosas o son, o no son...
Responder Con Cita
  #2  
Antiguo 02-12-2008
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 28
Lepe Va por buen camino
Cita:
Empezado por lKinGl Ver Mensaje
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, .... (en cada pais es distinto y para cada negocio).

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
  #3  
Antiguo 02-12-2008
[coso] coso is offline
Miembro Premium
 
Registrado: may 2008
Ubicación: Girona
Posts: 1.678
Poder: 0
coso Va por buen camino
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

Última edición por coso fecha: 02-12-2008 a las 17:07:29.
Responder Con Cita
  #4  
Antiguo 02-12-2008
[coso] coso is offline
Miembro Premium
 
Registrado: may 2008
Ubicación: Girona
Posts: 1.678
Poder: 0
coso Va por buen camino
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%)
Responder Con Cita
  #5  
Antiguo 03-12-2008
lKinGl lKinGl is offline
Miembro
 
Registrado: ago 2007
Posts: 333
Poder: 17
lKinGl Va por buen camino
jeje gracias coso por la respuesta voy a intentarlo y cuento como me fué
__________________
Las cosas o son, o no son...
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Calculos en una Tabla silviodp Conexión con bases de datos 18 02-02-2010 22:38:34
Calculos de porcentajes¡¡¡ inexperto Varios 7 21-06-2005 11:14:32
Calculos con un TEdit BlueSteel Varios 4 05-01-2005 17:45:34
Calculos Aleca OOP 2 18-08-2004 19:31:43
calculos buitrago Firebird e Interbase 7 20-07-2004 05:42:24


La franja horaria es GMT +2. Ahora son las 13:29:03.


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
Copyright 1996-2007 Club Delphi