проверка на дубли(сверка по пометке на удаление заказа1С)

Связи = ОбъектДокумент.GetDocRelations();
	МассивRelDoc  = Новый Массив;
	Если Связи <> НеОпределено Тогда
		Для Каждого Связь из Связи Цикл
			СвязанныйДок = ExCon.GetDocument(Связь.RelDocID);
			Если СвязанныйДок.DocumentType = "DESADV" тогда
				RelDoc = СвязанныйДок;
			ИначеЕсли (СвязанныйДок.DocumentType = "ORDER") Или (СвязанныйДок.DocumentType = "ORDERS") Тогда
				RelDoc = СвязанныйДок;
			КонецЕсли;
			МассивRelDoc.Добавить(RelDoc);    //Смирнов проверка на дубли(сверка по пометке на удаление заказа1С)
		КонецЦикла;
	КонецЕсли;
	Если RelDoc<>Неопределено тогда
		 //Смирнов проверка на дубли(сверка по пометке на удаление заказа1С)
		Если МассивRelDoc.Количество()>1 Тогда
			Для Каждого RelDoc Из МассивRelDoc Цикл
				ИнфоСтрокой = RelDoc.Info;
				Если СокрЛП(ИнфоСтрокой)<>"" Тогда
					СтруктураИнфо = ЗначениеИзСтрокиВнутр(ИнфоСтрокой);
					Если ТипЗнч(СтруктураИнфо)=Тип("Структура") Тогда
						СсылкаНаДокСтрокой = "";
						СтруктураИнфо.Свойство("Документ1С", СсылкаНаДокСтрокой);
						Если СокрЛП(СсылкаНаДокСтрокой)<>"" Тогда
							Документ = ЗначениеИзСтрокиВнутр(СсылкаНаДокСтрокой);
							Если Документ.ПометкаУдаления <> Истина Тогда
								Документ1С = Документ;
								Прервать;
							КонецЕсли;
						КонецЕсли;
					КонецЕсли;
				КонецЕсли;
			КонецЦикла;
		Иначе
			ИнфоСтрокой = RelDoc.Info;
			Если СокрЛП(ИнфоСтрокой)<>"" Тогда
				СтруктураИнфо = ЗначениеИзСтрокиВнутр(ИнфоСтрокой);
				Если ТипЗнч(СтруктураИнфо)=Тип("Структура") Тогда
					СсылкаНаДокСтрокой = "";
					СтруктураИнфо.Свойство("Документ1С", СсылкаНаДокСтрокой);
					Если СокрЛП(СсылкаНаДокСтрокой)<>"" Тогда
						Документ1С = ЗначениеИзСтрокиВнутр(СсылкаНаДокСтрокой);
					КонецЕсли;
				КонецЕсли;
			КонецЕсли;
		КонецЕсли;
		 //Смирнов проверка на дубли(сверка по пометке на удаление заказа1С)