Загрузка данных

Да, так будет чище. Старая обработка уже обросла правками, а нам нужна гарантия, что в файле лежит ровно то, что я пишу. Ниже новая обработка РассылкаПрайсов, в которой учтены все исправления: вид цен, Ном, профиль через параметр, ГруппировкаПодчиненныхЭлементовФормы, версия 2.2.2.1.

Важно: форма строится кодом, поэтому в ней ничего не надо рисовать мышкой. Реквизиты и элементы у самой обработки добавлять не нужно.

Шаг 1. Новая обработка
В Конфигураторе: Файл → Новый… → Внешняя обработка.
Нажмите Alt+Enter на обработке. Имя: РассылкаПрайсов, синоним: Рассылка прайс-листов.
Сохраните сразу на рабочий стол как РассылкаПрайсов.epf (Ctrl+S).
Шаг 2. Модуль объекта

Правой кнопкой по обработке → «Открыть модуль объекта». Вставьте весь код:

bsl
#Область ПрограммныйИнтерфейс

Функция СведенияОВнешнейОбработке() Экспорт

	ПараметрыРегистрации = ДополнительныеОтчетыИОбработки.СведенияОВнешнейОбработке("2.2.2.1");
	ПараметрыРегистрации.Вид = ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработкиДополнительнаяОбработка();
	ПараметрыРегистрации.Версия = "1.0";
	ПараметрыРегистрации.БезопасныйРежим = Ложь;
	ПараметрыРегистрации.Информация = "Отправка прайс-листов по e-mail по расписанию";

	Команда = ПараметрыРегистрации.Команды.Добавить();
	Команда.Представление = "Настройка рассылки прайс-листов";
	Команда.Идентификатор = "Форма";
	Команда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыОткрытиеФормы();
	Команда.ПоказыватьОповещение = Ложь;

	Для Номер = 1 По 3 Цикл
		Команда = ПараметрыРегистрации.Команды.Добавить();
		Команда.Представление = "Отправить прайс-лист (профиль " + Номер + ")";
		Команда.Идентификатор = "Прайс" + Номер;
		Команда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыВызовСерверногоМетода();
		Команда.ПоказыватьОповещение = Истина;
	КонецЦикла;

	Возврат ПараметрыРегистрации;

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

Процедура ВыполнитьКоманду(ИдентификаторКоманды, ПараметрыВыполнения = Неопределено) Экспорт

	Номер = Число(СтрЗаменить(ИдентификаторКоманды, "Прайс", ""));
	ОтправитьПрайс(ПолучитьНастройки(Номер));

КонецПроцедуры

Функция КаталогПолей() Экспорт

	Каталог = Новый ТаблицаЗначений;
	Каталог.Колонки.Добавить("Поле");
	Каталог.Колонки.Добавить("Название");
	Каталог.Колонки.Добавить("Ширина");
	Каталог.Колонки.Добавить("ПоУмолчанию");

	ДобавитьПолеКаталога(Каталог, "Артикул", "Артикул", 15, Истина);
	ДобавитьПолеКаталога(Каталог, "Наименование", "Наименование", 55, Истина);
	ДобавитьПолеКаталога(Каталог, "Характеристика", "Характеристика", 20, Ложь);
	ДобавитьПолеКаталога(Каталог, "Единица", "Ед. изм.", 8, Истина);
	ДобавитьПолеКаталога(Каталог, "Цена", "Цена", 14, Истина);
	ДобавитьПолеКаталога(Каталог, "Остаток", "Остаток", 12, Ложь);

	Если Метаданные.Справочники.Номенклатура.Реквизиты.Найти("Производитель") <> Неопределено Тогда
		ДобавитьПолеКаталога(Каталог, "Производитель", "Производитель", 20, Ложь);
	КонецЕсли;

	Для Номер = 1 По 3 Цикл
		ДобавитьПолеКаталога(Каталог, "Свойство" + Номер, "Доп. свойство " + Номер, 20, Ложь);
	КонецЦикла;

	Возврат Каталог;

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

Функция ПолучитьНастройки(НомерПрофиля) Экспорт

	ПустоеСвойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.ПустаяСсылка();

	Результат = Новый Структура;
	Результат.Вставить("ТипЦен", Справочники.ВидыЦен.ПустаяСсылка());
	Результат.Вставить("Склады", Новый Массив);
	Результат.Вставить("Группы", Новый Массив);
	Результат.Вставить("ТолькоВНаличии", Ложь);
	Результат.Вставить("ТолькоЗапасы", Истина);
	Результат.Вставить("ЗаголовкиГрупп", Истина);
	Результат.Вставить("ИсточникНаименования", "Наименование");
	Результат.Вставить("СвойствоНаименования", ПустоеСвойство);
	Результат.Вставить("Колонки", Новый Массив);
	Результат.Вставить("УчетнаяЗапись", Справочники.УчетныеЗаписиЭлектроннойПочты.ПустаяСсылка());
	Результат.Вставить("Получатели", "");
	Результат.Вставить("Тема", "Прайс-лист от [Дата]");
	Результат.Вставить("ТекстПисьма", "Добрый день! Актуальный прайс-лист во вложении.");
	Результат.Вставить("Формат", "xlsx");

	Сохраненные = ХранилищеОбщихНастроек.Загрузить("РассылкаПрайсов",
		"Профиль" + НомерПрофиля, , ИмяПользователяХранилища());

	Если ТипЗнч(Сохраненные) = Тип("Структура") Тогда
		ЗаполнитьЗначенияСвойств(Результат, Сохраненные);
	КонецЕсли;

	Результат.Колонки = СобратьКолонки(Результат.Колонки, КаталогПолей());

	Возврат Результат;

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

