Sumar campo cuando este asi actualizado

[Lenny]

Sorry, no deje el ejemplo completo, seria algo asi:

Código Delphi [-]
procedure TForm1.Guardar(Sender: TObject);
begin
Table1.Edit;
Table1.FieldbyName('TOTAL').AsFloat:= Table1.FieldbyName('TOTAL').AsFloat +  StrToFloat (Edit1.Text);
Table1.Post;
end;

Tu Código deveria quedar asi:

Código Delphi [-]
procedure TForm1.Guardar(Sender: TObject);
begin
dm1.T_productos;
dm1.T_productos.FieldbyName('piezas').AsFloat:= dm1.T_productos.FieldbyName('piezas').AsFloat +  StrToFloat (sEdit1.Text);
dm1.T_productos.Post;
end;

Prueba y nos cuentas!!!, quizás la respuesta es algo "Caníbal" o "Rebuscado", no pretendo reinventar la rueda, pero soy de los que Código que resulta, Repite y esta forma hasta el día de hoy no me ha dado ningún problema, si alguien tiene alguna mejor forma (obviamente hay alguna mejor y menos rebuscado) que nos ilumine y así aprendemos todos...

Saludos...

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