Имя: Пароль:
1C
1С v8
Не сохраняется ШК при сохранении в ПДФ стандартными средствами 1С
0 Vigor06
 
23.11.12
16:21
Собстно сабж.
При обычной печати документов - ШК есть.
При попытке сохранить Табличные документы в пдф - в них(пдф-файлах) мне сохраняется QR код, который присутствует на форме((
Помогите,плз
1 zladenuw
 
23.11.12
16:33
код покажи где ты свой qr выводишь
2 Vigor06
 
23.11.12
16:44
(1) Таб.док. для печати и/или сохранения я получаю из модуля необходимого документа. А так как при печати qr есть,то значит код верный. Но на всякий случай вот код:

КоличествоСтраниц = ВернутьКоличествоСтраницНакладной();
   НомерСтраницы = 1;
   ОбластьЛого = Макет.ПолучитьОбласть("Лого");
   
   ШтрихКодЛого = ОбластьЛого.Рисунки.ШтрихКодЛого.Объект;
   ШтрихКодЛого.text = ФормированиеПечатныхФорм.СформироватьТекстДляШтрихкода(ЭтотОбъект, Неопределено, НомерСтраницы, КоличествоСтраниц);
   ШтрихКодЛого.alphabet = 25;
   
   ТабДокумент.Вывести(ОбластьЛого);
3 zladenuw
 
23.11.12
16:47
alphabet а это что ?
4 Vigor06
 
23.11.12
16:50
(3)Это свойство StrokeScribe ,указывающее тип ШК.  В нашем случае это QR
5 zladenuw
 
23.11.12
16:54
(4) а обычный ШК сохраняет в пдф ?
6 Vigor06
 
23.11.12
16:56
(5) Нет
7 zladenuw
 
23.11.12
17:04
странно.
у меня сохраняет

   Секция = Макет.ПолучитьОбласть("ШтрихКод");
       Объект=    Секция.Рисунки.ОбъектШтрихкод_3.Объект;
       Объект.ТекстКода = ШтрихКод;
       Объект.Сообщение = Лев(ШтрихКод,12);
       ТабДок.Вывести(Секция);
8 Vigor06
 
23.11.12
17:08
(7) при сохранении штатными средствами 1С в пдф?

 ТабДок.Записать(ДиалогВыбора.Каталог + ИмяФайла + ".pdf",ТипФайлаТабличногоДокумента.PDF);


Ибо в Таб.Док. то ШК у меня передается точно
9 zladenuw
 
23.11.12
17:08
(8) да
1С:Предприятие 8.2 (8.2.16.368)
10 Vigor06
 
23.11.12
17:09
(9) У меня  абсолютно такая же 1Ска. Значит бум еще где-то багу искать
11 zladenuw
 
23.11.12
17:23
а если это убрать   ШтрихКодЛого.alphabet = 25; ?
хотя должно быть пофиг
12 Vigor06
 
23.11.12
17:25
(11) Тот же результат
13 zladenuw
 
23.11.12
17:34
(12) может попробуй тупо удалить и создай новый объект рисунка.
14 Vigor06
 
26.11.12
11:55
(13) а смысл?
15 Vigor06
 
26.11.12
12:35
Проблема решена печатью через bullzip

ИмяФайла = ДиалогВыбора.Каталог + ИмяФайла + ".pdf";
       
       Принтер = Новый ComObject("Bullzip.PDFPrinterSettings");
       Принтер.SetValue("output", ИмяФайла);
       Принтер.SetValue("ShowSaveAS", "never");
       Принтер.SetValue("ShowProgress", "no");
       Принтер.SetValue("ShowProgressFinished", "no");
       Принтер.SetValue("ShowSettings", "never");
       Принтер.SetValue("ShowPDF", "no");
       Принтер.SetValue("ConfirmOverwrite","no");
       Принтер.SetValue("OwnerPassword","");
       Принтер.SetValue("Permissions",61636);
       Принтер.WriteSettings();
       ТабДок.Автомасштаб=Истина;
       
       ТабДок.ИмяПринтера = "Bullzip PDF Printer";
       ТабДок.Напечатать();
16 zladenuw
 
26.11.12
13:01
(15) буду знать.