Процедура СохранитьНастройки(НомерПрофиля, Настройки) Экспорт

	ХранилищеОбщихНастроек.Сохранить("РассылкаПрайсов",
		"Профиль" + НомерПрофиля, Настройки, , ИмяПользователяХранилища());

КонецПроцедуры

Процедура ОтправитьПрайс(Настройки) Экспорт

	Если Не ЗначениеЗаполнено(Настройки.УчетнаяЗапись) Тогда
		ВызватьИсключение "Не указана учетная запись электронной почты";
	КонецЕсли;
	Если ПустаяСтрока(Настройки.Получатели) Тогда
		ВызватьИсключение "Не указаны получатели";
	КонецЕсли;

	Попытка
		ТабДок = СформироватьПрайс(Настройки);

		Если Настройки.Формат = "pdf" Тогда
			ТипФайла = ТипФайлаТабличногоДокумента.PDF;
			Расширение = "pdf";
		Иначе
			ТипФайла = ТипФайлаТабличногоДокумента.XLSX;
			Расширение = "xlsx";
		КонецЕсли;

		ДатаСтрока = Формат(ТекущаяДата(), "ДФ=dd.MM.yyyy");

		ВремФайл = ПолучитьИмяВременногоФайла(Расширение);
		ТабДок.Записать(ВремФайл, ТипФайла);
		Данные = Новый ДвоичныеДанные(ВремФайл);
		УдалитьФайлы(ВремФайл);
		Адрес = ПоместитьВоВременноеХранилище(Данные, Новый УникальныйИдентификатор);

		Вложение = Новый Структура;
		Вложение.Вставить("Представление", "Прайс-лист " + ДатаСтрока + "." + Расширение);
		Вложение.Вставить("АдресВоВременномХранилище", Адрес);
		Вложения = Новый Массив;
		Вложения.Добавить(Вложение);

		ПараметрыПисьма = Новый Структура;
		ПараметрыПисьма.Вставить("Кому", Настройки.Получатели);
		ПараметрыПисьма.Вставить("Тема", СтрЗаменить(Настройки.Тема, "[Дата]", ДатаСтрока));
		ПараметрыПисьма.Вставить("Тело", Настройки.ТекстПисьма);
		ПараметрыПисьма.Вставить("Вложения", Вложения);

		РаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(Настройки.УчетнаяЗапись, ПараметрыПисьма);

		ЗаписьЖурналаРегистрации("Рассылка прайс-листов", УровеньЖурналаРегистрации.Информация, ,
			, "Отправлено: " + Настройки.Получатели);
	Исключение
		ЗаписьЖурналаРегистрации("Рассылка прайс-листов", УровеньЖурналаРегистрации.Ошибка, ,
			, ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
		ВызватьИсключение;
	КонецПопытки;

КонецПроцедуры

Функция СформироватьПрайс(Настройки) Экспорт

	Линия = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1);
	Каталог = КаталогПолей();

	Если Не ЗначениеЗаполнено(Настройки.ТипЦен) Тогда
		ВызватьИсключение "Не указан вид цен";
	КонецЕсли;

	ВыбранныеКолонки = Новый Массив;
	Для Каждого Колонка Из Настройки.Колонки Цикл
		Если Колонка.Использовать Тогда
			ВыбранныеКолонки.Добавить(Колонка);
		КонецЕсли;
	КонецЦикла;
	Если ВыбранныеКолонки.Количество() = 0 Тогда
		ВызватьИсключение "Не выбрано ни одной колонки";
	КонецЕсли;

	Свойства = Новый Соответствие;
	НужныОстатки = Настройки.ТолькоВНаличии;

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

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

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

	Поля = Новый Массив;
	Поля.Добавить("ЕСТЬNULL(Ном.Родитель.Наименование, &ПустаяСтрока) КАК Группа");
	Поля.Добавить("Ном.Артикул КАК Артикул");
	Поля.Добавить("Ном.Наименование КАК Наименование");
	Поля.Добавить("Ном.НаименованиеПолное КАК НаименованиеПолное");
	Поля.Добавить("ЕСТЬNULL(Цены.Характеристика.Наименование, &ПустаяСтрока) КАК Характеристика");
	Поля.Добавить("ЕСТЬNULL(Ном.ЕдиницаИзмерения.Наименование, &ПустаяСтрока) КАК Единица");
	Поля.Добавить("Цены.Цена КАК Цена");
	Если НужныОстатки Тогда
		Поля.Добавить("ЕСТЬNULL(Остатки.Остаток, 0) КАК Остаток");
	КонецЕсли;
	Если Каталог.Найти("Производитель", "Поле") <> Неопределено Тогда
		Поля.Добавить("Ном.Производитель КАК Производитель");
	КонецЕсли;
	Для Каждого Элемент Из Свойства Цикл
		Поля.Добавить("Доп_" + Элемент.Ключ + ".Значение КАК " + Элемент.Ключ);
	КонецЦикла;

	Текст = "ВЫБРАТЬ " + СтрСоединить(Поля, ", ");
	Текст = Текст + " ИЗ РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&Дата, ВидЦен = &ТипЦен) КАК Цены";
	Текст = Текст + " ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Номенклатура КАК Ном ПО Цены.Номенклатура = Ном.Ссылка";

	Для Каждого Элемент Из Свойства Цикл
		Имя = Элемент.Ключ;
		Текст = Текст + " ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Номенклатура.ДополнительныеРеквизиты КАК Доп_" + Имя
			+ " ПО Доп_" + Имя + ".Ссылка = Ном.Ссылка И Доп_" + Имя + ".Свойство = &П_" + Имя;
		Запрос.УстановитьПараметр("П_" + Имя, Элемент.Значение);
	КонецЦикла;

	Если НужныОстатки Тогда
		УсловиеСклада = ?(Настройки.Склады.Количество() > 0, "СтруктурнаяЕдиница В (&Склады)", "");
		Текст = Текст + " ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ Ост.Номенклатура КАК Номенклатура, Ост.Характеристика КАК Характеристика,"
			+ " СУММА(Ост.КоличествоОстаток) КАК Остаток"
			+ " ИЗ РегистрНакопления.ЗапасыНаСкладах.Остатки(&Дата, " + УсловиеСклада + ") КАК Ост"
			+ " СГРУППИРОВАТЬ ПО Ост.Номенклатура, Ост.Характеристика) КАК Остатки"
			+ " ПО Остатки.Номенклатура = Цены.Номенклатура И Остатки.Характеристика = Цены.Характеристика";
		Запрос.УстановитьПараметр("Склады", Настройки.Склады);
	КонецЕсли;

	Условия = Новый Массив;
	Условия.Добавить("НЕ Ном.ПометкаУдаления");
	Условия.Добавить("НЕ Ном.ЭтоГруппа");
	Условия.Добавить("Цены.Цена > 0");
	Условия.Добавить("Цены.Актуальность");
	Если Настройки.ТолькоЗапасы Тогда
		Условия.Добавить("Ном.ТипНоменклатуры = ЗНАЧЕНИЕ(Перечисление.ТипыНоменклатуры.Запас)");
	КонецЕсли;
	Если Настройки.Группы.Количество() > 0 Тогда
		Условия.Добавить("Ном.Ссылка В ИЕРАРХИИ(&Группы)");
		Запрос.УстановитьПараметр("Группы", Настройки.Группы);
	КонецЕсли;
	Если Настройки.ТолькоВНаличии Тогда
		Условия.Добавить("ЕСТЬNULL(Остатки.Остаток, 0) > 0");
	КонецЕсли;

	Текст = Текст + " ГДЕ " + СтрСоединить(Условия, " И ");

	Запрос.Текст = Текст;
	Запрос.УстановитьПараметр("Дата", ТекущаяДата());
	Запрос.УстановитьПараметр("ТипЦен", Настройки.ТипЦен);
	Запрос.УстановитьПараметр("ПустаяСтрока", "");

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

	Таблица.Колонки.Добавить("ИмяВПрайсе");
	Для Каждого СтрокаТ Из Таблица Цикл
		Имя = СтрокаТ.Наименование;
		Если Настройки.ИсточникНаименования = "Полное" Тогда
			Если Не ПустаяСтрока(СтрокаТ.НаименованиеПолное) Тогда
				Имя = СтрокаТ.НаименованиеПолное;
			КонецЕсли;
		ИначеЕсли Настройки.ИсточникНаименования = "Свойство" Тогда
			ЗначениеСвойства = ВСтроку(СтрокаТ.СвойствоИмя);
			Если Не ПустаяСтрока(ЗначениеСвойства) Тогда
				Имя = ЗначениеСвойства;
			КонецЕсли;
		КонецЕсли;
		СтрокаТ.ИмяВПрайсе = Имя;
	КонецЦикла;

	Если Настройки.ЗаголовкиГрупп Тогда
		Таблица.Сортировать("Группа, ИмяВПрайсе");
	Иначе
		Таблица.Сортировать("ИмяВПрайсе");
	КонецЕсли;

	ЧислоКолонок = ВыбранныеКолонки.Количество();

	ТабДок = Новый ТабличныйДокумент;
	ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
	ТабДок.ПолеСлева = 10;
	ТабДок.ПолеСправа = 10;
	ТабДок.АвтоМасштаб = Истина;

	НомерСтроки = 1;
	ТабДок.Область(НомерСтроки, 1).Текст = "Прайс-лист на " + Формат(ТекущаяДата(), "ДФ=dd.MM.yyyy")
		+ " (" + Настройки.ТипЦен + ")";
	ТабДок.Область(НомерСтроки, 1).Шрифт = Новый Шрифт(, 12, Истина);
	НомерСтроки = НомерСтроки + 2;

	Для Индекс = 0 По ЧислоКолонок - 1 Цикл
		Колонка = ВыбранныеКолонки[Индекс];
		Ячейка = ТабДок.Область(НомерСтроки, Индекс + 1);
		Ячейка.Текст = Колонка.Заголовок;
		Ячейка.Шрифт = Новый Шрифт(, , Истина);
		Ячейка.ЦветФона = Новый Цвет(220, 220, 220);
		Ячейка.Обвести(Линия, Линия, Линия, Линия);

		Ширина = 20;
		СтрокаКаталога = Каталог.Найти(Колонка.Поле, "Поле");
		Если СтрокаКаталога <> Неопределено Тогда
			Ширина = СтрокаКаталога.Ширина;
		КонецЕсли;
		ТабДок.Область(, Индекс + 1, , Индекс + 1).ШиринаКолонки = Ширина;
	КонецЦикла;
	ТабДок.ФиксацияСверху = НомерСтроки;
	НомерСтроки = НомерСтроки + 1;

	ТекущаяГруппа = Неопределено;

	Для Каждого СтрокаТ Из Таблица Цикл

		Если Настройки.ЗаголовкиГрупп И СтрокаТ.Группа <> ТекущаяГруппа Тогда
			ТекущаяГруппа = СтрокаТ.Группа;
			Если Не ПустаяСтрока(ТекущаяГруппа) Тогда
				Область = ТабДок.Область(НомерСтроки, 1, НомерСтроки, ЧислоКолонок);
				Область.Объединить();
				Область.Текст = ТекущаяГруппа;
				Область.Шрифт = Новый Шрифт(, , Истина);
				Область.ЦветФона = Новый Цвет(240, 240, 240);
				НомерСтроки = НомерСтроки + 1;
			КонецЕсли;
		КонецЕсли;

		Для Индекс = 0 По ЧислоКолонок - 1 Цикл
			Колонка = ВыбранныеКолонки[Индекс];
			Ячейка = ТабДок.Область(НомерСтроки, Индекс + 1);

			Если Колонка.Поле = "Цена" Тогда
				Ячейка.Значение = СтрокаТ.Цена;
				Ячейка.Формат = "ЧДЦ=2";
				Ячейка.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Право;
			ИначеЕсли Колонка.Поле = "Остаток" Тогда
				Ячейка.Значение = Окр(СтрокаТ.Остаток, 3);
				Ячейка.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Право;
			ИначеЕсли Колонка.Поле = "Наименование" Тогда
				Ячейка.Текст = СтрокаТ.ИмяВПрайсе;
			Иначе
				Ячейка.Текст = ВСтроку(СтрокаТ[Колонка.Поле]);
			КонецЕсли;
		КонецЦикла;

		НомерСтроки = НомерСтроки + 1;

	КонецЦикла;

	Возврат ТабДок;

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

