СпрПокуп=СоздатьОбъект("Справочник.Покупатели");
     СпрСпис=СоздатьОбъект("Справочник.Списание");    
     СпрТов=СоздатьОбъект("Справочник.Товар");
           СпрПокуп.ВыбратьЭлементы();
                  Пока  СпрПокуп.ПолучитьЭлемент()=1 цикл
           СпрСпис.ИспользоватьВладельца(СпрПокуп.ТекущийЭлемент());  
           СпрСпис.ВыбратьЭлементы();
           СпрСпис.ПолучитьЭлемент();
           
           СпрТов.ИспользоватьВладельца(СпрПокуп.ТекущийЭлемент());
           СпрТов.ВыбратьЭлементы();
                     Пока СпрТов.ПолучитьЭлемент()=1 Цикл
                         
                           
       Если СпрСпис.НайтиПоНаименованию("Молот",0,1) = 1 тогда              
                СпрСпис.Наименование=СпрТов.Товар;
               СпрСпис.Телефон=СпрТов.Телефон;
               СпрСпис.Записать();
           Иначе  
               Сообщить("Найден новый элемент и я записываю");
           СпрСпис.Новый();
           СпрСпис.Наименование=СпрТов.Товар;
           СпрСпис.Телефон=СпрТов.Телефон;
           СпрСпис.Записать();

Подпишусь на тему, название приперло, оч.интересует решение :))

Хвастаешься?

Кто подскажет как правельно сделать эту часть

Если СпрСпис.НайтиПоНаименованию("Молот",0,1) = 1 тогда                
                СпрСпис.Наименование=СпрТов.Товар;
               СпрСпис.Телефон=СпрТов.Телефон;
               СпрСпис.Записать();
           Иначе  
               Сообщить("Найден новый элемент и я записываю");
           СпрСпис.Новый();
           СпрСпис.Наименование=СпрТов.Товар;
           СпрСпис.Телефон=СпрТов.Телефон;
           СпрСпис.Записать();

(1) должно было быть "выппратть эллемееент..."

описка вышла

(3) а зачем?

Если СпрСпис.НайтиПоНаименованию("Молот",0,1) = 1 тогда                
                СпрСпис.Наименование=СпрТов.Товар;
               СпрСпис.Телефон=СпрТов.Телефон;
               СпрСпис.Записать();
           ИначепрСпис.НайтиПоНаименованию("Молот",0,1) = 0 тогда  
               Сообщить("Найден новый элемент и я записываю");
           СпрСпис.Новый();
           СпрСпис.Наименование=СпрТов.Товар;
           СпрСпис.Телефон=СпрТов.Телефон;
           СпрСпис.Записать();


правельно будет

сли СпрСпис.НайтиПоНаименованию("Молот",0,1) = 1 тогда                
                СпрСпис.Наименование=СпрТов.Товар;
               СпрСпис.Телефон=СпрТов.Телефон;
               СпрСпис.Записать();
           ИначеЕсли СпрСпис.НайтиПоНаименованию("Молот",0,1) = 0 тогда  
               Сообщить("Найден новый элемент и я записываю");
           СпрСпис.Новый();
           СпрСпис.Наименование=СпрТов.Товар;
           СпрСпис.Телефон=СпрТов.Телефон;
           СпрСпис.Записать();

где ответы

(9) где вопросы?

Где вопрос хоть?

не понятно, что не работает?
А вообще, умиляет вот эта строка
Если СпрСпис.НайтиПоНаименованию("Молот",0,1) = 1 тогда                
внутри цикла по СпрТов

Обновление: Выбрать элемент