Виснет 1с. Загружена память SQL

&НаКлиенте
Процедура Загрузить(Команда)
ЗагруженыеЗаказы.Очистить();
	МассивФайлов=НайтиФайлы(Папка,"*.xml",Ложь);
	Если МассивФайлов.Количество()=0 Тогда
		Сообщить("Не найдены файлы заказов!");
		Возврат;	
	КонецЕсли; 
	СообщениИнфо.Очистить();
	Для каждого ФайлПуть Из МассивФайлов Цикл
		ДвоичныеДанныеЗаказХХХ=Новый ДвоичныеДанные(ФайлПуть.ПолноеИмя);
		УникальныйИдентификаторХранилища = Новый УникальныйИдентификатор;
		Адрес=ПоместитьВоВременноеХранилище(ДвоичныеДанныеЗаказХХХ,УникальныйИдентификатор);
		Результат=ЗагрузитьНаСервере(Адрес);
-------код оповещений в зависимости от результата--
КонецПроцедуры;

&НаСервере
Функция ЗагрузитьНаСервере(Адрес)
	ДвоичныеДанныеЗаказХХХ=ПолучитьИзВременногоХранилища(Адрес);
	НовыйПоток=Новый ПотокВПамяти;
	
	ЗаписьДанных=Новый ЗаписьДанных(НовыйПоток);
	ЗаписьДанных.Записать(ДвоичныеДанныеЗаказХХХ);
	ЗаписьДанных.Закрыть();
	
	НовыйПоток.Перейти(0, ПозицияВПотоке.Начало);
	
	ПрочитатьXML=Новый ЧтениеXML;
	ПрочитатьXML.ОткрытьПоток(НовыйПоток);
	
	СтруктураЗаказа=Новый Структура;
	
	ПрочитатьXML.Прочитать();
---заполнение структуры заказа из файла---
Возврат СозданиеЗаказаКлиента(СтруктураЗаказа); //обновление заказа если нужно сдесь
КонецФункции

