всем добрый день, случиласть такая трабла: имеется код:
СпрЕдиницыОЛЕ = БазаОле.CreateObject("Справочник.Единицы");
   СпрОЛЕ = БазаОле.CreateObject("Справочник.Номенклатура");
   СпрЕдиницыОЛЕ2 = БазаОле.CreateObject("Справочник.Единицы");
   СпрОЛЕ2 = БазаОле2.CreateObject("Справочник.Номенклатура");
   СпрОЛЕДляПоискаПоКоду = БазаОле.CreateObject("Справочник.Единицы");//создал второй , ибо слетает курсор с первой rulf шарит по единицам
   СпрЕдиницы.ВыбратьЭлементы() ;
   
   СпрЕдиницыОЛЕ.ВыбратьЭлементы(0);
   Пока СпрЕдиницыОЛЕ.ПолучитьЭлемент() = 1 Цикл
       ШК = СпрЕдиницыОЛЕ.ШтрихКод;
       ИмяОЛЕ = СпрЕдиницыОЛЕ.Владелец.Наименование;
       Если  СпрЕдиницы.НайтиПоРеквизиту("ШтрихКОД", ШК, 1) = 1 Тогда
           ИмяСпр = СпрЕдиницы.ТекущийЭлемент().Владелец.наименование;
           КодСпр = СпрЕдиницы.ТекущийЭлемент().Владелец.Код;
           //Сообщить("кодСпр : "+КодСпр);
           СпрЕдиницыОЛЕ2.ВыбратьЭлементы();
           СпрЕдиницыОЛЕ2.НайтиПоРеквизиту("ШтрихКод", ШК, 1 );
           Если СпрЕдиницыОЛЕ2.НайтиПоРеквизиту("ШтрихКод", ШК, 1 ) = 1 Тогда
               ИмяОЛЕ2 = СпрЕдиницыОЛЕ2.Владелец.Наименование;
           Иначе
               Сообщить("Такой ШК в базе 2 не найден");
           КонецЕсли;
           
           Если (ИмяСпр <> ИмяОЛЕ) и (ИмяСпр <> ИмяОЛЕ2) Тогда
               СпрЕдиницыОЛЕ2.ВыбратьЭлементы();
                   СпрЕдиницыОЛЕ2.НайтиПоРеквизиту("ШтрихКод", ШК, 1 );
                   Если СпрЕдиницыОЛЕ2.НайтиПоРеквизиту("ШтрихКод", ШК, 1 ) = 1 Тогда
                       ИмяОЛЕ2 = СпрЕдиницыОЛЕ2.Владелец.Наименование;
                   Иначе
                       Сообщить("Такой ШК в базе 2 не найден");
                   КонецЕсли;
               Вопр = Вопрос("Расхождение названия для шк : "+ШК+" Нажмите ""Да"" чтобы использовать наименование  текущей базы,
               |или ""Нет"" для использования имени из Переферийной Базы : "
               +Симв(13)+"1 :"+ИмяСПР+" (текущая База)"
               +Симв(13)+"2 :"+ИмяОЛЕ+" (преферийная База)"
               +Симв(13)+"2 :"+ИмяОЛЕ2+" (преферийная База 2)", 3);
               Если   Вопр = 6 Тогда
                   Сообщить("Наименование Взяли из текущей ");
                   СпрОЛЕ.НайтиПоНаименованию(ИмяОЛЕ, 0);
                   СпрОЛЕ.Наименование = ИмяСпр;
                   СпрОЛЕ.ПолнНаименование = ИмяСпр;
                   СпрОЛЕ.Записать();
                   //СпрЕдиницыОЛЕ2.Владелец.Наименование = ИмяСпр;
                   СпрОЛЕ2.ВыбратьЭлементы();
                   СпрОЛЕ2.НайтиПоНаименованию(ИмяОле2, 0);    
                   СпрОЛЕ2.Наименование = ИмяСпр; // и вот в этом месте ругается
                   СпрОЛЕ2.ПолнНаименование = ИмяСпр;
                   СпрОЛЕ2.Записать();

хотя для СпрОЛЕ все проходит нормальн, а вот на элементе СпрОЛЕ2 уже ругается, кто нибудь сталкивался?

исправить это

СпрОЛЕ2.ВыбратьЭлементы();

на это

// СпрОЛЕ2.ВыбратьЭлементы();


так и было - результат тот же, это я дописал минуту назад

наверное, поиск неудачный. сделай проверку в НайтиПоНаименованию = 1 и только тогда записывай

(1) это фиолетово

(4)так же

(4) всмысле при проверке - не находит элемент, хотя странно, я  же реквизит для поиска указал как имя владельца текущего элемента...

(0) "Ругается" - это как? Наверное, сообщение какое-то выдаёт?

(7) ну да) я сделал так :
Если СпрОЛЕ2.НайтиПоНаименованию(ИмяОле2, 0) = 1 Тогда
                       
                       СпрОЛЕ2.Наименование = ИмяОЛЕ;
                       СпрОЛЕ2.ПолнНаименование = ИмяОЛЕ;
                       СпрОЛЕ2.Записать();
                   Иначе
                       Сообщить("хххх");
                   КонецЕсли;
и он не находит элемент, хотя здесь :
Вопр = Вопрос("Расхождение названия для шк : "+ШК+" Нажмите ""Да"" чтобы использовать наименование  текущей базы,
               |или ""Нет"" для использования имени из Переферийной Базы : "
               +Симв(13)+"1 :"+ИмяСПР+" (текущая База)"
               +Симв(13)+"2 :"+ИмяОЛЕ+" (преферийная База)"
               +Симв(13)+"2 :"+ИмяОЛЕ2+" (преферийная База 2)", 3);
он его показывает корректно. Идем дальше , сделал так :
СпрЕдиницыОЛЕ2.Владелец.Наименование = ИмяСпр;
                   СпрЕдиницыОЛЕ2.Владелец.Наименование.ПолнНаименование = ИмяСпр;
                   СпрЕдиницыОЛЕ2.Владелец.Наименование.Записать();
пишет : Значение не представляет агрегатный объект (ПолнНаименование)... отака х, малята ((

(8) СпрЕдиницыОЛЕ2.Владелец.Наименование.ПолнНаименование - вот это что за бред?
СпрЕдиницыОЛЕ2.Владелец.Наименование - это ведь строка!

(9) это не бред, это один из реквизитов справочника =)
про "СпрЕдиницыОЛЕ2.Владелец.Наименование - это ведь строка!" не совсем понял

(10) У строк не бывает реквизитов!
Наименование элемента справочника имеет тип СТРОКА.

Возможно, ты имел в виду СпрЕдиницыОЛЕ2.Владелец.ПолнНаименование?
Но так присваивать тоже нельзя: спрЕдиницыОЛЕ2.Владелец - это лишь ссылка на элемент справочника, а не сам элемент. Ссылке реквизиты менять нельзя.

(11) понял, буду значит копать в сторону :
Если СпрОЛЕ2.НайтиПоНаименованию(ИмяОле2, 0) = 1 Тогда                        
СпрОЛЕ2.Наименование = ИмяОЛЕ;
СпрОЛЕ2.ПолнНаименование = ИмяОЛЕ;
СпрОЛЕ2.Записать();
Иначе
Сообщить("хххх");
КонецЕсли;

нашел в чем косяк, оказывается у адинэс проблемы с позиционированием для поиска в одном справочнике, создал второй и запело.

никакой проблемы нет

(13) косяк в ДНК.

Весь код в топку

(15)Поддерживаю с теорию с ДНК :)