#КонецОбласти

#Область СлужебныеПроцедурыИФункции

Функция ИмяПользователяХранилища()
	Возврат "РассылкаПрайсов_Общие";
КонецФункции

Функция ВСтроку(Значение)
	Если Значение = Null Или Значение = Неопределено Тогда
		Возврат "";
	КонецЕсли;
	Возврат СокрЛП(Строка(Значение));
КонецФункции

Процедура ДобавитьПолеКаталога(Каталог, Поле, Название, Ширина, ПоУмолчанию)
	Новая = Каталог.Добавить();
	Новая.Поле = Поле;
	Новая.Название = Название;
	Новая.Ширина = Ширина;
	Новая.ПоУмолчанию = ПоУмолчанию;
КонецПроцедуры

Функция НоваяКолонка(Поле, Использовать, Заголовок, Свойство)
	Результат = Новый Структура;
	Результат.Вставить("Поле", Поле);
	Результат.Вставить("Использовать", Использовать);
	Результат.Вставить("Заголовок", Заголовок);
	Результат.Вставить("Свойство", Свойство);
	Возврат Результат;
КонецФункции

Функция СобратьКолонки(Сохраненные, Каталог)

	Результат = Новый Массив;
	Добавленные = Новый Соответствие;
	ПустоеСвойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.ПустаяСсылка();

	Для Каждого Колонка Из Сохраненные Цикл
		Если Каталог.Найти(Колонка.Поле, "Поле") = Неопределено Или Добавленные[Колонка.Поле] <> Неопределено Тогда
			Продолжить;
		КонецЕсли;
		Добавленные.Вставить(Колонка.Поле, Истина);
		Результат.Добавить(НоваяКолонка(Колонка.Поле, Колонка.Использовать, Колонка.Заголовок, Колонка.Свойство));
	КонецЦикла;

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

	Возврат Результат;

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

