Нужно создать в 7-ке доукмент через оле с 8-ки

Процедура СоздатьНажатие(Элемент)

ДокOLE  = БазаТам.CreateObject("Документ.Приемка");
обКонтрагент = БазаТам.CreateObject("Справочник.Контрагенты");
обДок = СпрOLE.Новый();
Если  НайтиКонтрагента(ЭлементыФормы.списокКонтрагентов.ВыделенныйТекст,обКонтрагент) = 0 Тогда
            Предупреждение("Контрагент в базе 7.7 не найден");
            Возврат;
        Иначе
            Контрагент = обКонтрагент.ТекущийЭлемент();
        КонецЕсли;

ДокOLE.Записать();
КонецПроцедуры


Функция НайтиКонтрагента(Наименование,обКонтрагент)
        
    Возврат обКонтрагент.НайтиПоНаименованию(Наименование,0,1);    
    
КонецФункции


в результет в 7-ке в реквизите контрагент не заполнено

извиняюсь, все норм, нашел кизяк

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


ну и + не
обДок = СпрOLE.Новый();
а
обДок = ДокOLE .Новый();