Автоматическое заполнение доп. реквизитов для базовых версий конфигураций

#Область Команды

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

Процедура ДобавитьКоманду(ТаблицаКоманд, Представление, Идентификатор, Использование, ПоказыватьОповещение = Ложь,Модификатор = "")
	
	НоваяКоманда = ТаблицаКоманд.Добавить();
	НоваяКоманда.Представление = Представление;
	НоваяКоманда.Идентификатор = Идентификатор;
	НоваяКоманда.Использование = Использование;
	НоваяКоманда.ПоказыватьОповещение = ПоказыватьОповещение;
	НоваяКоманда.Модификатор = Модификатор;
	
КонецПроцедуры

Процедура ВыполнитьКоманду(ИдентификаторКоманды) Экспорт
	
	Если ИдентификаторКоманды = Метаданные().ПолноеИмя() + "ОбработкаПоРасписанию" Тогда
		ЗаполнитьДополнительныеРеквизиты();
	КонецЕсли;
	
КонецПроцедуры

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

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

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