#КонецОбласти

Нажмите Ctrl+F7. Ошибок быть не должно.

Шаг 3. Создайте форму
В дереве правой кнопкой по «Формы» → «Добавить».
Имя строго Форма, ничего больше не меняйте → «Готово».
На вкладке «Форма» ничего не добавляйте. В окне «Элементы» должна быть только «Командная панель», в «Реквизитах» только «Объект».
Шаг 4. Модуль формы

Внизу окна формы откройте вкладку «Модуль», Ctrl+A, Delete и вставьте:

bsl
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

	СоздатьРеквизиты();
	СоздатьЭлементы();
	ЗагрузитьНастройкиНаСервере(1);

КонецПроцедуры

#Область Команды

&НаКлиенте
Процедура НомерПрофиляПриИзменении(Элемент)
	ЗагрузитьНастройкиНаСервере(ЭтаФорма.НомерПрофиля);
КонецПроцедуры

&НаКлиенте
Процедура СохранитьНастройки(Команда)
	СохранитьНаСервере(ЭтаФорма.НомерПрофиля);
	ПоказатьОповещениеПользователя("Настройки сохранены");
КонецПроцедуры

&НаКлиенте
Процедура ПоказатьПредпросмотр(Команда)
	ПредпросмотрНаСервере();
	Элементы.ГруппаСтраниц.ТекущаяСтраница = Элементы.СтраницаПредпросмотр;
