ГрупповоеСвязывание 7.7

//Смирнов INTS-10829
Процедура ГрупповоеСвязывание()

	ТабличноеПолеЖурнала.ВыбратьСтроки();

	Пока ТабличноеПолеЖурнала.ПолучитьСтроку() = 1 Цикл

		Если (ТабличноеПолеЖурнала.Выбран <> "+") Тогда
			Продолжить;
		ИначеЕсли (ТабличноеПолеЖурнала.ТипДокумента = "Заказ")	Тогда
			ИскомыйДокумент = "Реализация";
		ИначеЕсли (ТабличноеПолеЖурнала.ТипДокумента = "Уведомление об отгрузке") Тогда
			ИскомыйДокумент = "DESADV";
		ИначеЕсли (ТабличноеПолеЖурнала.ТипДокумента = "Уведомление о приёмке") Тогда
			ИскомыйДокумент = "RECADV";
		КонецЕсли;

		ОбъектДокумент = ExCon.GetDocument(Строка(ТабличноеПолеЖурнала.DocId));
		Если ИскомыйДокумент = "Реализация" Тогда


			Если ПустоеЗначение(ОбъектДокумент.Info) = 0 Тогда

				Попытка
					Документ1С = ЗначениеИзСтрокиВнутр(ОбъектДокумент.Info);
				Исключение
					//
					Результат = "Не найден документ в 1С";
					ИсходныйДокумент = Врег(СокрЛП(ТабличноеПолеЖурнала.ТипДокумента)) + " №" + СокрЛП(ТабличноеПолеЖурнала.НомерДокумента) + " от " + СокрЛП(ТабличноеПолеЖурнала.ДатаДокумента);
					//НомДок = НомДок + 1;
					//ТабДокумент.ВывестиСекцию("Строка|Основная");
					//ТабДокумент.ПрисоединитьСекцию("Строка|ЕДИДок");
					//
					Продолжить;
				КонецПопытки;

				Если Документ1С.Выбран() = 0 Тогда
					Продолжить;
				КонецЕсли;
			Иначе
				//
				Результат = "Не создан документ в 1С";
				ИсходныйДокумент = Врег(СокрЛП(ТабличноеПолеЖурнала.ТипДокумента)) + " №" + СокрЛП(ТабличноеПолеЖурнала.НомерДокумента) + " от " + СокрЛП(ТабличноеПолеЖурнала.ДатаДокумента);
				//НомДок = НомДок + 1;
				//ТабДокумент.ВывестиСекцию("Строка|Основная");
				//ТабДокумент.ПрисоединитьСекцию("Строка|ЕДИДок");
				//
				Продолжить;
			КонецЕсли;

			СсылкаВСтроке = ЗначениеВСтрокуВнутр(Документ1С);
			DocId = ТабличноеПолеЖурнала.DocId;
			ПризнакДокуменита = "Реализация_1С";
			Если ОтсутствуетВИерархии(СсылкаВСтроке) = 1 Тогда
				ЗаписатьВТаблицуИерархии(СсылкаВСтроке, DocId, ПризнакДокуменита, 0);
			Иначе
				Попытка
					ExCon.DeleteDocumentFromTabDocRelations(СсылкаВСтроке, DocId);
				Исключение
				КонецПопытки;

				ЗаписатьВТаблицуИерархии(СсылкаВСтроке, DocId, ПризнакДокуменита, 0);
			КонецЕсли;
		ИначеЕсли (ИскомыйДокумент = "DESADV") ИЛИ (ИскомыйДокумент = "RECADV") Тогда
			Если ОтсутствуетВИерархии(ТабличноеПолеЖурнала.DocId) = 1 Тогда
				ОбъектДокументструктура = ОбъектДокумент;
				ОткрытьФормуМодально("Отчет", ОбъектДокументструктура, ПутьКОбработке + "\Parsing.ert");
				ДокументЗаказ = 0;
				Попытка
					ЗаказНом = ОбъектДокументструктура.получить("Шапка").Получить("НомерЗаказа");
					GLNАдресаДоставки	=	ОбъектДокументструктура.получить("Шапка").Получить("GLNАдресаДоставки");
					ДокументЗаказ = ExCon.GetDocumentByDocNumber(GLNАдресаДоставки, ЗаказНом);
				Исключение
				КонецПопытки;
				Если ДокументЗаказ <> 0 Тогда
						ТекстXML_родители = "<Document><ParentGUID>"+ДокументЗаказ.docid+"</ParentGUID>";
						//ТекстXML_родители = ТекстXML_родители +"<RelationGUID>"+МсПолученныхДок[0].docid+"</RelationGUID>";
						ТекстXML_родители = ТекстXML_родители+"</Document>";
						Попытка
							ExCon.DeleteDocumentFromTabDocRelations(ТабличноеПолеЖурнала.DocId);
						Исключение
						КонецПопытки;
						Если ИскомыйДокумент = "DESADV" Тогда
							РезОК = ExCon.AddDocumentToDocRelations(ТабличноеПолеЖурнала.DocId,"DESADV",ТекстXML_родители);
						ИначеЕсли ИскомыйДокумент = "RECADV" Тогда
						    РезОК = ExCon.AddDocumentToDocRelations(ТабличноеПолеЖурнала.DocId,"RECADV",ТекстXML_родители);
						КонецЕсли;
				КонецЕсли;
			КонецЕсли;
		КонецЕсли;

	КонецЦикла;


КонецПроцедуры