Табл.знач. и док-ты 1С77

Процедура ДляВсех(ТЗ,н,Д)
Д.ВыбратьДокументы();
Пока Д.ПолучитьДокумент() = 1 Цикл
ТЗ.НоваяСтрока();
ТЗ.Ном = н;
ТЗ.Док = Д.ТекущийДокумент();
ТЗ.Дат = Д.ДатаДок;
КонецЦикла;
КонецПроцедуры    // ДляВсех
//*******************************************
Процедура Выполнить()
Д1 = СоздатьОбъект("Документ.ПереводВАкадемический");
Д2=СоздатьОбъект("Документ.ОтчислениеСтудента");
Д3 = СоздатьОбъект("Документ.ВыбытиеСтудентов");
Д4 = СоздатьОбъект("Документ.Восстановление");
Д5 = СоздатьОбъект("Документ.ПриказНаСтажировку");
Д6 = СоздатьОбъект("Документ.ВозвратИзСтажировки");
ТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("Ном","Число",3,0,"Номер",1);
ТЗ.НоваяКолонка("Док","Документ",,,"Док",30);
ТЗ.НоваяКолонка("Дат","Дата",,,"ДатаДок",10);
ДляВсех(ТЗ,1,Д1);
ДляВсех(ТЗ,2,Д2);
ДляВсех(ТЗ,3,Д3);
ДляВсех(ТЗ,4,Д4);
ДляВсех(ТЗ,5,Д5);
ДляВсех(ТЗ,6,Д6);
ТЗ.Сортировать("+Дат,+Ном");

ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку() = 1 Цикл
ТЗ.Док.СделатьНеПроведенным(); //ЗДЕСЬ ВЫБИВАЕТ ОШИБКУ
ТЗ.Док.Провести();
Если ТЗ.Док.Проведен()=0 Тогда
Сообщить("Док не проведен"+ТЗ.Док.ДатаДок+ " "+ТЗ.Док.Вид()+" "+ТЗ.Док.НомерДок,"!!");
КонецЕсли;
КонецЦикла;
КонецПроцедуры