Тема уже не раз обсуждалась, например Запись элемента. Ночь. Не соображаю уже ;)

но че-то я туплю..
мне нужно, найти контрагента по емейл, если найден то вернуть его, если не найден, то создать и вернуть его, но после записи элемента выборка теряется

Функция НайтиКонтрагента(ЭлАдрес)
    НашлиКонтрагента = Ложь;
    
    спрКонтр = СоздатьОбъект("Справочник.Контрагенты");
    Если спрКонтр.НайтиПоРеквизиту("email", СокрЛП(ЭлАдрес), 1) = Истина Тогда
        НашлиКонтрагента = Истина;
    КонецЕсли;
    Если НашлиКонтрагента = Ложь Тогда
        //если не нашли то создаем
        спрКонтр.Новый();
    КонецЕсли;

    спрКонтр.Наименование = ЭлАдрес;
    спрКонтр.email = ЭлАдрес;

    // тут самое интересное
    Контр = спрКонтр.ТекущийЭлемент();
    // если контрагент существует, то все работает
    // а если нет, то Контр пустой, т.к. элемент не записан
    Попытка
        спрКонтр.Записать();
    Исключение
        Сообщить(ОписаниеОшибки());
    КонецПопытки;
    
    спрКонтр.НайтиЭлемент(Контр);
    
    
    Сообщить(спрКонтр.Выбран());
    Сообщить(спрКонтр.Наименование);
    // вопрос как мне вернуть элемент?
    Возврат спрКонтр.ТекущийЭлемент();
  
КонецФункции

а смысл этой строки

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

Класс!

Есмть такое.
Заново найди

(1) а смысл вот этой?
спрКонтр.НайтиПоРеквизиту("email", СокрЛП(ЭлАдрес), 1) = Истина

Или это доп. опция для 7.7 с булевым...?

// тут самое интересное
    Контр = спрКонтр.ТекущийЭлемент();
    // если контрагент существует, то все работает
    // а если нет, то Контр пустой, т.к. элемент не записан
   Попытка
        спрКонтр.Записать();
    Исключение
        Сообщить(ОписаниеОшибки());
    КонецПопытки;
    
    спрКонтр.НайтиЭлемент(Контр);


++++++++++++++++++++++++++++++++

Делай так:

   Попытка
        спрКонтр.Записать();
    Исключение
        Сообщить(ОписаниеОшибки());
Возврат "";
    КонецПопытки;

Возврат спрКонтр.ТекущийЭлемент()

(0) Тема за V7, код от V8. Код на писан как в V7, это "   Контр = спрКонтр.ТекущийЭлемент();" самое нажористое.
Каашмарр

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

У тебя элемент еще не записан, ссылки нет, а потом ты пытаешься по хз чему спозиционироваться, хотя этого и не нужно вообще

(8) Восьмерочник-прикладник, куле

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

(7) код от V7, кошмар не в этом )
(10) ближе к теме, но мне надо реквизиты переприсвоить даже если элемент существует (адрес, тел и т.д.)

т.е. заново его сохранить

Мля, поясните, с каких пор в 7.7 появилось булево?!
Это 1с++ или как там она называется...

(13) Истина = 1; Ложь = 0;

Вкратце фича V7 в том, что если тип поля строковый, то после
НайтиПоРеквизиту()  и Записать() позиционирование элемента теряется.

(14) ну и нахера? ))))

(15) Даладно

(15) С каких ... оно теряется? Это вы его потеряли.

Если НашлиКонтрагента = Ложь Тогда
    спрКонтр.Новый();
КонецЕсли;

спрКонтр.Наименование = ЭлАдрес;
спрКонтр.email = ЭлАдрес;

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

Тут интересно то, что не записав элемент пытаемся получить ТекущийЭлемент(). А потом у них "выборки сбиваются"...

(17) Да! именно так, сам ох.. удивился
запустите в отладчике, или здесь можно глянуть Запись элемента. Ночь. Не соображаю уже ;)
(16) привык так уже, не суть важно

(18) уберите это строчку (дело не в ней), после сохранения элемента  - он теряется. почитайте Запись элемента. Ночь. Не соображаю уже ;)

да, теряется. делай так:

Контр = спрКонтр.ТекущийЭлемент();
спрКонтр.Записать();
спрКонтр.НайтиЭлемент(Контр);

