Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
12 дек 2024, 03:35

Печать ценников 3х3

Автор neyotauhura, 13 фев 2015, 09:25

0 Пользователей и 1 гость просматривают эту тему.

neyotauhura

Помогите пожалуйста чайнику:D
Как в конфигураторе сделать ценники что бы располагались 3х3, т. е. 3 по горизонтали и три во вертикали всего получается 9 шт. на одном листе.
Все перепробовало но не получается.
Я так поняла что менять нужно что то здесь:

Процедура ДобавитьЦенник(Таб, ПечФирма, ПечНаименование, ПечЕдиница, ПечРозн, Столбик, Ряд)
      
   Столбик   = ?(Столбик = 0, 1      , 0  );
   Ряд      = ?(Столбик = 0, Ряд +1, Ряд);

   Если Ряд > 3 Тогда
      Таб.НоваяСтраница();
      Ряд = 1;
   КонецЕсли;
   
   Если Столбик = 0 Тогда
      Таб.ВывестиСекцию("Товар|Ценник");
   Иначе
      Таб.ПрисоединитьСекцию("Товар|Ценник");
   КонецЕсли;

КонецПроцедуры // ДобавитьЦенник()


Если можно по подробнее что и где менять

Заранее Спасибо!


llpass

Цитата: neyotauhura от 13 фев 2015, 09:25
Помогите пожалуйста чайнику:D
Как в конфигураторе сделать ценники что бы располагались 3х3, т. е. 3 по горизонтали и три во вертикали всего получается 9 шт. на одном листе.
Все перепробовало но не получается.
Я так поняла что менять нужно что то здесь:

Процедура ДобавитьЦенник(Таб, ПечФирма, ПечНаименование, ПечЕдиница, ПечРозн, Столбик, Ряд)
      
   Столбик   = ?(Столбик = 0, 1      , 0  );
   Ряд      = ?(Столбик = 0, Ряд +1, Ряд);

   Если Ряд > 3 Тогда
      Таб.НоваяСтраница();
      Ряд = 1;
   КонецЕсли;
   
   Если Столбик = 0 Тогда
      Таб.ВывестиСекцию("Товар|Ценник");
   Иначе
      Таб.ПрисоединитьСекцию("Товар|Ценник");
   КонецЕсли;

КонецПроцедуры // ДобавитьЦенник()


Если можно по подробнее что и где менять

Заранее Спасибо!




если увас склад ТиС 9.2 могу скинуть обработу ценников в налисте а4

neyotauhura


dimi3o

Процедура ДобавитьЦенник(Таб, ПечФирма, ПечНаименование, ПечЕдиница, ПечРозн, Столбик, Ряд) 
    Если Столбик = 0 Тогда
        Столбик = 1;
    ИначеЕсли Столбик = 1 Тогда
        Столбик = 2;
    ИначеЕсли Столбик = 2 Тогда
        Столбик = 0;
    КонецЕсли;
    Ряд = ?(Столбик = 0, Ряд + 1, Ряд);

    Если Ряд > 3 Тогда
       Таб.НоваяСтраница();
       Ряд = 1;
    КонецЕсли; 
    Если Столбик = 0 Тогда
        Таб.ВывестиСекцию("Товар|Ценник");
    Иначе 
   Таб.ПрисоединитьСекцию("Товар|Ценник");
    КонецЕсли; 
КонецПроцедуры

Перед первым вызовом процедуры задаёшь столбик и ряд:
Столбик = 2;
Ряд     = 0;

alenuchka

Наверное у меня не было таких проблем. Пользовалась программой Печать ценников. Загрузила для 1с http://cennik-etiketka.ru/. Удобно, что для каждого товара я задавала свой размер ценника))

Теги: ценники 

Похожие темы (5)

Рейтинг@Mail.ru

Поиск