Ошибка "Защита" как обойти?

ОбластьМакета.Параметры.ПредставлениеПоставщика = ФормированиеПечатныхФормСервер.ОписаниеОрганизации(УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Поставщик, Шапка.Дата), "ПолноеНаименование,");

ОбластьМакетаШапка.Параметры.Наименование = "" + КонтрагентИКонтактноеЛицо +"  " + Телефон;

Функция ПечатьМаршрутныйЛистСЗаказами(МассивОбъектов, ОбъектыПечати)
	
	ТабличныйДокумент = Новый ТабличныйДокумент;
	ТабличныйДокумент.КлючПараметровПечати = "ПараметрыПечати_МаршрутныйЛист";
	ТабличныйДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
	
	ПервыйДокумент = Истина;
	
	Для Каждого ТекущийДокумент Из МассивОбъектов Цикл
		Если Не ПервыйДокумент Тогда
			ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
		КонецЕсли;
		ПервыйДокумент = Ложь;
		
		НомерСтрокиНачало = ТабличныйДокумент.ВысотаТаблицы + 1;
		
		ТабличныйДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_МаршрутныйЛист_МаршрутныйЛистСЗаказами";
		Макет = УправлениеПечатью.МакетПечатнойФормы("Документ.уатМаршрутныйЛист.ПФ_MXL_МаршрутныйЛистСЗаказами");
			
//Контрагент, контактное лицо
    Запрос = Новый Запрос;
    Запрос.Текст = 
    	"ВЫБРАТЬ
    	|	уатЗаказГрузоотправителя.Контрагент.Наименование КАК Наименование,
    	|	уатЗаказГрузоотправителя.Контрагент.ОсновноеКонтактноеЛицо КАК ОсновноеКонтактноеЛицо
    	|ИЗ
    	|	Документ.уатЗаказГрузоотправителя КАК уатЗаказГрузоотправителя";
    
    РезультатЗапроса = Запрос.Выполнить();
    
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
    КонтрагентКонтактноеЛицо = "";
    Если ВыборкаДетальныеЗаписи.Следующий() Тогда
     КонтрагентИКонтактноеЛицо =
     	" " + ВыборкаДетальныеЗаписи.Наименование
    	+
    	" " + ВыборкаДетальныеЗаписи.ОсновноеКонтактноеЛицо;	 
 КонецЕсли;
 Возврат КонтрагентИКонтактноеЛицо;
// 
//Телефон		
    Запрос = Новый Запрос;
    Запрос.Текст = 
    	"ВЫБРАТЬ
    	|	уатЗаказГрузоотправителя.Контрагент.КонтактнаяИнформация.(
    	|		НомерТелефона КАК НомерТелефона
    	|	)
    	|ИЗ
    	|	Документ.уатЗаказГрузоотправителя КАК уатЗаказГрузоотправителя";
    
    РезультатЗапроса = Запрос.Выполнить();
    
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

    Если ВыборкаДетальныеЗаписи.Следующий() Тогда
    	Телефон =  ВыборкаДетальныеЗаписи.НомерТелефона;
    КонецЕсли;
//
		// Заголовок
		ОбластьМакетаШапка = Макет.ПолучитьОбласть("Заголовок");
		ОбластьМакетаШапка.Параметры.ТекстЗаголовка           = уатОбщегоНазначенияТиповые.уатСформироватьЗаголовокДокумента(ТекущийДокумент, "Маршрутный лист");
		ОбластьМакетаШапка.Параметры.ПредставлениеПеревозчика = уатОбщегоНазначенияТиповыеСервер.ОписаниеОрганизации(
			уатОбщегоНазначенияСервер.СведенияОЮрФизЛице(ТекущийДокумент.Контрагент, ТекущийДокумент.Дата), "ПолноеНаименование");
		ОбластьМакетаШапка.Параметры.ПредставлениеТС          = уатОбщегоНазначения.уатПредставлениеТС(ТекущийДокумент.ТС, ТекущийДокумент.Организация)
			+ " (" + уатОбщегоНазначения.уатПредставлениеМоделиТС(ТекущийДокумент.ТС) + ")";
		ОбластьМакетаШапка.Параметры.Водитель = ТекущийДокумент.Водитель1;
		ОбластьМакетаШапка.Параметры.ПредставлениеВодителя = уатОбщегоНазначения.уатФИОСотрудникаПолноеСтрокой(ТекущийДокумент.Водитель1, НачалоДня(ТекущийДокумент.Дата));

