1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28

Функция ПолучитьПарамтерыОтправкиРеестра()
	Адресат = ПараметрыСеанса.ТекущийПользователь.аОфис.ОфисАрхивации.Ответственный;
	
	Запрос = Новый Запрос;
	Запрос.Текст = "ВЫБРАТЬ
			               |	ТерриторииИПомещения.Ссылка КАК Ссылка
			               |ИЗ
			               |	Справочник.ТерриторииИПомещения КАК ТерриторииИПомещения
			               |ГДЕ
			               |	ТерриторииИПомещения.аОфисПредприятия = &Архив
			               |	И НЕ ТерриторииИПомещения.ПометкаУдаления";
	Запрос.УстановитьПараметр("Архив", Адресат.аОфис.ОфисАрхивации);
	РЗОф = Запрос.Выполнить().Выгрузить();
	Если РЗОф.Количество() = 0 Тогда
		Сообщить("Офис архивации """ + Адресат.аОфис.ОфисАрхивации + """ не прикреплен к территории. Обратитесь в техническую поддержку");
	ИначеЕсли РЗОф.Количество() > 1 Тогда
		Сообщить("Офис архивации """ + Адресат.аОфис.ОфисАрхивации + """ прикреплен к нескольким территориям:");
		Для Каждого СтрТер ИЗ РЗОф Цикл
			Сообщить(СтрТер.Ссылка);
		КонецЦикла;
		Сообщить("Обратитесь в техническую поддержку.");
	Иначе
		ОфисПолучателя = РЗОф[0].Ссылка;	
		ПодразделениеПолучателя = Адресат.Подразделение;		
	КонецЕсли;

	Возврат Новый Структура("Адресат, ОфисПолучателя, ПодразделениеПолучателя", Адресат, ОфисПолучателя, ПодразделениеПолучателя);
КонецФункции