Как обратиться к ТЧ, которая создается программно, при программном создании документа?

// кор. счет
	Если ЗначениеЗаполнено(КорСчет) И 
		(ТипЗнч(ДокументОбъект) = Тип("ДокументОбъект.КассовоеВыбытие") ИЛИ ТипЗнч(ДокументОбъект) = Тип("ДокументОбъект.КассовоеПоступление")) Тогда
		ДокументОбъект.КорСчет = КорСчет;
	КонецЕсли;
	// налог
	Если ЗначениеЗаполнено(НалогСборПлатеж) И 
		(ТипЗнч(ДокументОбъект) = Тип("ДокументОбъект.КассовоеВыбытие") ИЛИ ТипЗнч(ДокументОбъект) = Тип("ДокументОбъект.КассовоеПоступление")) Тогда
		ДокументОбъект.НалогСборПлатеж = НалогСборПлатеж;
	КонецЕсли;
	// ИФО
	Если ПолучитьФункциональнуюОпцию("ИспользоватьУчетПоИФО") Тогда
		Если ЗначениеЗаполнено(ИФО) Тогда
			ДокументОбъект.ИФО = ИФО;
		КонецЕсли;
	КонецЕсли;
	
	// СчетУчетаДенежныхСредств
	ДополнительныеРеквизиты = ДокументОбъект.ДополнительныеСвойства;
	ДополнительныеРеквизиты = Новый Структура;
	Если ЗначениеЗаполнено(СчетУчетаДенежныхСредств) Тогда
		Если ТипЗнч(ДокументОбъект) = Тип("ДокументОбъект.КассовоеВыбытие") Тогда
			ДополнительныеРеквизиты.Вставить("СчетКт",СчетУчетаДенежныхСредств);	
		ИначеЕсли ТипЗнч(ДокументОбъект) = Тип("ДокументОбъект.КассовоеПоступление") Тогда
			ДополнительныеРеквизиты.Вставить("СчетДт",СчетУчетаДенежныхСредств);
			ДополнительныеРеквизиты.Вставить("СчетПоступления",СчетУчетаДенежныхСредств);	
			ДополнительныеРеквизиты.Вставить("СчетДтПоНалогам",СчетУчетаДенежныхСредств);	
		КонецЕсли;	
	КонецЕсли;	
	
	// ДО 
	Если ТипЗнч(ДокументОбъект) = Тип("ДокументОбъект.РегистрацияОбязательствИСведенийПоДоговорам") Тогда
		ДополнительныеРеквизиты.Вставить("ПринятьДенежныеОбязательстваДляБезусловных", Истина);
		ДополнительныеРеквизиты.Вставить("ПринятьДенежныеОбязательстваДляБезусловныхПлановых", Истина);
		ДополнительныеРеквизиты.Вставить("БюджетныеДанныеБезДетализацииПоКосгу", Ложь);
	КонецЕсли;	
		
	БухгалтерскиеОперацииСервер.ДобавитьДанныеДляПроведения(ДокументОбъект, ТиповаяОперация, ДополнительныеРеквизиты, Ложь);
	
	Попытка
		Результат = ДатыЗапретаИзмененияСлужебный.ПроверитьДатыЗапретаИзмененияЗагрузкиДанных(
			ДокументОбъект, Ложь, Истина, Ложь);
			
		Если Результат.ИзменениеЗапрещено Тогда
			ТекстПротокола = ТекстПротокола + "<p>" + "Документ не записан, так как установлена дата запрета редактирования данных</p>";
			Если ЗначениеЗаполнено(ДокументОбъект.Ссылка) Тогда
				Возврат ДокументОбъект.Ссылка;
			Иначе
				Возврат Неопределено;
			КонецЕсли;
		КонецЕсли;  
	Исключение
	КонецПопытки;
	
	Попытка  
		ДокументОбъект.ОбменДанными.Загрузка = Ложь;
		ДокументОбъект.Записать(РежимЗаписиДокумента.Проведение);
	Исключение  
		ДокументОбъект.ОбменДанными.Загрузка = Истина;
		ДокументОбъект.Записать();
		ДанныеЗаписи = Новый Структура;
		ДанныеЗаписи.Вставить("Документ", ДокументОбъект.Ссылка);
		ДанныеЗаписи.Вставить("Операция", ТиповаяОперация);
		БухгалтерскиеОперацииСервер.ЗаписатьДанныеТиповойОперацииОбъекта(ДокументОбъект, ТиповаяОперация, ДополнительныеРеквизиты);
	КонецПопытки;
	Возврат ДокументОбъект.Ссылка;