при открытии паллеты

Если ВидДока = "DESADV" Тогда
			СписокУпаковок = ПараметрыДока.Получить("СписокУпаковок");
			Если GLNКонтрагента = "4607075269996" Тогда//леруа
				Если СписокУпаковок.Количество() > 0 Тогда
					КроссДокинг = Истина;
	                //Заполняем в шапке таблицу с упаковками
					Для каждого ТекСтрока из СписокУпаковок Цикл
						ВспСтр = ЭтаФорма.ТаблУпаковок.Добавить();
						НомерУпковки = Число(ТекСтрока.Значение.Получить("IDУпаковки"));
						ВспСтр.ОписаниеУпаковки = "Паллета " + НомерУпковки;
						ВспСтр.IDУпаковки = НомерУпковки;
						ВспСтр.УровеньУпаковки = ТекСтрока.Значение.Получить("IDРодителя");
						ВспСтр.ТипУпаковки = ТекСтрока.Значение.Получить("ТипУпаковки");
						ВспСтр.SSCC = ТекСтрока.Значение.Получить("SSCC");
						ВспСтр.GLNМестаДоставки = ТекСтрока.Значение.Получить("GLNМестаДоставки");
						ВспСтр.ВесУпаковки = ТекСтрока.Значение.Получить("ВесУпаковки");
						ВспСтр.ДлинаУпаковки = ТекСтрока.Значение.Получить("ДлинаУпаковки");
						ВспСтр.ШиринаУпаковки = ТекСтрока.Значение.Получить("ШиринаУпаковки");
						ВспСтр.ВысотаУпаковки = ТекСтрока.Значение.Получить("ВысотаУпаковки");
					КонецЦикла;
					//Заполняем в табличной части таблицу с ссылками на упаковку
					СписокТоваров = ПараметрыДока.Получить("СписокСтрок");
					Для каждого ТекТовар из СписокТоваров Цикл
						СписокСсылок = ТекТовар.Значение.Получить("СписокСсылокНаУпаковку");
						Для каждого ТекСсылка из СписокСсылок Цикл
							ВспСтр = ЭтотОбъект.ТаблСсылокНаУпаковку.Добавить();
							НомерУпаковки = Число(ТекСсылка.Значение.Получить("СсылкаНаУпаковку"));
							ВспСтр.IDУпаковки = НомерУпаковки;
							ВспСтр.Количество = Число(ТекСсылка.Значение.Получить("КоличествоУпакованное"));
							ВспСтр.EAN = ТекТовар.Значение.Получить("EAN");
							ВспСтр.ОписаниеУпаковки = ТаблУпаковок.Найти(НомерУпаковки,"IDУпаковки").ОписаниеУпаковки;
							ВспСтр.УровеньУпаковки = ТаблУпаковок.Найти(НомерУпаковки,"IDУпаковки").УровеньУпаковки;
						КонецЦикла;
					КонецЦикла;
				КонецЕсли;
			Иначе
				//При КРОСС ДОКИНГЕ упаковок больше 1 шт.
				//X5 CrossDok  // НоваяСистема_Е2
				если не моЗначениеНеЗаполнено(СписокУпаковок)   тогда
					Если СписокУпаковок.Количество() > 1 Тогда
						КроссДокинг = Истина;
						//Заполняем в шапке таблицу с упаковками
						Для каждого ТекСтрока из СписокУпаковок Цикл
							Если ТекСтрока.Значение.Получить("IDУпаковки") = "1" Тогда	//ТП Макагонов 28.09.2009 - проверяем по ID, а не по порядку следования в XML
								Продолжить; //Пропускаем материнскую упаковку
							Иначе
								ВспСтр = ЭтаФорма.ТаблУпаковок.Добавить();
								НомерУпковки = Число(ТекСтрока.Значение.Получить("IDУпаковки"))-1;
								ВспСтр.ОписаниеУпаковки = "Паллета " + НомерУпковки;
								ВспСтр.IDУпаковки = НомерУпковки;
								ВспСтр.УровеньУпаковки = ТекСтрока.Значение.Получить("IDРодителя");
								ВспСтр.ТипУпаковки = ТекСтрока.Значение.Получить("ТипУпаковки");
								ВспСтр.SSCC = ТекСтрока.Значение.Получить("SSCC");
								ВспСтр.GLNМестаДоставки = ТекСтрока.Значение.Получить("GLNМестаДоставки");
								ВспСтр.ВесУпаковки = ТекСтрока.Значение.Получить("ВесУпаковки");
								ВспСтр.ДлинаУпаковки = ТекСтрока.Значение.Получить("ДлинаУпаковки");
								ВспСтр.ШиринаУпаковки = ТекСтрока.Значение.Получить("ШиринаУпаковки");
								ВспСтр.ВысотаУпаковки = ТекСтрока.Значение.Получить("ВысотаУпаковки");
							КонецЕсли;
						КонецЦикла;
						//Заполняем в табличной части таблицу с ссылками на упаковку
						СписокТоваров = ПараметрыДока.Получить("СписокСтрок");
						Для каждого ТекТовар из СписокТоваров Цикл
							СписокСсылок = ТекТовар.Значение.Получить("СписокСсылокНаУпаковку");
							Для каждого ТекСсылка из СписокСсылок Цикл
								ВспСтр = ЭтотОбъект.ТаблСсылокНаУпаковку.Добавить();
								НомерУпаковки = Число(ТекСсылка.Значение.Получить("СсылкаНаУпаковку"))-1;
								ВспСтр.IDУпаковки = НомерУпаковки;
								ВспСтр.Количество = Число(ТекСсылка.Значение.Получить("КоличествоУпакованное"));
								ВспСтр.EAN = ТекТовар.Значение.Получить("EAN");
								ВспСтр.ОписаниеУпаковки = ТаблУпаковок.Найти(НомерУпаковки,"IDУпаковки").ОписаниеУпаковки;
								ВспСтр.УровеньУпаковки = ТаблУпаковок.Найти(НомерУпаковки,"IDУпаковки").УровеньУпаковки;
							КонецЦикла;
						КонецЦикла;
					КонецЕсли;
				КонецЕсли;
				//X5 CrossDok  // НоваяСистема_Е2
			КонецЕсли;
		КонецЕсли;
		//------------------------------------------------------------------------------------------------------