(
7) Решил.
Баг тут
Для Каждого СтрокаТЧ Из Диапазоны Цикл
Код = СтрокаТЧ.Код + 1;
Диапазон = СтрокаТЧ.Диапазон;
Прервать;
КонецЦикла;
Если нет ни одного шк то переменная Код не заполняется.
И вот тут падает в ошибку
Если Код = Неопределено Тогда
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщенияНетСвободныхКодовШтучныхШтрихкодов());
Возврат Неопределено;
КонецЕсли;