КонецПроцедуры

&НаКлиенте
Процедура ОтправитьСейчас(Команда)
	СохранитьНаСервере(ЭтаФорма.НомерПрофиля);
	ОтправитьНаСервере();
	ПоказатьОповещениеПользователя("Прайс-лист отправлен");
КонецПроцедуры

&НаКлиенте
Процедура КолонкаВверх(Команда)
	СдвинутьКолонку(-1);
КонецПроцедуры

&НаКлиенте
Процедура КолонкаВниз(Команда)
	СдвинутьКолонку(1);
КонецПроцедуры

&НаКлиенте
Процедура СдвинутьКолонку(Смещение)

	Данные = Элементы.Колонки.ТекущиеДанные;
	Если Данные = Неопределено Тогда
		Возврат;
	КонецЕсли;

	КолонкиФормы = ЭтаФорма.Колонки;
	Индекс = КолонкиФормы.Индекс(Данные);
	НовыйИндекс = Индекс + Смещение;
	Если НовыйИндекс < 0 Или НовыйИндекс >= КолонкиФормы.Количество() Тогда
		Возврат;
	КонецЕсли;

	КолонкиФормы.Сдвинуть(Индекс, Смещение);
	Элементы.Колонки.ТекущаяСтрока = Данные.ПолучитьИдентификатор();

КонецПроцедуры

#КонецОбласти

#Область РаботаНаСервере

&НаСервере
Функция НастройкиИзФормы()

	Результат = Новый Структура;
	Результат.Вставить("ТипЦен", ЭтаФорма.ТипЦен);
	Результат.Вставить("ТолькоВНаличии", ЭтаФорма.ТолькоВНаличии);
	Результат.Вставить("ТолькоЗапасы", ЭтаФорма.ТолькоЗапасы);
	Результат.Вставить("ЗаголовкиГрупп", ЭтаФорма.ЗаголовкиГрупп);
	Результат.Вставить("ИсточникНаименования", ЭтаФорма.ИсточникНаименования);
	Результат.Вставить("СвойствоНаименования", ЭтаФорма.СвойствоНаименования);
	Результат.Вставить("УчетнаяЗапись", ЭтаФорма.УчетнаяЗапись);
	Результат.Вставить("Получатели", ЭтаФорма.Получатели);
	Результат.Вставить("Тема", ЭтаФорма.Тема);
	Результат.Вставить("ТекстПисьма", ЭтаФорма.ТекстПисьма);
	Результат.Вставить("Формат", ЭтаФорма.Формат);

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

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

	Колонки = Новый Массив;
	Для Каждого СтрокаКолонки Из ЭтаФорма.Колонки Цикл
		Колонка = Новый Структура;
		Колонка.Вставить("Поле", СтрокаКолонки.Поле);
		Колонка.Вставить("Использовать", СтрокаКолонки.Использовать);
		Колонка.Вставить("Заголовок", СтрокаКолонки.Заголовок);
		Колонка.Вставить("Свойство", СтрокаКолонки.Свойство);
		Колонки.Добавить(Колонка);
	КонецЦикла;
	Результат.Вставить("Колонки", Колонки);

	Возврат Результат;

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

&НаСервере
Процедура ЗагрузитьНастройкиНаСервере(Профиль)

	ЭтаФорма.НомерПрофиля = Профиль;
	ОбъектОбработки = РеквизитФормыВЗначение("Объект");
	Настройки = ОбъектОбработки.ПолучитьНастройки(Профиль);
	Каталог = ОбъектОбработки.КаталогПолей();

	ЭтаФорма.ТипЦен = Настройки.ТипЦен;
	ЭтаФорма.ТолькоВНаличии = Настройки.ТолькоВНаличии;
	ЭтаФорма.ТолькоЗапасы = Настройки.ТолькоЗапасы;
	ЭтаФорма.ЗаголовкиГрупп = Настройки.ЗаголовкиГрупп;
	ЭтаФорма.ИсточникНаименования = Настройки.ИсточникНаименования;
	ЭтаФорма.СвойствоНаименования = Настройки.СвойствоНаименования;
	ЭтаФорма.УчетнаяЗапись = Настройки.УчетнаяЗапись;
	ЭтаФорма.Получатели = Настройки.Получатели;
	ЭтаФорма.Тема = Настройки.Тема;
	ЭтаФорма.ТекстПисьма = Настройки.ТекстПисьма;
	ЭтаФорма.Формат = Настройки.Формат;

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

	ЭтаФорма.ГруппыОтбора.Очистить();
	Для Каждого Группа Из Настройки.Группы Цикл
		ЭтаФорма.ГруппыОтбора.Добавить().Группа = Группа;
	КонецЦикла;

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

КонецПроцедуры

&НаСервере
Процедура СохранитьНаСервере(Профиль)
	РеквизитФормыВЗначение("Объект").СохранитьНастройки(Профиль, НастройкиИзФормы());
КонецПроцедуры

&НаСервере
Процедура ОтправитьНаСервере()
	РеквизитФормыВЗначение("Объект").ОтправитьПрайс(НастройкиИзФормы());
КонецПроцедуры

&НаСервере
Процедура ПредпросмотрНаСервере()
	ТабДок = РеквизитФормыВЗначение("Объект").СформироватьПрайс(НастройкиИзФормы());
	ЗначениеВРеквизитФормы(ТабДок, "Предпросмотр");
