Многопоточная запись и проведение документов в пустуой базе

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

Процедура СоздатьВводОстатков(Знач Товары, Знач Склады, Знач Организация, Знач ДатаЗаписиОстатков, Знач АдресРезультата) Экспорт
	
	Массив = Новый Массив;
	
	Генератор = Новый ГенераторСлучайныхЧисел;
	ТипыОстатковКупленныеТовары = Перечисления.ТипыОстатков.КупленныеТовары;
	
	Запрос = Новый Запрос;
	Запрос.УстановитьПараметр("Товары", Товары);
	
	Запрос.Текст = "ВЫБРАТЬ
	|	ЦеныПоставщиковСрезПоследних.Номенклатура КАК Номенклатура,
	|	ЦеныПоставщиковСрезПоследних.Цена КАК Цена
	|ИЗ
	|	РегистрСведений.ЦеныПоставщиков.СрезПоследних(, Номенклатура В (&Товары)) КАК ЦеныПоставщиковСрезПоследних";
	
	Выборка = Запрос.Выполнить().Выбрать();
	
	НачатьТранзакцию(РежимУправленияБлокировкойДанных.Управляемый);
	
	Попытка

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