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

 Док = Метаданные.Документы; 
СписокДокументов = Новый СписокЗначений(); 

СписокДокументов.Добавить(Док.ПлатежноеПоручениеИсходящее, , Ложь); 
СписокДокументов.Добавить(Док.ПлатежноеПоручениеВходящее, , Ложь); 
СписокДокументов.Добавить(Док.АккредитивПереданный, , Ложь); 
СписокДокументов.Добавить(Док.АккредитивПолученный, , Ложь); 
СписокДокументов.Добавить(Док.ПлатежноеТребованиеВыставленное, , Ложь); 
СписокДокументов.Добавить(Док.ПлатежноеТребованиеПолученное, , Ложь); 
СписокДокументов.Добавить(Док.ИнкассовоеПоручениеПереданное, , Ложь); 
СписокДокументов.Добавить(Док.ИнкассовоеПоручениеПолученное, , Ложь); 
СписокДокументов.Добавить(Док.ПлатежныйОрдерСписаниеДенежныхСредств, , Ложь); 
СписокДокументов.Добавить(Док.ПлатежныйОрдерПоступлениеДенежныхСредств, , Ложь); 

Если СписокДокументов.ОтметитьЭлементы("Укажите, какие списки документов открыть") Тогда 
	Для Каждого НазваниеДокумента из СписокДокументов Цикл 
		Если НазваниеДокумента.Пометка Тогда 
			ФормаСписка = Документы[НазваниеДокумента.Значение.Имя].ПолучитьФормуСписка(); 
			ФормаСписка.Открыть(); 
		КонецЕсли; 
	КонецЦикла; 
КонецЕсли;