Здрасьте.
Есть база с перенесенной номенклатурой. Вся номенклатура без видов.
Требуется:
для каждой позиции установить вид номенклатуры в зависимости от группы. ТОесть если группа 3го уровня,то вид - наименование группы 2го уровня, если 2го-то 2го,если 1го-то 1го.



Написал примерно вот что:

&НаКлиенте
Процедура Сделать(Команда)
   СоздатьИустановитьВидыНомнклатуры();
КонецПроцедуры

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

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




Виды то он создает,но вот в элементах то номенклары вид все равно не указан...
чяднт?

да,косячок есть,он создает несколько одинаковых видов,но я его уже поправил

В обработчике передзаписью стоит проверка на запрет изменения виданоменклатуры в некоторых случаях. Может отрабатывает?

а чего бы не Выборка.Ссылка.Уровень() проверять?

(2) а программно ее можно отрубить?

запрос в цикле...

(5) поясни

(0) <<рукалицо>>

(6) ты на каждой итерации по номенклатуре делаешь запрос к видам

(4) ОбменДанными.Загрузка=Истина

думаю косяк где-то здесь:

   Итог = Запрос.Выполнить().Выбрать();
   Если Итог.Количество()>0 тогда
       Возврат Итог.ссылка;

(10) именно)спасибо)