ДанныеXML.Очистить();
	ДанныеXML.Колонки.Очистить();
	Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
	Если Диалог.Выбрать() Тогда
		ФайлXML = Диалог.ПолноеИмяФайла;
		ЧтениеXML = Новый ЧтениеXML;
		ЧтениеXML.ОткрытьФайл(ФайлXML);
		ЧитаемФайл = Ложь; ГрузимКолонки = Истина;
		ИндексДанных = ""; ТекущаяКолонка = "";
		СтруктураСтроки = Новый Структура;
		Пока ЧтениеXML.Прочитать() Цикл
			ОбработкаПрерыванияПользователя();
			Если ЧтениеXML.Имя = "xxx" Тогда //тут элемент контрагента указать
				Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
					ЧитаемФайл = Истина;
					Продолжить;
				ИначеЕсли ЧтениеXML.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
					Прервать;
				КонецЕсли;
			КонецЕсли;
			Если Не ЧитаемФайл Тогда Продолжить; КонецЕсли;
			Если ИндексДанных = "" Тогда
				ИндексДанных = ЧтениеXML.Имя;
				Продолжить;
			ИначеЕсли ЧтениеXML.Имя = ИндексДанных И ЧтениеXML.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
				ИндексДанных = "";
				НоваяСтрока = ДанныеXML.Добавить();
				Для Каждого Свойство Из СтруктураСтроки Цикл
					НоваяСтрока[Свойство.Ключ] = Свойство.Значение;
				КонецЦикла;
				СтруктураСтроки = Новый Структура;
				Продолжить;
			КонецЕсли;
			Если ГрузимКолонки Тогда
				Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
					Если ДанныеXML.Колонки.Найти(ЧтениеXML.Имя) <> Неопределено Тогда
						ГрузимКолонки = Ложь;
						ЭлементыФормы.ДанныеXML.СоздатьКолонки();
					Иначе
						ДанныеXML.Колонки.Добавить(ЧтениеXML.Имя);
					КонецЕсли;
				КонецЕсли;
			КонецЕсли;
			Если ТекущаяКолонка = "" Тогда
				ТекущаяКолонка = ЧтениеXML.Имя;
				Продолжить;
			ИначеЕсли ЧтениеXML.Имя = ТекущаяКолонка И ЧтениеXML.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
				ТекущаяКолонка = "";
				Продолжить;
			КонецЕсли;
			СтруктураСтроки.Вставить(ТекущаяКолонка, ЧтениеXML.Значение);
		КонецЦикла;
	КонецЕсли;