8.х Закрыть доступ к документам

т.е собственно как в теме
для друга быстренько сделал
может еще кому понадобится

Код:

Функция ЗаполнитьГруппыПользователя(Пользователь) Экспорт 

Запрос = Новый Запрос;

Запрос.УстановитьПараметр("ТекПользователь", Пользователь);
Запрос.УстановитьПараметр("ВсеПользователи", Справочники.ГруппыПользователей.ВсеПользователи);

Запрос.Текст = 
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
|	ГруппыПользователей.Ссылка КАК Группа,
|	ГруппыПользователей.АдминистраторГруппы КАК АдминистраторГруппы,
|	ВЫБОР
|		КОГДА ТЧПользователиГруппы.Пользователь ЕСТЬ NULL 
|			ТОГДА 0
|		ИНАЧЕ 1
|	КОНЕЦ КАК Флаг,
|	Истина КАК ВсеСтроки
|ИЗ
|	Справочник.ГруппыПользователей КАК ГруппыПользователей
|		ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ГруппыПользователей.ПользователиГруппы КАК ТЧПользователиГруппы
|		ПО ТЧПользователиГруппы.Ссылка = ГруппыПользователей.Ссылка
|			И (ТЧПользователиГруппы.Пользователь = &ТекПользователь)
|ГДЕ
|	ГруппыПользователей.Ссылка <> &ВсеПользователи
|
|УПОРЯДОЧИТЬ ПО
|	Группа ИЕРАРХИЯ";

ДеревоГрупп = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);

ОтметитьСвязныеГруппы(ДеревоГрупп.Строки);

Возврат ДеревоГрупп; 

КонецФункции 

Функция ОтметитьСвязныеГруппы(Строки, РодительскаяОтметка = Ложь) Экспорт 

БылиОтметки = Ложь;
Для каждого Строка Из Строки Цикл

Если Строка.Флаг = 2 Тогда
Строка.Флаг = 0;
КонецЕсли; 


Если РодительскаяОтметка и Строка.Флаг = 0 Тогда
Строка.Флаг = 2;
КонецЕсли;

БылиПодчиненныеОтметки = ОтметитьСвязныеГруппы(Строка.Строки, РодительскаяОтметка или Строка.Флаг = 1);

Если БылиПодчиненныеОтметки и Строка.Флаг = 0 Тогда
Строка.Флаг = 2;
КонецЕсли;

БылиОтметки = БылиОтметки или БылиПодчиненныеОтметки или Строка.Флаг = 1;

КонецЦикла;

Возврат БылиОтметки;

КонецФункции

Функция ВернутьСписокАдминистраторовГруппы(ДеревоГрупп) Экспорт 
СписокАдминистраторов = Новый СписокЗначений; 
Для каждого стрДерева из ДеревоГрупп.Строки цикл 
Если СтрДерева.Флаг <> 0 тогда 
СписокАдминистраторов.Добавить(СтрДерева.АдминистраторГруппы);
КонецЕсли;	
КонецЦикла;	
<span style='cursor: pointer; color:red' Onclick="window.open('http://www.1c-pro.ru/wiki/index.php/конецфункции')">КонецФункции	</span>


Функция ЕстьДоступКДокументу(ДокСсылка, Пользователь) Экспорт 

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

КонецФункции

Вставить в закрываемые документы код

Код:

// Процедура - обработчик события "ПередОткрытием" формы.
//
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)

// *************************************
Если НЕ ОбщегоНазначения.ЕстьДоступКДокументу(Ссылка, глЗначениеПеременной("глТекущийПользователь")) тогда  
Отказ = Истина;
КонецЕсли;        
// *************************************

Может быть
но я виноват не описал задачу
надо чтобы в документ можно было зайти только
Автору документа и его начальнику / начальникам
либо его пользовательской группе

Т.е. деление не по типу документа , не по организации
а именно по автору и его начальникам