Сохранение метаданных пакета при установке. #24

Author: nixel2007

src/Классы/УстановкаПакета.os

@@ -43,6 +43,7 @@
 		Если СтандартнаяОбработка Тогда
 			СгенерироватьСкриптыЗапускаПриложенийПриНеобходимости(ПутьУстановки.ПолноеИмя, Метаданные);
 		КонецЕсли;
+		СохранитьФайлМетаданныхПакета(ПутьУстановки.ПолноеИмя, ФайлМетаданных);
 
 		ЧтениеПакета.Закрыть();
 
@@ -389,6 +390,14 @@
 
 КонецФункции
 
+Процедура СохранитьФайлМетаданныхПакета(Знач КаталогУстановки, Знач ПутьКФайлуМетаданных)
+
+	ПутьСохранения = ОбъединитьПути(КаталогУстановки, Константы.ИмяФайлаМетаданныхПакета);
+	ДанныеФайла = Новый ДвоичныеДанные(ПутьКФайлуМетаданных);
+	ДанныеФайла.Записать(ПутьСохранения);
+
+КонецПроцедуры
+
 //////////////////////////////////////////////////////////////////////////////////
 //