//Заполняем Наименование
		ОбластьМакетаШапка.Параметры.Наименование = КонтрагентИКонтактноеЛицо + Телефон;
//		
		
		Если ТекущийДокумент.Заказы.Количество() Тогда 
			ОбластьМакетаШапка.Параметры.ПлановоеВремяВыезда = ПолучитьВремяОтправленияПлан(ТекущийДокумент);
			
			Если ТекущийДокумент.Заказы.НайтиСтроки(Новый Структура("Выполнен", Истина)).Количество() Тогда 
				ОбластьМакетаШапка.Параметры.ФактическоеВремяВыезда = ТекущийДокумент.ДатаИВремяОтправления;
			КонецЕсли;
			
			ОбластьМакетаШапка.Параметры.ПлановоеВремяВозврата = ПолучитьВремяВозвратаПлан(ТекущийДокумент);
			
			Если ТекущийДокумент.Выполнен Тогда 
				ОбластьМакетаШапка.Параметры.ФактическоеВремяВозврата = ТекущийДокумент.ДатаИВремяВыполнения;
				ОбластьМакетаШапка.Параметры.ДатаВыполнения           = ТекущийДокумент.ДатаИВремяВыполнения;
			КонецЕсли;
			
			ПервыйПункт   = ТекущийДокумент.Заказы[0].Пункт;
			ПерваяСтоянка = 0;
			ПредЗаказ     = Неопределено;
			
			Для Сч = 0 По ТекущийДокумент.Заказы.Количество()-1 Цикл 
				ТекСтрока = ТекущийДокумент.Заказы[Сч];
				Если Не ТекСтрока.Пункт = ПервыйПункт Тогда 
					Прервать;
				КонецЕсли;
				
				Если Не ПредЗаказ = ТекСтрока.ЗаказГрузоотправителя Тогда 
					ПерваяСтоянка = уатЗащищенныеФункцииСервер.СложитьВремя(ПерваяСтоянка, ТекСтрока.Стоянка);
					ПредЗаказ = ТекСтрока.ЗаказГрузоотправителя;
				КонецЕсли;
			КонецЦикла;
			
			мВремяПрибытия = уатЗащищенныеФункцииСервер.СложитьВремя(ТекущийДокумент.ДатаИВремяОтправленияПлан, -ПерваяСтоянка);
		КонецЕсли;
		
		ТабДокМаршрут = Новый ТабличныйДокумент;
		ТабДокЗаказ   = Новый ТабличныйДокумент;
		
		ОбластьМакета = Макет.ПолучитьОбласть("МаршрутШапка");
		ТабДокМаршрут.Вывести(ОбластьМакета);
		ОбластьМакетаАдрес = Макет.ПолучитьОбласть("СтрокаАдрес");
		ОбластьМакетаЗаказ = Макет.ПолучитьОбласть("СтрокаЗаказ");
		
		ПредАдр = 0;
		ПредСтрока = Неопределено;
		ИзменилсяЗаказ = Ложь;
		ОбщийПробег = 0; мСтоянка  = 0;
		СчАдресов = 1;  СчЗаказов = 1;
		МаксВес    = 0; МаксОбъем    = 0; МаксКолМест    = 0; МаксЗаказов    = 0;
		ПеревезВес = 0; ПеревезОбъем = 0; ПеревезКолМест = 0; ПеревезЗаказов = 0;
		мВес       = 0; мОбъем       = 0; мКолМест       = 0; 
		ТекВес     = 0; ТекОбъем     = 0; ТекКолМест     = 0; ТекКолЗаказов  = 0;
		
		Для Каждого ТекСтрока ИЗ ТекущийДокумент.Заказы цикл
			
			Если ТекСтрока.Пункт = Неопределено ИЛИ НЕ ЗначениеЗаполнено(ТекСтрока.Пункт) тогда
				Если НЕ ТекСтрока.ЗаказГрузоотправителя.Пустая() И ТекСтрока.ТипТочкиМаршрута = Перечисления.уатТипыТочекМаршрута.Погрузка тогда
					мАдр = ТекСтрока.ЗаказГрузоотправителя.АдресОтправления;
				ИначеЕсли НЕ ТекСтрока.ЗаказГрузоотправителя.Пустая() И ТекСтрока.ТипТочкиМаршрута = Перечисления.уатТипыТочекМаршрута.Погрузка тогда
					мАдр = ТекСтрока.ЗаказГрузоотправителя.АдресДоставки;
				Иначе
					Продолжить;
				КонецЕсли;
			Иначе
				мАдр = ТекСтрока.Пункт;
			КонецЕсли;
			
			мАдр = ПолучитьАдресСтрокой(мАдр);
			
			Если мАдр <> ПредАдр тогда
				
				Если ПредАдр <> 0 тогда
					//выводим старую
					ОбластьМакетаАдрес.Параметры.Стоянка      = мСтоянка;
					ТабДокМаршрут.Вывести(ОбластьМакетаАдрес);
					Если ИзменилсяЗаказ = Истина тогда
						ОбластьМакетаЗаказ.Параметры.Вес            = мВес;
						ОбластьМакетаЗаказ.Параметры.Объем          = мОбъем;
						ОбластьМакетаЗаказ.Параметры.КоличествоМест = мКолМест;
						Если СчАдресов >= 2 тогда
							мВремяПрибытия = уатЗащищенныеФункцииСервер.СложитьВремя(мВремяПрибытия, мСтоянка);
							ОбластьМакетаАдрес.Параметры.ПрибытиеПлан = мВремяПрибытия;
						КонецЕсли;
						ТабДокЗаказ.Вывести(ОбластьМакетаЗаказ);
						мВес = 0; мОбъем = 0; мКолМест = 0;
					КонецЕсли;
					ТабДокМаршрут.Вывести(ТабДокЗаказ);
					ТабДокЗаказ = Новый ТабличныйДокумент;
					ИзменилсяЗаказ = Ложь;
				КонецЕсли;
				
				ОбластьМакетаАдрес = Макет.ПолучитьОбласть("СтрокаАдрес");
				ОбластьМакетаАдрес.Параметры.Адрес           = мАдр;
				ОбластьМакетаАдрес.Параметры.РасстояниеВремя = "" + ТекСтрока.Расстояние + " / " + Формат(ТекСтрока.Время,"ЧДЦ=2; ЧРД=:; ЧН=0:00");
				ОбластьМакетаАдрес.Параметры.ПрибытиеПлан    = мВремяПрибытия;
				ОбластьМакетаАдрес.Параметры.ПрибытиеФакт    = ТекСтрока.ПрибытиеФакт;
				ОбластьМакетаАдрес.Параметры.Номер           = СчАдресов;
				мВремяПрибытия = уатЗащищенныеФункцииСервер.СложитьВремя(мВремяПрибытия,ТекСтрока.Время);
				мСтоянка   = 0;
				СчАдресов = СчАдресов + 1;
				СчЗаказов = 1;
				ОбщийПробег = ОбщийПробег  + ТекСтрока.Расстояние;
				
			КонецЕсли;
			
			ПредАдр = мАдр;
			//произвольный пункт 
			Если ТекущийДокумент.ВидОперации = Перечисления.уатВидыОперацийМаршрутныйЛист.ПоЗаказуГрузоотправителя И НЕ ЗначениеЗаполнено(ТекСтрока.ЗаказГрузоотправителя) 
				ИЛИ ТекущийДокумент.ВидОперации = Перечисления.уатВидыОперацийМаршрутныйЛист.Произвольный И НЕ ЗначениеЗаполнено(ТекСтрока.Контрагент)
				И НЕ ЗначениеЗаполнено(ТекСтрока.Номенклатура) тогда
				
				мСтоянка   = мСтоянка + ТекСтрока.Стоянка;
				ПредСтрока = ТекСтрока;
				Продолжить;
			КонецЕсли;
			
			Если ПредСтрока = Неопределено
				ИЛИ (ТекущийДокумент.ВидОперации = Перечисления.уатВидыОперацийМаршрутныйЛист.ПоЗаказуГрузоотправителя И
					(ПредСтрока.ЗаказГрузоотправителя <> ТекСтрока.ЗаказГрузоотправителя ИЛИ ПредСтрока.ТипТочкиМаршрута <> ТекСтрока.ТипТочкиМаршрута))
				ИЛИ (ТекущийДокумент.ВидОперации = Перечисления.уатВидыОперацийМаршрутныйЛист.Произвольный И ТекСтрока.Контрагент <> ПредСтрока.Контрагент) Тогда
				
				Если ИзменилсяЗаказ = Истина Тогда
					//Выводим
					ОбластьМакетаЗаказ.Параметры.Вес            = мВес;
					ОбластьМакетаЗаказ.Параметры.Объем          = мОбъем;
					ОбластьМакетаЗаказ.Параметры.КоличествоМест = мКолМест;
					ТабДокЗаказ.Вывести(ОбластьМакетаЗаказ);
					ИзменилсяЗаказ = Ложь;
					мВес = 0; мОбъем = 0; мКолМест = 0;
				КонецЕсли;
				мСтоянка = уатЗащищенныеФункцииСервер.СложитьВремя(мСтоянка,ТекСтрока.Стоянка);
				ОбластьМакетаЗаказ = Макет.ПолучитьОбласть("СтрокаЗаказ");
				мКонтр = "";
				Если ТекСтрока.ЗаказГрузоотправителя.Пустая() И ЗначениеЗаполнено(ТекСтрока.Контрагент) тогда
					мКонтр = ТекСтрока.Контрагент;
				Иначе
					Если ТекСтрока.ТипТочкиМаршрута = Перечисления.уатТипыТочекМаршрута.Погрузка тогда
						мКонтр = ТекСтрока.ЗаказГрузоотправителя.Грузоотправитель;
					Иначе
						мКонтр = ТекСтрока.ЗаказГрузоотправителя.Грузополучатель;
					КонецЕсли;
					Если мКонтр = Неопределено ИЛИ НЕ ЗначениеЗаполнено(мКонтр) тогда
						мКонтр = ТекСтрока.ЗаказГрузоотправителя.Контрагент;
					КонецЕсли;
				КонецЕсли;
				
				ОбластьМакетаЗаказ.Параметры.Номер      = "" + (СчАдресов - 1) + "." + СчЗаказов;
				ОбластьМакетаЗаказ.Параметры.Контрагент = мКонтр;
				ОбластьМакетаЗаказ.Параметры.Заказ      = "" + ТекСтрока.ЗаказГрузоотправителя.Номер + " от " + ТекСтрока.ЗаказГрузоотправителя.Дата;
				ОбластьМакетаЗаказ.Параметры.НомерПоУчетуЗаказчика = ТекСтрока.ЗаказГрузоотправителя.НомерПоУчетуЗаказчика;
				ОбластьМакетаЗаказ.Параметры.Операция   = ТекСтрока.ТипТочкиМаршрута;
				
				СчЗаказов = СчЗаказов + 1;
				ИзменилсяЗаказ = Истина;
			КонецЕсли;
			
			мВес        = мВес        + ТекСтрока.ВесБрутто;
			мОбъем      = мОбъем      + ТекСтрока.Объем;
			мКолМест    = мКолМест    + ТекСтрока.КоличествоМест;
			Если ТекСтрока.ТипТочкиМаршрута = Перечисления.уатТипыТочекМаршрута.Погрузка тогда
				ПеревезВес     = ПеревезВес     + ТекСтрока.ВесБрутто;
				ПеревезОбъем   = ПеревезОбъем   + ТекСтрока.Объем;
				ПеревезКолМест = ПеревезКолМест + ТекСтрока.КоличествоМест;
				ТекВес         = ТекВес         + ТекСтрока.ВесБрутто;
				ТекОбъем       = ТекОбъем       + ТекСтрока.Объем;
				ТекКолМест     = ТекКолМест     + ТекСтрока.КоличествоМест;
				ПеревезЗаказов = ПеревезЗаказов + 1;
				ТекКолЗаказов  = ТекКолЗаказов  + 1;
			ИначеЕсли ТекСтрока.ТипТочкиМаршрута = Перечисления.уатТипыТочекМаршрута.Разгрузка тогда
				ТекВес         = ТекВес         - ТекСтрока.ВесБрутто;
				ТекОбъем       = ТекОбъем       - ТекСтрока.Объем;
				ТекКолМест     = ТекКолМест     - ТекСтрока.КоличествоМест;
				ТекКолЗаказов  = ТекКолЗаказов  - 1;
			КонецЕсли;
			МаксВес     = Макс(МаксВес    ,ТекВес);
			МаксОбъем   = Макс(МаксОбъем  ,ТекОбъем);
			МаксКолМест = Макс(МаксКолМест,ТекКолМест);
			МаксЗаказов = Макс(МаксЗаказов,ТекКолЗаказов);
			
			ПредСтрока = ТекСтрока;
			
		КонецЦикла;
		
		ОбластьМакетаАдрес.Параметры.Стоянка   = мСтоянка;
		ТабДокМаршрут.Вывести(ОбластьМакетаАдрес);
		Если ИзменилсяЗаказ = Истина тогда
			ОбластьМакетаЗаказ.Параметры.Вес            = мВес;
			ОбластьМакетаЗаказ.Параметры.Объем          = мОбъем;
			ОбластьМакетаЗаказ.Параметры.КоличествоМест = мКолМест;
			ТабДокЗаказ.Вывести(ОбластьМакетаЗаказ);
		КонецЕсли;
		ТабДокМаршрут.Вывести(ТабДокЗаказ);
		ОбластьМакета = Макет.ПолучитьОбласть("МаршрутПодвал");
		ОбластьМакета.Параметры.ПеревезеноВес     = ПеревезВес;
		ОбластьМакета.Параметры.ПеревезеноОбъем   = ПеревезОбъем;
		ОбластьМакета.Параметры.ПеревезеноКолМест = ПеревезКолМест;
		ОбластьМакета.Параметры.ПеревезеноЗаказов = ПеревезЗаказов;
		ОбластьМакета.Параметры.МаксВес           = МаксВес;
		ОбластьМакета.Параметры.МаксОбъем         = МаксОбъем;
		ОбластьМакета.Параметры.МаксКолМест       = МаксКолМест;
		ОбластьМакета.Параметры.МаксЗаказов       = МаксЗаказов;
		ТабДокМаршрут.Вывести(ОбластьМакета);
		
		ТабличныйДокумент.Вывести(ОбластьМакетаШапка);
		ТабличныйДокумент.Вывести(ТабДокМаршрут);
		
		УправлениеПечатью.ЗадатьОбластьПечатиДокумента(ТабличныйДокумент, НомерСтрокиНачало, ОбъектыПечати, ТекущийДокумент);
		
	КонецЦикла;
	
	ТабличныйДокумент.АвтоМасштаб = Истина;
	
	Возврат ТабличныйДокумент;
	
КонецФункции // ПечатнаяФорма()

ГДЕ ссылка = &ВашКонтрагент

"ВЫБРАТЬ
		|	КонтрагентыКонтактнаяИнформация.НомерТелефона КАК НомерТелефона1
		|ИЗ
		|	Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформация
		|ГДЕ
		|	КонтрагентыКонтактнаяИнформация.Ссылка = &ВашКонтрагент";

//Телефон		
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	КонтрагентыКонтактнаяИнформация.НомерТелефонаБезКодов
		|ИЗ
		|	Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформация";
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

	Если ВыборкаДетальныеЗаписи.Следующий() Тогда
		Телефон = ВыборкаДетальныеЗаписи.НомерТелефонаБезКодов;
	КонецЕсли;

ГДЕ
        |    КонтрагентыКонтактнаяИнформация.Ссылка = &Контрагент

Контрагент = СсылкаНаМЛ.ЗаказГрузоотправителя.Контрагент;