7.7 1C Бухгалтерия обработка справочника Номенклатура

Добрый вечер! очень срочно нужна помощь! конфигурация бухгалтерия типовая 548 релиз.
Нужно обработать справочник номенклатуры так, чтобы присвоить Наименованию номенклатуры Полное наименование. Вот что получилось:


Процедура Сформировать()

Выб = СоздатьОбъект ("Справочник.Номенклатура");
Выб.ВыбратьЭлементы();
Пока Выб.ПолучитьЭлемент() = 1 Цикл
Если Выб.ЭтоГруппа()=1 Тогда
Продолжить;
КонецЕсли;
Если Выб.ПолнНаименование = "" Тогда
Продолжить;
КонецЕсли;
Выб.Наименование = Выб.ПолнНаименование;
Выб.Записать();

КонецЦикла;

КонецПроцедуры

Но это не работает - выдает ошибку:

Выб.Наименование = Выб.ПолнНаименование;
{G:\НАИМ-ПОЛННАИМ.ERT(46)}: Изменено Наименование! Может быть нарушена последовательность выборки!



Тогда сделала вот так:




Процедура Сформировать()

ТЗ = СоздатьОбъект ("СписокЗначений");
Индекс = 1;
Ном = ПолучитьПустоеЗначение("Справочник.Номенклатура");
Выб = СоздатьОбъект ("Справочник.Номенклатура");
Выб.ВыбратьЭлементы();
Пока Выб.ПолучитьЭлемент() = 1 Цикл
Если Выб.ЭтоГруппа()=1 Тогда
Продолжить;
КонецЕсли;
Если Выб.ПолнНаименование = "" Тогда
Продолжить;
КонецЕсли;
ТЗ.ДобавитьЗначение(Выб);
КонецЦикла;

Пока Индекс <= ТЗ.РазмерСписка() Цикл

Ном = ТЗ.ПолучитьЗначение(Индекс);
Ном.Наименование = Ном.ПолнНаименование;

КонецЦикла;

КонецПроцедуры



Тоже не работает, выдает ошибку:
Ном.Наименование = Ном.ПолнНаименование;
{G:\НАИМ-ПОЛННАИМ.ERT(23)}: Не выбран элемент!
Пробежалась отладчиком - не записывает в список значений.



Помогите пожалуйста!!!

Сама разобралась! Обьясню:так как основное представление справочника Номенклатура — наименование, а я его как раз меняла, то надо получить элементы в порядке кодов. Добавила одну лишь строчку и все ОК!!!

Процедура Сформировать()

Выб = СоздатьОбъект ("Справочник.Номенклатура");
Выб.ПорядокКодов();
Выб.ВыбратьЭлементы();
Пока Выб.ПолучитьЭлемент() = 1 Цикл
Если Выб.ЭтоГруппа()=1 Тогда
Продолжить;
КонецЕсли;
Если Выб.ПолнНаименование = "" Тогда
Продолжить;
КонецЕсли;
Выб.Наименование = Выб.ПолнНаименование;
Выб.Записать();

КонецЦикла;
КонецПроцедуры

В процессе нашла отличную статью, может понадобится кому http://www.house1c.ru/ShowArticle.aspx?ID=18&AspxAutoDetectCookieSupport=1

Либо же отбирать элементы справочника запросом.

А напрямую присвоить не вариант?

Код:

Процедура Сформировать()
Выб = СоздатьОбъект ("Справочник.Номенклатура");
Выб.ВыбратьЭлементы();
Пока Выб.ПолучитьЭлемент() = 1 Цикл
Если Выб.ЭтоГруппа()=1 Тогда
Продолжить;
КонецЕсли;
Если Выб.ПолнНаименование = "" Тогда
Выб.ПолнНаименование = Выб.Наименование;
Выб.Записать();
КонецЕсли;
КонецЦикла();
КонецПроцедуры()

Не?

По задаче наоборот надо:

Поменять местами :icon_avatar-174:

Код:

 Выб.Наименование = Выб.ПолнНаименование ;

При упорядочиванию по наименованию изменяется последовательность выборки. На что ТС и получила ошибку: