https://pastein.ru/t/XAJ
Загрузка данных
&НаСервере
Процедура СоздатьGTINs()
// 1. Бэкап текущего состояния регистра
ВыгрузитьРегистрВCSV();
ТестовыйРежим = Истина; // ← поменяйте на Ложь для реальной записи
// 2. ОДИН ЗАПРОС: получаем все непустые штрихкоды (без фильтра по длине)
Запрос = Новый Запрос;
Запрос.Текст = "
|ВЫБРАТЬ
| Штрихкоды.Владелец КАК Номенклатура,
| Штрихкоды.Характеристика КАК Характеристика,
| Штрихкоды.Штрихкод КАК Штрихкод
|ИЗ
| РегистрСведений.Штрихкоды КАК Штрихкоды
|ГДЕ
| Штрихкоды.Штрихкод <> """"";
Результат = Запрос.Выполнить();
Если Результат.Пустой() Тогда
Сообщить("Нет штрихкодов в регистре.");
Возврат;
КонецЕсли;
Выборка = Результат.Выбрать();
// 3. Группируем в памяти, отбирая только EAN13 (длина = 13)
Группы = Новый Соответствие; // ключ: "Номенклатура|Характеристика", значение: структура с ссылками и массивом GTIN
Пока Выборка.Следующий() Цикл
Штрихкод = СокрЛП(Выборка.Штрихкод);
// Пропускаем всё, кроме 13-значных
Если СтрДлина(Штрихкод) <> 13 Тогда
Продолжить;
КонецЕсли;
GTIN = "0" + Штрихкод;
НоменклатураСсылка = Выборка.Номенклатура;
ХарактеристикаСсылка = Выборка.Характеристика;
Ключ = Строка(НоменклатураСсылка) + "|" + Строка(ХарактеристикаСсылка);
СтруктураГруппы = Группы.Получить(Ключ);
Если СтруктураГруппы = Неопределено Тогда
СтруктураГруппы = Новый Структура("Номенклатура, Характеристика, GTINМассив", НоменклатураСсылка, ХарактеристикаСсылка, Новый Массив);
Группы.Вставить(Ключ, СтруктураГруппы);
КонецЕсли;
Массив = СтруктураГруппы.GTINМассив;
Если Массив.Найти(GTIN) = Неопределено Тогда
Массив.Добавить(GTIN);
КонецЕсли;
КонецЦикла;
Если Группы.Количество() = 0 Тогда
Сообщить("Нет EAN13 штрихкодов.");
Возврат;
КонецЕсли;
// 4. Загружаем все существующие GTIN из регистра ОписаниеGTINИС в массив
ЗапросСущ = Новый Запрос;
ЗапросСущ.Текст = "ВЫБРАТЬ ОписаниеGTINИС.GTIN ИЗ РегистрСведений.ОписаниеGTINИС КАК ОписаниеGTINИС";
РезультатСущ = ЗапросСущ.Выполнить();
СуществующиеGTIN = Новый Массив;
Если РезультатСущ.Пустой() = Ложь Тогда
ВыборкаСущ = РезультатСущ.Выбрать();
Пока ВыборкаСущ.Следующий() Цикл
СуществующиеGTIN.Добавить(ВыборкаСущ.GTIN);
КонецЦикла;
КонецЕсли;
// 5. Подготовка переменных статистики и коллекций
КоличествоХарактеристик = 0;
ВсегоУникальныхEAN13 = 0;
КоличествоУжеСуществует = 0;
КоличествоДобавленных = 0;
НаборЗаписей = РегистрыСведений.ОписаниеGTINИС.СоздатьНаборЗаписей();
СписокДобавляемых = Новый Массив;
ОтчетныеЗаписи = Новый Массив;
// 6. Основной цикл по группам
Для каждого Элемент Из Группы Цикл
СтруктураГруппы = Элемент.Значение;
НоменклатураСсылка = СтруктураГруппы.Номенклатура;
ХарактеристикаСсылка = СтруктураГруппы.Характеристика;
МассивGTIN = СтруктураГруппы.GTINМассив;
КоличествоХарактеристик = КоличествоХарактеристик + 1;
ВсегоУникальныхEAN13 = ВсегоУникальныхEAN13 + МассивGTIN.Количество();
Для каждого GTIN Из МассивGTIN Цикл
// Проверяем наличие в массиве существующих (быстрый поиск)
Если СуществующиеGTIN.Найти(GTIN) <> Неопределено Тогда
КоличествоУжеСуществует = КоличествоУжеСуществует + 1;
Продолжить;
КонецЕсли;
// Добавляем в набор записей
НоваяЗапись = НаборЗаписей.Добавить();
НоваяЗапись.GTIN = GTIN;
НоваяЗапись.ВидУпаковки = Перечисления.ВидыУпаковокИС.Потребительская;
НоваяЗапись.КоличествоПотребительскихУпаковок = 1;
КоличествоДобавленных = КоличествоДобавленных + 1;
// Для плоского списка
СтруктураЗаписи = Новый Структура;
СтруктураЗаписи.Вставить("GTIN", GTIN);
СтруктураЗаписи.Вставить("ВидУпаковки", Перечисления.ВидыУпаковокИС.Потребительская);
СтруктураЗаписи.Вставить("КоличествоПотребительскихУпаковок", 1);
СписокДобавляемых.Добавить(СтруктураЗаписи);
// Для отчёта по группам
СтруктураОтчета = Новый Структура;
СтруктураОтчета.Вставить("Номенклатура", НоменклатураСсылка.Наименование);
СтруктураОтчета.Вставить("Характеристика", ?(ХарактеристикаСсылка.Пустая(), "Без характеристики", ХарактеристикаСсылка.Наименование));
СтруктураОтчета.Вставить("GTIN", GTIN);
ОтчетныеЗаписи.Добавить(СтруктураОтчета);
КонецЦикла;
КонецЦикла;
// 7. Сохранение отчётов
Если СписокДобавляемых.Количество() > 0 Тогда
СохранитьСписокВCSV(СписокДобавляемых);
КонецЕсли;
Если ОтчетныеЗаписи.Количество() > 0 Тогда
СохранитьОтчетПоДобавленным(ОтчетныеЗаписи);
КонецЕсли;
// 8. Запись или тест
Если НаборЗаписей.Количество() > 0 Тогда
Если ТестовыйРежим Тогда
Сообщить("*** ТЕСТ: запись отключена. Будет добавлено записей: " + НаборЗаписей.Количество());
Иначе
НаборЗаписей.Записать();
Сообщить("Данные записаны. Добавлено записей: " + НаборЗаписей.Количество());
КонецЕсли;
Иначе
Сообщить("Нет новых записей для добавления.");
КонецЕсли;
// 9. Статистика
Сообщить("========== СТАТИСТИКА ==========");
Сообщить("Всего пар (Номенклатура + Характеристика) с EAN13: " + КоличествоХарактеристик);
Сообщить("Всего уникальных EAN13 (преобразованных в GTIN): " + ВсегоУникальныхEAN13);
Сообщить("Из них уже существовали в регистре: " + КоличествоУжеСуществует);
Сообщить("Добавлено новых записей: " + КоличествоДобавленных);
Сообщить("=================================");
ЗаписьЖурналаРегистрации("Заполнение GTIN", УровеньЖурналаРегистрации.Информация,,
"Тест: " + ?(ТестовыйРежим, "да", "нет") + " | Добавлено: " + КоличествоДобавленных);
КонецПроцедуры
// ============================================================
// Процедура бэкапа регистра
// ============================================================
Процедура ВыгрузитьРегистрВCSV()
ИмяФайла = "F:\ОписаниеGTINИС_бэкап_" + Формат(ТекущаяДата(), "ДФ=yyyyMMdd_HHmmss") + ".csv";
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ ОписаниеGTINИС.GTIN, ОписаниеGTINИС.ВидУпаковки, ОписаниеGTINИС.КоличествоПотребительскихУпаковок ИЗ РегистрСведений.ОписаниеGTINИС КАК ОписаниеGTINИС";
Результат = Запрос.Выполнить();
Если Результат.Пустой() Тогда
Сообщить("Регистр пуст.");
Возврат;
КонецЕсли;
Выборка = Результат.Выбрать();
ТекстCSV = Новый ЗаписьТекста(ИмяФайла, КодировкаТекста.ANSI);
ТекстCSV.ЗаписатьСтроку("GTIN;ВидУпаковки;КоличествоУпаковок");
Пока Выборка.Следующий() Цикл
ТекстCSV.ЗаписатьСтроку(Выборка.GTIN + ";" + Строка(Выборка.ВидУпаковки) + ";" + Строка(Выборка.КоличествоПотребительскихУпаковок));
КонецЦикла;
ТекстCSV.Закрыть();
Сообщить("Бэкап сохранён: " + ИмяФайла);
КонецПроцедуры
// ============================================================
// Сохраняет плоский список добавляемых GTIN в CSV
// ============================================================
Процедура СохранитьСписокВCSV(СписокЗаписей)
ИмяФайла = "F:\Добавляемые_GTIN_" + Формат(ТекущаяДата(), "ДФ=yyyyMMdd_HHmmss") + ".csv";
ТекстCSV = Новый ЗаписьТекста(ИмяФайла, КодировкаТекста.ANSI);
ТекстCSV.ЗаписатьСтроку("GTIN;ВидУпаковки;КоличествоУпаковок");
Для каждого Запись Из СписокЗаписей Цикл
ТекстCSV.ЗаписатьСтроку(Запись.GTIN + ";" + Строка(Запись.ВидУпаковки) + ";" + Строка(Запись.КоличествоПотребительскихУпаковок));
КонецЦикла;
ТекстCSV.Закрыть();
Сообщить("Список добавляемых GTIN сохранён: " + ИмяФайла);
КонецПроцедуры
// ============================================================
// Сохраняет групповой отчёт по добавленным GTIN
// ============================================================
Процедура СохранитьОтчетПоДобавленным(ОтчетныеЗаписи)
Если ОтчетныеЗаписи.Количество() = 0 Тогда
Сообщить("Нет данных для отчёта.");
Возврат;
КонецЕсли;
Группы = Новый Соответствие;
Для каждого Запись Из ОтчетныеЗаписи Цикл
Ключ = Запись.Номенклатура + "|" + Запись.Характеристика;
МассивGTIN = Группы.Получить(Ключ);
Если МассивGTIN = Неопределено Тогда
МассивGTIN = Новый Массив;
Группы.Вставить(Ключ, МассивGTIN);
КонецЕсли;
МассивGTIN.Добавить(Запись.GTIN);
КонецЦикла;
СтрокиДляCSV = Новый Массив;
СтрокиДляCSV.Добавить("Номенклатура;Характеристика;Добавленные штрихкоды;Количество");
Для каждого Элемент Из Группы Цикл
Ключ = Элемент.Ключ;
МассивGTIN = Элемент.Значение;
Разделитель = Найти(Ключ, "|");
Номенклатура = Лев(Ключ, Разделитель - 1);
Характеристика = Сред(Ключ, Разделитель + 1);
СписокШтрихкодов = "";
Для каждого GTIN Из МассивGTIN Цикл
Если СписокШтрихкодов = "" Тогда
СписокШтрихкодов = GTIN;
Иначе
СписокШтрихкодов = СписокШтрихкодов + ", " + GTIN;
КонецЕсли;
КонецЦикла;
Количество = МассивGTIN.Количество();
Строка = Номенклатура + ";" + Характеристика + ";" + СписокШтрихкодов + ";" + Строка(Количество);
СтрокиДляCSV.Добавить(Строка);
КонецЦикла;
ИмяФайла = "F:\Отчет_по_добавленным_GTIN_" + Формат(ТекущаяДата(), "ДФ=yyyyMMdd_HHmmss") + ".csv";
ТекстCSV = Новый ЗаписьТекста(ИмяФайла, КодировкаТекста.ANSI);
Для каждого Строка Из СтрокиДляCSV Цикл
ТекстCSV.ЗаписатьСтроку(Строка);
КонецЦикла;
ТекстCSV.Закрыть();
Сообщить("Отчёт по добавленным GTIN сохранён: " + ИмяФайла);
КонецПроцедуры
// ============================================================
// Обработчик кнопки на клиенте
// ============================================================
&НаКлиенте
Процедура ВыполнитьНаКлиенте(Команда)
СоздатьGTINs();
КонецПроцедуры