Мутабельное значение при интеграции ЗУП и ДО

День добрый!
Из ЗУП нужно создать и заполнить (обязательные поля) в Документообороте.
Валится с ошибкой (картинка).
Код ЗУП:

&НаСервере
Процедура СоздатьСЗ_СЗ_ЭДО()	 
	
	БазаДО = ПодключитьсяКБазе();
	
	Если (БазаДО = Неопределено) Тогда
		Возврат;
	КонецЕсли;
	
	ДокументСсылка = БазаДО.Справочники.ВнутренниеДокументы.ПолучитьСсылку();

	Если(ДокументСсылка.ПолучитьОбъект() <> Неопределено) Тогда
		Возврат;
	КонецЕсли;

	Структура = Новый Структура;
	Структура.Вставить("Ответственный",	Объект.Ответственный.Наименование);
	Структура.Вставить("Подписант", 	Объект.НЛЭ_Подписант.Наименование);
	Структура.Вставить("Подразделение", Объект.НЛЭ_Подразделение.Наименование);
	Структура.Вставить("Год", 			Год(Объект.Дата));
	
	ШаблонДокумента = БазаДО.Порт_ОбщегоНазначенияСерверПовторноеИспользование.ПолучитьПредопределенные("ШаблонВнутреннегоДокумента_СлужебнаяЗаписка");
	
	ДокументОбъект  = БазаДО.Справочники.ВнутренниеДокументы.СоздатьЭлемент();
	
	ДокументОбъект.УстановитьСсылкуНового(ДокументСсылка);
	
	БазаДО.ШаблоныДокументов.ЗаполнитьРеквизитыДокументаПоШаблону(ШаблонДокумента, ДокументОбъект);
	
	ЗаполнитьВнутреннийДокумент(БазаДО, ДокументОбъект, Структура);
	
	ДокументОбъект.ГрифыУтверждения.Добавить();

	//ВБумажномВиде 			= БазаДО.Справочники.ЗначенияСвойствОбъектов.НайтиПоНаименованию("В бумажном виде", Истина);	
	//ПредопределенныеДанные 	= БазаДО.ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Способ отправки служебной записки на рассмотрение", Истина);	
	//БазаДО.Порт_ОбщегоНазначенияСервер.ЗаписатьДопСвойство(ДокументОбъект, ПредопределенныеДанные, ВБумажномВиде);
	
	ДокументОбъект.Записать();

Код ДО (на что ругается - дописанный (не нами) общий модуль):
Порт_ОбщегоНазначенияСервер.ПолучитьПредварительныРегистрационныйНомер(ЭтотОбъект);
Сама процедура:

#Область СобытияВнутреннегоДокумента
Процедура ПолучитьПредварительныРегистрационныйНомер(ОбъектЗаписи) Экспорт 
	
	Если ОбъектЗаписи.Порт_НеРегистрируется Или ЗначениеЗаполнено(ОбъектЗаписи.Порт_РегистрационныйНомер) Тогда
		Возврат;
	КонецЕсли;
	
	СписокДоговоров = Порт_ОбщегоНазначенияСерверПовторноеИспользование.ПолучитьПредопределенные(
		"ВидВнутреннегоДокумента_ДоговорСПокупателем,
		|ВидВнутреннегоДокумента_ДоговорСПоставщиком", "Массив");
	
	Если СписокДоговоров.Найти(ОбъектЗаписи.ВидДокумента) <> Неопределено Тогда 
		
		ОбъектЗаписи.ДатаРегистрации = ТекущаяДатаСеанса();
		
		// числовой номер
		СтруктураПараметров = НумерацияКлиентСервер.ПолучитьПараметрыНумерации(ОбъектЗаписи);
		Нумерация.СформироватьЧисловойНомерДокумента(СтруктураПараметров, ОбъектЗаписи.ЧисловойНомер);
	
		// строковый номер
		СтруктураПараметров = НумерацияКлиентСервер.ПолучитьПараметрыНумерации(ОбъектЗаписи);
	
		ОписанияОшибок = Новый СписокЗначений;
		Нумерация.СформироватьСтроковыйНомерДокумента(СтруктураПараметров, ОбъектЗаписи.РегистрационныйНомер, ОписанияОшибок);
		
		ОбъектЗаписи.Порт_РегистрационныйНомер = ОбъектЗаписи.РегистрационныйНомер;
		ОбъектЗаписи.РегистрационныйНомер = "";
		ОбъектЗаписи.ДатаРегистрации = Дата('00010101');
		
	КонецЕсли;
	
КонецПроцедуры

В ДО (код) лезть не могу (политика партии).
Как обойти?
Спасибо.