Обработка результата запроса. Очень нужен дельный совет

@enduromen · Регистрация: 26.08.2015

Author24 — интернет-сервис помощи студентам

Добрый день дорогие форумчане))) !!!
Всех с наступившим новым годом!!!

Очень нужна любая помощь в следующем:

Есть задача по условию которой, при входе в систему, должна производиться проверка пользователя, является ли он администратором. Если является, то доп. проверки к этому пользователю не применяются. (Администратор - соответствующий булевский реквизит на форме элемента справочника "Пользователи"). Предполагал решить задачу след. образом:

Написать функцию которая будет сравнивать имя текущего пользователя с наименованиями элементов из справочника "Пользователи" у которых реквизит "Администратор" = Истина и если совпадение найдено, тогда возврат истина если нет ложь.

Попытался реализовать это следующим запросом:

1C

Функция ПроверкаПользователяАдмин(ИмяПользователя)Экспорт
Запрос = Новый Запрос;
Запрос.Текст = 
"Выбрать
| Пользователи.Наименование
| ИЗ
| Справочник.Пользователи Как Пользователи
|Где
| Пользователи.Администратор = &Установлен";
Запрос.УстановитьПараметр("Установлен", Истина);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Если ИмяПользователя = ВыборкаДетальныеЗаписи.Наименование тогда
возврат истина
иначе
возврат ложь
КонецЕсли;
КонецЦикла;
 
КонецФункции

Но данная функция всегда возвращает ложь даже если имена пользователя совпадают.
Консолью запросов проверял, запрос отбирает всех нужных пользователей.
Проверял код отладкой, Выборка Детальные записи, содержит только 1-й элемент отбора т.е. если по результату запроса отбираются Администратор и Администратор1, то выборка хранит в себе только 1-е значение. Помогите пожалуйста заставить работать эту функцию.
За ранее безмерно благодарен!!!

@Xomych · 02.01.2016, 17:49

А что в имени пользователя? В Отладчике?
Конечных пробелов в наименовании нет?

@enduromen · 02.01.2016, 17:59 **[ТС]**

Честно говоря не додумался посмотреть, сейчас гляну, но думаю врятли.

@Dethmontt · 02.01.2016, 18:25

1C

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Если ИмяПользователя = ВыборкаДетальныеЗаписи.Наименование тогда
возврат истина
иначе
возврат ложь
КонецЕсли;
КонецЦикла;

Этот код будет работать только в случае если у тебя ОДИН "Администратор" в базе

Добавлено через 1 минуту
enduromen, лучше отрулить ролями (Администратор и Пользователь)
не нужен ни запрос ни флаг булево в справочнике

1C

1
2
3

Если РольДоступна("Администратор") Тогда 
    Сообщить("Это администратор");
КонецЕсли;

@enduromen · 02.01.2016, 20:45 **[ТС]**

Dethmontt, спасибо большое.
Если не сложно, объясните пожалуйста, почему данный код будет работать если в базе один администратор? Я нуб пока тяжеловато соображать.
Если правильно понимаю то при таком написании в любом случае выбираются все элементы справочника у которых "Администратор"-истина и "ИмяПользователя" должно сравниваться с наименованием каждого элемента.

По поводу варианта с ролями, спасибо, обязательно запомню на будущее.

Добавлено через 29 минут
Коллеги, нашел в чем проблема)
Ситуация была в следующем:
У меня в БД в справочнике "Пользователи", среди прочих, у двух элементов реквизит "Администратор" возведен в Истина. Как следствие, текущее имя пользователя сравнивается с наименованием каждого из элементов. Соответственно возвращаемых значений тоже будет 2 Истина и Ложь, поэтому функция всегда и возвращала ложь.

Поправить код нужно следующим образом:

1C

Функция ПроверкаПользователяАдмин(ИмяПользователя) Экспорт
    
        
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   Пользователи.Наименование
        |ИЗ
        |   Справочник.Пользователи КАК Пользователи
        |ГДЕ
        |   Пользователи.Администратор = &Установлен";
        
    Запрос.УстановитьПараметр("Установлен", Истина);    
    
    РезультатЗапроса = Запрос.Выполнить();
    
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
    
    Пока ВыборкаДетальныеЗаписи.Следующий() цикл
        Если ИмяПользователя = ВыборкаДетальныеЗаписи.Наименование тогда
            возврат истина
        КонецЕсли;
        КонецЦикла;
    
        
    //}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
 
    
 
КонецФункции

Т.Е. убираем ветку иначе, таким образом если выполняется условие возвращается истина, а иначе неопределено.
Вообще конечно кривовато написано, но работает.
Надеюсь что ветка поможет таким же НУБам как я )))
Всем спасибо за проявленное участие!!!

@Dethmontt · 04.01.2016, 07:40

Сообщение от enduromen

Поправить код нужно следующим образом:

Молодчик, начал думать!!!

Но к сожалению опять не в ту строну

Если уж и оставлять вариант с поиском по "Наименованию" то лучше пусть запрос сразу возвращение нужне значение без перебора массива

1C

Функция ПроверкаПользователяАдмин(ИмяПользователя) Экспорт
    
    ВозвращаемоеЗначение = Ложь;    
    
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ
        |   Пользователи.Администратор КАК Флаг
        |ИЗ
        |   Справочник.Пользователи КАК Пользователи
        |ГДЕ
        |   Пользователи.Наименование = &ИмяПользователя";
        
    Запрос.УстановитьПараметр("ИмяПользователя", ИмяПользователя);    
    
    Выборка = Запрос.Выполнить().Выбрать();
        
    Если Выборка.Следующий() Тогда
         ВозвращаемоеЗначение = Выборка.Флаг;
    КонецЕсли;
 
    Возврат ВозвращаемоеЗначение;
 
КонецФункции

@Xomych 858 / 657 / 111 Регистрация: 01.11.2012 Сообщений: 2,411
	02.01.2016, 17:49	2
	А что в имени пользователя? В Отладчике? Конечных пробелов в наименовании нет? 0

@enduromen 4 / 4 / 2 Регистрация: 26.08.2015 Сообщений: 59
	02.01.2016, 17:59 [ТС]	3
	Честно говоря не додумался посмотреть, сейчас гляну, но думаю врятли. 0

	04.01.2016, 07:40