Actualizar stock de mercaderías

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