procedure actualizardisponibilidad(QueryTurnos:TADOQuery; turno:Integer; lugares:Integer);
Begin
with QueryTurnos do
begin
Close;
sql.clear;
sql.Add('update turnos set disponibilidad ='+inttostr(lugares)+' where id_turno='+IntToStr(turno)); ExecSQL;
end;
end;