КонецПроцедуры

#КонецОбласти

#Область ПостроениеФормы

&НаСервере
Процедура СоздатьРеквизиты()

	ТБулево = Новый ОписаниеТипов("Булево");
	ТСтрока20 = Новый ОписаниеТипов("Строка", , Новый КвалификаторыСтроки(20));
	ТСтрока30 = Новый ОписаниеТипов("Строка", , Новый КвалификаторыСтроки(30));
	ТСтрока50 = Новый ОписаниеТипов("Строка", , Новый КвалификаторыСтроки(50));
	ТСтрока100 = Новый ОписаниеТипов("Строка", , Новый КвалификаторыСтроки(100));
	ТСтрока200 = Новый ОписаниеТипов("Строка", , Новый КвалификаторыСтроки(200));
	ТСтрока500 = Новый ОписаниеТипов("Строка", , Новый КвалификаторыСтроки(500));
	ТСтрокаБезОграничений = Новый ОписаниеТипов("Строка", , Новый КвалификаторыСтроки(0));
	ТСвойство = Новый ОписаниеТипов("ПланВидовХарактеристикСсылка.ДополнительныеРеквизитыИСведения");

	Реквизиты = Новый Массив;
	Реквизиты.Добавить(Новый РеквизитФормы("НомерПрофиля",
		Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(1, 0)), "", "Профиль рассылки"));
	Реквизиты.Добавить(Новый РеквизитФормы("ТипЦен",
		Новый ОписаниеТипов("СправочникСсылка.ВидыЦен"), "", "Вид цен"));
	Реквизиты.Добавить(Новый РеквизитФормы("ТолькоВНаличии", ТБулево, "", "Только то, что есть в наличии"));
	Реквизиты.Добавить(Новый РеквизитФормы("ТолькоЗапасы", ТБулево, "", "Только товары (без услуг и работ)"));
	Реквизиты.Добавить(Новый РеквизитФормы("ЗаголовкиГрупп", ТБулево, "", "Выводить названия групп"));
	Реквизиты.Добавить(Новый РеквизитФормы("ИсточникНаименования", ТСтрока20, "", "Откуда брать наименование"));
	Реквизиты.Добавить(Новый РеквизитФормы("СвойствоНаименования", ТСвойство, "", "Свойство с наименованием"));
	Реквизиты.Добавить(Новый РеквизитФормы("УчетнаяЗапись",
		Новый ОписаниеТипов("СправочникСсылка.УчетныеЗаписиЭлектроннойПочты"), "", "Учетная запись почты"));
	Реквизиты.Добавить(Новый РеквизитФормы("Получатели", ТСтрока500, "", "Получатели (через ;)"));
	Реквизиты.Добавить(Новый РеквизитФормы("Тема", ТСтрока200, "", "Тема письма"));
	Реквизиты.Добавить(Новый РеквизитФормы("ТекстПисьма", ТСтрокаБезОграничений, "", "Текст письма"));
	Реквизиты.Добавить(Новый РеквизитФормы("Формат", Новый ОписаниеТипов("Строка", , Новый КвалификаторыСтроки(4)),
		"", "Формат файла"));
	Реквизиты.Добавить(Новый РеквизитФормы("Склады", Новый ОписаниеТипов("СписокЗначений"), "", "Склады"));
	Реквизиты.Добавить(Новый РеквизитФормы("Предпросмотр", Новый ОписаниеТипов("ТабличныйДокумент"), "", "Предпросмотр"));

	Реквизиты.Добавить(Новый РеквизитФормы("ГруппыОтбора", Новый ОписаниеТипов("ТаблицаЗначений"), "", "Группы"));
	Реквизиты.Добавить(Новый РеквизитФормы("Группа",
		Новый ОписаниеТипов("СправочникСсылка.Номенклатура"), "ГруппыОтбора", "Группа"));

	Реквизиты.Добавить(Новый РеквизитФормы("Колонки", Новый ОписаниеТипов("ТаблицаЗначений"), "", "Колонки"));
	Реквизиты.Добавить(Новый РеквизитФормы("Использовать", ТБулево, "Колонки", "Выводить"));
	Реквизиты.Добавить(Новый РеквизитФормы("Поле", ТСтрока30, "Колонки", "Поле"));
	Реквизиты.Добавить(Новый РеквизитФормы("Название", ТСтрока50, "Колонки", "Что это"));
	Реквизиты.Добавить(Новый РеквизитФормы("Заголовок", ТСтрока100, "Колонки", "Заголовок в прайсе"));
	Реквизиты.Добавить(Новый РеквизитФормы("Свойство", ТСвойство, "Колонки", "Доп. свойство"));

	ИзменитьРеквизиты(Реквизиты);

КонецПроцедуры

