Имя: Пароль:
1C
1С v8
QR-код на печать из 1C в excel
,
0 bodri
 
04.07.17
09:32
Доброго времени суток.
Задача такая:
1. Присоединенные файлы (Excel) распечатать
2. При печати должен на каждой странице быть QR-код ЭЦП.  

С первый проблем не возникло, а вот со вторым, даже не знаю с какой стороны подойти.

Вопрос:
Возможно ли то, что описано в пункту 2.?
1 Звездец
 
04.07.17
09:34
2 bodri
 
04.07.17
09:42
(1) не то.
Есть печатная форма документа, там этот код печатается.
Есть прикрепленные файлы и при их печати нужно добавлять QR-код.
3 shadow_sw
 
04.07.17
09:44
Преобразовать ЭЦП в строку, с помощью внешего API(google  к примеру), генерить QR, картинку сохранять, вставлять в документ
Второй вариант, ЭЦП постоянно - сгенерить один раз, добавить в ОбщиеКартинки - вставлять, печатать
4 bodri
 
04.07.17
09:54
(3) с генерированный QR-код есть, проблема в том, чтоб передать при печати файла, ладно бы в файл добавил в конец эту картинку и распечатал, но ещё надо чтоб на каждой странице
5 bodri
 
04.07.17
10:04
Возможно ли из файла всё что есть запихнуть в ТабличныйДокумент?
6 lodger
 
04.07.17
10:11
7 Базис
 
naïve
04.07.17
10:50
Тебе QR чего нужен? Данных на этой странице, заверенных твоей ЭЦП, соответственно на разных данных - разная картинка? Смотри реготчётность.

Кстати, кто в теме - для одинаковых данных QR будет одинаковым? Или там время, счётчик, рандом?
8 dezss
 
04.07.17
10:53
(7) ну это не способ закодировать документ)))
должен быть одинаковым
9 bodri
 
04.07.17
10:58
(7) QR это просто ЭЦП, мне не надо кодировать весь документ.
10 Базис
 
naïve
04.07.17
11:01
(9) Уточни, т.к. возможно нужно защитить печатную форму от модификации путём указания контрольной суммы, привязанной одновременно и к ЭЦП, и к данным. Иначе дорисованная копия документа с увеличенными в 1000 раз количествами и суммами и просто-ЭЦП будет считаться правильной.
11 bodri
 
04.07.17
11:25
(10) не нужно, ЭЦП для идентификации пользователя, не более
12 shadow_sw
 
04.07.17
11:28
судя по (4) QR есть, в чем проблема передать в табличный документ(создай параметр)
13 Базис
 
naïve
04.07.17
11:39
Тебе переверстать документ надо, чтобы осталось место в подвале?
14 FIXXXL
 
04.07.17
11:54
(13) ему надо в файл Экселя засунуть картинку на каждый печатный лист
15 bodri
 
04.07.17
11:57
(14) точно
16 bodri
 
03.08.17
03:29
Добрался я до этой темы опять.
Для печати QR-кода на каждой странице прикрепленного файла извратился с колонтитулами. При прикреплении файла добавляю колонтитул как строку с пояснением так и сам код. С вордом проблем нет всё выводи, а вот с екселем проблема - картинку не хочет добавлять.

делаю так:

Процедура ДобавитьКолонтитулВФайлXLS(АдресВоВременномХранилище,ПараметрФайла,АдресКартинки)

    ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВоВременномХранилище);
    
    ИмяФайла = КаталогВременныхФайлов() + "tempDoc." + ПараметрФайла.РасширениеБезТочки;
    ИмяФайла1 = КаталогВременныхФайлов() + "tempDoc1." + ПараметрФайла.РасширениеБезТочки;
    
    ДвоичныеДанные.Записать(ИмяФайла);
    Попытка
        
        Excel = Новый COMОбъект("Excel.Application");
    Исключение
        Сообщить(ОписаниеОшибки());
        возврат;
    КонецПопытки;
    
    Excel.DisplayAlerts = 0;
    Книга = Excel.Workbooks.Open(ИмяФайла,,1);
    ExcelЛист = Книга.Worksheets(1);
    ExcelЛист.PageSetup.Orientation = 1;
    
    ExcelЛист.PageSetup.CenterFooter = "Документ подписан электронно-цифровой подписью: " + СокрЛП(ПараметрФайла.КомуВыданСертификат + " - " + ПараметрФайла.Отпечаток);
    Если не ПустаяСтрока(АдресКартинки) Тогда
        ExcelЛист.PageSetup.CenterFooterPicture.Filename = АдресКартинки;
    КонецЕсли;
    Книга.SaveAs(ИмяФайла1);
    Книга.Close(0);
    
    ДвоичныеДанные = Новый ДвоичныеДанные(ИмяФайла1);
    
    ПоместитьВоВременноеХранилище(ДвоичныеДанные,АдресВоВременномХранилище);
    
КонецПроцедуры

Есть у кого мыли по этому поводу.
17 bodri
 
03.08.17
03:32
(16) мыли = мысли
18 Йохохо
 
03.08.17
08:06
19 Йохохо
 
03.08.17
08:07
It is required that "&;G" is a part of the CenterFooter property string in order for the image to show up in the center footer.
20 bodri
 
03.08.17
12:05
(18) что-то с этим вообще не получается
21 Йохохо
 
03.08.17
12:13
(20) в смысле?
ExcelЛист.PageSetup.CenterFooterPicture.Filename = "C:\Sample.jpg"
ExcelЛист.PageSetup.CenterFooter = "&G"
и не работает?
22 bodri
 
03.08.17
12:15
нет не работает ExcelЛист.PageSetup.CenterFooter = "&;G", как показано в примере (18)
23 bodri
 
03.08.17
12:20
ExcelЛист.PageSetup.CenterFooter.Filename = АдресКартинки;
        ExcelЛист.PageSetup.CenterFooter = "&G";

отладчик доходит только до ExcelЛист.PageSetup.CenterFooter.Filename = АдресКартинки; и отваливается
24 Йохохо
 
03.08.17
12:23
(23) это не та проблема, это вторая, которую надо решить первой)
25 bodri
 
03.08.17
12:27
блин, с вордом вообще всё ОК и картинку и текст выводит и текст по страницам переносит как надо, а эксэль как будто не мелкософт делал
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн