Необъектный тип Регистратора

Если ТипЗнч(Выборка.Регистратор) = Тип("Неопределено") Тогда

Попытка 
		base = новый COMОбъект("V83.COMConnector"); 
		//base = base.Connect("Srvr=""1C-01.corp.enstro.ru"";Ref=""BUH_IS"";Usr="+Логин+";Pwd="+Пароль+";"); // Рабочая БП 
		//base = base.Connect("Srvr=""1C-01"";Ref=""buh_es_copy"";Usr="+Логин+";Pwd="+Пароль+";"); // Копия БП 
		base = base.Connect("Srvr=""1C-01"";Ref=""ERP_ES"";Usr="+Логин+";Pwd="+Пароль+";"); // Рабочая erp 
		//base = base.Connect("Srvr=""1C-01.corp.enstro.ru"";Ref=""ERP_ES_copy1"";Usr="+Логин+";Pwd="+Пароль+";"); // КОпия ERP 
	Исключение
		Возврат Неопределено;
	КонецПопытки; 
	
	ТЗ = Объект.Перемещения.Выгрузить();
	
	Сч = 0;
	
	Для Каждого стр из ТЗ Цикл 
		
		
		
		Если стр.Выбор_ <> Истина Тогда
			Продолжить; 
		Иначе
			Сч = Сч +1;
		КонецЕсли;
		
		Запрос = base.NewObject("Запрос");
		Запрос.Текст = ПрочитатьПеремещение();
		Запрос.УстановитьПараметр("Номер", стр.Номер);
		Результат = Запрос.Выполнить();
		
		Выборка = Результат.Выбрать();
		
		ДокОперация = Документы.ОперацияБух.СоздатьДокумент(); 
		
		// ДокОперация.Дата	=	Стр.Дата;
		ДокОперация.Дата	=	ТекущаяДата();
		
		ДокОперация.Организация = Справочники.Организации.НайтиПоКоду("00-000001");
		ДокОперация.Ответственный = Стр.Ответственный;
		ДокОперация.Содержание = "Перемещение в эксплуатации";
		ДокОперация.Комментарий = "#100223 " + Стр.Номер;
		
		СуммаОперации = 0;
		
		ДокОперация.Записать(РежимЗаписиДокумента.Запись);
		ДокОперацияСсылка = ДокОперация.Ссылка;
		
		РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
		РегХозрасчетный.Отбор.Регистратор.Значение = ДокОперацияСсылка;
		
		СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("МЦ.04"); //
		СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("МЦ.04");
		
		Пока Выборка.Следующий() Цикл // Заполняем табличную часть 
			
			Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(Выборка.Номенклатура.Description, Истина);
			ФизическоеЛицо = Справочники.ФизическиеЛица.НайтиПоНаименованию(Выборка.ФизическоеЛицо.Description, Истина);
			ФизическоеЛицоПолучатель = Справочники.ФизическиеЛица.НайтиПоНаименованию(Выборка.ФизическоеЛицоПолучатель.Description, Истина);
			
			Структура = НайтиПартиюИЦенуНоменклатуры(Номенклатура); 
			
		 			
			Регистратор = Структура.Регистратор;
			
		  
 
			
		
			Цена 		= Структура.Цена;
			
			РегЗапись = РегХозрасчетный.Добавить();
			РегЗапись.Период = ДокОперация.Дата;
			РегЗапись.Регистратор = ДокОперацияСсылка; // Ссылка на операцию
			РегЗапись.Организация = ДокОперация.Организация;
			
			РегЗапись.Содержание  = "Перемещение в эксплуатации";
			
			// Дт 
			РегЗапись.СчетДт = СчетДт;
			БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "Номенклатура", Номенклатура);
			БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "ПартииМатериаловВЭксплуатации", Структура.Регистратор);
			БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, "РаботникиОрганизаций", ФизическоеЛицоПолучатель);
			
			РегЗапись.КоличествоДт = Выборка.Количество;
			// Кт 
			РегЗапись.СчетКт = СчетКт;
			БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, "Номенклатура", Номенклатура);
			БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, "ПартииМатериаловВЭксплуатации", Структура.Регистратор);
			БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, "РаботникиОрганизаций", ФизическоеЛицо);
			
			РегЗапись.КоличествоКт = Выборка.Количество;
			РегЗапись.Сумма = Цена * Выборка.Количество;
			РегХозрасчетный.Записать(); 
			
			СуммаОперации = СуммаОперации + РегЗапись.Сумма;
			
		КонецЦикла;
		
		ДокОперация.СуммаОперации = СуммаОперации;
		ДокОперация.Записать(РежимЗаписиДокумента.Запись);
		Сообщить(ДокОперацияСсылка);
		
	КонецЦикла;