После закрытия документа нужно делать рассылку по электронной почте программно, сформировать документ расходной в екселе. Написал общий модуль туда все запихнул. Ну а вот дальше беда, на форме после закрытие на срабатывает ибо я делаю печатную форму накладной. работает только когда документ полностью закрыт. Как передать документ уже после всего закрытого на общий модуль?
&НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
mail.ОтправкаПочты(ТекущийОбъект);
Функция ОтправкаПочты(Док) экспорт
Пар = Новый ТаблицаЗначений;
Пар.Колонки.Добавить("Идентификатор");
Пар.Колонки.Добавить("МенеджерПечати");
Пар.Колонки.Добавить("УникальныйИдентификатор");
Пар.Колонки.Добавить("ДополнительныеПараметры");
НоваяСтрока = Пар.Добавить();
НоваяСтрока.Идентификатор = "Накладная";
НоваяСтрока.МенеджерПечати = "Документ.РасходнаяНакладная";
НоваяСтрока.УникальныйИдентификатор = "07691C8060031E8CDD5BDFEA5C8E31D8";
НоваяСтрока.ДополнительныеПараметры = Новый Структура;
НоваяСтрока.ДополнительныеПараметры.Вставить("ДополнитьКомплектВнешнимиПечатнымиФормами", ложь);
Для каждого Стр Из Пар Цикл
КомандыПечати = Новый Массив();
КомандыПечати.Добавить(Стр);
КонецЦикла;
СписокОбъектов = Новый Массив();
СписокОбъектов.Добавить(Док);
МассивXLS = Новый Массив();
МассивXLS.Добавить("XLSX");
НастройкиСохранения = Новый Структура;
НастройкиСохранения.Вставить("ФорматыСохранения", МассивXLS);
НастройкиСохранения.Вставить("ПодписьИПечать", ложь);
НастройкиСохранения.Вставить("ПереводитьИменаФайловВТранслит", ложь);
НастройкиСохранения.Вставить("УпаковатьВАрхив", ложь);
СформированныеФайлы = УправлениеПечатью.НапечататьВФайл(КомандыПечати, СписокОбъектов, НастройкиСохранения);
Сообщение отредактировал Vofka - 16.02.24, 10:00