При нажатии на кнопку нужно создавать документы на выбранную дату

&НаСервере
Процедура СоздатьДокументыБУНаСервере()
	
	Для Каждого СтрокаДерева Из ДокументыДерево.ПолучитьЭлементы() Цикл
		
	
		НачатьТранзакцию(РежимУправленияБлокировкойДанных.Управляемый);
		
		ДокументУУ = СтрокаДерева.ДокументУУ;
		
		Блокировка = Новый БлокировкаДанных;
		ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.стр_СвязиДокументовУУ_БУ");
		ЭлементБлокировки.УстановитьЗначение("ДокументУУ", ДокументУУ);
		ЭлементБлокировки.Режим = РежимБлокировкиДанных.Исключительный;
		Блокировка.Заблокировать(); 
		
		МенеджерЗаписи = РегистрыСведений.стр_СвязиДокументовУУ_БУ.СоздатьМенеджерЗаписи();
		МенеджерЗаписи.ДокументУУ = ДокументУУ;
		
		МенеджерЗаписи.ДокументБУ = СтрокаДерева.ДокументБУ;
		
		МенеджерЗаписи.Прочитать();
		Если МенеджерЗаписи.Выбран() Тогда
			
			ЗаполнитьЗначенияСвойств(СтрокаДерева, МенеджерЗаписи);	
			
		КонецЕсли;
		
		
		Если (ЗначениеЗаполнено(СтрокаДерева.ДокументБУ) ИЛИ ЗначениеЗаполнено(СтрокаДерева.ДокументБУДав)) И НЕ Объект.ПерезаполнятьСозданные Тогда
			ОтменитьТранзакцию();
			Продолжить;
		КонецЕсли;
		
		Если ((ЗначениеЗаполнено(СтрокаДерева.ДокументБУ) И СтрокаДерева.ДокументБУ.Проведен) ИЛИ
			(ЗначениеЗаполнено(СтрокаДерева.ДокументБУДав) И СтрокаДерева.ДокументБУДав.Проведен))
			И НЕ Объект.ПерезаполнятьПроведенные Тогда
			ОтменитьТранзакцию();
			Продолжить;
		КонецЕсли;
		
		
		МетаданныеДокумента = СтрокаДерева.ДокументУУ.Метаданные();
		
		ОшибкаОтображения = "";
		
		
		ПараметрыДляОтображения = стр_ОМТС_Сервер.ФБД_ПараметрыДляОтображенияВБухДокумент();
		
		ПараметрыДляОтображения.Вставить("Документ", СтрокаДерева.ДокументУУ);
		ПараметрыДляОтображения.Вставить("БухДокументСсылка", СтрокаДерева.ДокументБУ);
		ПараметрыДляОтображения.Вставить("БухДокументСсылкаДав", СтрокаДерева.ДокументБУДав);
		ПараметрыДляОтображения.Вставить("СПартиями", Объект.СписаниеПоДокументамПартий);
		
		ДокументСоздан = Документы[МетаданныеДокумента.Имя].ОтобразитьВБухгалтерскийДокумент(ПараметрыДляОтображения, ОшибкаОтображения);
		
		СтрокаДерева.ДокументБУ = ПараметрыДляОтображения.БухДокументСсылка;
		СтрокаДерева.ДокументБУДав = ПараметрыДляОтображения.БухДокументСсылкаДав;
		
		
		
		       
		Если ДокументСоздан Тогда
			
			ЗафиксироватьТранзакцию();
			
		Иначе
			
			ОтменитьТранзакцию();
			
		КонецЕсли;
		

		СтрокаДерева.БУПроведен = ?(Не СтрокаДерева.ДокументБУ = Неопределено, 
		стр_ОМТС_Сервер.ПолучитьЗначениеРеквизитаОбъектаПоСсылке(СтрокаДерева.ДокументБУ, "Проведен"), Ложь);
		СтрокаДерева.БУДавПроведен = ?(Не СтрокаДерева.ДокументБУДав = Неопределено, 
		стр_ОМТС_Сервер.ПолучитьЗначениеРеквизитаОбъектаПоСсылке(СтрокаДерева.ДокументБУДав, "Проведен"), Ложь);
		
		НовСтр = ТаблоСообщений.Добавить();
		НовСтр.Ошибка = Не ДокументСоздан;
		НовСтр.Текст = ОшибкаОтображения;	
		
		
	КонецЦикла;
	
	Если ТаблоСообщений.Количество() Тогда
		Элементы.ТаблоСообщений.Видимость = Истина;
	КонецЕсли;
	
КонецПроцедуры