Автоприкрепление документов в ДИАДОК
"А можно, чтоб подписанные контрагентом документы сами в присоединённые файлы добавлялись?"
Ответ сотрудников Диадок: можно. С вас 53 000 (с год назад) или ну хотя бы 30 000 (на днях) ... ага, деньги вы заплатили ... и полная база со всеми доступами, иначе мы пальцем не пошевелим!"
Мой ответ: можно. Забирайте.
Ответ сотрудников Диадок: можно. С вас 53 000 (с год назад) или ну хотя бы 30 000 (на днях) ... ага, деньги вы заплатили ... и полная база со всеми доступами, иначе мы пальцем не пошевелим!"
Мой ответ: можно. Забирайте.
Комментарии
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
Поделюсь тоже своими раскопками. Единственная разница в том, что к документу прикрепляется архив, внутри которого подписанный pdf и сами файлы подписей.
Вызываю из модуля объекта обработки из процедуры СписокДокументов_Обновить.
Через подключаемый модуль, увы, не сделать это.
Вот урезанный кусок кода для примера:
Вызываю из модуля объекта обработки из процедуры СписокДокументов_Обновить.
Через подключаемый модуль, увы, не сделать это.
Вот урезанный кусок кода для примера:
Код |
|---|
Попытка
//для этого метода (если запускать получение файлов из подключаемого модуля) требуется запуск авторизации
Идентификаторы = Новый_Идентификаторы(,, boxId, Стр.letterId, Стр.documentId); //см ниже
Для Счетчик = 1 По 5 Цикл
ДвоичныеДанныеФайла = Модуль_Ядро.Сохранение_ПолучитьАрхивДокументооборота(Идентификаторы);
Если ТипЗнч(ДвоичныеДанныеФайла) = Тип("ДвоичныеДанные") Тогда
Прервать;
КонецЕсли;
КонецЦикла;
АдресВременногоФайла = ПоместитьВоВременноеХранилище(ДвоичныеДанныеФайла,
Новый УникальныйИдентификатор);
ПараметрыФайла = РаботаСФайлами.ПараметрыДобавленияФайла();
ПараметрыФайла.Автор = Пользователи.ТекущийПользователь();
ПараметрыФайла.ВладелецФайлов = Документ1С;
//СтрЗаменить(ИмяФайлаСРасширением, "." + Расширение, "");
ПараметрыФайла.ИмяБезРасширения = "вашеимяфайла";
ПараметрыФайла.РасширениеБезТочки = "zip";
РаботаСФайлами.ДобавитьФайл(ПараметрыФайла, АдресВременногоФайла);
ФайлПрисоединен = Истина;
Исключение
ФайлПрисоединен = Ложь;
КонецПопытки;
//////////////////////////////////////////////////////////// Показать |
Одно время играл в догонялки с их отделом разработки, втыкая свои вставки в очередные релизы. Психанул, воткнул во внешний модуль.
Я похожую задачу воткнул в регламент
Я похожую задачу воткнул в регламент
Обработка = ВнешниеОбработки.Создать("путь к Диадок 1С.epf", Ложь);
Обработка.ИнициализироватьОбщийКонтекст();
Ядро = Обработка.Модуль_Ядро();
Ядро.Авторизация_ПоПаролю(Логин, Пароль);
Ядро.КонтекстСеанса_ДляСлужебнойУчетнойЗаписи();
Ядро.ТипыДокументовAPI_ПроверитьНаличие();
ПараметрыСписка = Ядро.Контракт_ПараметрыПолученияСпискаДокументов();
ПараметрыСписка.Режим = "ОтправленныеДокументы";
ПараметрыСписка.НачалоПериода = НачалоДня(Дата);
ПараметрыСписка.КонецПериода = КонецДня(ТекущаяДата());
ПараметрыСписка.ПоказыватьЗавершенные = Ложь;
ПараметрыСписка.РежимОтбораПоПериоду = "ПоДатеОтправкиИлиПолучения";
ПараметрыСписка.ВключитьОтборПоОрганизации = Ложь;
ПараметрыСписка.ВключитьОтборПоКонтрагенту = Ложь;
ПараметрыСписка.ВключитьОтборПоСтатусу = Истина;
ПараметрыСписка.ОтборПоСтатусу = "Подписан контрагентом";
СтруктураДокумента = Новый Структура;
СтруктураДокумента.Вставить("BoxId", НашИдОтправителя);
СписокДокументов = Ядро.СписокДокументов_Документы(ПараметрыСписка);
Для Каждого х ИЗ СписокДокументов Цикл
СтруктураДокумента.Вставить("DocumentId", х.DocumentId);
СтруктураДокумента.Вставить("LetterId", х.LetterId);
ПечатнаяФорма = Ядро.Документы_ПечатнаяФормаСервераДиадок(СтруктураДокумента); //пдф
КонецЦикла;
Обработка.ЗавершитьРаботуМодуля();
Показать