Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 1, свеженьких 1
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Выполнить действия после закрытия документа          
burza Подменю пользователя
сообщение 15.02.24, 16:48
Сообщение #1

Оратор
*****
Группа: Пользователи
Сообщений: 312
Спасибо сказали: 1 раз
Рейтинг: 1

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

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

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

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

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


Сообщение отредактировал Vofka - 16.02.24, 10:00

sava1 Подменю пользователя
сообщение 15.02.24, 16:59
Сообщение #2

Живет на форуме
Иконка группы
Группа: Местный
Сообщений: 2688
Из: Проскуров
Спасибо сказали: 681 раз
Рейтинг: 659.7

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

Спасибо сказали: burza,

burza Подменю пользователя
сообщение 15.02.24, 17:17
Сообщение #3

Оратор
*****
Группа: Пользователи
Сообщений: 312
Спасибо сказали: 1 раз
Рейтинг: 1

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

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 13.04.24, 9:46
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!