&НаСервере
Процедура СоздатьЭлементы()

	ГруппаКнопок = ДобавитьГруппу("ГруппаКнопок", Неопределено, ВидГруппыФормы.ОбычнаяГруппа, "Действия");
	ГруппаКнопок.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Горизонтальная;
	ГруппаКнопок.ОтображатьЗаголовок = Ложь;
	ДобавитьКнопку("КнопкаСохранить", "СохранитьНастройки", "Сохранить настройки", ГруппаКнопок);
	ДобавитьКнопку("КнопкаПредпросмотр", "ПоказатьПредпросмотр", "Предпросмотр", ГруппаКнопок);
	ДобавитьКнопку("КнопкаОтправить", "ОтправитьСейчас", "Отправить сейчас", ГруппаКнопок);

	ГруппаСтраниц = ДобавитьГруппу("ГруппаСтраниц", Неопределено, ВидГруппыФормы.Страницы, "Страницы");

	// Основное
	Страница = ДобавитьГруппу("СтраницаОсновное", ГруппаСтраниц, ВидГруппыФормы.Страница, "Основное");

	Поле = ДобавитьПоле("НомерПрофиля", Страница, ВидПоляФормы.ПолеВвода);
	Поле.РежимВыбораИзСписка = Истина;
	Для Номер = 1 По 3 Цикл
		Поле.СписокВыбора.Добавить(Номер);
	КонецЦикла;
	Поле.УстановитьДействие("ПриИзменении", "НомерПрофиляПриИзменении");

	ДобавитьПоле("ТипЦен", Страница, ВидПоляФормы.ПолеВвода);
	ДобавитьПоле("ТолькоВНаличии", Страница, ВидПоляФормы.ПолеФлажка);
	ДобавитьПоле("ТолькоЗапасы", Страница, ВидПоляФормы.ПолеФлажка);
	ДобавитьПоле("ЗаголовкиГрупп", Страница, ВидПоляФормы.ПолеФлажка);

	Поле = ДобавитьПоле("ИсточникНаименования", Страница, ВидПоляФормы.ПолеВвода);
	Поле.РежимВыбораИзСписка = Истина;
	Поле.СписокВыбора.Добавить("Наименование", "Наименование (краткое)");
	Поле.СписокВыбора.Добавить("Полное", "Полное наименование (для печати)");
	Поле.СписокВыбора.Добавить("Свойство", "Дополнительное свойство (например, для сайта)");

	ДобавитьПоле("СвойствоНаименования", Страница, ВидПоляФормы.ПолеВвода);

	// Колонки
	Страница = ДобавитьГруппу("СтраницаКолонки", ГруппаСтраниц, ВидГруппыФормы.Страница, "Колонки");
	ДобавитьНадпись("НадписьКолонки", Страница,
		"Отметьте нужные колонки, порядок меняйте кнопками. Для строк «Доп. свойство N» выберите справа нужное свойство.");

	ГруппаСтрелок = ДобавитьГруппу("ГруппаСтрелок", Страница, ВидГруппыФормы.ОбычнаяГруппа, "Порядок");
	ГруппаСтрелок.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Горизонтальная;
	ГруппаСтрелок.ОтображатьЗаголовок = Ложь;
	ДобавитьКнопку("КнопкаВверх", "КолонкаВверх", "Вверх", ГруппаСтрелок);
	ДобавитьКнопку("КнопкаВниз", "КолонкаВниз", "Вниз", ГруппаСтрелок);

	Таблица = ДобавитьТаблицу("Колонки", Страница);
	Таблица.ИзменятьСоставСтрок = Ложь;
	ДобавитьПолеТаблицы("КолонкиИспользовать", "Колонки.Использовать", Таблица, ВидПоляФормы.ПолеФлажка);
	Поле = ДобавитьПолеТаблицы("КолонкиНазвание", "Колонки.Название", Таблица, ВидПоляФормы.ПолеВвода);
	Поле.ТолькоПросмотр = Истина;
	ДобавитьПолеТаблицы("КолонкиЗаголовок", "Колонки.Заголовок", Таблица, ВидПоляФормы.ПолеВвода);
	ДобавитьПолеТаблицы("КолонкиСвойство", "Колонки.Свойство", Таблица, ВидПоляФормы.ПолеВвода);

	// Отбор
	Страница = ДобавитьГруппу("СтраницаОтбор", ГруппаСтраниц, ВидГруппыФормы.Страница, "Отбор");

	ДобавитьНадпись("НадписьСклады", Страница,
		"Склады, по которым считается остаток (если ничего не отмечено, то по всем):");
	Таблица = ДобавитьТаблицу("Склады", Страница);
	Таблица.ИзменятьСоставСтрок = Ложь;
	Таблица.Высота = 6;
	ДобавитьПолеТаблицы("СкладыПометка", "Склады.Пометка", Таблица, ВидПоляФормы.ПолеФлажка);
	Поле = ДобавитьПолеТаблицы("СкладыПредставление", "Склады.Представление", Таблица, ВидПоляФормы.ПолеВвода);
	Поле.ТолькоПросмотр = Истина;

	ДобавитьНадпись("НадписьГруппы", Страница,
		"Показывать только эти группы номенклатуры (пусто, то весь каталог):");
	Таблица = ДобавитьТаблицу("ГруппыОтбора", Страница);
	Таблица.Высота = 6;
	Поле = ДобавитьПолеТаблицы("ГруппыОтбораГруппа", "ГруппыОтбора.Группа", Таблица, ВидПоляФормы.ПолеВвода);
	Поле.ВыборГруппИЭлементов = ИспользованиеГруппИЭлементов.Группы;

	// Письмо
	Страница = ДобавитьГруппу("СтраницаПисьмо", ГруппаСтраниц, ВидГруппыФормы.Страница, "Письмо");
	ДобавитьПоле("УчетнаяЗапись", Страница, ВидПоляФормы.ПолеВвода);
	ДобавитьПоле("Получатели", Страница, ВидПоляФормы.ПолеВвода);
	ДобавитьПоле("Тема", Страница, ВидПоляФормы.ПолеВвода);
	Поле = ДобавитьПоле("ТекстПисьма", Страница, ВидПоляФормы.ПолеВвода);
	Поле.МногострочныйРежим = Истина;
	Поле.Высота = 4;
	Поле = ДобавитьПоле("Формат", Страница, ВидПоляФормы.ПолеВвода);
	Поле.РежимВыбораИзСписка = Истина;
	Поле.СписокВыбора.Добавить("xlsx");
	Поле.СписокВыбора.Добавить("pdf");

	// Предпросмотр
	Страница = ДобавитьГруппу("СтраницаПредпросмотр", ГруппаСтраниц, ВидГруппыФормы.Страница, "Предпросмотр");
	Поле = ДобавитьПоле("Предпросмотр", Страница, ВидПоляФормы.ПолеТабличногоДокумента);
	Поле.ОтображатьЗаголовок = Ложь;

