&НаСервере
Процедура ПрочитатьXMLФайлНаСервере(Файлик)
ПутьКФайлу	= файлик[0];

ЧтениеXML = Новый ЧтениеXML;
ЧтениеXML.ОткрытьФайл(ПутьКФайлу);

СЗ = Новый СписокЗначений;

Пока ЧтениеXML.Прочитать() Цикл
	Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
		ЧтениеXML.ПрочитатьАтрибут();
		Атрибут = ЧтениеXML.Значение;		
	КонецЕсли;
	
	Если ЧтениеXML.ТипУзла = ТипУзлаXML.Текст Тогда
	
		Если Атрибут = "Cena" Тогда
			СЗ.Добавить(ЧтениеXML.Значение);			
		КонецЕсли;
		Если Атрибут = "Kolvo" Тогда
			СЗ.Добавить(ЧтениеXML.Значение);			
		КонецЕсли;
		Если Атрибут = "Atribut" Тогда
			СЗ.Добавить(ЧтениеXML.Значение);			
		КонецЕсли;
		Если Атрибут = "UNN" Тогда
			СЗ.Добавить(ЧтениеXML.Значение);			
		КонецЕсли;

	КонецЕсли;
	
	Если ЧтениеXML.ТипУзла = ТипУзлаXML.КонецЭлемента and Атрибут = "End" Then
		СоздатьДокумент(СЗ);
		СЗ.Очистить();
		
	КонецЕсли;
КонецЦикла;
КонецПроцедуры

Процедура СоздатьДокумент(СЗ)
	
	Если СЗ.Количество() >0 Тогда

		КонтрагентШПК = Справочники.Контрагенты.НайтиПоРеквизиту("ИНН",СЗ[3].Значение); 
		Если КонтрагентШПК <> Неопределено ТОгда
			Объект.Контрагент = КонтрагентШПК;
		Иначе
			Объект.Контрагент = ПредопределенноеЗначение("Справочник.Номенклатура.ПустаяСсылка");
			Сообщить("!!!Не найдена организация с названием: ");// + СЗ[4].Значение+ "!!!");
		КонецЕсли;
		
		СкладУч = Справочники.Склады.НайтиПоНаименованию("Основной склад", Истина);
		Объект.Склад = СкладУч;
		НоваяСтрокаТЧ = ЭтотОбъект.Объект.Товары.Добавить();
		НоваяСтрокаТЧ.СтавкаНДС = ПредопределенноеЗначение("Перечисление.СтавкиНДС.НДС18");
			НоменклатураАР = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул",СЗ[2].Значение);
		Если НоменклатураАР <> Неопределено Тогда
			НоваяСтрокаТЧ.Номенклатура = НоменклатураАР;
		Иначе
			НоваяСтрокаТЧ.Номенклатура = ПредопределенноеЗначение("Справочник.Номенклатура.ПустаяСсылка");
			Сообщить("Не найдена номенклатура с названием: "); //+ СЗ[0].Значение+ " !!! ");
		КонецЕсли;
		НоваяСтрокаТЧ.Цена = Число(СЗ[0].Значение);
		НоваяСтрокаТЧ.Количество = Число(СЗ[1].Значение);
		НоваяСтрокаТЧ.Сумма = Число((НоваяСтрокаТЧ.Цена)*(НоваяСтрокаТЧ.Количество));
		НоваяСтрокаТЧ.СчетУчета = ПредопределенноеЗначение("ПланСчетов.Хозрасчетный.ТоварыНаСкладах");
		НоваяСтрокаТЧ.СчетДоходов = ПредопределенноеЗначение("ПланСчетов.Хозрасчетный.ВыручкаНеЕНВД");
		НоваяСтрокаТЧ.СчетРасходов = ПредопределенноеЗначение("ПланСчетов.Хозрасчетный.СебестоимостьПродажНеЕНВД");
        НоваяСтрокаТЧ.СчетУчетаНДСПоРеализации = ПредопределенноеЗначение("ПланСчетов.Хозрасчетный.Продажи_НДС");
		НомГруппа = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Основная номенклатурная группа", Истина);
		НоваяСтрокаТЧ.Субконто = НомГруппа;
			    
	КонецЕсли;

	

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


&НаКлиенте
Процедура Импорт(Команда)
	
Режим = РежимДиалогаВыбораФайла.Открытие;	
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
Фильтр = "xml|*.xml";
ДиалогОткрытияФайла.Фильтр = Фильтр;
Если ДиалогОткрытияФайла.Выбрать() Тогда
	Файлик = ДиалогОткрытияФайла.ВыбранныеФайлы;
	ПрочитатьXMLФайлНаСервере(Файлик);	
КонецЕсли;

ОбновитьИнтерфейс();

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