Что-то торможу...

"Помогите, пожалуйста!!! Требуется переименовать часть реквизита.Т.е. есть сокращенные названия объектов и их небольшая характеристика. Необходимо, чтобы вместо сокращений были полные названия, но характеристика осталась. Мне кажется это должно выглядеть примерно так:<br>Процедура Переименовать() <br> Спр_ОС = СоздатьОбъект ("Справочник.ОсновныеСредства");<br> Спр_ОС.ВыбратьЭлементы ();<br> Пока Спр_ОС.ПолучитьЭлемент () = 1 Цикл<br> Если Лев(Спр_ОС.Наименование,8) = "Каб.лин." Тогда<br>              Спр_ОС.Наименование = "Кабельные Линии" +Сред(Спр_ОС. Наименование,8);<br> Спр_ОС.Записать();                                                                          КонецЕсли;<br>       <br> КонецЦикла; <br> КонецПроцедуры<br>Подскажите, пожалуйста, я на правильном пути? Что не так?"

Вроде все правильно,а что смущает?

"Получите сообщение "Нарушен порядок выборки"<br>Нужно:<br>Процедура Переименовать() <br>СписокЭлементовДляПереименования=СоздатьОбъект("СписокЗначений");<br>Спр_ОС = СоздатьОбъект("Справочник.ОсновныеСредства");<br>Спр_ОС.ВыбратьЭлементы(0);<br>Пока Спр_ОС.ПолучитьЭлемент(1) = 1 Цикл<br>Если Лев(Спр_ОС.Наименование,8) = "Каб.лин." Тогда<br>СписокЭлементовДляПереименования.ДобавитьЗначение(Спр_ОС.ТекущийЭлемент());<br>КонецЕсли;<br>КонецЦикла;<br>Для i=1 По СписокЭлементовДляПереименования.РазмерСписка() Цикл<br>Если Спр_ОС.НайтиЭлемент(СписокЭлементовДляПереименования.ПолучитьЗначение(i))=1 Тогда<br>Спр_ОС.Наименование = "Кабельные Линии" +Сред(Спр_ОС. Наименование,8);<br>Спр_ОС.Записать();<br>КонецЕсли;<br>КонецЦикла;<br>КонецПроцедуры"

"предлагаю вариант через запрос<br><br>Процедура Сформировать()<br>Перем Запрос, ТекстЗапроса, Таб;<br>//Создание объекта типа Запрос<br>Запрос = СоздатьОбъект("Запрос");<br>ТекстЗапроса = <br>"//{{ЗАПРОС(Сформировать)<br>|Обрабатывать НеПомеченныеНаУдаление;<br>|Без итогов;<br>|ТекущийЭлемент = Справочник.ОсновныеСредства.ТекущийЭлемент;<br>|Наименование = Справочник.ОсновныеСредства.Наименование;<br>|Группировка ТекущийЭлемент;<br>|Условие(лев(Наименование,8) = ВыбНаименование);<br>|"//}}ЗАПРОС<br>;<br>Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда<br> Возврат;<br>КонецЕсли;<br><br>спр=СоздатьОбъект("Справочник.ОсновныеСредства");<br>Пока Запрос.Группировка() = 1 Цикл            <br> если спр.найтиэлемент(запрос.ТекущийЭлемент)=1 тогда<br> спр.наименование=новоенаименование+Сред(Спр.Наименование,8);<br> спр.записать();<br>конецесли;<br>КонецЦикла;<br>КонецПроцедуры<br><br>сделано через форму , поэтому<br>ВыбНаименование= то что ищем<br>новоенаименование = на что меняем<br><br>Удачи."

Спасибо всем огромное!!!Thorvardr отдельный респект!!!Я пока не сталкивалась с запросами, поэтому Ваш вариант мне наиболее близок и понятен.