Procedure capturar_Turno (Queryturno:TADOQuery; horario:string; dia:string; var id_turno:Integer; var disponibilidad:Integer);
begin
with Queryturno do
begin
SQL.Clear;
SQL.Add('Select * From turnos Where horario='+QuotedStr(horario)+'and '+'dia=' +QuotedStr(dia));
Open;
id_turno:=FieldByName('Id_turno').AsInteger;
disponibilidad:=FieldByName('disponibilidad').AsInteger;
end;
end;