код:
&НаСервереБезКонтекста
Функция ОпредПользователь()
ЭлементСправочника = Справочники.Пользователи.НайтиПоКоду("000000001");
ЭлементОбъект = ЭлементСправочника.ПолучитьОбъект();
Для каждого Пользователи Из ЭлементОбъект.Пользователи Цикл
Если Пользователи.Пользователь = ИмяПользователя() Тогда
Возврат Пользователи.Статус;
КонецЕсли;
КонецЦикла;
Возврат Истина;
КонецФункции
&НаКлиенте
Процедура Проверка()
Если НЕ ОпредПользователь() Тогда
ЗавершитьРаботуСистемы();
КонецЕсли;
КонецПроцедуры
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой