Те.
20....1X
20....2X
20....3X
и т.п., где Х - контрольная сумма

https://barcode.tec-it.com/ru/EAN13
тут есть, но не то.
выдает список картинок, а нужен просто список кодов с контрольной суммой

Хм, а почему не в 1С?

(2) мне тоже интересно)

(0) сам напиши, делов на полчаса с кофеем.

(4) не хочу клиенту выставлять лишний счет

в ут 10.3

(6) а в 11 нет?

(7) конечно есть

(5) цикл и расчет контрольного числа займет много времени?

(5) ну бесплатно сделай или по скидке. Функционал расчета контрольного символа должен быть во всех конфах где есть работа с ШК, а остальное там один цикл и пара полей ввода. Писать-то считай и не надо ничего.

(10) да как бы и сам контрольный символ - это на пятнадцать минут работы (вместе нагугливанием)

(9) да у меня есть изолированная обработка по расчету контрольной цифры
(11) ну вот я и выставлю на 0.5, потому что столько и займет.
я просто думаю, зачем изобретать велик, может готовое есть?

Отправил на почту xls-файлик. Возможно, поможет.

За 50 минут уже написал бы...

Вот уже гений не в состоянии 4 строчки кода написать

кстати код в УТ 10.3 и БП 3.0 абсолютно идентичен)

(12) >>ну вот я и выставлю на 0.5, потому что столько и займет.

ну сюда-то половину перечислишь? за помощь?

"Мой гений дарит вам..."

В своем браузере нажимаешь Shift+Ctrl+J (или F12), в консоль javascript вставляешь вот эту строку:

((p, k) => [...Array(k).keys()].map(i=>parseInt(p.toString().substr(0, 12))+i).map(l=> l*10 + (10 - (l.toString().split('').reduce((a,i,n)=>a+i*(1+2*(n%2)), 0) % 10))))(4603934000786, 10)

поменяй последних параметра: с какого ш\к начать, сколько ш\к генерить

(18) Спасибо, я уже сделал таки на Excel:
=ЕСЛИ(B5="";"";B5*10+ОСТАТ(10-ОСТАТ(3*(ПСТР(B5;2;1)+ПСТР(B5;4;1)+ПСТР(B5;6;1)+ПСТР(B5;8;1)+ПСТР(B5;10;1)+ПСТР(B5;12;1))+ПСТР(B5;1;1)+ПСТР(B5;3;1)+ПСТР(B5;5;1)+ПСТР(B5;7;1)+ПСТР(B5;9;1)+ПСТР(B5;11;1);10);10))

(18) Либо смотришь типовую конфу...
// Функция вычисляет контрольный символ кода EAN
//
// Параметры:
//  ШтрихКод     - штрихкод (без контрольной цифры)
//  Тип          - тип штрихкода: 13 - EAN13, 8 - EAN8
//
// Возвращаемое значение:
//  Контрольный символ штрихкода
//
Функция КонтрольныйСимволEAN(ШтрихКод, Тип) Экспорт

    Четн   = 0;
    Нечетн = 0;

    КоличествоИтераций = ?(Тип = 13, 6, 4);

    Для Индекс = 1 По КоличествоИтераций Цикл
        Если (Тип = 8) и (Индекс = КоличествоИтераций) Тогда
        Иначе
            Четн   = Четн   + Сред(ШтрихКод, 2 * Индекс, 1);
        КонецЕсли;
        Нечетн = Нечетн + Сред(ШтрихКод, 2 * Индекс - 1, 1);
    КонецЦикла;

    Если Тип = 13 Тогда
        Четн = Четн * 3;
    Иначе
        Нечетн = Нечетн * 3;
    КонецЕсли;

    КонтЦифра = 10 - (Четн + Нечетн) % 10;

    Возврат ?(КонтЦифра = 10, "0", Строка(КонтЦифра));

КонецФункции // КонтрольныйСимволEAN()

фу какая хрень. еан или не еан - пофиг. так же как и длина. "контрольный символ еан" это если не ошибаюсь "расчет по модулю 10"

(20) 18 строк против 1.

(18) работает, блин!

Блин,вам цифры надо,а я то думал,вам его нарисовать нужно.

Когда-то,очень давно,когда был microsoft office 4,я рисовал штрих-код через msgraph.

(22) ну разрабы 10ой торговли решили так реализовать контрольный символ...

(22) Пффф! Пожалуйста, одна строка:

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