Печать документов с добавлением штрих-кодов

Длинновато и кривовато, но работает.

// Создать штрих-код
Функция ПолучитьШтрихКодДокументаПоСсылке(СсылкаДокумент) Экспорт
// Тип документа
НомерДокументаМетаданные = Метаданные.Документы.Индекс(Метаданные.Документы[СсылкаДокумент.Метаданные().Имя]);
НомерДокументаМетаданные = Прав("000" + НомерДокументаМетаданные, 3);

// Год документа
ГодДокумента = СтрЗаменить(Год(СсылкаДокумент.Дата), " ", "");

// Номер документа
НомерДокумента = СсылкаДокумент.Номер;
НомерДокументаЦифры = УбратьСимволы(НомерДокумента);
ДлинаЦифр = СтрДлина(НомерДокументаЦифры);
НомерДокументаЦифры = Прав("00000000000" + НомерДокументаЦифры, 11);

// Префикс документа (8)
ПрефиксДокумента = Лев(НомерДокумента, СтрДлина(НомерДокумента) - ДлинаЦифр);
ПрефиксДокумента = ПреобразоватьПрефиксВКод(ПрефиксДокумента);
ПрефиксДокумента = Прав("00000000" + ПрефиксДокумента, 8);

// Формирование штрих-кода (2)
ШтрихКод = "" + НомерДокументаМетаданные + ГодДокумента + ПрефиксДокумента + НомерДокументаЦифры;
ШтрихКод = ДобавитьКонтрольныйСимволШК(ШтрихКод);
Возврат ШтрихКод;
КонецФункции

Функция ПреобразоватьПрефиксВКод(Префикс)
Стр = "";
Для Ном = 1 По СтрДлина(Префикс) Цикл
КодСимвола = КодСимвола(Сред(Префикс, Ном, 1)) - 1000;
Стр = Стр + Строка(КодСимвола);
КонецЦикла;
Стр = СтрЗаменить(Стр, " ", "");
Возврат Стр;
КонецФункции

Функция ДобавитьКонтрольныйСимволШК(ШтрихКод)
СуммаНечет = 0;
СуммаЧет = 0;
Для Сч = 1 По СтрДлина(ШтрихКод) Цикл
Тек = Число(Сред(ШтрихКод,Сч,1));
Если Сч%2=1 Тогда
//нечет
СуммаНечет = СуммаНечет + Тек;
Иначе
//чет
СуммаЧет = СуммаЧет + Тек;
КонецЕсли;
КонецЦикла;
КонтрольноеЧисло = Прав(Строка(10-Число(Прав(Строка((СуммаЧет*3)+СуммаНечет),1))),1);
Возврат ШтрихКод+КонтрольноеЧисло;
КонецФункции

Функция УбратьСимволы(ИсходнаяСтрока)
Стр = "";
Для Ном = 1 По СтрДлина(ИсходнаяСтрока) Цикл
КодСимвола = КодСимвола(Сред(ИсходнаяСтрока, Ном, 1));
Цифра = Сред(ИсходнаяСтрока, Ном, 1);
Если (КодСимвола >= 48 И КодСимвола <= 57) Тогда
Стр = Стр + Цифра;
КонецЕсли;
КонецЦикла;
Возврат Стр;
КонецФункции


// Получение документа по штрих-коду
Функция ПолучитьДокументПоШтрихКоду(Знач ШтрихКод) Экспорт
// Проверка
Если СтрДлина(ШтрихКод) <> 27 Тогда
Возврат Неопределено;
КонецЕсли;

// Тип документа
НомерТипаДокумента = Число(Лев(ШтрихКод, 3));
Если НомерТипаДокумента > Метаданные.Документы.Количество() Тогда
Возврат Неопределено;
КонецЕсли;
ТипДокумента = Метаданные.Документы[НомерТипаДокумента].Имя;
КоличествоСимволовНомера = Метаданные.Документы[ТипДокумента].ДлинаНомера;
ШтрихКодПечатнойФормы = Прав(ШтрихКодПечатнойФормы, СтрДлина(ШтрихКодПечатнойФормы) - 3);

// Год документа
ГодДокумента = Сред(ШтрихКод, 4, 4);

// Префикс документа (число)
ПрефиксДокумента = Сред(ШтрихКод, 8, 8);
ПрефиксДокументаТекст = "";
Для Ном = 1 По 4 Цикл
КодСимвола = Лев(ПрефиксДокумента, 2);
Если КодСимвола = "00" Тогда Продолжить; КонецЕсли;
ПрефиксДокументаТекст = ПрефиксДокументаТекст + Символ(Число(КодСимвола) + 1000);
ПрефиксДокумента = Прав(ПрефиксДокумента, СтрДлина(ПрефиксДокумента) - 2);
КонецЦикла;

// Номер документа
НомерДокумента = Сред(ШтрихКод, 16, 11);
НулиНомера = "";
НомерДокумента = Прав(НомерДокумента, КоличествоСимволовНомера - СтрДлина(ПрефиксДокументаТекст));

// Номер с префиксом
НомерСПрефиксом = ПрефиксДокументаТекст + НомерДокумента;

Запрос = Новый Запрос();
Запрос.Текст = "ВЫБРАТЬ
| ТипДокумента.Номер,
| ЕСТЬNULL(ТипДокумента.Ссылка, НЕОПРЕДЕЛЕНО) КАК Ссылка
|ИЗ
| Документ.ПеремещениеТоваров КАК ТипДокумента
|ГДЕ
| ТипДокумента.Номер = &НомерДокумента
| И ГОД(ТипДокумента.Дата) = &ГодДокумента";

Запрос.Текст = СтрЗаменить(Запрос.Текст, "ПеремещениеТоваров", ТипДокумента);
Запрос.УстановитьПараметр("ГодДокумента", Число(ГодДокумента));
Запрос.УстановитьПараметр("НомерДокумента", НомерСПрефиксом);
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
Возврат Выборка.Ссылка;
КонецЕсли;
Возврат Неопределено;
КонецФункции

благодарю за познавательный пример. Сейчас же приступлю к его разбору. И самое главное, я так понимаю данный пример рассчитан только на один документ?