Версия для печати темы (https://pro1c.org.ua/index.php?s=d4e5bc88baf1e3934ea4533257e2dbe6&showtopic=67482)

Автор: burza 15.02.24, 16:48

После закрытия документа нужно делать рассылку по электронной почте программно, сформировать документ расходной в екселе. Написал общий модуль туда все запихнул. Ну а вот дальше беда, на форме после закрытие на срабатывает ибо я делаю печатную форму накладной. работает только когда документ полностью закрыт. Как передать документ уже после всего закрытого на общий модуль?

&НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)

mail.ОтправкаПочты(ТекущийОбъект);

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

                    
        СписокОбъектов = Новый Массив();
        СписокОбъектов.Добавить(Док);
                                    
        
        МассивXLS = Новый Массив();
        МассивXLS.Добавить("XLSX");        
        НастройкиСохранения = Новый Структура;
        НастройкиСохранения.Вставить("ФорматыСохранения", МассивXLS); 
        НастройкиСохранения.Вставить("ПодписьИПечать", ложь); 
        НастройкиСохранения.Вставить("ПереводитьИменаФайловВТранслит", ложь);
        НастройкиСохранения.Вставить("УпаковатьВАрхив", ложь);
    
    СформированныеФайлы = УправлениеПечатью.НапечататьВФайл(КомандыПечати, СписокОбъектов, НастройкиСохранения);

Автор: sava1 15.02.24, 16:59

после записи писать ссылку в РС + регл. задание, которое проверяет регистр, формирует файлы, отправляет и удаляет записи РС

Автор: burza 15.02.24, 17:17

sava1 @ Сегодня, 16:59 ,
дякую))