refactor: Номер версии и имя приложения получаются из packagedef.

Author: arkuznetsov

src/core/Модули/ПараметрыСистемы.os

@@ -8,6 +8,7 @@
 // ----------------------------------------------------------
 
 #Использовать logos
+#Использовать opm
 #Использовать tempfiles
 #Использовать fs
 
@@ -16,6 +17,8 @@
 Перем ЭтоПриложениеEXE;         // Булево                 - Истина - выполняется скомпилированный скрипт
 Перем ЭтоWindows;               // Булево                 - Истина - скрипт выполняется в среде Windows
 
+#Область СлужебныйПрограммныйИнтерфейс
+
 // Функция - проверяет, что скрипт выполняется в среде Windows
 //
 // Возвращаемое значение:
@@ -126,7 +129,7 @@
 //
 Функция ИмяПриложения() Экспорт
 
-	Возврат "cpdb";
+	Возврат ОписаниеПакета().Имя;
 
 КонецФункции // ИмяПриложения()
 
@@ -136,7 +139,37 @@
 //  Строка      - версия приложения
 //
 Функция Версия() Экспорт
-	
-	Возврат "1.4.0";
-	
+
+	Возврат ОписаниеПакета().Версия;
+
 КонецФункции // Версия()
+
+// Функция - возвращает описание пакета
+//
+// Возвращаемое значение:
+//  Структура      - описание пакета
+//
+Функция ОписаниеПакета() Экспорт
+	
+	КорневойКаталог = ОбъединитьПути(ТекущийСценарий().Каталог, "..", "..", "..");
+	ФайлМанифеста = ОбъединитьПути(КорневойКаталог, "packagedef");
+	ФайлМанифеста = Новый Файл(ФайлМанифеста);
+
+	ОписаниеПакета = Новый ОписаниеПакета();
+
+	ВнешнийКонтекст = Новый Структура("Описание", ОписаниеПакета);
+
+	ОбработчикСобытий = ЗагрузитьСценарий(ФайлМанифеста.ПолноеИмя, ВнешнийКонтекст);
+
+	Свойства = ОписаниеПакета.Свойства();
+	Свойства.Вставить("Классы", ОписаниеПакета.Классы());
+	Свойства.Вставить("Модули", ОписаниеПакета.Модули());
+	Свойства.Вставить("Зависимости", ОписаниеПакета.Зависимости());
+	Свойства.Вставить("ВключаемыеФайлы", ОписаниеПакета.ВключаемыеФайлы());
+	Свойства.Вставить("ИсполняемыеФайлы", ОписаниеПакета.ИсполняемыеФайлы());
+
+	Возврат Свойства;
+
+КонецФункции // ОписаниеПакета()
+
+#КонецОбласти // СлужебныйПрограммныйИнтерфейс