Доброго дня. Изменил путь. Всё равно ошибка. Теперь переменная не определена. Что не так .
&НаКлиенте
Процедура Сформироватьновыйштрихкод(Команда)
Ответ = Вопрос("Будет произведена запись новых штрихкодов. Этот процесс может занять некоторое время. Вы уверены?", РежимДиалогаВопрос.ДаНет, 60);
Если Ответ <> КодВозвратаДиалога.Да Тогда
Возврат;
КонецЕсли;
Для каждого СтрокаТовар Из Объект.Товары Цикл
Если СтрокаТовар.СтарыйШтрихкод = "" И СтрокаТовар.НовыйШтрихкод = "" И СтрокаТовар.Обрабатывать Тогда
НовыйШтрихкод = ПодключаемоеОборудованиеРТ.Сформироватьновыйштрихкод();
СтрокаТовар.НовыйШтрихкод = НовыйШтрихкод;
//Записываем в регистр
ПроизвестиЗаписьВРегистрШтрихкоды(СтрокаТовар.Номенклатура, СтрокаТовар.Характеристика, НовыйШтрихкод);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
&НаСервереБезКонтекста
Процедура ПроизвестиЗаписьВРегистрШтрихкоды(Владелец, Характеристика, НовыйШтрихкод)
НоваяЗапись = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();
НоваяЗапись.Владелец = Владелец;
НоваяЗапись.Характеристика = Характеристика;
//Пытаемся прочитать запись
НоваяЗапись.Прочитать();
//Если записи нет
Если Не НоваяЗапись.Выбран() Тогда
НоваяЗапись.Владелец = Владелец;
НоваяЗапись.Штрихкод = НовыйШтрихкод;
НоваяЗапись.Характеристика = Характеристика;
НоваяЗапись.ТипШтрихкода = ПредопределенноеЗначение("ПланВидовХарактеристик.ТипыШтрихкодов.EAN13");
НоваяЗапись.ПредставлениеШтрихкода = "";
НоваяЗапись.Записать(Истина);
КонецЕсли;
КонецПроцедуры
Показать