campos calculados para presentar precio de ventas

[[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

[[Caral]]

Hola
Que dificil entender.
Saludos