Здравствуйте, с Новым годом форумчане! Вопрос про 1с ЭДО. Наш поставщик отправляет нам документы на подписание через СБиС, в формате Эксель, соответственно и к нам этот документ поступает в экселевский файле. Но при подписании этого документа, электронные подписи в документе не отображаются, программа предлагает распечатать только карточку с электронными подписями. Как решить данный вопрос? Спасибо всем ответившим
По теме из базы знаний
- Сервисы 1С. Часть I
- Доработка функционала отправки дополнительных реквизитов 1С: ЭДО для Татнефть
- Создание произвольных документов для 1С:ЭДО на основе печатных форм документов
- 1С:ЭДО. Печатные формы документа "Электронный документ входящий" неформализованных документов Счет и Акт сверки, полученных в формате xml от контрагента на СБИС
- Автоматическое сохранение печатных форм подписанных входящих документов 1С:ЭДО для 1С:Бухгалтерии 3.0 с отметками ЭП при подписании получателем
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(3) Подобная задача была только для формата PDF, поэтому для Excel могу посоветовать что-то вроде:
Попытка
Excel = Новый COMОбъект("Excel.Application");
Исключение
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;
Попытка
Excel.WorkBooks.Open(ФайлДанных);
Excel.Sheets(1).Select(); // лист 1, по умолчанию
//Получим количество строк и колонок.
//В разных версиях Excel получаются по-разному, поэтому сначала определим версию Excel
Версия = Лев(Excel.Version,Найти(Excel.Version,".")-1);
Если Версия = "8" Тогда
ФайлСтрок = Excel.Cells.CurrentRegion.Rows.Count;
Иначе
ФайлСтрок = Excel.Cells(1,1).SpecialCells(11).Row;
КонецЕсли;
Лист.Cells(ФайлСтрок+1, 1).Value = "Информация о подписи";
Попытка
Excel = Новый COMОбъект("Excel.Application");
Исключение
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;
Попытка
Excel.WorkBooks.Open(ФайлДанных);
Excel.Sheets(1).Select(); // лист 1, по умолчанию
//Получим количество строк и колонок.
//В разных версиях Excel получаются по-разному, поэтому сначала определим версию Excel
Версия = Лев(Excel.Version,Найти(Excel.Version,".")-1);
Если Версия = "8" Тогда
ФайлСтрок = Excel.Cells.CurrentRegion.Rows.Count;
Иначе
ФайлСтрок = Excel.Cells(1,1).SpecialCells(11).Row;
КонецЕсли;
Лист.Cells(ФайлСтрок+1, 1).Value = "Информация о подписи";
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот