Código Delphi [-] Fmodulo.Qry_Temp.SQL.Text := 'Update Articulo Set stock = stock - :St Where codigobarras = :Cod '; Fmodulo.Qry_Temp.Params[0].Value:= wcantidad_descontar; Fmodulo.Qry_Temp.Params[1].Value:= wcodigobarras_mod; Fmodulo.Qry_Temp.ExecSQL;
Fmodulo.Qry_Temp.SQL.Text := 'Update Articulo Set stock = stock - :St Where codigobarras = :Cod '; Fmodulo.Qry_Temp.Params[0].Value:= wcantidad_descontar; Fmodulo.Qry_Temp.Params[1].Value:= wcodigobarras_mod; Fmodulo.Qry_Temp.ExecSQL;