ДокДовер.ВыбратьПодчиненныеДокументы(Докум.ДатаДок-60,Докум.ДатаДок+5,Докум.ТекущийДокумент());
    Пока ДокДовер.ПолучитьДокумент()=1 Цикл

..........вот куда и че тут воткнуть///
НазначитьВид(ДокДовер,"Доверенность");///не помогает
ДокДовер.Новый();
Не определен вид документа

(0) не надо так делать

ну мне надо

не держи его так

ДокДовер=СоздатьОбъект("Документ");

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

(5)
Если ПустоеЗначение(ДокДовер)=1 Тогда
ДокДовер=СоздатьОбъект("Документ.Доверенность");
...

(2) тебе не надо ))