Содержание
HTTPЗапрос = Новый >HTTPЗапрос(Настройки.Ресурс, Заголовки);
Эта ошибка появляется в программе после обновления 1С:Бухгалтерии 8 на релиз 2.0.60.3 и не получается вводить документы (например реализации). Что с этим делать?
Ошибка исправляется банально обновлением технологической платформы. В описанию к релизу конфигурации есть требования к релизу платформы – нужно ознакомиться с данной информацией и обновить платформу на требуемый релиз или более актуальный. Подобным же образом решаются и прочие похожие ошибки, как например:
HTTPЗапрос = Новый >HTTPЗапрос(ПараметрыСоединения.ПутьНаСервере);
02.04.2012 10:44
Прочитано: 5251
Помогите пожалуйста разобраться! При создании нового запроса выдает постоянно ошибку. причем , даже если вводится пример из справки.
Пока Выборка.Следующий() Цикл
Сообщить(Выборка.Ссылка);
КонецЦикла;
Запросы в 1С предназначены для получения данных из базы данных. Рассмотрим на что способен данный механизм.
Что такое запрос и язык запросов
Запросы предназначены для извлечения и обработки информации из базы данных для предоставления пользователю в требуемом виде. Под обработкой здесь подразумевается группировка полей, сортировка строк, расчет итогов и т.д. Изменять данные с помощью запросов в 1С нельзя!
Запрос выполняется в соответствии с заданными инструкциями — текстом запроса. Текст запроса составляется в соответствии с синтаксисом и правилами языка запросов. Язык запросов 1С:Предприятие 8 основан на базе стандартного SQL, но имеет некоторые отличия и расширения.
Схема работы с запросом
Общая схема работы с запросом состоит из нескольких последовательных этапов:
- Создание объекта Запрос и установка текста запроса;
- Установка параметров запроса;
- Выполнение запроса и получение результата;
- Обход результата запроса и обработка полученных данных.
1. Объект Запрос имеет свойство Текст, которому необходимо присвоить текст запроса.
2. Установка значений параметров осуществляется методом УстановитьПараметр ( Имя >, Значение >) . Параметры в тексте запроса обозначаются символом «&» и обычно используются в условиях отбора (секция ГДЕ) и в параметрах виртуальных таблиц.
Запрос . УстановитьПараметр ( «Валюта» , ВыбраннаяВалюта );
3. После присвоения текста и установки параметров запрос необходимо выполнить и получить результат выполнения. Выполнение производится методом Выполнить () , который возвращает объект РезультатЗапроса. Из результата запроса можно:
- получить выборку с помощью метода Выбрать ( ТипОбхода >, Группировки >, ГруппировкиДляЗначенийГруппировок >) ;
- выгрузить значения в таблицу значений или дерево значений с помощью метода Выгрузить ( ТипОбхода >) .
// Получение выборки
РезультатЗапроса = Запрос . Выполнить ();
Выборка = РезультатЗапроса . Выбрать ();
// Получение таблицы значений
РезультатЗапроса = Запрос . Выполнить ();
Таблица = РезультатЗапроса . Выгрузить ();
4. Обойти выборку результата запроса можно с помощью цикла:
Пока Выборка . Следующий () Цикл
Сообщить ( Выборка . Курс );
КонецЦикла;
Полный пример работы с запросом может выглядеть так:
// Этап 2. Установка параметров
Запрос . УстановитьПараметр ( «Валюта» , ВыбраннаяВалюта );
// Этап 3. Выполнение запроса и получение выборки
РезультатЗапроса = Запрос . Выполнить ();
Выборка = РезультатЗапроса . Выбрать ();
// Обход выборки
Пока Выборка . Следующий () Цикл
Сообщить ( Выборка . Курс );
КонецЦикла;
Состав текста запроса
Текст запроса состоит из нескольких секций:
- Описание запроса — перечень выбираемых полей и источников данных;
- Объединение запросов — выражения «ОБЪЕДИНИТЬ» и «ОБЪЕДИНИТЬ ВСЕ»;
- Упорядочивание результатов — выражение «УПОРЯДОЧИТЬ ПО …»;
- Автоупорядочивание — выражение «АВТОУПОРЯДОЧИВАНИЕ»;
- Описание итогов — выражение «ИТОГИ … ПО …».
Обязательной является только первая секция.
Временные таблицы и пакетные запросы
Язык запросов 1С поддерживает использование временных таблиц — таблиц, полученных в результате выполнения запроса и сохраненных на временной основе.
Часто можно столкнуться с ситуацией, когда в качестве источника запроса нужно использовать не таблицы базы данных, а результат выполнения другого запроса. Эту задачу можно решить с помощью вложенных запросов или временных таблиц. Применение временных таблиц позволяет упростить текст сложного запроса, разделив его на составные части, а также, в некоторых случаях, ускорить выполнение запроса и уменьшить количество блокировок. Для работы с временными таблицами используется объект МенеджерВременныхТаблиц. Создание временной таблицы производится при помощи ключевого слова ПОМЕСТИТЬ, за которым следует наименование временной таблицы.
МенеджерВТ = Новый МенеджерВременныхТаблиц ;
Запрос = Новый Запрос ;
Запрос . МенеджерВременныхТаблиц = МенеджерВТ ;
Запрос . Текст =
«ВЫБРАТЬ
| Валюты.Код,
| Валюты.Наименование
|ПОМЕСТИТЬ ВТВалюты
|ИЗ
| Справочник.Валюты КАК Валюты» ;
РезультатЗапроса = Запрос . Выполнить ();
Для использования временной таблицы ВТВалюты в других запросах необходимо этим запросам присвоить общий менеджер временных таблиц — МенеджерВТ.
Пакетный запрос — это запрос, в котором содержится несколько запросов, разделенных символом «;». При выполнении пакетного запроса все входящие в него запросы выполняются последовательно, причем результаты всех временных таблиц доступны всем последующим запросам. Явное присвоение менеджера временных таблиц пакетным запросам не обязательно. Если менеджер временных таблиц не присвоен, то все временные таблицы удалятся сразу после выполнения запроса.
Для пакетных запросов доступен метод ВыполнитьПакет () , который выполняет все запросы и возвращает массив результатов. Временные таблицы в пакетном запросе будут представлены таблицей с одной строкой и одной колонкой «Количество», в которой хранится количество записей. Для отладки пакетных запросов можно использовать метод ВыполнитьПакетСПромежуточнымиДанными () : он возвращает реальное содержимое временных таблиц, а не количество записей.
РезультатПакета = Запрос . ВыполнитьПакет ();
ТЗВалюты = РезультатПакета . Выгрузить ();
ТЗНоменклатура = РезультатПакета . Выгрузить ();
Запрос . УстановитьПараметр ( «Производитель» , Производитель );
РезультатЗапроса = Запрос . Выполнить ();
Выборка = РезультатЗапроса . Выбрать ();
Пока Выборка . Следующий () Цикл
Виртуальные таблицы
Виртуальные таблицы — это таблицы, которые не хранятся в базе данных, а формируются платформой. По своей сути это вложенные запросы к одной или нескольким физическим таблицам, выполняемые платформой. Виртуальные таблицы получают информацию только из регистров и, в основном, предназначены для решения узкоспециализированных задач.
Существуют следующие виртуальные таблицы (в скобках указаны возможные параметры):
- Для регистров сведений:
- СрезПервых( , ) — наиболее ранние записи на указанную дату;
- СрезПоследних( , ) — наиболее поздние записи на указанную дату;
При работе с виртуальными таблицами следует накладывать отборы в параметрах виртуальных таблиц, а не в условии ГДЕ. От этого сильно зависит время выполнения запроса.
Конструктор запроса
Для ускорения ввода текстов запросов платформа имеет специальные инструменты: Конструктор запроса и Конструктор запроса с обработкой результата. Для вызова конструкторов необходимо щелкнуть правой кнопкой мыши и выбрать требуемый пункт:
Также конструкторы можно вызвать из главного меню Текст.
При помощи конструктора запроса программист может интерактивно сконструировать текст запроса. Для этого мышкой выбираются нужные таблицы и поля, устанавливаются связи, группировки, итоги и т.д. Данный подход позволяет экономить время и избавиться от возможных ошибок. В результате своей работы конструктор запроса формирует текст запроса.
Конструктор запроса с обработкой результата кроме формирования текста запроса создает готовый фрагмент кода для получения и обработки данных.
Объект СхемаЗапроса
Платформа позволяет программно создавать и редактировать текст запроса при помощи объекта СхемаЗапроса. Объект имеет единственное свойство ПакетЗапросов, в котором объекта хранятся свойства всех запросов, редактируемых в данный момент. Объект СхемаЗапроса поддерживает следующие методы:
- УстановитьТекстЗапроса ( Текст >) — заполняет свойство ПакетЗапросов на основании переданного текста запроса;
- ПолучитьТекстЗапроса () — возвращает сформированный на основании свойства ПакетЗапросов текст запроса;
Рассмотрим пример работы с объектом СхемаЗапроса. Для программного формирования текста запроса
ВЫБРАТЬ
Валюты.Ссылка КАК Валюта,
Валюты.Код
ИЗ
Справочник.Валюты КАК Валюты
ГДЕ
НЕ Валюты.ПометкаУдаления
УПОРЯДОЧИТЬ ПО
Валюты.Код
Код на встроенном языке может выглядеть так:
В данной статья я расскажу о решении задачи, цель которой в проверке набора записей на сложные (комбинированные) условия вида «в иерархии», с акцентом на производительность решения (т.е. запросы в цикле не используем). Первая часть статьи — это постановка проблемы, вторая — это решение задачи с использованием метода Nested Sets. Если вам не интересны прелюдии, смело переходите ко второй части, там вся суть.
Часть 1. Формулирование проблемы.
Представьте себе задачу: необходимо проверить некоторый набор данных на условие иерархического вхождения его элементов (этого набора) в элементы более высокого уровня (например, группы), вот только групп может быть несколько и выбор той или иной группы также имеет определённые условия.
Чтобы было легче, вот более реальный пример (хотя пример все же выдуман, но для раскрытия темы будет вполне достаточно):
Есть справочник «Номенклатура». Справочник имеет иерархию Групп и элементов, уровень вложенности неограничен (на самом деле не важно, что это будет за иерархия: элементов или групп). Также, для произвольной группировки номенклатуры, имеется справочник «Сегменты номенклатуры». У справочника с сегментами есть табличная часть, где указывается какая номенклатура входит в данный сегмент, причем могут указываться как конкретные позиции номенклатуры, так и группы номенклатуры. Каждому сотруднику предприятия может быть указан один сегмент. Тем самым определяется доступная номенклатура, которую может заказать этот сотрудник. Сотрудники регулярно что-то заказывают, но делают это внесистемно – пишут служебки и относят их ответственному пользователю, который вводит один общий документ, где указывает сотрудников и то, что они заказывают. Документ имеет табличную часть с колонками «Сотрудник», «Номенклатура», «Количество». При проведении документа требуется реализовать проверку, которая убедится, что все заказали только то, что им разрешено.
Если не вдаваться в детали, то на первый взгляд решение задачи проблем не вызывает: взять таблицу из документа, для каждого пользователя определить сегмент и выяснить входит ли заказанная номенклатура в сегмент. Но есть нюанс. Так как в сегментах может быть определена группа, то это означает, что в запросе мы получим соединение таблиц, где проверка условия будет строится по выражению «В иерархии». Вот запрос, который бы решил задачу:
ВЫБРАТЬ
ВТ_Заказы.Сотрудник КАК Сотрудник,
ВТ_Заказы.Сегмент КАК Сегмент,
ВТ_Заказы.Номенклатура КАК Номенклатура,
СегментыСостав.Номенклатура КАК НоменклатураСегмента
ИЗ
ВТ_Заказы КАК ВТ_Заказы
ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Сегменты.Состав КАК СегментыСостав
ПО ВТ_Заказы.Сегмент = СегментыСостав.Ссылка
И (ВЫБОР
КОГДА СегментыСостав.Номенклатура.ЭтоГруппа
ТОГДА ВТ_Заказы.Номенклатура В ИЕРАРХИИ (СегментыСостав.Номенклатура)
ИНАЧЕ ВТ_Заказы.Номенклатура = СегментыСостав.Номенклатура
КОНЕЦ)
ГДЕ
СегментыСостав.Ссылка ЕСТЬ NULL
Но 1С так делать не умеет. Выражение в скобках после оператора «В ИЕРАРХИИ» (подчеркнуто и выделено жирным) может быть либо параметром, либо вложенным подзапросом. В обоих случаях нас это не устраивает. Так как еще есть условие на равенство сегмента, соответственно в выборке может быть много сегментов с различными группами.
Можно рассмотреть решение с запросом в цикле: первый запрос вернет требуемые сегменты, затем в цикле для каждого из них получить содержимое и сделать проверку на данных из документа. Но ведь каждый знает, что запрос в цикле — это моветон, кошмар для производительности.
Другой вариант, это реализовать регистр, который будет хранить пономенклатурный состав сегмента. В целом это спасает. Вопрос только как его поддерживать в актуальном состоянии: понятное дело обновлять при записи сегмента, но также нужно следить еще и за изменением структуры в самом справочнике с номенклатурой. Этот вариант тоже отложим в сторону.
Еще есть вариант использовать механизмы СКД (как это делается для сегментов ERP/УТ), но это не чистые запросы 1С и по сути получим тот же неявный запрос в цикле.
Наш вариант другой – научить 1С работать с Nested Sets деревьями!
Часть 2. Nested Sets в 1С.
Немного теории.
Хранить иерархические структуры в базах данных можно по-разному. 1С для этого использует вариант, когда для каждого элемента указывается его родитель. Данный метод называется «Adjacency List» (переводится как «Список смежных вершин»). Такой метод конечно имеет право на жизнь и для большинства задач он вполне достаточен, но, что касается выполнения условий на вхождения в группы, то здесь он просто ужасен (что видно из описанного выше примера).
Для задач на проверку вхождения в иерархию гораздо лучше подходит метод Nested Sets (можно перевести как «Вложенные множества»). Данный метод подразумевает, что каждый элемент хранит в себе диапазон вложенных в него элементов. Это достигается путем использования пары ключей: lgt — left key и rgt — right key (см. картинку к статье). Соотвенно, left key (левый ключ) определяет начало диапазона, а right key (правый ключ) — его конец. Откуда же берутся ключи? Для того, чтобы получить ключи нужно обойти все дерево против часовой стрелки (слева направо) начиная с его корневого элемента. Это что-то вроде задачек для детей — нарисуй домик не отрывая карандаша, только вместо домика — граф (наше дерево). Так вот, ставим карандаш в корень (получаем первый левый ключ), далее спускаемся до ближаешего крайнего левого узла (получаем левый ключ номер два), далее еще ниже до тех пор пока не дойдем до самого крайнего элемента данной (крайней левой) ветки. От этого элемента начинаем подниматься назад вверх, при этом заполняются уже правые ключи. Поднимаемся до первой развилки и опять спускаемся вниз по тем элементам где еще не были. И так далее пока не будет обрисован весь граф (всё дерево).
В результате все ключи получаются уникальными, правый всегда больше левого, а диапазон ключей на любой элементе включает в себе диапазоны ключей всех вложенных внего узлов (см. картинку к статье).
Практика.
Итоговая конфигурация (выгрузка) приложена к статье.
При добавлении новых позиции номенклатуры и удаления существующих происходит пересчет ключей в Nested Sets. Для этого в обработчики событий «При записи» и «Перед удалением» добалены вызовы соответствующих процедур: «ДобавитьУзелВМножество(Номенклатура, Отказ)» и «УдалитьУзелИзМножества(Номенклатура, Отказ)». Сами процедуры вынесены в модуль менеджера рег. сведений «Номенклатура Nested Sets».
Все действия с пересчетом ключей можно разделить на 3 вида:
- Добавление нового узла (реализовано в процедуре «ДобавитьУзелВМножество», если условия на проверку существования узла = Ложь);
- Перемещение узла (изменение родителя) (реализовано в процедуре «ДобавитьУзелВМножество», если условия на проверку существования узла = Истина);
- Удаление узла (реализовано в процедуре «УдалитьУзелИзМножества»)
1. При добавлении нового узла определяется родитель. Если его нет (узел добавляется в корень), то берется максимальное значение правого ключа (по всему дереву) и добавляется «1» — таким образом получается значение левого ключа нового узла. При этом остальные узлы не пересчитываются. Если родитель определен, то берется правый ключ родителя и он становится значением левого ключа нового узла. После этого происходит пересчет ключей всех узлов, стоящих «справа» от нового (что логично, все ключи сдвигаются на 2, узлы «слева» не задействуются). Правый ключ нового узла определяется как Левый ключ + 1 (ведь мы добавили всего один узел без вложенной ветки).
2. Перемещение узла самая сложная часть алгоритма. Следует разделить перемещение на 2 типа: вверх по дереву (с увеличением ключа новой позиции) и вниз по дереву (когда ключ позиции уменьшается). Перемещение всегда происходит без добавления и удаления узлов. Существующий узел перемещается на новую позицию. Старая и новая позиции узла определяют левую и правую границы. Левая граница — ветка, на которую переместился узел при направлении перемещения «влево», либо ветка, с которой переместился узел при направлении перемещения «вправо». Правая граница — соответственно, ветка, на которую переместился узел при направлении перемещения «вправо», либо ветка, с которой переместился узел при направлении перемещения «влево». Независимо от направления при перемещении всё множество узлов можно разделить на 5 групп:
- Узлы, ключи которых не изменяются. Ведь если мы перемещаем ветку в пределах двух позиций, то все, что находится за этими позициями, не изменяется. Новые элементы не добавляются, старые не удаляются, количество элементов постоянно, вот и ключи элементов до начала левой границы смещения и после правой границы остаются прежними;
- Узлы, у которых изменяются 2 ключа сразу. Это узлы между левой и правой границей. При перемещении влево их индексы увеличиваются на дельту. Где дельта — это разница между правым и левым ключом перемещаемого узла плюс единица (длина ветки исходящей от узла). При перемещении вправо индексы уменьшаются на эту дельту;
- Узлы, у которых изменяется правый ключ. Это узлы, которые проходят по левой границе смещения. Изменение происходит на величину дельты;
- Узлы, у которых изменяется левый ключ. Это узлы, которые проходят по правой границе смещения. Изменение происходит на величину дельты;
- Узлы, входящие в перемещаемую ветку. Их может и не быть если перемещается один только узел без вложенных элементов. Все такие узлы изменяются на величину смещения. Где смещение — это разница между старым левым ключом и новым левым ключем (длина переноса узла). Старый левый ключ — левый ключ старого положения узла, новый левый ключ — ключ нового положения. Следует учесть, что при перемещении вправо к смещеию добавляется величина дельты. В коде также используется понятие «БлижайшийПравыйКлюч» — под ним следует понимать правый ключ ближайшего элемента. Левый ключ нового узла равен «БлижайшийПравыйКлюч» + 1.
Стоит отметить, что в реализованном мною алгоритме не учитывается позиции, в которую перемещается узел в пределах родителя — узел всегда помещается как последний в пределах подчинения родителю. Для решения задач на вложенность элементов этого вполне достаточно.
Ниже приведен листинг процедуры «ДобавитьУзелВМножество»:
Процедура ДобавитьУзелВМножество(Номенклатура, Отказ) Экспорт // Проверка на то, стоит ли дальше продолжать… Если Отказ Или Номенклатура.ДополнительныеСвойства.Свойство(«НеОбновлятьУзлыВNestedSets»)Тогда Возврат; КонецЕсли; // Так как на ключи завязан контроль проведения, лучше перестраховаться и выполняться чтение-записи при исключительной блокировке Блокировка = Новый БлокировкаДанных; ЭлементБлокировки = Блокировка.Добавить(«РегистрСведений.НоменклатураNestedSets»); ЭлементБлокировки.Режим = РежимБлокировкиДанных.Исключительный; Блокировка.Заблокировать(); Запрос = Новый Запрос; МВТ = Новый МенеджерВременныхТаблиц; Запрос.МенеджерВременныхТаблиц = МВТ; Запрос.Текст = // Первая часть запроса общая: проверка существования записи (если нет, то запись новая), получение ключей родителя и текущий записи «ВЫБРАТЬ | НоменклатураNestedSets.Номенклатура КАК Номенклатура, | НоменклатураNestedSets.ЛевыйКлюч КАК ЛевыйКлюч, | НоменклатураNestedSets.ПравыйКлюч КАК ПравыйКлюч, | НоменклатураNestedSets.Уровень КАК Уровень |ПОМЕСТИТЬ ВТ_СуществующаяЗапись |ИЗ | РегистрСведений.НоменклатураNestedSets.СрезПоследних(, Номенклатура = &Узел) КАК НоменклатураNestedSets |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | НоменклатураNestedSets.Номенклатура КАК Номенклатура, | НоменклатураNestedSets.ЛевыйКлюч КАК ЛевыйКлюч, | НоменклатураNestedSets.ПравыйКлюч КАК ПравыйКлюч, | НоменклатураNestedSets.Уровень КАК Уровень |ПОМЕСТИТЬ ВТ_ЗаписьРодителя |ИЗ | РегистрСведений.НоменклатураNestedSets.СрезПоследних( | , | &РодительУказан | И Номенклатура = &Родитель) КАК НоменклатураNestedSets |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | МАКСИМУМ(НоменклатураNestedSets.ПравыйКлюч) КАК ПравыйКлюч |ПОМЕСТИТЬ ВТ_МаксимальныйПравыйКлюч |ИЗ | РегистрСведений.НоменклатураNestedSets.СрезПоследних(, НЕ &РодительУказан) КАК НоменклатураNestedSets |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | ВТ_ЗаписьРодителя.ПравыйКлюч — 1 КАК БлижайшийПравыйКлюч, | ВТ_ЗаписьРодителя.Уровень + 1 КАК Уровень |ПОМЕСТИТЬ ВТ_НовоеПоложениеУзла |ИЗ | ВТ_ЗаписьРодителя КАК ВТ_ЗаписьРодителя |ГДЕ | НЕ ВТ_ЗаписьРодителя.ПравыйКлюч ЕСТЬ NULL | |ОБЪЕДИНИТЬ ВСЕ | |ВЫБРАТЬ | ВТ_МаксимальныйПравыйКлюч.ПравыйКлюч, | 1 |ИЗ | ВТ_МаксимальныйПравыйКлюч КАК ВТ_МаксимальныйПравыйКлюч |ГДЕ | НЕ ВТ_МаксимальныйПравыйКлюч.ПравыйКлюч ЕСТЬ NULL |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | 1 КАК Поле1 |ИЗ | ВТ_СуществующаяЗапись КАК ВТ_СуществующаяЗапись»; Запрос.УстановитьПараметр(«Узел», Номенклатура.Ссылка); Запрос.УстановитьПараметр(«Родитель», Номенклатура.Родитель); Запрос.УстановитьПараметр(«РодительУказан», ЗначениеЗаполнено(Номенклатура.Родитель)); Если Запрос.Выполнить().Пустой() Тогда // Новый узел Запрос.Текст = «ВЫБРАТЬ | &Период КАК Период, | НоменклатураNestedSets.Номенклатура КАК Номенклатура, | ВЫБОР | КОГДА НоменклатураNestedSets.ЛевыйКлюч > ВТ_ЗаписьРодителя.ПравыйКлюч | ТОГДА НоменклатураNestedSets.ЛевыйКлюч + 2 | ИНАЧЕ НоменклатураNestedSets.ЛевыйКлюч | КОНЕЦ КАК ЛевыйКлюч, | НоменклатураNestedSets.ПравыйКлюч + 2 КАК ПравыйКлюч, | НоменклатураNestedSets.Уровень КАК Уровень |ИЗ | ВТ_ЗаписьРодителя КАК ВТ_ЗаписьРодителя | ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.НоменклатураNestedSets.СрезПоследних КАК НоменклатураNestedSets | ПО ВТ_ЗаписьРодителя.ПравыйКлюч <= НоменклатураNestedSets.ПравыйКлюч |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | ВТ_НовоеПоложениеУзла.БлижайшийПравыйКлюч + 1 КАК ЛевыйКлючНовогоУзла, | ВТ_НовоеПоложениеУзла.Уровень КАК УровеньНовогоУзла |ИЗ | ВТ_НовоеПоложениеУзла КАК ВТ_НовоеПоложениеУзла»; ПериодЗаписи = ТекущаяДата(); Запрос.УстановитьПараметр(«Период», ПериодЗаписи); Пакет = Запрос.ВыполнитьПакет(); ВыгрузкаСмещение = Пакет.Выгрузить(); // Данные для записи в регистр с учетом смещения ключей ВыборкаНовыйУзел = Пакет.Выбрать(); // Данные для вставки нового узла НаборЗаписей = РегистрыСведений.НоменклатураNestedSets.СоздатьНаборЗаписей(); НаборЗаписей.Загрузить(ВыгрузкаСмещение); // Добавим в набор новый узел НоваяЗапись = НаборЗаписей.Добавить(); НоваяЗапись.Номенклатура = Номенклатура.Ссылка; НоваяЗапись.Период = ПериодЗаписи; Если ВыборкаНовыйУзел.Следующий() Тогда НоваяЗапись.Уровень = ВыборкаНовыйУзел.УровеньНовогоУзла; НоваяЗапись.ЛевыйКлюч = ВыборкаНовыйУзел.ЛевыйКлючНовогоУзла; НоваяЗапись.ПравыйКлюч = НоваяЗапись.ЛевыйКлюч + 1; Иначе // Первый (единственный) узел НоваяЗапись.Уровень = 1; НоваяЗапись.ЛевыйКлюч = 1; НоваяЗапись.ПравыйКлюч = 2; КонецЕсли; НаборЗаписей.Записать(Ложь); // Записываем с замещением, лишние записи потрем регл.заданием Иначе // Перемещение узла Запрос.Текст = /////////////// Определяем Смещение, Дельту, Ближайший правый ключ (см. теорию) «ВЫБРАТЬ | ВТ_НовоеПоложениеУзла.Уровень — ВТ_СуществующаяЗапись.Уровень КАК СмещениеУровня, | ВТ_СуществующаяЗапись.ПравыйКлюч — ВТ_СуществующаяЗапись.ЛевыйКлюч + 1 КАК Дельта, | ВЫБОР | КОГДА ВТ_СуществующаяЗапись.ПравыйКлюч > ВТ_НовоеПоложениеУзла.БлижайшийПравыйКлюч | ТОГДА ВТ_НовоеПоложениеУзла.БлижайшийПравыйКлюч — ВТ_СуществующаяЗапись.ЛевыйКлюч + 1 | ИНАЧЕ ВТ_НовоеПоложениеУзла.БлижайшийПравыйКлюч — ВТ_СуществующаяЗапись.ЛевыйКлюч + 1 — (ВТ_СуществующаяЗапись.ПравыйКлюч — ВТ_СуществующаяЗапись.ЛевыйКлюч + 1) | КОНЕЦ КАК Смещение, | ВЫБОР | КОГДА ВТ_СуществующаяЗапись.ПравыйКлюч > ВТ_НовоеПоложениеУзла.БлижайшийПравыйКлюч | ТОГДА -1 | ИНАЧЕ 1 | КОНЕЦ КАК Направление, | ВТ_НовоеПоложениеУзла.БлижайшийПравыйКлюч КАК БлижайшийПравыйКлюч, | ВТ_СуществующаяЗапись.ПравыйКлюч КАК СтарыйПравыйКлюч, | ВТ_СуществующаяЗапись.ЛевыйКлюч КАК СтарыйЛевыйКлюч |ПОМЕСТИТЬ ВТ_ОтборыИСмещение |ИЗ | ВТ_СуществующаяЗапись КАК ВТ_СуществующаяЗапись, | ВТ_НовоеПоложениеУзла КАК ВТ_НовоеПоложениеУзла |; | |//////////////////////////////////////////////////////////////////////////////// |////////// Перемещение влево ////////////////// |ВЫБРАТЬ | &Период КАК Период, | НоменклатураNestedSets.Номенклатура КАК Номенклатура, | ВЫБОР | КОГДА НоменклатураNestedSets.ЛевыйКлюч >= ВТ_ОтборыИСмещение.СтарыйЛевыйКлюч | ТОГДА НоменклатураNestedSets.ЛевыйКлюч + ВТ_ОтборыИСмещение.Смещение | КОГДА НоменклатураNestedSets.ЛевыйКлюч > ВТ_ОтборыИСмещение.БлижайшийПравыйКлюч | ТОГДА НоменклатураNestedSets.ЛевыйКлюч + ВТ_ОтборыИСмещение.Дельта | ИНАЧЕ НоменклатураNestedSets.ЛевыйКлюч | КОНЕЦ КАК ЛевыйКлюч, | ВЫБОР | КОГДА НоменклатураNestedSets.ЛевыйКлюч >= ВТ_ОтборыИСмещение.СтарыйЛевыйКлюч | ТОГДА НоменклатураNestedSets.ПравыйКлюч + ВТ_ОтборыИСмещение.Смещение | КОГДА НоменклатураNestedSets.ПравыйКлюч < ВТ_ОтборыИСмещение.СтарыйЛевыйКлюч | ТОГДА НоменклатураNestedSets.ПравыйКлюч + ВТ_ОтборыИСмещение.Дельта | ИНАЧЕ НоменклатураNestedSets.ПравыйКлюч | КОНЕЦ КАК ПравыйКлюч, | ВЫБОР | КОГДА НоменклатураNestedSets.ЛевыйКлюч >= ВТ_ОтборыИСмещение.СтарыйЛевыйКлюч | ТОГДА НоменклатураNestedSets.Уровень + ВТ_ОтборыИСмещение.СмещениеУровня | ИНАЧЕ НоменклатураNestedSets.Уровень | КОНЕЦ КАК Уровень |ИЗ | ВТ_ОтборыИСмещение КАК ВТ_ОтборыИСмещение | ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.НоменклатураNestedSets.СрезПоследних( | , | 1 В | (ВЫБРАТЬ | 1 | ИЗ | ВТ_ОтборыИСмещение КАК ВТ_ОтборыИСмещение | ГДЕ | ВТ_ОтборыИСмещение.Направление = -1)) КАК НоменклатураNestedSets | ПО (НоменклатураNestedSets.ПравыйКлюч > ВТ_ОтборыИСмещение.БлижайшийПравыйКлюч) | И (НоменклатураNestedSets.ЛевыйКлюч < ВТ_ОтборыИСмещение.СтарыйПравыйКлюч) |ГДЕ | ВТ_ОтборыИСмещение.Направление = -1 | |ОБЪЕДИНИТЬ ВСЕ | |////////// Перемещение вправо ////////////////// |ВЫБРАТЬ | &Период, | НоменклатураNestedSets.Номенклатура, | ВЫБОР | КОГДА НоменклатураNestedSets.ПравыйКлюч <= ВТ_ОтборыИСмещение.СтарыйПравыйКлюч | ТОГДА НоменклатураNestedSets.ЛевыйКлюч + ВТ_ОтборыИСмещение.Смещение | КОГДА НоменклатураNestedSets.ЛевыйКлюч > ВТ_ОтборыИСмещение.СтарыйПравыйКлюч | ТОГДА НоменклатураNestedSets.ЛевыйКлюч — ВТ_ОтборыИСмещение.Дельта | ИНАЧЕ НоменклатураNestedSets.ЛевыйКлюч | КОНЕЦ, | ВЫБОР | КОГДА НоменклатураNestedSets.ПравыйКлюч <= ВТ_ОтборыИСмещение.СтарыйПравыйКлюч | ТОГДА НоменклатураNestedSets.ПравыйКлюч + ВТ_ОтборыИСмещение.Смещение | КОГДА НоменклатураNestedSets.ПравыйКлюч <= ВТ_ОтборыИСмещение.БлижайшийПравыйКлюч | ТОГДА НоменклатураNestedSets.ПравыйКлюч — ВТ_ОтборыИСмещение.Дельта | ИНАЧЕ НоменклатураNestedSets.ПравыйКлюч | КОНЕЦ, | ВЫБОР | КОГДА НоменклатураNestedSets.ПравыйКлюч <= ВТ_ОтборыИСмещение.СтарыйПравыйКлюч | ТОГДА НоменклатураNestedSets.Уровень + ВТ_ОтборыИСмещение.СмещениеУровня | ИНАЧЕ НоменклатураNestedSets.Уровень | КОНЕЦ |ИЗ | ВТ_ОтборыИСмещение КАК ВТ_ОтборыИСмещение | ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.НоменклатураNestedSets.СрезПоследних( | , | 1 В | (ВЫБРАТЬ | 1 | ИЗ | ВТ_ОтборыИСмещение КАК ВТ_ОтборыИСмещение | ГДЕ | ВТ_ОтборыИСмещение.Направление = 1)) КАК НоменклатураNestedSets | ПО (НоменклатураNestedSets.ПравыйКлюч > ВТ_ОтборыИСмещение.СтарыйЛевыйКлюч) | И (НоменклатураNestedSets.ЛевыйКлюч <= ВТ_ОтборыИСмещение.БлижайшийПравыйКлюч) |ГДЕ | ВТ_ОтборыИСмещение.Направление = 1»; ПериодЗаписи = ТекущаяДата(); Запрос.УстановитьПараметр(«Период», ПериодЗаписи); ВыгрузкаСмещение = Запрос.Выполнить().Выгрузить(); // Данные для записи в регистр с учетом смещения ключей НаборЗаписей = РегистрыСведений.НоменклатураNestedSets.СоздатьНаборЗаписей(); НаборЗаписей.Загрузить(ВыгрузкаСмещение); НаборЗаписей.Записать(Ложь); // Записываем с замещением, лишние записи потрем регл.заданием КонецЕсли; КонецПроцедуры
3. Удаление узла не сильно отличается от его добавления. Стоит лишь учесть, что при удалении узла удаляется вся ветка (все вложенные узлы). В системе такого не должно быть при нормальных условиях. Но если кто-то удалит группу не удостоверившись, что на нее ссылаются вложенные элементы, то тут как раз и отработает наш алгоритм сполна.
Ниже приведен листинг процедуры «ДобавитьУзелВМножество»:
Процедура УдалитьУзелИзМножества(Номенклатура, Отказ) Экспорт Если Отказ Тогда Возврат; КонецЕсли; Запрос = Новый Запрос; Запрос.Текст = «ВЫБРАТЬ | НоменклатураNestedSets.Номенклатура КАК Номенклатура, | НоменклатураNestedSets.ЛевыйКлюч КАК ЛевыйКлюч, | НоменклатураNestedSets.ПравыйКлюч КАК ПравыйКлюч, | НоменклатураNestedSets.Уровень КАК Уровень, | НоменклатураNestedSets.ПравыйКлюч — НоменклатураNestedSets.ЛевыйКлюч + 1 КАК Дельта |ПОМЕСТИТЬ ВТ_СуществующаяЗапись |ИЗ | РегистрСведений.НоменклатураNestedSets.СрезПоследних(, Номенклатура = &Узел) КАК НоменклатураNestedSets |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | НоменклатураNestedSetsСрезПоследних.Номенклатура КАК Номенклатура |ИЗ | ВТ_СуществующаяЗапись КАК ВТ_СуществующаяЗапись | ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.НоменклатураNestedSets.СрезПоследних КАК НоменклатураNestedSetsСрезПоследних | ПО ВТ_СуществующаяЗапись.ЛевыйКлюч <= НоменклатураNestedSetsСрезПоследних.ЛевыйКлюч | И ВТ_СуществующаяЗапись.ПравыйКлюч >= НоменклатураNestedSetsСрезПоследних.ПравыйКлюч |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | &Период КАК Период, | НоменклатураNestedSetsСрезПоследних.Номенклатура КАК Номенклатура, | ВЫБОР | КОГДА НоменклатураNestedSetsСрезПоследних.ЛевыйКлюч > ВТ_СуществующаяЗапись.ЛевыйКлюч | ТОГДА НоменклатураNestedSetsСрезПоследних.ЛевыйКлюч — ВТ_СуществующаяЗапись.Дельта | ИНАЧЕ НоменклатураNestedSetsСрезПоследних.ЛевыйКлюч | КОНЕЦ КАК ЛевыйКлюч, | НоменклатураNestedSetsСрезПоследних.ПравыйКлюч — ВТ_СуществующаяЗапись.Дельта КАК ПравыйКлюч, | НоменклатураNestedSetsСрезПоследних.Уровень КАК Уровень |ИЗ | ВТ_СуществующаяЗапись КАК ВТ_СуществующаяЗапись | ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.НоменклатураNestedSets.СрезПоследних КАК НоменклатураNestedSetsСрезПоследних | ПО ВТ_СуществующаяЗапись.ПравыйКлюч < НоменклатураNestedSetsСрезПоследних.ПравыйКлюч»; Запрос.УстановитьПараметр(«Узел», Номенклатура.Ссылка); ПериодЗаписи = ТекущаяДата(); Запрос.УстановитьПараметр(«Период», ПериодЗаписи); Пакет = Запрос.ВыполнитьПакет(); ВыборкаКУдалению = Пакет.Выбрать(); ВыгрузкаСмещение = Пакет.Выгрузить(); // Данные для записи в регистр с учетом смещения ключей // Здесь можно тоже оптимизнуть и удалить записи не в цикле, а допустим записать их в регистр с некой пометкой «к удалению», // но стоит учесть, что тогда придется дописать все остальные запросы и вместо того, чтобы просто брать срез, еще и отсеивать по этому новому признаку Пока ВыборкаКУдалению.Следующий() Цикл // Удаляем узел (ветку) НаборЗаписей = РегистрыСведений.НоменклатураNestedSets.СоздатьНаборЗаписей(); НаборЗаписей.Отбор.Номенклатура.Установить(ВыборкаКУдалению.Номенклатура); НаборЗаписей.Записать(); КонецЦикла; НаборЗаписей = РегистрыСведений.НоменклатураNestedSets.СоздатьНаборЗаписей(); НаборЗаписей.Загрузить(ВыгрузкаСмещение); НаборЗаписей.Записать(Ложь); КонецПроцедуры
В моей реализации я сделал регистр сведений «НоменклатураNestedSets» периодическим с целью увеличения производительности. Объясню: в примерах по использованию Nested Sets в интернетах используется команда UPDATE SQL сервера, такого 1С не может. Либо записывай набор записей целиком на весь регистр, либо пиши по одной записи. Если рассматривать спр. Номенклатура, то он спокойно может перевалить за 100 000, и каждый раз писать весь набор (с предшествующим удалением) это будет накладно. Писать по одной записи, тоже плохо (обращение к СУБД в цикле). Остается вариант использование периодического регистра: записывать только измененные позиции на текущую секунду, везде в запросах брать срез последних по регистру, а регламентным заданием чистить регистр. Собственно, такой вариант я и выбрал. Конечно он не идеален (2 записи в одну секунду не осилит), но для того чтобы показать алгоритм работы с Nested Sets подойдет.
Ну и на конец сам проверка на вхождение в иерархию, сделал ее в обработке проведения документа. Листинг ниже:
Процедура ОбработкаПроведения(Отказ, РежимПроведения) Запрос = Новый Запрос; Запрос.Текст = «ВЫБРАТЬ | ВЫРАЗИТЬ(ЗаявкиСотрудниковЗаказы.Сотрудник КАК Справочник.Сотрудники) КАК Сотрудник, | ВЫРАЗИТЬ(ЗаявкиСотрудниковЗаказы.Номенклатура КАК Справочник.Номенклатура) КАК Номенклатура |ПОМЕСТИТЬ ВТ_Заказы |ИЗ | &ТЗ КАК ЗаявкиСотрудниковЗаказы |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ РАЗЛИЧНЫЕ | ВТ_Заказы.Сотрудник КАК Сотрудник, | ВТ_Заказы.Сотрудник.Сегмент КАК Сегмент, | СегментыСостав.Номенклатура КАК НоменклатураСегмента |ПОМЕСТИТЬ ВТ_ДанныеПоСегментам |ИЗ | ВТ_Заказы КАК ВТ_Заказы | ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Сегменты.Состав КАК СегментыСостав | ПО ВТ_Заказы.Сотрудник.Сегмент = СегментыСостав.Ссылка |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | ВТ_ДанныеПоСегментам.Сотрудник КАК Сотрудник, | ВТ_ДанныеПоСегментам.НоменклатураСегмента КАК НоменклатураСегмента, | КлючиНоменклатурыСегмента.ЛевыйКлюч КАК ЛевыйКлюч, | КлючиНоменклатурыСегмента.ПравыйКлюч КАК ПравыйКлюч |ПОМЕСТИТЬ ВТ_ДанныеПоСегментамСКлючами |ИЗ | ВТ_ДанныеПоСегментам КАК ВТ_ДанныеПоСегментам | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.НоменклатураNestedSets.СрезПоследних( | , | Номенклатура В | (ВЫБРАТЬ | ВТ_ДанныеПоСегментам.НоменклатураСегмента | ИЗ | ВТ_ДанныеПоСегментам КАК ВТ_ДанныеПоСегментам)) КАК КлючиНоменклатурыСегмента | ПО ВТ_ДанныеПоСегментам.НоменклатураСегмента = КлючиНоменклатурыСегмента.Номенклатура |; | |//////////////////////////////////////////////////////////////////////////////// |ВЫБРАТЬ | ВТ_Заказы.Сотрудник КАК Сотрудник, | ВТ_Заказы.Номенклатура КАК Номенклатура, | ВТ_ДанныеПоСегментамСКлючами.НоменклатураСегмента КАК НоменклатураСегмента |ИЗ | ВТ_Заказы КАК ВТ_Заказы | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.НоменклатураNestedSets.СрезПоследних( | , | Номенклатура В | (ВЫБРАТЬ | ВТ_Заказы.Номенклатура | ИЗ | ВТ_Заказы КАК ВТ_Заказы)) КАК КлючиНоменклатурыЗаказа | ПО ВТ_Заказы.Номенклатура = КлючиНоменклатурыЗаказа.Номенклатура | ЛЕВОЕ СОЕДИНЕНИЕ ВТ_ДанныеПоСегментамСКлючами КАК ВТ_ДанныеПоСегментамСКлючами | ПО ВТ_Заказы.Сотрудник = ВТ_ДанныеПоСегментамСКлючами.Сотрудник | И (КлючиНоменклатурыЗаказа.ЛевыйКлюч >= ВТ_ДанныеПоСегментамСКлючами.ЛевыйКлюч) | И (КлючиНоменклатурыЗаказа.ПравыйКлюч <= ВТ_ДанныеПоСегментамСКлючами.ПравыйКлюч) |ГДЕ | ВТ_ДанныеПоСегментамСКлючами.Сотрудник ЕСТЬ NULL»; Запрос.УстановитьПараметр(«ТЗ», Заказы.Выгрузить(,»Сотрудник, Номенклатура»)); Результат = Запрос.Выполнить(); Если Не Результат.Пустой() Тогда Отказ = Истина; Сообщение = Новый СообщениеПользователю; Сообщение.Текст = «Кто-то заказал что-то не то»; Сообщение.Сообщить(); КонецЕсли; КонецПроцедуры
Пример конфигурации, из которой взяты листинги, приложен к статье.
Спасибо за внимание, надеюсь для кого-то эта статья будет полезна.
Обработка ПечатьЭтикеток использует компоненту «1С:Печать штрихкодов»(доступную на диске ИТС) для печати штрих-кодов(далее ШК). Эта компонента поддерживает следующие типы штрих-кодов: EAN8, EAN13, EAN128, Code39, Code128.
Что делать если на предприятии используется отличный ШК, например Interleave 2 of 5, для которго есть системный шрифт @IDAutomationSHI25M, используемый для вывода ШК на экран или на принтер.
Рассмотрим как проще всего добавить поддержку этого типа ШК в обработке ПечатьЭтикеток.
Первым делом скопируем общий макет Этикетка в макет для вывода нашего штрих-кода ЭтикеткаInterleave. В этом макете надо удалить элемент управления, связанный с компонентой «1С:Печать штрихкодов». И оформить центральное поле как параметр табличного документа ШтрихКод, выводимый шрифтом @IDAutomationSHI25M.
Далее разрешаем запуск обработки даже с неустановленной компонентой т.к. для вывода нашего ШК компонента не нужна. Для этого комментируем строчку в модуле формы обработки:
Код 1C v 8.х Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
Попытка
КомпонентШК = Новый COMОбъект(«V8.Barcod.1»);
Макет = ПолучитьОбщийМакет(«Этикетка»);
ЭтикеткаОбласть = Макет.ПолучитьОбласть(1,1,4,2);
ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.Сообщение = «1111111111116»;
Исключение
Сообщить(«Компонента 1С:Печать штрихкодов не установлена на данном компьютере!
|Возможна печать только штрих-кодов Interleave!», СтатусСообщения.Важное);
//Отказ = Истина;
КонецПопытки;
КонецПроцедуры
В общем модуле УправлениеРозничнойТорговлей также есть место проверки на компоненту
Код 1C v 8.х #Если Клиент Тогда
// Печать этикеток со штрих-кодом
//
Процедура ПечатьЭтикеток(Товары = Неопределено) Экспорт
//am+ Эта проверка нам не нужна, во первых она выполняется ПередОткрытием в форме обработки.
// Кроме того у нас есть тип штрихкода, который печататется без компоненты.
//Попытка
// КомпонентШК = Новый COMОбъект(«V8.Barcod.1»);
//Исключение
// Сообщить(«Компонента 1С:Печать штрихкодов не установлена на данном компьютере!», СтатусСообщения.Важное);
// Возврат;
//КонецПопытки;
//am-
В обработке есть место, где выполняется проверка типа ШК. Наш ШК сейчас не пройдет проверку и печать выполнена не будет. Чтоб печать выполнялась необходимо исправить функцию в общем модуле УправлениеРозничнойТорговлей.
Код 1C v 8.х
// Возвращает значение типа штрих-кода для использования в ЭУ
// «1С:Печать штрих-кодов»
//
// Параметры
// ТипКода — ПланыВидовХарактеристик.ТипыШтрихкодов — тип, значение для которого
// нужно получить
//
// Возвращаемое значение:
// Число, которое может быть присвоено свойству ЭУ «ТипКода»
//
Функция ПолучитьЗначениеТипаШтрихкодаДляЭУ(ТипКода) Экспорт
Перем Значение;
Если ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN8 Тогда
Значение = 0;
ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13 Тогда
Значение = 1;
ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN128 Тогда
Значение = 2;
ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Code39 Тогда
Значение = 3;
ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Code128 Тогда
Значение = 4;
//am+
ИначеЕсли ТипКода = ПланыВидовХарактеристик.ТипыШтрихкодов.Interleave20FS Тогда
Значение = 100;
//am-
Иначе
Значение = -1;
КонецЕсли;
Возврат Значение;
КонецФункции // ПолучитьЗначениеТипаШтрихкодаДляЭУ()
Мы на завершающем этапе, вносим изменения непосредственно в обработку.
Код 1C v 8.х Процедура Печать(ТаблицаТоваров) Экспорт
//am+ Так как у нас два разных макета, то нам нельзя смешивать типы ШК
// печатаемые в разных макетах. Выполним проверку.
флВремЕстьInterleave = Ложь;
флВремЕстьНеInterleave = Ложь;
Для Каждого СтрокаИзСписка Из ТаблицаТоваров Цикл
Если СтрокаИзСписка.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.Interleave20FS Тогда
флВремЕстьInterleave = Истина;
Иначе
флВремЕстьНеInterleave = Истина;
КонецЕсли;
Если флВремЕстьInterleave и флВремЕстьНеInterleave Тогда
Предупреждение(«В списке одновременно встречаются штрих-коды несовместимых типов,
|Штрих-коды Interleave необходимо печатать отдельно от остальных!»);
Возврат;
КонецЕсли;
КонецЦикла;
//am-
Таб = Новый ТабличныйДокумент;
Таб.ИмяПараметровПечати = «ПАРАМЕТРЫ_ПЕЧАТИ_Этикетка»+СокрЛП(ИмяКомпьютера());
//am+ Используем наш макет.
Если флВремЕстьInterleave Тогда
Макет = ПолучитьОбщийМакет(«ЭтикеткаInterleave»);
Иначе
//am-
Макет = ПолучитьОбщийМакет(«Этикетка»);
КонецЕсли;
//am+ Некоторые строки в нашем макете не заработают, необходимо добавить условие.
Если Не флВремЕстьInterleave Тогда
//am-
РисунокШтрихкод = ЭтикеткаОбласть.Рисунки.Штрихкод;
КонецЕсли;
//am+
Если Не флВремЕстьInterleave Тогда
//am-
РисунокШтрихкод.Расположить(ОбластьШтрихкод);
КонецЕсли;
Если УправлениеРозничнойТорговлей.ПроверитьШтрихКод(СтрокаИзСписка.ШтрихКод,
СтрокаИзСписка.ТипШтрихкода) Тогда
//am+ здесь мы установим размер шрифта (об этом в конце статьи) и зададим параметр ШтрихКод нашего макета для вывода
Если флВремЕстьInterleave Тогда
ЭтикеткаОбласть.Параметры.Установить(0,
СформироватьШтрихКодДляМакетаЭтикеткаInterleave(СтрокаИзСписка.ШтрихКод));
ЭтикеткаОбласть.Области.ОбластьШтрихкод.Шрифт =
Новый Шрифт(ЭтикеткаОбласть.Области.ОбластьШтрихкод.Шрифт,,РезмерШрифтаInterleave);
Иначе
//am-
Попытка //попытку нужно добавить т.к. если компонента не установлена, то будут ошибки.
ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.ТипКода = ТипКода;
ЭтикеткаОбласть.Рисунки.Штрихкод.Объект.Сообщение = СтрокаИзСписка.ШтрихКод;
Исключение
КонецПопытки;
КонецЕсли;
Последний штрих это добавить регулятор размера шрифта (в коде переменная РезмерШрифтаInterleave) на форму обработки:
Информация взята с сайта http://helpf.pro