Пример переноса данных из 1С 7.7 в 8.1 посредством XML файла

    xmldoc = CreateObject("Msxml2.DOMDocument");
xmlDoc.loadXML("<root/>");
nodeRoot = xmlDoc.documentElement;
расходы = xmlDoc.createElement("СправочникРасходы");
Спр = Создатьобъект("Справочник.Расходы");
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 цикл
	расход = xmlDoc.createElement("Расход");
	расход.setAttribute("Код",Спр.Код);
	расход.setAttribute("Наименование",Спр.Наименование);
	расход.setAttribute("Родитель",Строка(Спр.Родитель));
	расход.setAttribute("Цена",Строка(Спр.Цена.Получить(ТекущаяДата())));
	расход.setAttribute("Количество",Строка(Спр.Количество));
	расход.setAttribute("ЭтоГруппа",Строка(Спр.ЭтоГруппа()));
	расходы.appendChild(расход);
КонецЦикла;
nodeRoot.appendChild(расходы);
ДвижениеСчетов = xmlDoc.createElement("ДвижениеСчетов");
рег = СоздатьОбъект("Регистр.Счет");
рег.ВыбратьДвижения();
Пока Рег.ПолучитьДвижение()=1 цикл
	Движение = xmlDoc.createElement("Движение");	
	Движение.setAttribute("Приход",Строка(Рег.Приход));
	Движение.setAttribute("Дата",Строка(Рег.ТекущийДокумент().ДатаДок));
	Движение.setAttribute("Описатель",Строка(Рег.Описатель));
	Движение.setAttribute("СтатьяРасходов",Строка(Рег.СтатьяРасходов));
	Движение.setAttribute("СтатьяПоступлений",Строка(Рег.СтатьяПоступлений));
	Движение.setAttribute("Кто",Строка(Рег.Кто));
	Движение.setAttribute("Кому",Строка(Рег.Кому));
	Движение.setAttribute("Остаток",Строка(Рег.Остаток));
	Движение.setAttribute("Количество",Строка(Рег.Количество));
	
	ДвижениеСчетов.appendChild(Движение);
КонецЦикла;		
nodeRoot.appendChild(ДвижениеСчетов);
  	
xmlDoc.save("C:\budjet.xml"); 

 
Функция Кошель(Кош)
    стр = ТП2.Найти(Кош,"Описатель");
	Возврат Стр.Счет;
КонецФункции
Функция Вал(Кош)
    стр = ТП2.Найти(Кош,"Описатель");
	Возврат Стр.Валюта;
КонецФункции
Функция Дата1С(дат)
	Возврат "20"+сред(дат,7,2)+сред(дат,4,2)+лев(дат,2);	
КонецФункции