&НаСервере
Функция СозданиеЗаказаКлиента(СтруктураЗаказа=Неопределено)
	Если НЕ ЗначениеЗаполнено(СтруктураЗаказа) Тогда
    	Возврат Неопределено;
	КонецЕсли; 
	
	
	
	//поиск заказа из отобранных за период
	
	НовыйЗаказКлиента=Неопределено;
	Для каждого ЗаказСсылка Из ЗаказыКлиентов Цикл 
		Если ЗаказСсылка.Пропустить Тогда
			Продолжить;
		КонецЕсли;
		Если ЗаказСсылка.ЗаказКлиента.НомерЗаказаХХХ=СтруктураЗаказа.НомерЗаказаХХХ Тогда
			НовыйЗаказКлиента=ЗаказСсылка.ЗаказКлиента.ПолучитьОбъект(); 
			Прервать;
		КонецЕсли; 
	КонецЦикла; 
	Если НовыйЗаказКлиента=Неопределено Тогда
		Возврат "Заказ ХХХ"+СтруктураЗаказа.НомерЗаказаХХХ+" не найден в 1с таблице(возможно пропущен)";
	КонецЕсли; 
	
	
	Для каждого ЭлементСтруктуры Из СтруктураЗаказа Цикл //не совсем оптимально, но отредактировал имеющийся свой код для других целей...
		Если ЭлементСтруктуры.Ключ="Таблица" Тогда
			ТаблицаТоваровСтруктура=ЭлементСтруктуры.Значение; //определение структуры товаров для дальнейшей обработки	
	КонецЦикла; 	


	СтруктураПересчетаСуммы = ОбработкаТабличнойЧастиКлиентСервер.ПолучитьСтруктуруПересчетаСуммыНДСВСтрокеТЧ(НовыйЗаказКлиента);
	СтруктураДействий = Новый Структура;
	СтуктураЗаполнения=ОбработкаТабличнойЧастиКлиентСервер.ПолучитьСтруктуруЗаполненияЦеныВСтрокеТЧ(НовыйЗаказКлиента);
	СтруктураДействий.Вставить("ЗаполнитьЦенуПродажи", СтуктураЗаполнения);
	СтруктураДействий.Вставить("ПересчитатьСумму");
	СтруктураДействий.Вставить("ЗаполнитьСтавкуНДС", Перечисления.ТипыНалогообложенияНДС.ПродажаОблагаетсяНДС);
	СтруктураДействий.Вставить("ПересчитатьСуммуНДС", СтруктураПересчетаСуммы);
	СтруктураДействий.Вставить("ПересчитатьСуммуСНДС", СтруктураПересчетаСуммы);

	НуждаетсяВОбновлении=Ложь;
	Для каждого НоменклатураХХХ Из ТаблицаТоваровСтруктура Цикл	
		НоменклатураИзХХХ=ОпределениеНоменклатуры(НоменклатураХХХ.Значение.ШтрихКод,НоменклатураХХХ.Значение.BuyerItemCode);
		МассивНайденныхСтрок=НовыйЗаказКлиента.Товары.НайтиСтроки(Новый Структура("Номенклатура",НоменклатураИзХХХ));
		Если НЕ МассивНайденныхСтрок.Количество()=0 Тогда
			НеобходимаСтрока=МассивНайденныхСтрок[0];
			Если НеобходимаСтрока.Количество=Число(НоменклатураХХХ.Значение.Количество) Тогда //если совпадает кол-во, то не обновляем
				Продолжить;
			КонецЕсли; 
			НеобходимаСтрока.Количество=Число(НоменклатураХХХ.Значение.Количество);
			НеобходимаСтрока.КоличествоУпаковок=Число(НоменклатураХХХ.Значение.Количество);
			ОбработкаТабличнойЧастиСервер.ОбработатьСтрокуТЧ(НеобходимаСтрока, СтруктураДействий, Неопределено);
			НуждаетсяВОбновлении=Истина;
		Иначе
			СтрокаЗаказа=НовыйЗаказКлиента.Товары.Добавить();
			СтрокаЗаказа.Номенклатура=ОпределениеНоменклатуры(НоменклатураХХХ.Значение.ШтрихКод,НоменклатураХХХ.Значение.BuyerItemCode);	
			СтрокаЗаказа.Количество=Число(НоменклатураХХХ.Значение.Количество);
			СтрокаЗаказа.КоличествоУпаковок=Число(НоменклатураХХХ.Значение.Количество);
			СтрокаЗаказа.ВидЦены=НовыйЗаказКлиента.Соглашение.ВидЦен;
			СтрокаЗаказа.Склад=НовыйЗаказКлиента.Соглашение.Склад;
			ОбработкаТабличнойЧастиСервер.ОбработатьСтрокуТЧ(СтрокаЗаказа, СтруктураДействий, Неопределено);
			НуждаетсяВОбновлении=Истина;
		КонецЕсли; 
	КонецЦикла; 
	Попытка
		Если НуждаетсяВОбновлении Тогда
			Если ОбновлятьДанные Тогда
				НовыйЗаказКлиента.Записать(РежимЗаписиДокумента.Проведение);
				Результат=НовыйЗаказКлиента.Ссылка;
			Иначе
				Результат="Заказ "+НовыйЗаказКлиента.Ссылка+" нуждается НО НЕ ОБНОВЛЕН";
			КонецЕсли; 		
		Иначе
			Результат="Заказ "+НовыйЗаказКлиента.Ссылка+" не нуждается в обновлении и не обновлен";		
		КонецЕсли; 		
	Исключение
	    Результат="Произошла ошибка при перепроведении документа согласно заказа из площадки документооборота номер "+Строка(СтруктураЗаказа.НомерЗаказаХХХ);
	КонецПопытки;
	Возврат Результат;
КонецФункции