Ошибка при редактировании макета печатных форм

Функция КомандыПечатиОбъекта(ОбъектМетаданных, СПечатнымиФормами = Истина) Экспорт КомандыПечати = СоздатьКоллекциюКомандПечати();
 Если ТипЗнч(ОбъектМетаданных) <> Тип("ОбъектМетаданных") Тогда   Возврат КомандыПечати;
 КонецЕсли;  
 Источники = ПодключаемыеКоманды.ДеревоИсточниковКоманд(); НастройкиAPI = ПодключаемыеКоманды.НастройкиПрограммногоИнтерфейсаПодключаемыхОбъектов();
 ПодключенныеОтчетыИОбработки = ПодключаемыеКоманды.ТаблицаПодключаемыхОбъектов(НастройкиAPI); Источник = ПодключаемыеКоманды.ЗарегистрироватьИсточник(ОбъектМетаданных, Источники, ПодключенныеОтчетыИОбработки, НастройкиAPI);
 Если Источник.Менеджер = Неопределено Тогда  Возврат КомандыПечати;
 КонецЕсли; 
 ДобавляемыеКомандыПечати = СоздатьКоллекциюКомандПечати(); Источник.Менеджер.ДобавитьКомандыПечати(ДобавляемыеКомандыПечати);
 Если СПечатнымиФормами Тогда
  ДобавитьКомандыПечати(ДобавляемыеКомандыПечати, ОбъектМетаданных); КонецЕсли;
  Для Каждого КомандаПечати Из ДобавляемыеКомандыПечати Цикл
  Если КомандаПечати.МенеджерПечати = Неопределено Тогда   КомандаПечати.МенеджерПечати = Источник.ПолноеИмя;
  КонецЕсли;  Если КомандаПечати.Порядок = 0 Тогда
   КомандаПечати.Порядок = 50;  КонецЕсли;
  ЗаполнитьЗначенияСвойств(КомандыПечати.Добавить(), КомандаПечати); КонецЦикла;
  Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ДополнительныеОтчетыИОбработки") Тогда
  МодульДополнительныеОтчетыИОбработки = ОбщегоНазначения.ОбщийМодуль("ДополнительныеОтчетыИОбработки");  МодульДополнительныеОтчетыИОбработки.ПриПолученииКомандПечати(КомандыПечати, Источник.ПолноеИмя);
 КонецЕсли; 
 КомандыПечати.Индексы.Добавить("МенеджерПечати");
 Найденные = ПодключенныеОтчетыИОбработки.НайтиСтроки(Новый Структура("ДобавитьКомандыПечати", Истина)); Для Каждого ПодключенныйОбъект Из Найденные Цикл
  ПодключенныйОбъект.Менеджер.ДобавитьКомандыПечати(КомандыПечати);  ДобавленныеКоманды = КомандыПечати.НайтиСтроки(Новый Структура("МенеджерПечати", Неопределено));
  Для Каждого Команда Из ДобавленныеКоманды Цикл   Команда.МенеджерПечати = ПодключенныйОбъект.ПолноеИмя;
  КонецЦикла; КонецЦикла;
  ТипОбъекта = Неопределено;
 Если ОбщегоНазначения.ЭтоОбъектСсылочногоТипа(ОбъектМетаданных) Тогда  ТипОбъекта = Тип(СтрЗаменить(ОбъектМетаданных.ПолноеИмя(), ".", "Ссылка."));
 КонецЕсли; 
 Для Каждого КомандаПечати Из КомандыПечати Цикл  КомандаПечати.ДополнительныеПараметры.Вставить("ДополнитьКомплектВнешнимиПечатнымиФормами", КомандаПечати.ДополнитьКомплектВнешнимиПечатнымиФормами);
  Если ЗначениеЗаполнено(ТипОбъекта) И ЗначениеЗаполнено(КомандаПечати.УсловияВидимости) Тогда   КомандаПечати.УсловияВидимостиПоТипамОбъектов.Вставить(ТипОбъекта, КомандаПечати.УсловияВидимости);
  КонецЕсли; КонецЦикла;
  КомандыПечати.Сортировать("Порядок Возр, Представление Возр");
 ИсправитьПризнакПроверкаПроведенияПередПечатью(КомандыПечати, ОбъектМетаданных); УстановитьНастройкиКомандПечати(КомандыПечати, Источник.СсылкаМетаданных);
 ОпределитьВидимостьКомандПечатиПоФункциональнымОпциям(КомандыПечати); 
 КомандыПечати.Индексы.Добавить("УникальныйИдентификатор"); Возврат КомандыПечати;
КонецФункции