Sumar campo cuando este asi actualizado

[rufo]

Hijole amigos pues resulta que ya ingrese el codigo pero al momento de oprimir el boton actualizar me hace el calculo mal es decir si yo tengo 100 piezas me aparece 20 les pongo en si el codigo de nuevo para que vean si estoy cometiendo un error

procedure TENTRADAS.sButton4Click(Sender: TObject);
begin
 if messagedlg('Los datos son correctos?',mtconfirmation,[mbok,mbcancel],0)=mrok then
   begin
      with dm1.T_productos do
      begin
         active:=true;
         SetKey;
         FieldByName('id_productos').Asinteger := strtoint(slabel9.Caption);
         GotoNearest;
         edit;
         fieldbyname('id_productos').asinteger:=strtoint(slabel9.Caption);
         fieldbyname('fecha_entrada').asstring:=sedit2.Text;
         fieldbyname('piezas').asstring:=sedit1.Text;
         fieldbyname('id_proveedor').asinteger:=v_idproveedor;
         post;
         refresh;
      end;
      begin
       dm1.T_productos.Edit;
       dm1.T_productos.FieldbyName('piezas').AsFloat:= dm1.T_productos.FieldbyName('piezas').AsFloat +  StrToFloat(sEdit1.Text);
       dm1.T_productos.Post;
      end;
   end;

De antemano gracias.

[rufo]

Amigos ya quedo resuelto, les explico que estaba mal al momento de actualizar ya que estaba sumando el mismo registro con el mismo, les pongo como ya quedo mi codigo ya correcto.

procedure TENTRADAS.sButton4Click(Sender: TObject);
begin
 if messagedlg('Los datos son correctos?',mtconfirmation,[mbok,mbcancel],0)=mrok then
   begin
      with dm1.T_productos do
      begin
         active:=true;
         SetKey;
         FieldByName('id_productos').Asinteger := strtoint(slabel9.Caption);
         GotoNearest;
         edit;
         fieldbyname('id_productos').asinteger:=strtoint(slabel9.Caption);
         fieldbyname('fecha_entrada').asstring:=sedit2.Text;
         //fieldbyname('piezas').asstring:=sedit1.Text;   //Aqui es donde estaba mal ya que estaba sumando asi mismo
         fieldbyname('id_proveedor').asinteger:=v_idproveedor;
         post;
         refresh;
      end;
      begin
       dm1.T_productos.Edit;
       dm1.T_productos.FieldbyName('piezas').AsFloat:= dm1.T_productos.FieldbyName('piezas').AsFloat +  StrToFloat(sEdit1.Text);
       dm1.T_productos.Post;
      end;
   end;

Gracias de antemano por sus contestacion.

[Lenny]

Edito el comentario, solucionaste el problema antes de darte una solución, Cualquier duda estaré atento...

Saludos...

[rgstuamigo]

Me alegro que lo hubieras solucionado amigo rufo,. Pero creo que hubiera sido mejor hacer la actualizacion usando un Trigger..
Saludos...