
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда

#Область ОписаниеПеременных

#КонецОбласти

#Область ПрограммныйИнтерфейс

#КонецОбласти

#Область ОбработчикиСобытий

Процедура ПередЗаписью(Отказ, Замещение)
	
	Если ОбменДанными.Загрузка Тогда
		Возврат;
	КонецЕсли;
	
	СписокКонфигураций = ВыгрузитьКолонку("Конфигурация");

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

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

#КонецОбласти

#Область СлужебныйПрограммныйИнтерфейс

// Код процедур и функций

#КонецОбласти

#Область СлужебныеПроцедурыИФункции

#КонецОбласти

#Область Инициализация

#КонецОбласти

#КонецЕсли
