При проведении Ошибка "Поле объекта не обнаружено (Штрихкод)"

Код из конструктора движений]Процедура ОбработкаПроведения(Отказ, Режим)
	//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
	// Данный фрагмент построен конструктором.
	// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

	// регистр ШтрихкодыНоменклатуры
	Движения.ШтрихкодыНоменклатуры.Записывать = Истина;
	Движение = Движения.ШтрихкодыНоменклатуры.Добавить();
	Движение.Штрихкод = Штрихкод;
	Движение.Номенклатура = Номенклатура;

	//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры

Код на генерацию штрихкода]#Область ОбработчикиСобытийФормы



// Процедура - обработчик события ОбработкаПроверкиЗаполненияНаСервере.
//
&НаСервере
Процедура ОбработкаПроверкиЗаполненияНаСервере(Отказ, ПроверяемыеРеквизиты)

	Запрос = РегистрыСведений.ШтрихкодыНоменклатуры.НовыйЗапросШтрихкоды(Объект);

	Выборка = Запрос.Выполнить().Выбрать();

	Если Выборка.Следующий() // Штрихкод уже записан в БД

		И Объект.ИсходныйКлючЗаписи.Штрихкод <> Объект.Штрихкод Тогда

		ОписаниеОшибки = НСтр("ru='Такой штрихкод уже назначен для номенклатуры %Номенклатура%'");
		ОписаниеОшибки = СтрЗаменить(ОписаниеОшибки, "%Номенклатура%", """" + Выборка.НоменклатураПредставление + """"
			+ ?(ЗначениеЗаполнено(Выборка.Характеристика), " " + НСтр("ru='с характеристикой'") + " """
			+ Выборка.ХарактеристикаПредставление + """", "") + ?(ЗначениеЗаполнено(Выборка.Партия), " """ + НСтр(
			"ru='с партией'") + " " + Выборка.ПартияПредставление + """", ""));

		ОбщегоНазначения.СообщитьПользователю(ОписаниеОшибки,, "Объект.Штрихкод",, Отказ);

	КонецЕсли;

КонецПроцедуры

&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
	ПерезаписатьЗначениеШтрихКодаВНоменклатуре = Объект.ИсходныйКлючЗаписи.Штрихкод = Объект.Номенклатура.ШтрихКод;
КонецПроцедуры

&НаКлиенте
Процедура ПослеЗаписи(ПараметрыЗаписи)
	
	ПараметрыОповещения = Новый Структура;
	ПараметрыОповещения.Вставить("Номенклатура", Объект.Номенклатура);
	ПараметрыОповещения.Вставить("ШтрихКод", Объект.ШтрихКод);
	//ПараметрыОповещения.Вставить("ПерезаписатьЗначениеШтрихКодаВНоменклатуре", ПерезаписатьЗначениеШтрихКодаВНоменклатуре);
		ПараметрыОповещения.Вставить("ШтрихКодУдален", Ложь);
	
	Оповестить("ОбъектШтрихКода", ПараметрыОповещения);
	
	Элементы.ФормаУдалитьЗапись.Доступность = Истина;
	
КонецПроцедуры

#КонецОбласти

  

 

#Область ОбработчикиКомандФормы

// Процедура обработчик команды НовыйШтрихкод.
//
&НаКлиенте
Процедура НовыйШтрихкод(Команда)
	
	Если Не ЗначениеЗаполнено(Объект.Номенклатура) Тогда
		СтрокаСообщения = НСтр("ru = 'Штрихкод не сгенерирован. Предварительно выберите номенклатуру.'");
		ОбщегоНазначенияКлиент.СообщитьПользователю(СтрокаСообщения);
		Возврат
	КонецЕсли;
	
			Объект.Штрихкод = СформироватьШтрихкодEAN13();
	
	
КонецПроцедуры

&НаКлиенте
Процедура УдалитьЗапись(Команда)
	
		ОписаниеОповещения = Новый ОписаниеОповещения("УдалитьЗаписьНаКлиенте", ЭтотОбъект);
		ПоказатьВопрос(ОписаниеОповещения, НСтр("ru = 'Удалить ""Штрихкоды номенклатуры"" ?'"), РежимДиалогаВопрос.ДаНет);

	КонецПроцедуры
	
	&НаКлиенте
Процедура ПечатьЭтикетки(Команда)

	Если Не ЗначениеЗаполнено(Объект.Штрихкод) Тогда
		Возврат;
	КонецЕсли;

	ТабДок = ТабличныйДокументСШтрихКодом();

	ТабДок.Показать();

КонецПроцедуры


#КонецОбласти





#Область СлужебныеПроцедурыИФункции

&НаКлиенте
Процедура УдалитьЗаписьНаКлиенте(Ответ, ДополнительныеПараметры) Экспорт

	Если Ответ = КодВозвратаДиалога.Нет Тогда
		Возврат;
	КонецЕсли;
	
	УдалитьЗаписьНаСервере();
	
	ПараметрыОповещения = Новый Структура;
	ПараметрыОповещения.Вставить("Номенклатура", Объект.Номенклатура);
	ПараметрыОповещения.Вставить("ШтрихКод", Объект.ШтрихКод);
	ПараметрыОповещения.Вставить("ПерезаписатьЗначениеШтрихКодаВНоменклатуре", Ложь);
	ПараметрыОповещения.Вставить("ШтрихКодУдален", Истина);
	
	Оповестить("ОбъектШтрихКода", ПараметрыОповещения);

	
	ЭтаФорма.Закрыть();
	
КонецПроцедуры

&НаСервере
Процедура УдалитьЗаписьНаСервере()

	НаборЗаписей = РегистрыСведений.ШтрихкодыНоменклатуры.СоздатьНаборЗаписей();
	
	НаборЗаписей.Отбор.Номенклатура.Установить(Объект.Номенклатура);
	НаборЗаписей.Отбор.Штрихкод.Установить(Объект.Штрихкод);
	НаборЗаписей.Отбор.Партия.Установить(Объект.Партия);
	НаборЗаписей.Отбор.ЕдиницаИзмерения.Установить(Объект.ЕдиницаИзмерения);
	НаборЗаписей.Отбор.Характеристика.Установить(Объект.Характеристика);
	НаборЗаписей.Записать();
	
КонецПроцедуры

// ПодключаемоеОборудование
&НаКлиенте
Функция ПолученыШтрихкоды(ДанныеШтрихкодов)
	
	Модифицированность = Истина;
	
	Если ДанныеШтрихкодов.Количество() > 0 Тогда
		Объект.Штрихкод = ДанныеШтрихкодов[ДанныеШтрихкодов.Количество() - 1].Штрихкод;
	КонецЕсли;
	
	Возврат Истина;
	
КонецФункции // ПолученыШтрихкоды()
// Конец ПодключаемоеОборудование


// Формирует штрихкод EAN13.
//
&НаСервереБезКонтекста
Функция СформироватьШтрихкодEAN13()
	
	Возврат РегистрыСведений.ШтрихкодыНоменклатуры.СформироватьШтрихкодEAN13();
	
КонецФункции // СформироватьШтрихкодEAN13()


&НаСервере
Функция ТабличныйДокументСШтрихКодом()

	Результат = Новый ТабличныйДокумент;

	ПараметрыШтрихкода = ГенерацияШтрихкода.ПараметрыГенерацииШтрихкода();
	ПараметрыШтрихкода.Ширина = 200;
	ПараметрыШтрихкода.Высота = 100;
	ПараметрыШтрихкода.УровеньКоррекцииQR = 0;
	ПараметрыШтрихкода.Штрихкод = Объект.Штрихкод;
	ПараметрыШтрихкода.ТипКода = 1;
	ПараметрыШтрихкода.ОтображатьТекст = Истина;
	ПараметрыШтрихкода.РазмерШрифта = 11;
	ПараметрыШтрихкода.УголПоворота = 0;

	ИзображениеШтрихкода = ГенерацияШтрихкода.ИзображениеШтрихкода(ПараметрыШтрихкода);

	Макет = Документы.Банка_I_82_500.ПолучитьМакет("Тест");   
	
	

	ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок"); 
	Результат.Вывести(ОбластьЗаголовок);
	Контакты = Макет.ПолучитьОбласть("Контакты");
	Результат.Вывести(Контакты);
	Шапка = Макет.ПолучитьОбласть("Шапка"); 
	Шапка.Параметры.Дата = Объект.Дата;
	Шапка.Параметры.Сортировщик1 = Объект.Сортировщик1;
	Шапка.Параметры.Сортировщик2 = Объект.Сортировщик2;
	Шапка.Параметры.Смена = ПараметрыСеанса.ТекущийПользователь.Смена;
	Шапка.Параметры.ОТК = ПараметрыСеанса.ТекущийПользователь.ОТК;
	Результат.Вывести(Шапка);
	Сноска = Макет.ПолучитьОбласть ("Сноска");
	Сноска.Параметры.НомерПаллета = Объект.НомерПаллета;	
	Результат.Вывести(Сноска);    
	
	
	
	ОбластьШК = Макет.ПолучитьОбласть("Штрихкод");
	НовыйРисунок = ОбластьШК.Рисунки.Добавить(ТипРисункаТабличногоДокумента.Картинка);
	НовыйРисунок.Картинка = ИзображениеШтрихкода.Картинка;
	НовыйРисунок.Верх = 0;
	НовыйРисунок.Лево = 0;
	НовыйРисунок.Ширина = 40;
	НовыйРисунок.Высота = 20;
	Результат.Вывести(ОбластьШК);

	
	
	  	
	Возврат Результат;

    КонецФункции
#КонецОбласти