Перенос 7.7 в 8.2.

Question

Всем доброго дня!
Есть небольшая заморочка с которой нужно разобраться, очень прошу помощи.
Имеем следующую ситуацию, - происходит перенос данных из 7-ки в 8-ку,  при этом в 7-ке есть добавленный документ (но и на типовом не выходит, если что) который пытаюсь программно перенести и заполнить. Происходит заморочка на строке ТЧ, то есть не переносится сотрудник и подразделение организации (хотя справочники в 8-ке есть). Вотссс..
В раре скрины, код приведу полностью, и обработку, чтобы Вы осознали всю суть моей бездарности :)

[1C-CODE]ПутьКБазе="C:\Users\ITS3\Desktop\КазНИПИ\3. КазНИПИ\";
    Пользователь="Новый1";
    Пароль="123";
    МонопольныйРежимOLE = ""; // " /m";
    ЗапускБезЗаставки = 1;
    База = Новый COMОбъект("V1CEnterprise.Application");
    СтрокаПодключения = "/D"""+СокрЛП(ПутьКБазе)+""" /N"""+СокрЛП(Пользователь)+""" /P"""+СокрЛП(Пароль)+"""";
    РезультатПодключения=База.Initialize(База.RMTrade,СтрокаПодключения,?(ЗапускБезЗаставки = 1,"NO_SPLASH_SHOW",""));

    Если НЕ РезультатПодключения Тогда
        Сообщить("пздц");
		Иначе Сообщить ("збс");
    КонецЕсли;
	
	//////////////////////////////////////////////////////////////////////////////////////////////////////////////////
	
	Сч = 0;
	
	Док = База.CreateObject("Документ.ВедомостьНачисленийЗП");
	Док.ВыбратьДокументы(НачалоГода(ТекущаяДата()), КонецГода(ТекущаяДата()));                  
	
	Пока Док.ПолучитьДокумент() = 1 Цикл
		
		Сч = Сч + 1;
		
	Если Док.Проведен() = 1 Тогда
			
			Документ = Документы.НачислениеЗарплатыРаботникамОрганизаций.СоздатьДокумент();
			
			Документ.Дата = Док.ДатаДок;
			Документ.ПериодРегистрации = НачалоМесяца(Док.ДатаДок);
		    Документ.Организация = Справочники.Организации.НайтиПоНаименованию("АО НИПИ нефтегаз");
			Документ.ПодразделениеОрганизации = Док.Подразделение; //?не садится
			Документ.ВидРасчета = ПланыВидовРасчета.ОсновныеНачисленияОрганизаций.НайтиПоКоду("000010");
			Документ.Номер = Док.НомерДок;
		
			Док.ВыбратьСтроки();
			
			Пока Док.ПолучитьСтроку()=1 Цикл
				СтрокаНачисления = Документ.Начисления.Добавить();
				СтрокаНачисления.Сотрудник = Док.Сотрудник;  //?не садится
				СтрокаНачисления.ПодразделениеОрганизации = Док.Подразделение; //?не садится
				СтрокаНачисления.ВидРасчета = ПланыВидовРасчета.ОсновныеНачисленияОрганизаций.НайтиПоКоду("000010");
				СтрокаНачисления.Размер = Док.ОкладСотра;
				СтрокаНачисления.Результат = Док.ОплатаЗаРабочееВремя; 
				СтрокаНачисления.ОтработаноЧасов = Док.Часов;
				СтрокаНачисления.ОтработаноДней = Док.Дней;
				СтрокаНачисления.ДатаНачала = НачалоМесяца(Док.ДатаДок);
				СтрокаНачисления.ДатаОкончания = КонецМесяца(Док.ДатаДок);
			КонецЦикла;
			
			Документ.Записать(РежимЗаписиДокумента.Запись);
			
			Состояние("Выполнено " + Сч);
			
	    КонецЕсли;
	КонецЦикла;[/1C-CODE]

Accepted Answer

(1)СтрокаНачисления.ПодразделениеОрганизации = Док.Подразделение; у тебя в переменной Док.Подразделение - com объект, а в документе приёмнике это ссылка на справочник. Необходимо найти подразделение из базы источника в базе приёмнике, например по коду.