нашел обработку но она жутко кривая, мне нужно присвоить группе и подгруппе спр. номенклатуры в поле Производитель значение спр.Производители
и ругается
Производитель.ВыбратьЭлементыПоРеквизиту("Производитель", ППроизводитель);
{C:\DOCUMENTS AND SETTINGS\DENIS\РАБОЧИЙ СТОЛ\ЗАМЕНА.ERT(38)}: Неверное имя реквизита!
//*******************************************
Процедура ПриВыбореГруппы()
Если ВыбГруппаТМЦ.ЭтоГруппа() = 0 Тогда
Предупреждение("Выбранная позиция не является группой!");
ВыбГруппаТМЦ = "";
КонецЕсли;
КонецПроцедуры
//*******************************************
Процедура Сформировать()
Перем ТекущийТовар, ТекЕд;
Товар = СоздатьОбъект("Справочник.Номенклатура");
Производитель = СоздатьОбъект("Справочник.Производители");
Если ПустоеЗначение(ВыбГруппаТМЦ) = 0 Тогда
Товар.ИспользоватьРодителя(ВыбГруппаТМЦ);
КонецЕсли;
Если ПустоеЗначение(ППроизводитель) = 1 Тогда
Предупреждение("Не выбрана ППроизводитель измерения товара", 60);
СтатусВозврата(0);
Возврат;
КонецЕсли;
Если Вложенные = 1 Тогда
Товар.ВключатьПодчиненные(1);
Иначе
Товар.ВключатьПодчиненные(0);
КонецЕсли;
ОбщееКоличество = 0;
Товар.ВыбратьЭлементы();
Пока Товар.ПолучитьЭлемент() > 0 Цикл
ТекущийТовар = Товар.ТекущийЭлемент();
Если ТекущийТовар.ЭтоГруппа() = 0 Тогда
Производитель.ИспользоватьВладельца(ТекущийТовар);
Производитель.ВыбратьЭлементыПоРеквизиту("Производитель", ППроизводитель);
Если Производитель.ПолучитьЭлемент() = 0 Тогда
Производитель.Новый();
Производитель.УстановитьАтрибут("Производитель", ППроизводитель);
Производитель.Записать();
ТекЕд = Производитель.ТекущийЭлемент();
//УстановитьЕдиницуНоменклатуры(Товар, ТекЕд);
Иначе
Производитель.ВыбратьЭлементыПоРеквизиту("Производитель", ППроизводитель);
КоличествоЕдиниц = 1;
Пока Производитель.ПолучитьЭлемент() = 1 Цикл
Если КоличествоЕдиниц = 1 Тогда
ТекЕд = Производитель.ТекущийЭлемент();
//УстановитьЕдиницуНоменклатуры(Товар, ТекЕд);
