Несколько владельцев у штрихкода

Question

Здравствуйте.
Работаю в 1С:Предприятие 8.3 (8.3.13.1644), Розница 8. Аптека, редакция 2.2 (2.2.7.32).

Имеется проблема: у штрихкодов есть несколько владельцев.

Метод исправления данной проблемы: создана внешняя обработка, в которой показывается список таких проблемных штрихкодов с несколькими владельцами и создана команда по созданию номенклатуры (для создания номенклатуры скопирована форма Справочники.Номенклатура.Формы.ФормаЭлемента).

После создания номенклатуры необходимо автоматически привязать к ней текущий выбранный штрихкод, далее пройтись по регистру сведений ор_ПрайсЛистыКонтрагентов и там, где штрихкоды совпадают с изначальным, тоже перезаписать на новую, только что созданную номенклатуру.

В основной форме внешней обработки написал вот это:

Код

&НаКлиенте
Процедура СоздатьНоменклатуру(Команда)	
	
	Если Элементы.ШтрихкодыДС.ТекущаяСтрока <> Неопределено Тогда
		ПараметрПередачиВФорму = Новый Структура("ПараметрШК",Элементы.ШтрихкодыДС.ТекущиеДанные.Штрихкод);
		ОткрытьФорму ("ВнешняяОбработка.РаботаСНоменклатурой.Форма.ФормаЭлемента",,ЭтаФорма,,,,Новый ОписаниеОповещения("ПослеЗаписиНоменклатуры", ЭтаФорма, ПараметрПередачиВФорму), РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
	Иначе
		 Сообщить("Ошибка. Выберите штрихкод!");
	КонецЕсли;
	 	
КонецПроцедуры


&НаСервере
Процедура ПослеЗаписиНоменклатуры(Результат, допПараметры) Экспорт
	
	Если Результат <> Неопределено И Результат <> NULL Тогда
		
		//ТУТ МЕНЯЕМ ВЛАДЕЛЬЦА У ТЕКУЩЕГО ШТРИХКОДА
				
		Запрос = Новый Запрос("ВЫБРАТЬ
		                      |	Штрихкоды.Штрихкод КАК Штрихкод
		                      |ИЗ
		                      |	РегистрСведений.Штрихкоды КАК Штрихкоды
		                      |ГДЕ
		                      |	Штрихкоды.Штрихкод = &ПараметрШК");
					   
		Запрос.УстановитьПараметр("ПараметрШК", Элементы.ШтрихкодыДС.ТекущиеДанные.Штрихкод);
		РезультатЗапроса = Запрос.Выполнить().Выбрать();		
		РезультатЗапроса.Владелец.Ссылка = Результат;
		
		Попытка
			РезультатЗапроса.Записать();
		Исключение 
			Отказ = Истина;
			Сообщить("Ошибка при попытке записи владельца исходного штрихкода!");
		КонецПопытки;
					
		// Меняем владельца у штрихкодов в прайм-листе		
		Запрос = Новый Запрос("ВЫБРАТЬ
		                      |	ор_ПрайсЛистыКонтрагентов.Номенклатура КАК Номенклатура,
		                      |	ор_ПрайсЛистыКонтрагентов.ШтрихКод КАК ШтрихКод
		                      |ИЗ
		                      |	РегистрСведений.ор_ПрайсЛистыКонтрагентов КАК ор_ПрайсЛистыКонтрагентов
		                      |ГДЕ
		                      |	ор_ПрайсЛистыКонтрагентов.ШтрихКод = &ПараметрШК");
					   
		Запрос.УстановитьПараметр("ПараметрШК", ПараметрПередачиВФорму);	
		Выборка = Запрос.Выполнить().Выбрать();

				
		Пока Выборка.Следующий() Цикл
			
			Выборка.Владелец.Ссылка = Результат;
			
			Попытка
				Выборка.Записать();
			Исключение
				Отказ = Истина;
				Сообщить("Ошибка при попытке записи владельца в прайс-листе контрагентов!");
			КонецПопытки;
			
		КонецЦикла;	
			
	КонецЕсли;
	
КонецПроцедуры

Показать

В форме записи номенклатуры код менял только вот тут:

Код

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

&НаКлиенте
Процедура ПриЗакрытии(ЗавершениеРаботы)
	
	// ПодключаемоеОборудование
	Если ИсползованиеВебКамеы Тогда
		Описание = Новый ОписаниеОповещения("ОтключениеВидеокамерыЗавершение", ЭтотОбъект);
		МенеджерОборудованияКлиент.НачатьОтключениеОборудованиеПоИдентификатору(Описание, ЭтаФорма.УникальныйИдентификатор, ВебКамера);
	КонецЕсли;
	
	МенеджерОборудованияКлиент.НачатьОтключениеОборудованиеПриЗакрытииФормы(Неопределено, ЭтотОбъект);
	// Конец ПодключаемоеОборудование
	
	ОповеститьОВыборе(Объект.Ссылка);
	
КонецПроцедуры

Показать

Проблемы у меня такие:
1) Я не уверен, что корректно достал ссылку на только что созданную номенклатуру. Ссылка эта нужна для последующей привязке штрихкодов к данной номенклатуре.

2) Ругается при попытке привязки штрихкода к новой номенклатуре, как это исправить?

РезультатЗапроса = Запрос.Выполнить().Выбрать();		
РезультатЗапроса.Владелец.Ссылка = Результат;

3) Как в данной ситуации сделать всю эту процедуру перепривязки в транзакции, дабы не плодить кучу номенклатур при сбое при перезаписи штрихкода?

Accepted Answer

(11)

[CODE]РезультатЗапроса = Запрос.Выполнить().Выбрать();        
РезультатЗапроса.Следующий();
ОбъектШК = РезультатЗапроса.ШтрихКод.ПолучитьОбъект();
ОбъектШК.Владелец = Результат;
ОбъектШК.Записать()[/CODE]