Actualizar stock de mercaderías

[Malau]

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…

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;

[ecfisa]

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.

[Malau]

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