Sumar a un campo una cantidad

[DOS]

ecfisa
Se que a veces es complicado explicarlo, uno da por sentado muchas cosas y el que lee no tiene por que darlas por sabido.
Es esacto como tu lo mencionas, cuando se realiza la compra de un producto el cual ya posee stock, se le incrementa a este mediante la carga en un Edit de la nueva cantidad y se ejecuta con el boton.
Stock harina 10k, se compran 15k mas, total stock 35k de harina.
Es importante recordar que son dos tablas relacionadas, tal vez este mal el if?
no le encuentro la vuelta. Gracias

[ecfisa]

Hola DOS.

Entonces, y si no te entendí mál, podrías hacer algo parecido a:

Código Delphi [-]
var
  a: Double;
begin
  if not TryStrToFloat(Edit1.Text,a) then
    raise Exception.Create('El valor ingresado no es válido');
  if table3.Locate('CustNo',table1Cod_prod.Value,[loCaseInsensitive]) then
  begin
    table3.Edit;
    table3.FieldByName('Cantidad').AsFloat := table3.FieldByName('Cantidad').AsFloat + a;
    table3.Post;
  end;
end;

Saludos.

[DOS]

Ok, me tira un error en 'CustNo', cual es su significado?
tal vez ayude esta imagen

[ecfisa]

Ok, me tira un error en 'CustNo', cual es su significado?

No uso regularmente BDE y para no contestar desatinos, hice una prueba con tablas que vienen en Delphi y se me pasó por alto cambiar CustNo por Cod_proucto que creo sería el nombre del campo en tu tabla según tu primer mensaje.

En definitiva sería el nombre del campo por el que relacionas las tablas y que se encuentra en la tabla que vas a realizar el incremento de stock.


Saludos.

[DOS]

jajaja, ok, pasa
el asunto es que ahora no tira ningun error, pero no actualiza la informacion directamente, osea cargo el numero aprieto el boton y nad. salgo e ingreso nuevamente y sas aparece el cambio, ademas ademas si el producto la cantidad esta vacio no realiza nada. probare cargando por defecto 0, a ver que pasa. Gracias.

Muestro como esta la codificacion final del boton.

Código Delphi [-]
procedure TForm5.Button6Click(Sender: TObject);
var
   a : Double;

begin
   if not TryStrToFloat(Edit1.Text,a) then
    raise Exception.Create('El valor ingresado no es válido');
  if table3.Locate('Cod_producto',table1Cod_prod.Value,[loCaseInsensitive]) then
     begin
      table3.Edit;
      table3.FieldByName('Cantidad').AsFloat:= table3.FieldByName('cantidad').AsFloat+a;
      table3.Post;
      table3.Next;
      end;
end;

[ecfisa]

Hola DOS.

Hice un ejemplo muy simple que te adjunto para que puedas mirarlo con tranquilidad, las tablas _PRODUCTOS y _STOCK están incluídas con algunos datos de muestra.

Crea una carpeta, descomprimí archivos fuentes y datos allí y no deberías tener problemas para ejecutarlo, cualquier dificultad no dudes en consultar.

Saludos.

[DOS]

creo que el problema es mayor, la relacion en las tablas es el problema para mi, creo que voy a terminar poniendo una sola tabla como dijo Casimiro. no se que hacer.
Respondi antes de ver lo que hicistes, voy a probarlo y te cuento, saludos.

[DOS]

Gracias ecfisa, excelente ayuda.