Foros Club Delphi - Actualizar stock de mercaderías

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Actualizar stock de mercaderías (https://www.clubdelphi.com/foros/showthread.php?t=80011)

Actualizar stock de mercaderías

Hola! Estoy realizando una aplicación para el cual utilizo Delphi 7 e InterBase 6.5. El problema surgió a la hora de querer actualizar el stock de mercaderías. Logro registrar las compras y las ventas, pero no actualizar la cantidad de mercadería existente. Les dejo como ejemplo mi código en ventas, quizás alguien pueda ayudarme a detectar el error…

Código:

DM.IBDataSet_Mercaderias.Edit;

DM.IBQuery_Mercaderias.Locate('ID_MERCADERIA', M, []);

//M: variable donde almaceno el ID_MERCADERIA desde una consulta anterior

S:=STOCK - StrToInt(DBEdit_Cantidad.Text);

//S: variable que uso para calcular la diferencia entre el stock existente y la cantidad vendida 

//STOCK: variable que contiene el stock existente de mercadería (anterior a la actual venta) 

DM.IBDataSet_MercaderiasSTOCK_MERC.Value:= S;

M.IBDataSet_Mercaderias.Post;

Hola Malau.

Si generaste todas las sentencias SQL del TIBDataSet con el DataSetEditor y el valor de 'M' es correcto, de este modo tiene que funcionarte bién:

Código Delphi [-]...
  with IBDataSet_Mercaderias do
  begin
    Locate('ID_MERCADERIA', M, []);
    Edit;
    IBDataSet_MercaderiasSTOCK_MERC.Value := IBDataSet_MercaderiasSTOCK_MERC.Value -
      DBEdit_Cantidad.Field.Value;
    Post;
  end;
...

Saludos.

ecfisa!! Resolví el problema adaptando tu código a mi sistema. Muchas Gracias por tu ayuda!!