Формирование контрольной цифры штрих-кода запросом

Есть много публикаций (здесь и на других ресурсах), в которых реализован алгоритм формирования контрольной цифры штрих-кода (EAN-13, EAN-8). Везде они реализованы средствами того или иного языка.

Передо мной была поставлена задача — сделать отчет с генерацией последовательных номеров штрих-кодов по стандарту EAN-13 и выводом в табличный документ.

Самое простое решение, которое сразу приходит на ум — счетчик от "Код (мин)" до "Код (макс)" с добавлением префикса штрих-кода и расчетом контрольной цифры. Сначала так и было сделано (разработка была под УТ 11, но годится и для КА, и для ERP):

Для СчетчикШК = КодМин По КодМакс Цикл
ШК = ПрефиксШК + Формат(СчетчикШК, "ЧЦ=10; ЧВН=; ЧГ=");
ПолныйШК = ШК + РегистрыСведений.ШтрихкодыНоменклатуры.КонтрольныйСимволEAN(ШК, 13);
КонецЦикла;

Метод "КонтрольныйСимволEAN" — типовой, приводить не буду

Проблема заключается в том, что на небольших промежутках этот код отрабатывает достаточно быстро. Если же промежуток брать десятки или сотни тысяч — торможение будет уже заметным.

Я задумался: "А нельзя ли возложить расчет контрольной цифры на SQL-сервер?". Как оказалось, вполне возможно:

ВЫБРАТЬ
ПОДСТРОКА(&ШтрихКод, 12, 1) КАК ЧетныеЦифры,
ПОДСТРОКА(&ШтрихКод, 11, 1) КАК НечетныеЦифры
ПОМЕСТИТЬ ВТ_Цифры
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ
ПОДСТРОКА(&ШтрихКод, 10, 1),
ПОДСТРОКА(&ШтрихКод, 9, 1)
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ
ПОДСТРОКА(&ШтрихКод, 8, 1),
ПОДСТРОКА(&ШтрихКод, 7, 1)
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ
ПОДСТРОКА(&ШтрихКод, 6, 1),
ПОДСТРОКА(&ШтрихКод, 5, 1)
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ
ПОДСТРОКА(&ШтрихКод, 4, 1),
ПОДСТРОКА(&ШтрихКод, 3, 1)
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ
ПОДСТРОКА(&ШтрихКод, 2, 1),
ПОДСТРОКА(&ШтрихКод, 1, 1)
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
СУММА(ВЫБОР КОГДА ВТ_Цифры.ЧетныеЦифры = ""1"" ТОГДА 1
КОГДА ВТ_Цифры.ЧетныеЦифры = ""2""  ТОГДА 2
КОГДА ВТ_Цифры.ЧетныеЦифры = ""3""  ТОГДА 3
КОГДА ВТ_Цифры.ЧетныеЦифры = ""4""  ТОГДА 4
КОГДА ВТ_Цифры.ЧетныеЦифры = ""5""  ТОГДА 5
КОГДА ВТ_Цифры.ЧетныеЦифры = ""6""  ТОГДА 6
КОГДА ВТ_Цифры.ЧетныеЦифры = ""7""  ТОГДА 7
КОГДА ВТ_Цифры.ЧетныеЦифры = ""8""  ТОГДА 8
КОГДА ВТ_Цифры.ЧетныеЦифры = ""9""  ТОГДА 9
ИНАЧЕ 0
КОНЕЦ) * 3 + СУММА(ВЫБОР КОГДА ВТ_Цифры.НечетныеЦифры = ""1"" ТОГДА 1
КОГДА ВТ_Цифры.НечетныеЦифры = ""2"" ТОГДА 2
КОГДА ВТ_Цифры.НечетныеЦифры = ""3"" ТОГДА 3
КОГДА ВТ_Цифры.НечетныеЦифры = ""4"" ТОГДА 4
КОГДА ВТ_Цифры.НечетныеЦифры = ""5"" ТОГДА 5
КОГДА ВТ_Цифры.НечетныеЦифры = ""6"" ТОГДА 6
КОГДА ВТ_Цифры.НечетныеЦифры = ""7"" ТОГДА 7
КОГДА ВТ_Цифры.НечетныеЦифры = ""8"" ТОГДА 8
КОГДА ВТ_Цифры.НечетныеЦифры = ""9"" ТОГДА 9
ИНАЧЕ 0
КОНЕЦ) КАК СуммаЦифр
ПОМЕСТИТЬ ВТ_СуммаЦифр
ИЗ
ВТ_Цифры КАК ВТ_Цифры
;

////////////////////////////////////////////////////////////////////////////////
ВЫБРАТЬ
ВЫБОР
КОГДА ВТ_СуммаЦифр.СуммаЦифр = (ВЫРАЗИТЬ(ВТ_СуммаЦифр.СуммаЦифр / 10 КАК ЧИСЛО(2, 0))) * 10
ТОГДА 0
КОГДА ВТ_СуммаЦифр.СуммаЦифр < (ВЫРАЗИТЬ(ВТ_СуммаЦифр.СуммаЦифр / 10 КАК ЧИСЛО(2, 0))) * 10
ТОГДА (ВЫРАЗИТЬ(ВТ_СуммаЦифр.СуммаЦифр / 10 КАК ЧИСЛО(2, 0))) * 10 - ВТ_СуммаЦифр.СуммаЦифр
ИНАЧЕ 10 - (ВТ_СуммаЦифр.СуммаЦифр - (ВЫРАЗИТЬ(ВТ_СуммаЦифр.СуммаЦифр / 10 КАК ЧИСЛО(2, 0))) * 10)
КОНЕЦ КАК КонтрольныйСимвол
ИЗ
ВТ_СуммаЦифр КАК ВТ_СуммаЦифр

Параметр запроса "ШтрихКод" — строка, в которой 12 цифр

Алгоритм расчета контрольной цифры взят отсюда: http://gs1md.org/ru/definirea-cifrei-de-control/

Проверялось на 000000000001, 999999999999 и 345678905675

Собственно, кто хочет, на вышеприведенной ссылке есть калькулятор. Можете проверять