Имя: Пароль:
1C
1С v8
Печать ценников в управлении торговлей 10.3
0 fads5434666
 
13.08.11
07:09
Доброго времени суток. У предприятия раньше ценники печатались только на наклеечный принтер "Зебра", поэтому в обработке "Печать ценников" Закомментированы эти строки:

Если ТекСтолбец = 0 Тогда
   ТабДокумент.Вывести(ОбластьЦенника);
Иначе
   ТабДокумент.Присоединить(ОбластьЦенника);
КонецЕсли;
   
   ТекСтолбец = ТекСтолбец + 1;

Если ТекСтолбец = 5 Тогда
   ТекСтрока  = ТекСтрока + 1;
   ТекСтолбец = 0;
КонецЕсли;

Если ТекСтрока = 3 Тогда
   ТекСтрока = 0;
   ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;

Теперь организация изъявила желание сама печатать ценники на бумаге. Подскажите пожалуйста, как сделать так, что бы на бумаге А4 печаталось максимальное количество ценников.
1 zak555
 
13.08.11
07:12
раскомментировать строки ?
2 zak555
 
13.08.11
07:12
+ это всё делается подгоном
3 fads5434666
 
13.08.11
07:15
Если раскомментировать, то получается непонятно, что получается, печатается два ценника на одном листе и один на втором. Вот я и ищу намек какой бы такой подгон сделать и где.
4 zak555
 
13.08.11
07:17
открыть тис ?
5 fads5434666
 
13.08.11
07:19
Посмотреть настройки в торговле и складе 7.7???
6 fads5434666
 
13.08.11
07:21
сейчас посмотрел типовую УТ 10.3, там с этими, незакомментированными настройками печатается все как нужно. А при печати в нетиповой, печатается два через один, и ценники двоятся. Где же собака зарыта?
7 Мимохожий Однако
 
13.08.11
07:33
(6)"собака зарыта" во внесенных изменениях. Посмотри через отладчик.
8 Alexandr Puzakov
 
13.08.11
09:07
Перейти на УТ 11 или Розницу. Там ценники можно в режиме 1С:Предприятие править, и задавать нужное количество ценников на лист бумаги.
9 vqwy
 
13.08.11
10:00
(8)+ в сети гуляют обработки для печати из УТ
10 fads5434666
 
13.08.11
10:01
по отладчику нашел, что именно эти два подбора мешают корректно распечатывать, не совсем понимаю для чего они нужны, если не трудно, могли бы вы объяснить.

Отбор = Новый Структура;
               Отбор.Вставить("Объект"  , СтрокаТаблицы.Номенклатура);
               Отбор.Вставить("Свойство", СвойствоМатериалВерха);
               СвойствоМатериалВерха = РегистрыСведений.ЗначенияСвойствОбъектов.Получить(Отбор);
               ОбластьЦенника.Параметры.МатериалВерха                   = СвойствоМатериалВерха.Значение;
               Отбор = Новый Структура;
               Отбор.Вставить("Объект"  , СтрокаТаблицы.Номенклатура);
               Отбор.Вставить("Свойство", СвойствоМатериалПодкладки);
               СвойствоМатериалПодкладки = РегистрыСведений.ЗначенияСвойствОбъектов.Получить(Отбор);
               ОбластьЦенника.Параметры.МатериалПодкладки               = СвойствоМатериалПодкладки.Значение;
               ТабДокумент.Вывести(ОбластьЦенника);
               ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс