todo marcha bien
me da error cuando le toca esta linea
_DM.consulta2.ExecSQL;
Código SQL
[-]
_DM.consulta1.SQL.Text:= 'select * From inalmacen Where id_inal='+idprod.text;
_DM.consulta1.Open;
_DM.consulta2.SQL.Text:= 'update INALMACEN set cantidad_inal=:auxcantidad_inal Where id_inal='+ idprod.text;
_DM.consulta2.ParamByName('auxcantidad_inal').Value:=inttostr(strtoint(_DM.consulta1.FieldByName('ca ntidad_inal').Value) - strtoint(cantidad.Text)) ;
_DM.consulta2.ExecSQL;
_DM.consulta2.Close;
_DM.consulta1.Close;
_DM.talmacen.Active:=false; // false y true lo realizo para actualizar no se si hay otra mejor forma.
_DM.talmacen.Close;
_DM.talmacen.Active:=true;