[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