campos calculados para presentar precio de ventas

[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

[[Caral]]

Hola
Y no es al reves???.
No se, seguro no entiendo.
Saludos

[novato_erick]

Hola a todos:

He buscado manera de tratar de realizar calculos para un formulario de ingreso de articulos este debe de realizar cálculos a partir de un precio de compra.

Código Delphi [-]
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); //me envia tres decimales arreglar eso
 pvta :=  StrToFloat(dbePSinIV.Text) * iva /100;
 dbePConIV.Text := FloatToStr(Roundto((pvta)+ StrToFloat(dbePSinIV.Text),-3));
end;

utilize variables para realizar los respectivos calculos. y funciona (hace los calculos enviandomelo a dos TdbEdit llamados dbePSinIV y DbePConIV.

ahora le digo al hacer click en el boton de insertar

Código Delphi [-]
procedure TFrmArticulos.btnAceptarClick(Sender: TObject);
begin 
    if dataarticulos.cdsArticulos.State = dsinsert then
       begin
          DataArticulos.cdsArticulosFECHA_ALTA.AsDateTime := now;
          DataArticulos.cdsArticulosCOEF_GASTO.AsInteger := StrToInt(egastos.Text);
          DataArticulos.cdsArticulosCOEF_VARIOS.AsInteger := StrToInt(eVarios.Text);
          DataArticulos.cdsArticulosCOEF_UTILIDAD.AsInteger := StrToInt(eutilidad.Text);
        if DataArticulos.cdsArticulosDESACTIVADO.Asstring = '' then
        DataArticulos.cdsArticulosDESACTIVADO.Asstring := 'N';
        if DataArticulos.cdsArticulosGRAVADO.Asstring = '' then
        Dataarticulos.cdsArticulosGRAVADO.Asstring := 'N';
      DataArticulos.cdsArticulos.Post;
      DataArticulos.cdsArticulos.applyupdates(0);
end;

al llamar al frmArticulos para editar (Modificar) no me aparecen en los edit los coeficientes anteriormente ingresado.

Alguien puede orientarme?

Saludos