campos calculados para presentar precio de ventas

[novato_erick]

jajajaja si Caral sabia que alguien me diría eso pero bueno soy novato aun no me atrevo a correr...

pero en fin es una aplicación a nivel local no se me había ocurrido eso Gracias por la sugerencia... problema que menciono será por eso?.. bueno aparentemente dice que mi variable pc lo toma del dbePCompra.Text y que el impuesto es simplemente la variable psinitbm vendra a ser la variable pc;

eso es el error? noooo creo ...

Saludos

Disculpen el montón de código pero no me imagino como darme a explicar mi procedimiento

[[Caral]]

Hola
Veo poco, pero:
1: las variables las declaras publicas ???, donde estan, (solo veo i : Integer)
2: Las variables obtienen su valor de los edits (me parece) entonces por que las declararlas con 0.00 ????.
No entiendo muy bien el concepto que tienes al hacer tantos calculos y con tantas opciones diferentes en un procedimiento, me imagino que estoy viejo y esto es lo moderno.
Saludos

[novato_erick]

jajaja disculpa si mis variables son publicas y las declaro con 0.00 para inicializarlas... Me estoy equivocando en algo?

Código Delphi [-]
public
    { Public declarations }
    Gasto, porcentajeG, porcentajeU, porcentajeV, pc, pg, pu, pva, pf, psinitbm,
      pconitbm, varios, utilidad, subtotalg, subtotalv, subtotalu, Gasto2,
      porcentajeG2, porcentajeU2, porcentajeV2, psinitbm2, pconitbm2, varios2,
      utilidad2, subtotalg2, subtotalv2, subtotalu2, Gasto3, porcentajeG3,
      porcentajeU3, porcentajeV3, psinitbm3, pconitbm3, varios3, utilidad3,
      subtotalg3, subtotalv3, subtotalu3, tempPrecio, porcentajeImpuestoG,
      porcentajeIMpuestoU, porcentajeIMpuestoV, porcentajeImpuestoG2,
      porcentajeIMpuestoU2, porcentajeIMpuestoV2, porcentajeImpuestoG3,
      porcentajeIMpuestoU3, porcentajeIMpuestoV3: Double;
    impuesto: Integer;

usted sabe no es moderno solo improviso...

jajajaj

Gracias Caral...

[[Caral]]

Hola
Si te empeñas en usar variables deberias declararlas en el procedimiento ya que se deberian iniciar y eliminar, asi no tendrias que colocarles un valor de inicio, este deberia de estar en los edit.
No entiendo muy bien lo que quieres hacer por eso solo opino.
Saludos

[novato_erick]

Caral entiendo lo que me sugieres..

y trataré de ser mas claro como el agua del mar:

deseo que se realize calculo a partir de un campo (precio de compra)

Este tendra otros edit que calculara un porcentaje y lo manda a un campo subtotal sin impuesto y otro campo realiza los calculos del impuesto mandando un total para ser vendido y guardandolo a la base de datos..

en el evento OnChange del dbEdit dbePcompra tengo esto:

Código Delphi [-]
procedure TFrmArticulos.dbePCompraChange(Sender: TObject);

  begin
    if Trim(dbePCompra.Text) = '' then
    begin
      dbePCompra.Text := '0';
      if dbePCompra.Text = '0' then
        // *********************
      dbePConIV.Text := '0';
      dbePConIV2.Text := '0';
      dbePConIV3.Text := '0';
      // **************************
      dbePSinIV.Text := '0';
      dbePSinIV2.Text := '0';
      dbePSinIV3.Text := '0';
      // **************************
      dbePFijos.Text := '0';
      dbePFijos2.Text := '0';
      dbePFijos3.Text := '0';
      // *****************
      txtGastos.Text := '0';
      txtGastos2.Text := '0';
      txtGastos3.Text := '0';
      // *****************
      txtUtilidad.Text := '0';
      txtUtilidad2.Text := '0';
      txtUtilidad3.Text := '0';
      // ********************
      txtVarios.Text := '0';
      txtVarios2.Text := '0';
      txtVarios3.Text := '0';
      // **********************
   end
end;

Creo que me explique cierto?

Saludos;

[[Caral]]

Hola
Creo que lo que quieres hacer es una factura.
Si es asi AQUI hice un Tutorial para hacer eso.
Puedes Saltarte las partes que no necesites he irte a la parte de facturacion, tal vez te de algunas ideas, espero te sirva, si no, solo dilo.
Saludos
PD: Con Vuestro permiso.

[novato_erick]

Hola Caral

He estado trabajando con tu tutorial y en parte no era facturación lo que necesitaba; Realizo un modulo de mantenimiento de articulos agregando los precios tomando como referencia un precio de compra o sea Costo y calculo precio de venta. Sin embargo me a ayudado mucho Tu tutorial por ejemplo mira ahora un poco mi codigo resumido a comparación del enorme que al principio cree y que te aburriste de leerlo :

Código Delphi [-]
public
Var
pvmostrar : Double;
 
{$R *.dfm}
 
 
procedure TFrmArticulos.CalculaTotalesPrecios;
var
pc, pg, pv, pu, iva, sniva, cniva,pvtag, pvtau, pvtav, pvsiva ,pvta : Double;
begin
iva := StrToFloat(dbeImpuesto.Text);
pc := StrToFloat(dbePCompra.Text);
pg := StrToFloat(eGastos.Text);
pv := StrToFloat(eVarios.Text);
pu := StrToFloat(eUtilidad.Text);
sniva := StrToFloat(dbePSinIV.Text);
pvtag := pc * pg /100;
pvtav := (pc+pvtag) * pv /100;
pvtau := (pvtag+pvtav+pc) *pu /100;
pvsiva := pvtag + pvtav + pvtau;
dbePSinIV.Text := FloatToStr(pc+pvsiva);
pvta := StrToFloat(dbePSinIV.Text) * iva /100;
dbePConIV.Text := FloatToStr(Roundto((pvta)+ StrToFloat(dbePSinIV.Text),-2));
pvmostrar := StrToFloat(dbePConIV.Text);// esta informacion creo que la utilizare  mas adelante
end;

mucho menos verdad? pero aqui solo manejo un precio de venta me falta dos precios de ventas mas jajajaja...

bueno ahora estoy pegado en algo a ver si me ayudan:

tengo un TDBCheckBox que en el evento OnClick hace esto:

Código Delphi [-]
 
procedure TFrmArticulos.DBCheckBox1Click(Sender: TObject);
begin
if DBCheckBox1.Checked then
begin
dbeImpuesto.Visible := true;
dbeImpuesto.Text := FloatToStr(DataArticulos.cdsArticulosIMPUESTO.Value);
end
else
begin
dbeImpuesto.Visible := false;
dbePConIV.Text := FloatToStr(Roundto((pvmostrar)+ StrToFloat(dbePSinIV.Text),-2));//'0';
dbePConIV2.Text := '0';
dbePConIV3.Text := '0';
end;
end;

Lo que sucede es que cuando este visible tenga el valor guardado por defecto
pero al estar invisible tome el valor como si no estuviera calculando el impuesto.

Me di a explicar?

Saludos