"ОтключитьКонтрольПоБухгалтерскимСчетам = УправлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"),"ОтключитьКонтрольПоБухгалтерскимСчетам");<br> Если Не ОтключитьКонтрольПоБухгалтерскимСчетам Тогда<br> Набор = РегистрыСведений.КонтрольПравПоБухгалтерскимСчетам.СоздатьНаборЗаписей();<br> Набор.Отбор.Пользователь.Использование = Истина;<br> Набор.Отбор.Пользователь.Значение = Пользователь;<br> Набор.Прочитать();<br> Если Набор.Количество() = 0 Тогда<br> //Если флаг ОтключитьКонтрольПоБухгалтерскимСчетам не установлен, значит Пользователя не настраивали.<br> //Ограничем просмотр.<br> Ограничение = Истина;<br> ТекстПредупреждения = "Нет прав на использование счета ";<br> Иначе<br> ТипОбъекта = ТипЗнч(Объект);<br> Если ЗначениеЗаполнено(Объект) Тогда<br> Если ТипОбъекта = Тип("ПланСчетовСсылка.Хозрасчетный") или ТипОбъекта = Тип("ПланСчетовСсылка.Налоговый") Тогда<br> СписокСчетов = новый СписокЗначений;<br> СписокСчетов.Добавить(Объект);<br> СчетГруппа = Объект.Родитель;<br> ЭтоСчетБУ = ТипОбъекта = Тип("ПланСчетовСсылка.Хозрасчетный");<br> ПланСчетов = ?(ЭтоСчетБУ, ПланыСчетов.Хозрасчетный, ПланыСчетов.Налоговый);<br> <br><br>Только вот где флаг этот установить, я не могу найти <br><br><br>To Рисовод: не совсем поняла смысл вашего предложения, с учетом того, что программист я, однако работаю в этой сфере всего 3-й месяц и только учусь :("