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

Нажмите сюда для просмотра этой темы в обычном формате

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ Программирование в 1С Предприятие 8.3 _ Выполнить действия после закрытия документа

Автор: 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 * ,
дякую))

Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua