Помогите найти ошибку в коде 1с 7.7

Процедура Выгрузить002() 
	ДБФ = СоздатьОбъект("XBase");
	ДБФ.ДобавитьПоле("StKod", "S", 9, );
	ДБФ.ДобавитьПоле("KONTR", "S", 150, );
	ДБФ.ДобавитьПоле("KontrIdent", "S", 150, );
	ДБФ.ДобавитьПоле("DOGOVOR", "S",150 , );
	ДБФ.ДобавитьПоле("DATAV", "D", , ); 
	ДБФ.ДобавитьПоле("DATAP", "D", , );
	ДБФ.ДобавитьПоле("Shcet","S",15,);
	ДБФ.ДобавитьПоле("Summa", "N", 15, 2); 
	ДБФ.ДобавитьПоле("Kol", "N", 15, 5);
	ДБФ.ДобавитьПоле("RODKONTR", "S", 150, );
	ДБФ.ДобавитьПоле("INNKONTR", "S", 20, );
	ДБФ.ДобавитьПоле("DATANST", "D", , ); 
	ДБФ.ДобавитьПоле("DATAPST", "D", , );
	ДБФ.ДобавитьПоле("STVKST", "N", 5, 2);
	ДБФ.ДобавитьПоле("EDRSST", "S",25 , ); 
	ДБФ.ДобавитьПоле("SKANKAT", "S",150 , ); 
	ДБФ.ДобавитьПоле("SKANDOG", "S",150 , ); 
	ДБФ.ДобавитьПоле("MatKod", "S", 9, );
	ДБФ.ДобавитьПоле("MatIdent", "S", 150, );
	ДБФ.ДобавитьПоле("MatName", "S", 100, );
	ДБФ.ДобавитьПоле("MatED", "S", 50, );
	ДБФ.ДобавитьПоле("MatEDKOD", "S", 10, );
	ДБФ.ДобавитьПоле("MatVid", "S", 150, );
	ДБФ.ДобавитьПоле("Sklad", "S", 45, ); 
	ДБФ.ДобавитьПоле("SkladKOD", "S", 45, ); 
	ДБФ.ДобавитьПоле("MOL", "S", 150, ); 
	//ДБФ.СоздатьФайл("C:\ТАИФ СТ\60_2_2_1.DBF"); 
	ДБФ.СоздатьФайл("D:\1cBases\temp\Обработки\002_1.DBF"); 
	СтрокаУслСчета = "002.1";		
	Ит = СоздатьОбъект("БухгалтерскиеИтоги");       
	Ит.ИспользоватьСубконто(ВидыСубконто.Материалы);
	Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты);
	Ит.ИспользоватьСубконто(ВидыСубконто.Договоры);
	Ит.ИспользоватьСубконто(ВидыСубконто.ОбъектыСтроительства);
	Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения); 
    Ит.ВыполнитьЗапрос(Дата1, Дата1, СтрокаУслСчета); 
	Ит.ВыбратьСчета();

	Пока Ит.ПолучитьСчет() = 1 Цикл
		Ит.ВыбратьСубконто(1); 
		Сообщить("В цикле");
		Пока Ит.ПолучитьСубконто(1) = 1 Цикл
			ОстатокСумма = Ит.СКД("С") - Ит.СКК("С");  
			Ит.ВыбратьСубконто(2);
			Пока Ит.ПолучитьСубконто(2) = 1 Цикл  
				Если (Ит.СКД("С") = 0 ) и (Ит.СКК("С") = 0) Тогда
					Продолжить;
				КонецЕсли;   
				Ит.ВыбратьСубконто(3);
				Пока Ит.ПолучитьСубконто(3) = 1 Цикл  
					Если (Ит.СКД("С") = 0 ) и (Ит.СКК("С") = 0) Тогда
						Продолжить;
						КонецЕсли; 
						Ит.ВыбратьСубконто(4);
						Пока Ит.ПолучитьСубконто(4) = 1 Цикл  
							Если (Ит.СКД("С") = 0 ) и (Ит.СКК("С") = 0) Тогда
								Продолжить;
							КонецЕсли; 
						Ит.ВыбратьСубконто(5);
						Пока Ит.ПолучитьСубконто(5) = 1 Цикл  
							Если (Ит.СКД("С") = 0 ) и (Ит.СКК("С") = 0) Тогда
								Продолжить;		
						КонецЕсли; 
						ДБФ.Добавить();
						
						Контрагент=Ит.Субконто(1);
						Номенклатура = Ит.Субконто(4);
					   
						Склад =  Ит.Субконто(5); 
					
						//ДБФ.DOGOVOR = Договор.Наименование;
						//ДБФ.DATAV = Договор.ДатаВозникновенияОбязательства; 
						//ДБФ.DATAP = Договор.ДатаПогашенияОбязательства;
						ДБФ.Shcet = Ит.Счет.Код;
						ДБФ.StKod =  Контрагент.Код; 
						ДБФ.KONTR = КОнтрагент.Наименование;
						ДБФ.KontrIdent = ЗначениеВСтрокуВнутр(Контрагент); 
						ДБФ.Summa = Ит.СКД("С") - Ит.СКК("С");
						ДБФ.Kol = Ит.СКД("К") - Ит.СКК("К");
						//ДБФ.RODKONTR = Контрагент.Родитель.Наименование;
						//ПоискИНН = Найти(Контрагент.ИНН, "/");
						//Если ПоискИНН > 0 Тогда
						//	ДБФ.INNKONTR = Лев(Контрагент.ИНН, ПоискИНН-1);
						//Иначе
						//	ДБФ.INNKONTR = Контрагент.ИНН;
						//КонецЕсли;
						//ДБФ.DATANST = Договор.ДатаНачалаНачисленияШтрафныхСанкций; 
						//ДБФ.DATAPST = Договор.ДатаПрекращенияНачисленияШтрафныхСанкций; 
						//ДБФ.STVKST = Договор.СтавкаШтрафныхСанкций; 
						//ДБФ.EDRSST = Договор.ВременнаяЕдиницаРасчетаШтрафныхСанкций;
						//ДБФ.SKANKAT = Договор.КаталогОтсканированныйДоговор;
						//ДБФ.SKANDOG = Договор.ОтсканированныйДоговор;
						ДБФ.MatKod =  Номенклатура.Код; 
						ДБФ.MatName = Номенклатура.Наименование;
						ДБФ.MatIdent = ЗначениеВСтрокуВнутр(Номенклатура); 
						ДБФ.MatED = Номенклатура.ЕдиницаИзмерения.Наименование;
						ДБФ.MatEDKOD = Номенклатура.ЕдиницаИзмерения.Код;
					//	ДБФ.MatVid = СокрЛП(Строка(Номенклатура.СубСчет10.Код));
						ДБФ.Sklad = Склад.Наименование;
						ДБФ.SkladKOD = Склад.Код;
						ДБФ.MOL = Склад.МОЛ.Наименование;
					
						ДБФ.Записать();
						
					КонецЦикла; 
				    КонецЦикла; 
				КонецЦикла;
			КонецЦикла;	
		КонецЦикла;	
	КонецЦикла;	  
	
	Сообщить("Закончили002","!!!");	
КонецПроцедуры