Процедура Сформировать()
Спр = СоздатьОбъект("Справочник.Контрагенты");
Дог = СоздатьОбъект("Документ.Договор");
Пер = СоздатьОбъект("Периодический");
Дог.ВыбратьДокументы();
Пока Дог.ПолучитьДокумент() = 1 Цикл
Если ПустаяСтрока(Дог.Контрагент.ПолнНаименование.Получить(Дог.ДатаДок)) = 1 Тогда
Сообщить("" + Дог.Контрагент + " ** " + Дог);
Спр.НайтиЭлемент(Дог.Контрагент);
Пер.ИспользоватьОбъект(,Спр.ТекущийЭлемент());
Пер.НайтиЗначение(Дог.ДатаДок,1);
Пер.ДатаЗнач = Дог.ДатаДок;
Пер.Записать();
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Ошибка
Пер.НайтиЗначение(Дог.ДатаДок,1);
{C:\ПЕРИОДРЕКВ.ERT(13)}: Перед выполнением операции нужно вызвать 'ИспользоватьОбъект'!
ИспользоватьОбъект - возвращает 1