СписокЗначений = Новый СписокЗначений;

	

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

	Запрос.Текст="ВЫБРАТЬ

	|	Подразделения.Ссылка,

	|	Подразделения.Наименование,

	|	Подразделения.ПометкаУдаления

	|ИЗ

	|	Справочник.Подразделения КАК Подразделения

	|ГДЕ Подразделения.ПометкаУдаления = ИСТИНА";

	Результат = Запрос.Выполнить().Выбрать();

	Пока Результат.Следующий() Цикл

		Если Результат.ПометкаУдаления Тогда

			Пометка = Истина;

		иначе

			пометка = Ложь;

		КонецЕсли;

		СписокЗначений.Добавить(Результат.Ссылка, Результат.Наименование, Пометка,);

	КонецЦикла;

	//

	СписокЗначений.ОтметитьЭлементы("Выберите элементы для удаления");

	

	Для каждого ТекЭлемент Из СписокЗначений Цикл

		Если НЕ ТекЭлемент.Пометка Тогда // если убрали пометку, то убираем и в справочнике

			ТекЭлемент.Значение.ПолучитьОбъект().УстановитьПометкуУдаления(Ложь,); // Подчиненные помечать на удаление не будем	

		КонецЕсли;

	КонецЦикла   

 Док = Метаданные.Документы; 

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



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

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

СписокДокументов.Добавить(Док.АккредитивПереданный, , Ложь); 

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

СписокДокументов.Добавить(Док.ПлатежноеТребованиеВыставленное, , Ложь); 

СписокДокументов.Добавить(Док.ПлатежноеТребованиеПолученное, , Ложь); 

СписокДокументов.Добавить(Док.ИнкассовоеПоручениеПереданное, , Ложь); 

СписокДокументов.Добавить(Док.ИнкассовоеПоручениеПолученное, , Ложь); 

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

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



Если СписокДокументов.ОтметитьЭлементы("Укажите, какие списки документов открыть") Тогда 

	Для Каждого НазваниеДокумента из СписокДокументов Цикл 

		Если НазваниеДокумента.Пометка Тогда 

			ФормаСписка = Документы[НазваниеДокумента.Значение.Имя].ПолучитьФормуСписка(); 

			ФормаСписка.Открыть(); 

		КонецЕсли; 

	КонецЦикла; 

КонецЕсли;