Процедура Загрузка(Элемент)
    xmlDoc = Новый COMОбъект("MSXML2.DOMDocument");
	xmlDoc.load("C:\budjet.xml");
	nodeRoot = xmlDoc.documentElement;

	Для каждого nod из nodeRoot.childNodes цикл
		Если nod.nodeName = "СправочникРасходы" тогда 
			Сообщить("нашли СправочникРасходы");
			ТЗ = Новый ТаблицаЗначений;
			ТЗ.Колонки.Добавить("Код");
			ТЗ.Колонки.Добавить("Наименование");
			ТЗ.Колонки.Добавить("Родитель");
			ТЗ.Колонки.Добавить("Цена");
			ТЗ.Колонки.Добавить("Количество");
			ТЗ.Колонки.Добавить("ЭтоГруппа");
			Для Каждого Расход из nod.childNodes Цикл
				Строка = ТЗ.Добавить();
				Строка.Код = Расход.getAttribute("Код");
				Строка.Наименование = Расход.getAttribute("Наименование");
				Строка.Родитель = Расход.getAttribute("Родитель");
				Строка.Цена = Число(Расход.getAttribute("Цена"));
				Строка.Количество = Число(Расход.getAttribute("Количество"));
				Строка.ЭтоГруппа = ?(Расход.getAttribute("ЭтоГруппа")="1",True,Ложь);
			КонецЦикла;		
			//ТЗ.ВыбратьСтроку();

			Для Каждого Стр из ТЗ Цикл
				Родитель = Справочники.СтатьиЗатрат.НайтиПоНаименованию(Стр.Родитель,истина);
				Справ = Справочники.СтатьиЗатрат.НайтиПоНаименованию(Стр.Наименование,истина);
				Если Справ = Справочники.СтатьиЗатрат.ПустаяСсылка() тогда
					Если Стр.ЭтоГруппа тогда
						Справ = Справочники.СтатьиЗатрат.СоздатьГруппу();
						Справ.Код = Стр.Код;
						Справ.Наименование = Стр.Наименование;
						Справ.Родитель = Родитель;
						Справ.Записать();
					Иначе
						Справ = Справочники.СтатьиЗатрат.СоздатьЭлемент();
						Справ.Код = Стр.Код;
						Справ.Наименование = Стр.Наименование;
						Справ.Родитель = Родитель;
						Справ.Цена = Стр.Цена;
						Справ.Количество = Стр.Количество;
						Справ.Записать();
					КонецЕсли;
				Иначе
				КонецЕсли;
			КонецЦикла;
		ИначеЕсли nod.nodeName = "ДвижениеСчетов" тогда
			Сообщить("нашли движения счетов");
			ТЗ = Новый ТаблицаЗначений;
			ТЗ.Колонки.Добавить("Приход");
			ТЗ.Колонки.Добавить("Дата");
			ТЗ.Колонки.Добавить("Описатель");
			ТЗ.Колонки.Добавить("Статья");
			ТЗ.Колонки.Добавить("Цена");
			ТЗ.Колонки.Добавить("Количество");
			Для каждого движ из nod.childNodes цикл
                Строка = ТЗ.Добавить();
				Строка.Приход = ?(движ.getAttribute("Приход")="1",True,Ложь);
				Строка.Дата = Дата(Дата1С(движ.getAttribute("Дата")));
				Строка.Описатель = движ.getAttribute("Описатель");
				Строка.Статья = Справочники.СтатьиЗатрат.НайтиПоНаименованию(движ.getAttribute(?(Строка.Приход,"СтатьяПоступлений","СтатьяРасходов")),истина);
				Строка.Цена = Число(движ.getAttribute("Остаток"));
				Строка.Количество = Число(движ.getAttribute("Количество"));
			КонецЦикла;
			ТЗ.ВыбратьСтроку();
        	Доки = Новый ТаблицаЗначений;
			Доки.Колонки.Добавить("Док");
			Доки.Колонки.Добавить("Дата");
			Доки.Колонки.Добавить("КошелекС");
			Доки.Колонки.Добавить("КошелекНа");
			Доки.Колонки.Добавить("Статья");
			Доки.Колонки.Добавить("ВалютаС");
			Доки.Колонки.Добавить("ВалютаНа");
			Доки.Колонки.Добавить("ЦенаС");
			Доки.Колонки.Добавить("ЦенаНа");
			Доки.Колонки.Добавить("Количество");
			УжеЕстьДок=Ложь;
			док=0;
			Для Каждого Стр Из ТЗ цикл
				Если Стр.Приход Тогда
					Если УжеЕстьДок тогда
						Док.КошелекНа = Кошель(Стр.Описатель);
						Док.ВалютаНа = Вал(Стр.Описатель);
						Док.ЦенаНа = Стр.Цена;
						Док.Количество = Стр.Количество;
						Док.Статья = Стр.Статья;         
						УжеЕстьДок=Ложь;
					Иначе
						Док = Доки.Добавить();
						Док.КошелекНа = Кошель(Стр.Описатель);
						Док.ВалютаНа = Вал(Стр.Описатель);
						Док.ЦенаНа = Стр.Цена;
						Док.Количество = Стр.Количество;
						Док.Статья = Стр.Статья; 
						Док.Док = "ПоступлениеСредств";  
					КонецЕсли;					
				Иначе
					Док = Доки.Добавить();
					Док.КошелекС = Кошель(Стр.Описатель);
					Док.ВалютаС = Вал(Стр.Описатель);
					Док.ЦенаС = Стр.Цена;
					Док.Количество = Стр.Количество;
					Док.Статья = Стр.Статья; 
					Если СокрЛП(Стр.Статья.Наименование)="Обмен валюты" тогда
						Док.Док = "ОбменВалюты";
						УжеЕстьДок=истина;
					ИначеЕсли СокрЛП(Стр.Статья.Наименование)="Перевод средств" тогда
						Док.Док = "ПереводСредств";
						УжеЕстьДок=истина;
					Иначе
						Док.Док = "РасходСредств";  
						УжеЕстьДок=Ложь;
					КонецЕсли;	            
				КонецЕсли; 
				Док.Дата = Стр.Дата;
			КонецЦикла;	
			Доки.ВыбратьСтроку();
		КонецЕсли;	  
	КонецЦикла;

	Для Каждого Док из Доки Цикл
		Если Док.Док = "ПоступлениеСредств" тогда
        	Докум = Документы.ПоступлениеСредств.СоздатьДокумент();
			Докум.Дата = Док.Дата;
			Докум.Кошелек = Док.КошелекНа;
			Докум.Валюта = Док.ВалютаНа;
			Докум.Сумма = Док.ЦенаНа;
			Докум.Статья = Док.Статья;
			Докум.Записать(РежимЗаписиДокумента.Проведение);
		ИначеЕсли Док.Док = "ПереводСредств" тогда
        	Докум = Документы.ПеремещениеСредств.СоздатьДокумент();
			Докум.Дата = Док.Дата;
			Докум.КошелекКуда = Док.КошелекНа;
			Докум.КошелекОтКуда = Док.КошелекС;
			Докум.Валюта = Док.ВалютаНа;
			Докум.Сумма = Док.ЦенаНа;
			Докум.Записать(РежимЗаписиДокумента.Проведение);
        ИначеЕсли Док.Док = "ОбменВалюты" тогда
        	Докум = Документы.ПеремещениеСредств.СоздатьДокумент();
			Докум.Дата = Док.Дата;
			Докум.КошелекКуда = Док.КошелекНа;
			Докум.КошелекОтКуда = Док.КошелекС;
			Докум.Валюта = Док.ВалютаС;
			Докум.Сумма = Док.ЦенаС;
			Докум.Записать(РежимЗаписиДокумента.Проведение);

			Докум = Документы.ОбменВалюты.СоздатьДокумент();
			Докум.Дата = Док.Дата;
			Докум.Кошелек = Док.КошелекНа;
			Докум.ВалютаС = Док.ВалютаС;
			Докум.ВалютаНа = Док.ВалютаНа;
			Докум.СуммаС = Док.ЦенаС;
			Докум.СуммаНа = Док.ЦенаНа;
			Докум.Курс = Докум.СуммаС / Докум.СуммаНа;
			Докум.Переключатель = 1;
			Докум.Записать(РежимЗаписиДокумента.Проведение);
		Иначе
            Докум = Документы.РасходСредств.СоздатьДокумент();
			Докум.Дата = Док.Дата;
			Докум.Кошелек = Док.КошелекС;
			Докум.Валюта = Док.ВалютаС;
            тч = Докум.Затраты.Добавить();
			тч.Сумма = Док.ЦенаС;
			тч.Статья = Док.Статья;
			тч.Цена = Док.ЦенаС;
			тч.Количество = Док.Количество;
			Докум.Записать(РежимЗаписиДокумента.Проведение);
        КонецЕсли;
	КонецЦикла;
