procedure Tfstock.Button1Click(Sender: TObject);
begin
fmodulo.tProductos.Active := true;
if rbsumar.Checked = true
then
begin
if fmodulo.tProductos.Locate('id_producto', fmodulo.qProductos['id_producto'], [])
then
begin
fmodulo.qProductos.Active := true;
fmodulo.tProductos.Edit;
idproducto := 0;
idproducto := StrToInt(Esumrest.text);
fmodulo.tProductos.Fields.FieldByName('Stock').AsInteger := fmodulo.qProductos.Fields.FieldByName('Stock').AsInteger + idproducto;
fmodulo.tProductos.Post;
fmodulo.qProductos.Refresh;
end;
end
else
if RBrestar.Checked = true
then
if fmodulo.tProductos.Locate('id_producto', fmodulo.qProductos['id_producto'], [])
then
begin
fmodulo.qProductos.Active := true;
fmodulo.tProductos.Edit;
idproducto := 0;
idproducto := StrToInt(Esumrest.text);
fmodulo.tProductos.Fields.FieldByName('Stock').AsInteger := fmodulo.qProductos.Fields.FieldByName('Stock').AsInteger - idproducto;
fmodulo.tProductos.Post;
fmodulo.qProductos.Refresh;
end;
end;