Структура обработки загрузки номенклатуры поставщика с примерами и комментариями (часть 1)

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

Функция РазницаТаблицЗначений(Таблица0, Таблица1, Измерения) Экспорт
    
    Отбор = Новый Структура(Измерения);
    
    Ресурсы = Новый Массив;
    Для ИндексКолонки = 0 По Таблица0.Колонки.Количество() - 1 Цикл
        Если НЕ Отбор.Свойство(Таблица0.Колонки[ИндексКолонки].Имя) Тогда
            Ресурсы.Добавить(ИндексКолонки)
        КонецЕсли
    КонецЦикла;
    
    Таблица1.Колонки.Добавить("Знак", Новый ОписаниеТипов("Число"));
    Таблица1.ЗаполнитьЗначения(1, "Знак");
    НовыйИндекс = Таблица1.Индексы.Добавить(Измерения);
    
    Разница = Таблица1.СкопироватьКолонки();
    
    Для Каждого Строка0 Из Таблица0 Цикл
        ЗаполнитьЗначенияСвойств(Отбор, Строка0); 
        Строки1 = Таблица1.НайтиСтроки(Отбор);
        Если Строки1.Количество() = 0 Тогда     
            ЗаполнитьЗначенияСвойств(Разница.Добавить(), Строка0)     
        Иначе
            Строка1 = Строки1[0];
			
			ЗаполнитьЗначенияСвойств(Строка1, Строка0);
			//Для Каждого Ресурс Из Ресурсы Цикл 
			//    Если Строка0[Ресурс] <> Строка1[Ресурс] Тогда    
			//        ЗаполнитьЗначенияСвойств(Разница.Добавить(), Строка0);
			//        ЗаполнитьЗначенияСвойств(Разница.Добавить(), Строка1);
			//        Прервать 
			//    КонецЕсли 
			//КонецЦикла;
            Строка1.Знак = 0 
        КонецЕсли 
    КонецЦикла;
    
    Для Каждого Строка1 Из Таблица1.НайтиСтроки(Новый Структура("Знак", 1)) Цикл 
        ЗаполнитьЗначенияСвойств(Разница.Добавить(), Строка1); 
    КонецЦикла;
    
    Таблица1.Колонки.Удалить("Знак");
    Таблица1.Индексы.Удалить(НовыйИндекс);
        
    Возврат Разница
    
КонецФункции

ТЗГрупп = ТаблицаГруппПоставщика.Выгрузить();

ТЗ_Разница = РазницаТаблицЗначений(ТаблицаГруппПоставщикаЗапрос, ТЗГрупп, "ИдентификаторЭлемент, ИдентификаторРодитель");

ТаблицаГруппПоставщика.Загрузить(ТЗГрупп);

Для Каждого СтрРазница Из ТЗ_Разница Цикл
	
	Если СтрРазница.Знак = 1 Тогда
		ЗаполнитьЗначенияСвойств(ТаблицаГруппПоставщикаЗапрос.Добавить(), СтрРазница);
	Иначе
		
		нСтроки = ТаблицаГруппПоставщикаЗапрос.НайтиСтроки(Новый Структура("ИдентификаторЭлемент", СтрРазница.ИдентификаторЭлемент));
		нСтроки[0].ТолькоВБазе = Истина;
		
	КонецЕсли;
	
КонецЦикла;

Дерево = зн_ОбщийМодульСервер.ВыгрузитьТаблицуЗначенийВДеревоЗначений(ТаблицаГруппПоставщикаЗапрос, "ИдентификаторЭлемент", "ИдентификаторРодитель");
ЗначениеВРеквизитФормы(Дерево, "ДеревоГруппПоставщика");

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

&НаСервереБезКонтекста
Функция СоздатьГруппуНоменклатурыПоставщика(Поставщик, Наименование, Идентификатор, Родитель)
	
	обГруппа = Справочники.НоменклатураПоставщиков.СоздатьГруппу();
	обГруппа.Наименование = Наименование;
	обГруппа.Владелец = Поставщик;
	обГруппа.зн_ИдентификаторГруппы = Идентификатор;
	обГруппа.Родитель = Родитель;
	обГруппа.Записать();
	Возврат обГруппа.Ссылка;
	
КонецФункции