КонецПроцедуры

&НаСервере
Функция ДобавитьЭлемент(Имя, ТипЭлемента, Родитель)
	Если Родитель = Неопределено Тогда
		Возврат Элементы.Добавить(Имя, ТипЭлемента);
	КонецЕсли;
	Возврат Элементы.Добавить(Имя, ТипЭлемента, Родитель);
КонецФункции

&НаСервере
Функция ДобавитьГруппу(Имя, Родитель, Вид, Заголовок)
	Группа = ДобавитьЭлемент(Имя, Тип("ГруппаФормы"), Родитель);
	Группа.Вид = Вид;
	Группа.Заголовок = Заголовок;
	Возврат Группа;
КонецФункции

&НаСервере
Функция ДобавитьПоле(ИмяРеквизита, Родитель, Вид)
	Поле = ДобавитьЭлемент(ИмяРеквизита, Тип("ПолеФормы"), Родитель);
	Поле.Вид = Вид;
	Поле.ПутьКДанным = ИмяРеквизита;
	Возврат Поле;
КонецФункции

&НаСервере
Функция ДобавитьПолеТаблицы(ИмяЭлемента, Путь, Таблица, Вид)
	Поле = ДобавитьЭлемент(ИмяЭлемента, Тип("ПолеФормы"), Таблица);
	Поле.Вид = Вид;
	Поле.ПутьКДанным = Путь;
	Возврат Поле;
КонецФункции

&НаСервере
Функция ДобавитьТаблицу(ИмяРеквизита, Родитель)
	Таблица = ДобавитьЭлемент(ИмяРеквизита, Тип("ТаблицаФормы"), Родитель);
	Таблица.ПутьКДанным = ИмяРеквизита;
	Возврат Таблица;
КонецФункции

&НаСервере
Процедура ДобавитьНадпись(Имя, Родитель, Текст)
	Надпись = ДобавитьЭлемент(Имя, Тип("ДекорацияФормы"), Родитель);
	Надпись.Вид = ВидДекорацииФормы.Надпись;
	Надпись.Заголовок = Текст;
КонецПроцедуры

&НаСервере
Процедура ДобавитьКнопку(ИмяКнопки, ИмяКоманды, Заголовок, Родитель)
	Команда = Команды.Добавить(ИмяКоманды);
	Команда.Действие = ИмяКоманды;
	Команда.Заголовок = Заголовок;
	Кнопка = ДобавитьЭлемент(ИмяКнопки, Тип("КнопкаФормы"), Родитель);
	Кнопка.ИмяКоманды = ИмяКоманды;
КонецПроцедуры

#КонецОбласти

Нажмите Ctrl+F7, затем Ctrl+S. Если Конфигуратор покажет ошибки, пришлите фото.

Шаг 5. Подключение в УНФ
Администрирование → Печатные формы, отчёты и обработки → Дополнительные отчёты и обработки → «Создать», выберите РассылкаПрайсов.epf.
Старую обработку «Прайс листы по расписанию» можно отключить (поставить «Отключена» в публикации) или удалить, чтобы не путаться.
В новой карточке запустите «Настройка рассылки прайс-листов» кнопкой «Выполнить». Должны появиться кнопки сверху и вкладки «Основное», «Колонки», «Отбор», «Письмо», «Предпросмотр».
Заполните вид цен, на вкладке «Письмо» укажите учётную запись и получателей, нажмите «Предпросмотр», затем «Сохранить настройки» и «Отправить сейчас».
Расписание ставится так же, как раньше: в строке «Отправить прайс-лист (профиль 1)» в колонке «Расписание», с галочкой.
Если экран снова пустой

Добавьте после Процедура ПриСозданииНаСервере(...) строку ВызватьИсключение "ТЕСТ";, пересоберите файл и загрузите его в УНФ. Если «ТЕСТ» не появится, УНФ открывает не тот файл, и тогда надо удалить обработку из списка и создать заново. Если появится, уберите строку и пришлите, что видите.

Поля «Производитель» и «Наименование для сайта»: производитель появится отдельной колонкой, если такой реквизит есть у номенклатуры. Если его нет, используйте «Доп. свойство 1» с нужным свойством. Для «Наименования для сайта» на вкладке «Основное» выберите источник «Дополнительное свойство» и укажите это свойство ниже.