|
v7: Увеличить кол-во ценников на листе в ТиС
| ☑ |
0
alexdomovoi
02.06.17
✎
22:10
|
Добрый вечер. Подскажите плиз как что изменить в форме Printcen.ert что бы на листе А4 в одну строку умещалось 3 ценника, стандартно умещается 2, я убавил в размерах ценник не прокатило, куда копнуть дальше?
|
|
1
HawkEye
02.06.17
✎
22:29
|
(0) исключительно в код....
|
|
2
Tarlich
02.06.17
✎
22:33
|
там же все просто 2 шт и 3 разрыв страницы
|
|
3
Tarlich
02.06.17
✎
22:34
|
разберись тут -))
Процедура ДобавитьЦенник(Таб, ПечФирма, ПечНаименование, ПечЕдиница, ПечРозн, Столбик, Ряд)
Столбик = ?(Столбик = 0, 1 , 0 );
Ряд = ?(Столбик = 0, Ряд + 1, Ряд);
Если Ряд > 3 Тогда
Таб.НоваяСтраница();
Ряд = 1;
КонецЕсли;
Если Столбик = 0 Тогда
Таб.ВывестиСекцию("Товар|Ценник");
Иначе
Таб.ПрисоединитьСекцию("Товар|Ценник");
КонецЕсли;
КонецПроцедуры // ДобавитьЦенник()
|
|
4
alexdomovoi
04.06.17
✎
08:00
|
надеюсь кому то поможет, что бы не задавали вопросов.
Процедура ДобавитьЦенник(Таб, Фирма, ПечНаименование, ПечЕдиница, ПечРозн, Столбик, Ряд) Экспорт
Столбик = ?(Столбик = 2, 0, Столбик+1);
Ряд = ?(Столбик = 0, Ряд + 1, Ряд);
Если Ряд > 3 Тогда
Таб.НоваяСтраница();
Ряд = 1;
КонецЕсли;
Если Столбик = 0 Тогда
Таб.ВывестиСекцию("Товар|Ценник");
Иначе
Таб.ПрисоединитьСекцию("Товар|Ценник");
КонецЕсли;
КонецПроцедуры // ДобавитьЦенник()
и изменил
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
ПечФирма = СокрЛП(Докум.Фирма.ЮрЛицо.ПолнНаименование);
Столбик = 2;
Ряд = 0;
В итоге делает 3 ценника в ряд на листе, мне большего и не надо.
|
|
5
AliAksA
05.06.17
✎
14:06
|
(0) ну я бы с автомасштабом в параметрах страницы бы ещё погулялся
|
|
6
HawkEye
05.06.17
✎
14:09
|
(5) и чем бы это помогло исправить код? ))
|
|
7
AliAksA
05.06.17
✎
14:14
|
(6) ну ориент на слово "умещается" делал - мало-ли за пределы страницы улетала секция
|
|
8
HawkEye
05.06.17
✎
14:15
|
(7) "одну строку умещалось 3 ценника, стандартно умещается 2"
|
|
9
AliAksA
05.06.17
✎
14:16
|
+(7) а ну ... и столбик в коде профукал - отвлекли)
|
|