QR код

@Ermak27 · Регистрация: 16.01.2013

Студворк — интернет-сервис помощи студентам

Добрый день! Подскажите как можно решить такую проблему, подцепил я QR код к макеты, вывожу информацию получается очень большой код, есть способ его уменьшить но чтобы вмещалась вся информация? Потом я сохраняю в PDF, открываю файл а там очень большой код, даже не вмещается на лист файла, как сделать чтобы все вмещалось???

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
ТабДок = Новый ТабличныйДокумент;
     Макет = ПолучитьМакет("Макет");
     
     Шапка = Макет.ПолучитьОбласть("Шапка");
     Область3 = Макет.ПолучитьОбласть("Область3");
     
     Период = ПредставлениеПериода(НачалоДня(НачПериода),КонецДня(КонПериода),); 
     Область1 = Макет.ПолучитьОбласть("Область1");
     Область1.Параметры.Дата = Период;
     Область3.Параметры.Дата = Период;
     
     сч=0;
     Для Каждого ТС Из Предупреждения Цикл
         Если Не ТС.Выписывать Тогда
             Продолжить;
         КонецЕсли;
         
         Запрос = Новый Запрос (
         
         "ВЫБРАТЬ
         |  НачислениеКвартПлатыЛСОплата.Период,
         |  НачислениеКвартПлатыЛСОплата.ЛицевойСчет,
         |  НачислениеКвартПлатыЛСОплата.Услуги,
         |  НачислениеКвартПлатыЛСОплата.Регион,
         |  НачислениеКвартПлатыЛСОплата.Сумма,
         |  НачислениеКвартПлатыЛСОплата.Период КАК Период1
         |ИЗ
         |  РегистрНакопления.НачислениеКвартПлатыЛСОплата КАК НачислениеКвартПлатыЛСОплата
         |ГДЕ
         |  НачислениеКвартПлатыЛСОплата.ЛицевойСчет = &ЛицевойСчет
         |  И НачислениеКвартПлатыЛСОплата.Услуги = &Услуги
         |  И НачислениеКвартПлатыЛСОплата.Регион = &Регион");
         
         ТекстУсловий="";
         Запрос.УстановитьПараметр("ЛицевойСчет",ТС.ЛицевойСчет);
         Запрос.УстановитьПараметр("Услуги",Услуга);
         Запрос.УстановитьПараметр("Регион",Регион);
         ТекстУсловий=ТекстУсловий+?(ТекстУсловий="",""," И ");
         ТекстУсловий=ТекстУсловий+" Квитанция.Дата>=&НачДата И Квитанция.Дата<=&КонДата";      
         
         Результат = Запрос.Выполнить().Выбрать();
         Пока Результат.Следующий() Цикл
             ПослОплата = Результат.Сумма;
             ДатаОплаты = Результат.Период;
         КонецЦикла;
 
         сч=сч+1;        
         ТабДок.Вывести(Шапка);
         
         ЛСч = СтрЗаменить(ТС.ЛицевойСчет,Символы.НПП,"");
         ЛСчет = Прав(ЛСч, 6); 
         Область1.Параметры.ЛС = ЛСчет;
         ТабДок.Вывести(Область1);
         
         Область2 = Макет.ПолучитьОбласть("Область2");
         Долг = Формат(ТС.Долг, "ЧДЦ=2");
         Область2.Параметры.Сумма = Долг;
         Область2.Параметры.ПослОпл = Формат(ПослОплата, "ЧДЦ=2") + " " + "руб." + " " + "от" + " " + Формат(ДатаОплаты, "ДФ=dd.MM.yyyy") + " " + "г.";
         Месяц = Формат(КонПериода, "ДФ=MM");
         Год = Формат(КонПериода, "ДФ=yyyy");
         Область2.Рисунки.ЛШК.Объект.ТекстКода = 1862800051+Месяц+Год+ТС.Долг+ЛСч;
         Область2.Рисунки.ДШК.Объект.barcode = "Name=010005163";
         Область2.Рисунки.ДШК.Высота = 10;
         //Область2.Рисунки.ДШК.border_width = 50;
         
         ФИОбуфер=СтрЗаменить(ТС.Плательщик," ", Символы.ПС);
         Ф=СтрПолучитьСтроку(ФИОбуфер,1); 
         ФИО= Ф + " " + ВРЕГ(Лев(СтрПолучитьСтроку(ФИОбуфер,2),1))+"."+ВРЕГ(Лев(СтрПолучитьСтроку(ФИОбуфер,3),1)+".");       
         Область2.Параметры.Ответст = ФИО;
         Область2.Параметры.Адрес = ТС.Адрес;
         
         Табл=УстановленноеОборудование(ТС.ЛицевойСчет);
         Для Каждого ТС1 Из Табл Цикл
             Область2.Параметры.Оборудования = ТС1.Оборудование;
         КонецЦикла;
         
         Область2.Параметры.Стоимость = "0";
         Область2.Параметры.Сумма = Долг; 
         Область2.Параметры.Итого = Долг;
         ТабДок.Вывести(Область2);       
         Подвал = Макет.ПолучитьОбласть("Подвал");
         ТабДок.Вывести(Подвал);      
         Область3.Параметры.ЛС = ЛСчет;       
         Область3.Параметры.Сумма = Долг;
         Область3.Рисунки.ЛШК1.Объект.ТекстКода = 1862800051+ Месяц+Год+ТС.Долг+ЛСч;        
         Область3.Параметры.Ответст = ФИО;
         Область3.Параметры.Адрес = ТС.Адрес; 
         
         Для Каждого ТС1 Из Табл Цикл
             Область3.Параметры.Оборудования = ТС1.Оборудование;
         КонецЦикла;
         
         Область3.Параметры.Стоимость = "0";
         Область3.Параметры.Сумма = Долг; 
         Область3.Параметры.Итого = Долг;
         ТабДок.Вывести(Область3);
         
     КонецЦикла;
     
     //Опции отображения макета
     ТабДок.ОтображатьСетку = Ложь;
     ТабДок.ОтображатьЗаголовки = Ложь;
     //Вывод макета на экран
     ТабДок.Показать("Печать созданных документов");
     ТабДок.Автомасштаб=истина;
     ТабДок.РазмерСтраницы="A4";
     ТабДок.Записать("E:\file.pdf", ТипФайлаТабличногоДокумента.PDF);

Прикрепил как выглядим в 1С и PDF

@Ermak27 · 14.09.2015, 09:34 **[ТС]**

1c-k, спасибо, только что тут именно посмотреть

@1c-k · 14.09.2015, 09:44

Ermak27, как это работает.

@Ermak27 · 14.09.2015, 10:25 **[ТС]**

1c-k, я имею ввиду какую процедуру?

@1c-k · 14.09.2015, 10:26

Ermak27, обработка не моя, я не знаю как они там называются.
откройте да с кнопки масштабирования начните и станет понятно, что да как.

@Ermak27 · 14.09.2015, 17:08 **[ТС]**

1c-k, я решил сделать через виртуальный принтер DoPDF

1C
1
2
3
4
5
6
7
8
9
10
           Локатор = Новый COMОбъект("WbemScripting.SWbemLocator");
            СлужбаWMI = Локатор.ConnectServer();
            ПринтерыВСистеме = СлужбаWMI.InstancesOf("Win32_Printer");
            Для Каждого Принтер Из ПринтерыВСистеме Цикл
                Если Принтер.Name="doPDF v7" Тогда
                    ИмяПринтера = Принтер.Name; 
                КонецЕсли;
            КонецЦикла;  
            ТабДок.ИмяПринтера =ИмяПринтера;
            ТабДок.Напечатать(Истина);

Только не знаю как сделать чтобы не выбирать куда сохранить, а заранее указать путь.

@1c-k · 15.09.2015, 07:24

Ermak27, табдок.записать(имяфайла)

Новые блоги и статьи Все статьи Все блоги /
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	14.09.2015, 09:34 [ТС]
	1c-k, спасибо, только что тут именно посмотреть 0

@1c-k 340 / 315 / 43 Регистрация: 20.08.2014 Сообщений: 1,242 Записей в блоге: 1
	14.09.2015, 09:44
	Ermak27, как это работает. 0

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	14.09.2015, 10:25 [ТС]
	1c-k, я имею ввиду какую процедуру? 0

@1c-k 340 / 315 / 43 Регистрация: 20.08.2014 Сообщений: 1,242 Записей в блоге: 1
	14.09.2015, 10:26
	Ermak27, обработка не моя, я не знаю как они там называются. откройте да с кнопки масштабирования начните и станет понятно, что да как. 1

@1c-k 340 / 315 / 43 Регистрация: 20.08.2014 Сообщений: 1,242 Записей в блоге: 1
	15.09.2015, 07:24
	Ermak27, табдок.записать(имяфайла) 0