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