Переименование элемента справочника

"Вроде бы все просто: нужно в справочнике Договора изменить название единственного договора "Основной договор" на другое.



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

К=СоздатьОбъект("Справочник.Контрагенты");

Дог=СоздатьОбъект("Справочник.Договоры");

Если К.Выбрать("Выберите контрагента","""")>0 Тогда

Контр=К.ТекущийЭлемент();

Дог.ИспользоватьВладельца(Контр);

Если Дог.НайтиПоНаименованию("Основной договор")=1 Тогда

Дог.ТекущийЭлемент().Наименование="Акт приема-передачи № ";

Дог.Записать();

КонецЕсли;                            

КонецЕсли;

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



Не изменяет! Что не так делаю?

"

"А ищет ли процедура договор по наименованию? Потому что наименование-то не "Основной договор", а "Основной договор       " и сколько-то там пробелов...

Я обычно использую нечто типа

Дог.ИспользоватьВладельца(Контр);

Дог.ВыбратьЭлементы();

Пока Дог.ПолучитьЭлемент()=1 Цикл

Если СокрЛП(Дог.Наименование)="Основной договор" Тогда

Дог.Наименование="Акт приема-передачи № ";

Дог.Записать();

Прервать;

КонецЕсли;

КонецЦикла;



Дольше немного, но зато наверняка!

"

Отладчик показывает, что элемент найден

"При таком способе выдает ошибку

Дог.Наименование="Акт приема-передачи № ";

{D:\1C77_NP\30_04_04\PR_SOUZ\EXTFORMS\ТЕСТ.ERT(23)}: Изменено Наименование! Может быть нарушена последовательность выборки"

"а если попробовать следующее:

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

К=СоздатьОбъект("Справочник.Контрагенты");

Дог=СоздатьОбъект("Справочник.Договоры");

Дог1=СоздатьОбъект("Справочник.Договоры");

Если К.Выбрать("Выберите контрагента","""")>0 Тогда

Контр=К.ТекущийЭлемент();

Дог.ИспользоватьВладельца(Контр);

Если Дог.НайтиПоНаименованию("Основной договор")=1 Тогда

Дог1.НайтиЭлемент(Дог.ТекущийЭлемент());

Дог1.Наименование="Акт приема-передачи № ";

Дог1.Записать();

КонецЕсли;

КонецЕсли;

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





"

Спасибо, все получилось через Дог1.

"Попробуй вместо "Дог.ТекущийЭлемент().Наименование="Акт приема-передачи № ";" написать "Дог.Наименование="Акт приема-передачи № ";" - такие случаи медецине известны помогает"