6 replies to this topic

[amell2020]

hola amigo espero que me entiendan con esta duda,

Bueno yo estoy interesado en hacer un formulario donde registro los productos que compro, en lo cuales tengos 4 campos o edits
que son:

IDproducto
nombreproducto
preciocompra
porcientocompra
preciototal

ahora en preciocompra yo quiero aplicarle el porciento que yo quiero ganarme en ese producto, por la cual cree ese campo para poner el % y luego calcularlo.

mi pregunta como lo puedo hacer, yo intente hacerlo de una manera no profesional, y solo funcionaba de cantidades de 10 en adelante, pero si le ponia menos de 10 por ejemplo 8, me da error.

bueno el codigo era este donde sacaba el porciento de ganancia de compra :

delphi

Var
S:string;
dat,datos,total:real;
begin
dat:=strTofloatdef(Edit2.text,0);
datos:=strTofloatdef(Edit3.text,0);
s:='0.'+floatTostr(datos);
total:=dat*strTofloat(s);
DBEdit4.Text:=floatTostr(total);

[enecumene]

delphi

var
  PC,PT,PO: Double;
begin
  PC := Table1PRECIOCOMPRA.AsFloat; //Precio Compra
  PO := Tabel1PORCIENTO.AsFloat; //Por ciento
  PT := PC * (((PC * PO) / 100) + 1); // Precio de compra mas ganancia
end;

[amell2020]

bueno no entendi lo que el codigo expuesto. porque el +1

[egostar]

bueno no entendi lo que el codigo expuesto. porque el +1

El 1 es para obtener el factor por el cual se multiplicará el precio.

Aunque tiene un pequeño errorcito, hay que cambiar esto:

delphi

PT := PC * (((PC * PO) / 100) + 1); // Precio de compra mas ganancia

por esto

delphi

PT := PC * ( (PO / 100) + 1); // Precio de compra mas ganancia

Precio = 100
Porcentaje = 20
Calculo  --> 100 * ( (20 / 100) + 1)  =  100 * ( 0.20 + 1 )  =  100 * 1.20  =  120

Saludos

[amell2020]

bueno estoy bruto con matematica , donde aprendo hacer eso, la verdad que me quede con la boca abierta. JAJAJA

[Wilson]

bueno estoy bruto con matematica , donde aprendo hacer eso, la verdad que me quede con la boca abierta. JAJAJA

Te la pongo un poco diferente a ver si la agarras.  Observa la siguiente función:

delphi

function PrecioVenta(PrecioCompra, PorcentajeUtilidad: Double): Double;
var
  Utilidad: Double;
begin
  Utilidad := PrecioCompra * (PorcentajeUtilidad / 100);
  Result := PrecioCompra + Utilidad;
end;

Mira un ejemplo del uso de la función, en donde el precio de compra es 200 y el porcentaje de utilidad es  el 20 por ciento.

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
 Showmessage(floattostr(PrecioVenta(200,20))); //Se mostrará 240 
end;

Ahora bien, aplicada a tu problema, parece que quieres guardar ese valor en el campo "PrecioTotal", de ser así entonces solo es cuestión de pasarle los parámetros a nuestra función, el procedimiento quedaría:

delphi

procedure CalcularPrecioTotal;
begin
  TuDataset.FieldByName('PrecioTotal').asFloat := PrecioVenta
    (TuDataset.FieldByName('PrecioCompra').asFloat,
    TuDataset.FieldByName('PorcientoCompra').asFloat);
end;

Saludos

[Delphius]

Si el porcentaje se almacenara en forma decimal bastaría con multiplicar el precio por (1 + porcentaje). Por ejemplo:
Precio = 10, porcentaje = 0,18 (18%)
Entonces PrecioConGanancia = 10 * (1 + 0,18) = 10 * 1,18 = 11,8

Lo que en última siempre se resume a algo muy simple:
PrecioGanancia = Precio * (1 + Porcentaje)

Es la forma más directa de obtener un valor incremental en base a porcentaje. ¡La división respecto a 100 puede obviarse!  O más concretamente, para cualquier cálculo de proporcionalidad (o regla de tres, para los que les gusta hablar de "escuela") sólo es necesario conservar dicho factor de proporción y directamente multiplicar.

La ventaja de esta forma es que solo se realizan sumas y multiplicaciones... dos operaciones. Y además, que son las únicas operaciones por definición y efecto que toda máquina efectúa... son extremadamente rápidas a comparación con aplicar sus inversas: restas y división ya que se realizan aplicando sus complementos negados y efectuando, concretamente sumas y multiplicaciones respectivamente. Nos ahorramos unos cuantos ciclos de procesador... que pueden ser aprovechados por el server si en la tabla van a haber miles o millones de registros. 

Ha... por cierto... otra ventaja de hacerlo de esta forma es que posee una mejor precisión numérica y el margen del error relativo y absoluto es menor que sus contrapartes... si es que mi análisis rápido y según recuerdo de la teoría de cálculo numérico son correctos.

Saludos,