Sumar campo cuando este asi actualizado

[Casimiro Noteví]

update tabla
set piezas = piezas + new.piezas

¿Es eso lo que quieres?, con más información se te puede ayudar mejor.

[rufo]

Gracias amigo por responder pero me he quedado igual, en si quiero hacer algo parecido asi:

PIEZAS
10

PIEZAS (ingresadas)
5

PIEZAS
15

En si es lo que quiero hacer es que en mi tabla ya tengo el campo PIEZAS con datos entonces cuando ingreso en un edit las PIEZAS que acaban de llegar que cuando almacene esta actualizacion me sume con las que ya tengo mas con las que acabo de introducir para que mas adelante me sirvan para ver sus existencias reales, de antemano gracias.

[Casimiro Noteví]

Es como te he mostrado antes. ¿Qué parte es la que no sabes hacer?, ¿qué llevas hecho y cómo?

[rufo]

Gracias amigo de nuevo por responder, te pongo mi codigo que tengo

Código Delphi [-]
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
       update;
       dm1.T_productos;
       set dm1.T_productos.FieldByName('piezas')= dm1.T_productos.FieldByName('piezas') + dm1.T_productos.FieldByName('new.piezas');
      end;
   end;

Te pongo todo este codigo por que es en el boton que actualiza mi informacion, ahora asi como me lo pusiste anteriormente me marcaba error de codigo entonces lo puse asi como te lo muestro pero me marcar igual el error ya que mi tabla la tengo en Datamodule por esa razon es como yo llamo a la tabla bueno espero que me ayudes o me comentes en donde esta mi error y gracias de nuevo.

[Lenny]

Primero, Eliges la Tabla a editar:

Código Delphi [-]
Table1.Edit;

Luego Seleccionas de donde y con que editaras la Info:
Si apuntas a un DBEdit, con un Edit donde ingresaras la cantidad a ingresar:

Código Delphi [-]
DBEdit1.Text:= FloatToStr (StrToFloat(DBEdit1.Text) + StrToFloat (Edit1.Text));

Directo a la Tabla:

Código Delphi [-]
Table1.FieldbyName('PIEZAS').AsFloat := StrToFloat (Edit1.Text);

Luego Ingresas el Registro:

Código Delphi [-]
Table1.Post;

O sea quedaria algo asi:

Código Delphi [-]
 
Table1.Edit;
DBEdit1.Text:= FloatToStr (StrToFloat(DBEdit1.Text) + StrToFloat (Edit1.Text));
Table1.Post;

Al menos asi lo hago yop, y me resulta impecable sin errores.

Saludos!!!

[rufo]

Gracias amigo por responderme, tengo una duda en respecto como le hago directo a la tabla como le hago para sumar ya que en los ejemplos que me mostraste no aparece la suma o es la misma linea de codigo que aparece al ejemplo que me muestras:

 
DBEdit1.Text:= FloatToStr (StrToFloat(DBEdit1.Text) + StrToFloat (Edit1.Text));

Tambien te mando mi codigo como va quedando para que me digas si esta bien.

  begin
       dm1.T_productos.Edit;
       dm1.T_productos.FieldbyName('piezas').AsString := sEdit1.Text;

       dm1.T_productos.Post;
      end;

Gracias de antemano.

[ecfisa]

Hola rufo.
Sumar las piezas ingresadas en el Edit al campo piezas, es tán sencillo
como lo expuso casimiro (stock_anterior:= stock_anterior + cantidad_ingresada)

En tu caso creo que sería:

  with dm1.T_productos do
    FieldByName('piezas'):= FieldByName('Piezas')+
      IntToStr(EditX.Text);  // donde, EditX = Piezas ingresadas

Veo en tu código algo que te va a ocasionar problemas, supongamos que estas
manejando un stock de una farmacia.

Estas usando GotoNearest para posicionarte en el registro que buscas.
Supongamos ahora que te equivocas al ingresar el id_producto del producto.
GotoNearest se situará en el registro que más se acerque al buscado sin avisar de ningún error.

Esto puede ocasinar por ejemplo, que ingresar una compra de Aspirina te incremente
las existencias de Viagra (ocasionando un irremediable paro del programa )

Saludos.