КонецПроцедуры

	
Процедура ЗаполнитьТЗДанными(Элемент)
    xmlDoc = Новый COMОбъект("MSXML2.DOMDocument");
	xmlDoc.load("C:\budjet.xml");
	nodeRoot = xmlDoc.documentElement;
	Для каждого nod из nodeRoot.childNodes цикл
		Если nod.nodeName = "ДвижениеСчетов" тогда
			Сообщить("нашли движения счетов");
            ТП1 = Новый ТаблицаЗначений;
			ТП1.Колонки.Добавить("Описатель");
			Типы = Новый Массив(1);	Типы[0] = Тип("СправочникСсылка.Кошельки");
			Тип = Новый ОписаниеТипов(Типы);
			ТП1.Колонки.Добавить("Счет",Тип);
			Типы[0] = Тип("СправочникСсылка.Валюты");
			Тип = Новый ОписаниеТипов(Типы);
			ТП1.Колонки.Добавить("Валюта",Тип);
			Для каждого движ из nod.childNodes цикл
				Описатель = движ.getAttribute("Описатель");
				если ТП1.Найти(Описатель,"Описатель") = Неопределено тогда
					стр = ТП1.Добавить();
					Стр.Описатель = Описатель;
				КонецЕсли;	  			
			КонецЦикла;
			ТП2=ТП1;//ВыбратьСтроку();
		КонецЕсли;	  
	КонецЦикла;
КонецПроцедуры