v7: Люди добрые помогите создать документ неопределенного вида

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