ДокДовер=СоздатьОбъект("Документ");
ДокДовер.ВыбратьПодчиненныеДокументы(Докум.ДатаДок-60,Докум.ДатаДок+5,Докум.ТекущийДокумент());
Пока ДокДовер.ПолучитьДокумент()=1 Цикл
Если (ДокДовер.Вид()="Доверенность")и(ДокДовер.ПометкаУдаления()=0) Тогда
Прервать;
КонецЕсли;
КонецЦикла;
Если ПустоеЗначение(ДокДовер)=1 Тогда
ДокДовер.Вид()="Доверенность";
ДокДовер.Новый();
ДокДовер.ДокОснование=Докум;
ДокДовер.ДатаДок = ДокДовер.ДатаДок;
ДокДовер.Фирма = Докум.Фирма;
ДокДовер.Контрагент = Докум.Контрагент;
ДокДовер.Договор = Докум.Договор;
глЗаполнитьШапку(ДокДовер,1);
ДокДовер.Записать();
КонецЕсли;