(20) Может это у вас платформа эксклюзивная? На обычной фокус никуда не девается.

(21) Звиздетц... Еще один. Что у вас будет в Контр перед Записать()?

Классика жанра - записать - получить позицию. А не так, как у вас :
спрКонтр.Записать();
Контр = спрКонтр.ТекущийЭлемент();
И не нужно ничего искать.

(23) мде... пустая ссылка, видимо.
Погоди, вспомню как я выкручивался

(23) в том то и дело, что после спрКонтр.Записать(); выборка теряется!!!

Давайте проще
Есть код
Функция Упрощенная()

   Спр = СоздатьОбъект("Справочник.Номенклатура");
   Спр.НайтиПоРеквизиту("Реквизит",ЗначениеРеквизита,1)); // здесь все находится

   Сообщить(Спр.Выбран()); // здесь возвращается 1 ... элемент выбран ...

   Спр.Записать();        
   Сообщить(Спр.Выбран()); // а после записи - 0 ... уже не выбран ...

   Спр.Записать(); // здесь получаем ошибку, т.к. элемент не выбран ...
   Возврат ??? // как мне вернуть элемент
КонецФункции

(24) очень жду..

(23) в форме списка, кажется, есть баг. После строки "спрКонтр.Записать();" в переменной спрКонтр уже будет не новый записанный объект, а пустой.

(25) не выборка теряется, а позиционирование. Выборка - это другое

(25) Ты проигнорировал (3)?

(3), (28) +1

(25) заново ищи по реквизиту

(26) нас уже двое! ))
(27) я сначала так и писал, просто слово выборка короче ))

(29) я искал заново, гляньте код (0)
что мне делать, если элемент НЕ найден

Вот выборка:

Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент() = 1 Цикл


(31)

//спрКонтр.НайтиЭлемент(Контр);
спрКонтр.НайтиПоРеквизиту("email", СокрЛП(ЭлАдрес), 1);

Функция НайтиКонтрагента(ЭлАдрес)        
    спрКонтр = СоздатьОбъект("Справочник.Контрагенты");
    Если спрКонтр.НайтиПоРеквизиту("email", СокрЛП(ЭлАдрес), 1) = Ложь Тогда
        спрКонтр.Новый();    
    КонецЕсли;        
    спрКонтр.Наименование = ЭлАдрес;    
    спрКонтр.email = ЭлАдрес;
    Попытка
        спрКонтр.Записать();    
    Исключение
    Сообщить(ОписаниеОшибки());
    КонецПопытки;
    Возврат спрКонтр.ТекущийЭлемент();
КонецФункции

(34) 1000 раз писал уже, если элемент найден(!!!) , то после
спрКонтр.Записать();  - спрКонтр, становится пустым!!!

на хрена бы тогда я делал конструкцию
   Контр = спрКонтр.ТекущийЭлемент();
    Попытка
        спрКонтр.Записать();
    Исключение
        Сообщить(ОписаниеОшибки());
    КонецПопытки;
    спрКонтр.НайтиЭлемент(Контр);

только в таком виде это работает!
вопрос, как сделать если элемент не найден

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

Пользуйся

Функция ыыы()
    Спр = СоздатьОбъект("Справочник.Сотрудники");
    Если Спр.НайтиПоРеквизиту("АдресЭлектроннойПочты", "it_aleksei1@xxx", 1) = 0 Тогда
        Спр.Новый();    
    КонецЕсли;          
    Спр.АдресЭлектроннойПочты = "it_aleksei1@xxx";
    Спр.Наименование = "it_aleksei1@xxx";
    Спр.Записать();
    Возврат Спр.ТекущийЭлемент();
КонецФункции
Процедура Сформировать()
    Сообщить(ыыы());                 
КонецПроцедуры

Работает 100% и когда найден и когда не найден

(36) см (33)

(37) - работает, логично: ищем один, сохраняем другой ))
(38) - не работает, 1001 раз, после записи элемента, он становится пустым
(39) - точно!, надо было просто его заново найти (по реквизиту), как и писал (3)
всем спасибо!

Кстати проверил, повторный поиск элемента по реквизиту, выполняется быстрее, чем (37), и не нужно еще один справочник создавать. В общем остановился на нем.