hice el consejo y nada.
Código SQL
[-]
_DM.consulta1.SQL.Text:= 'select * From inalmacen Where id_inal='+ StringGrid1.Cells[1,stringGrid1.Row];
_DM.consulta1.Open;
_DM.consulta2.SQL.Text:= 'update INALMACEN set cantidad_inal=:auxcantidad_inal Where id_inal='+ StringGrid1.Cells[1,stringGrid1.Row];
_DM.consulta2.ParamByName('auxcantidad_inal').Value:=inttostr(strtoint(_DM.consulta1.FieldByName('ca ntidad_inal').Value) + strtoint(StringGrid1.Cells[5,stringGrid1.Row])) ;
_DM.consulta1.Close;
_DM.consulta2.ExecSQL;
_DM.consulta2.Close;
encontre este detalle si pueden ayudarme:
tengo 10 monitores en stock si la PC1 realiza la venta de 1 Monitor con el codigo q pego arriba me muestra 9 monitores en stock.
pero si habro la aplicacion en otra PC2..a.. PC5 me muestra que tengo sigue 10 monitores a la venta si le digo q quiero vender 1 ahi esta el problema. se bloquea todo,.
entonces veo que le falta algo despues de
_DM.consulta2.ExecSQL;