3_1_5_110

SSL/src/CommonModules/ОбщегоНазначенияСлужебныйКлиент/Module.bsl

@@ -27,7 +27,7 @@
 // Конвертирует параметры запуска текущего сеанса в передаваемые параметры в скрипт
 // Например, на вход программа может быть запущена с ключом:
 // /C "ПараметрыЗапускаИзВнешнейОперации=/TestClient -TPort 48050 /C РежимОтладки;РежимОтладки"
-// Пробросит в скрипт следует "/TestClient -TPort 48050 /C РежимОтладки"
+// то в скрипт будет передана строка: "/TestClient -TPort 48050 /C РежимОтладки".
 //
 // Возвращаемое значение:
 //  Строка - значение параметра.
@@ -55,7 +55,7 @@
 //      * Кэшировать           - Булево
 //      * ПредложитьУстановить - Булево
 //      * ТекстПояснения       - Строка
-//      * ИдентификаторыСозданияОбъектов
+//      * ИдентификаторыСозданияОбъектов - Массив из Строка
 //
 Процедура ПодключитьКомпоненту(Контекст) Экспорт
 	
@@ -218,9 +218,10 @@
 //  Форма - ФормаКлиентскогоПриложения - форма, в которой выводятся значения расчетных показателей.
 //  ИмяТабличногоДокумента - Строка - имя реквизита формы типа ТабличныйДокумент, показатели которого рассчитываются.
 //  ТекущаяКоманда - Строка - имя команды расчета показателя, например, "РассчитатьСумму".
-//                      Определяет, какой показатель является основным.
+//                            Определяет, какой показатель является основным.
+//  МинимальноеКоличество - Число                          
 //
-Процедура РассчитатьПоказатели(Форма, ИмяТабличногоДокумента, ТекущаяКоманда = "") Экспорт 
+Процедура РассчитатьПоказатели(Форма, ИмяТабличногоДокумента, ТекущаяКоманда = "", МинимальноеКоличество = 0) Экспорт 
 	
 	Элементы = Форма.Элементы;
 	ТабличныйДокумент = Форма[ИмяТабличногоДокумента];
@@ -252,12 +253,17 @@
 	// Вывод основного показателя.
 	ТекущийПоказатель = КомандыПоказателей[ТекущаяКоманда];
 	
-	Форма.Показатель = Форма[ТекущийПоказатель];
-	Элементы.Показатель.ФорматРедактирования = Элементы[ТекущийПоказатель].ФорматРедактирования;
+	Если РасчетныеПоказатели.Количество >= МинимальноеКоличество  Тогда 
+		Форма.Показатель = Форма[ТекущийПоказатель];
+		Элементы.Показатель.ФорматРедактирования = Элементы[ТекущийПоказатель].ФорматРедактирования;
+	КонецЕсли;
 	
 	ИзменитьСвойствоЭлементаРасчетаПоказателей(
 		Элементы, "КомандыВидовПоказателей", "Картинка", БиблиотекаКартинок[ТекущийПоказатель]);
 	
+	ИзменитьСвойствоЭлементаРасчетаПоказателей(
+		Элементы, "ВыбратьПоказатель", "Картинка", БиблиотекаКартинок[ТекущийПоказатель]);
+	
 	// Кэширование состояния выбора показателей.
 	Форма.ОсновнойПоказатель = ТекущаяКоманда;
 	Форма.РазвернутьОбластьПоказателей = Элементы.РассчитатьВсеПоказатели.Пометка;
@@ -267,6 +273,7 @@
 // Управляет признаком видимости панели расчетных показателей.
 //
 // Параметры:
+//  ЭлементыФормы - ЭлементыФормы
 //  Видимость - Булево - признак включения / выключения видимости панели показателей.
 //              См. также Синтакс-помощник: ГруппаФормы.Видимость.
 //
@@ -403,7 +410,7 @@
 	КонецЕсли;
 	
 	ПоказатьВопрос(Оповещение, ТекстВопроса, РежимДиалогаВопрос.ДаНетОтмена, ,
-		КодВозвратаДиалога.Нет);
+		КодВозвратаДиалога.Да);
 	
 КонецПроцедуры
 
@@ -490,8 +497,6 @@
 
 #Область ВнешниеКомпоненты
 
-#Область ПодключениеВнешнейКомпоненты
-
 // Продолжение процедуры ПодключитьКомпоненту.
 Процедура ПодключитьКомпонентуПослеПопыткиПодключения(Подключено, Контекст) Экспорт 
 	
@@ -693,10 +698,6 @@
 	
 КонецФункции
 
-#КонецОбласти
-
-#Область УстановкаВнешнейКомпоненты
-
 // Продолжение процедуры УстановитьКомпоненту.
 Процедура УстановитьКомпонентуПослеОтветаНаВопросОбУстановке(Ответ, Контекст) Экспорт
 	
@@ -772,8 +773,6 @@
 	
 КонецФункции
 
-#КонецОбласти
-
 Функция МестоположениеКомпонентыКорректно(Местоположение)
 	
 	Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ВнешниеКомпоненты") Тогда
@@ -920,8 +919,16 @@
 			           |Код ошибки regsvr32: %1'"),
 			КодВозврата);
 			
-		Если КодВозврата = 5 Тогда
-			ТекстСообщения = ТекстСообщения + " " + НСтр("ru = 'Недостаточно прав доступа.'");
+		Если КодВозврата = 1 Тогда
+			ТекстСообщения = ТекстСообщения + " " + НСтр("ru = 'Ошибка разбора командной строки.'");
+		ИначеЕсли КодВозврата = 2 Тогда
+			ТекстСообщения = ТекстСообщения + " " + НСтр("ru = 'Ошибка инициализации COM библиотеки.'");
+		ИначеЕсли КодВозврата = 3 Тогда
+			ТекстСообщения = ТекстСообщения + " " + НСтр("ru = 'Ошибка загрузки модуля из COM библиотеки.'");
+		ИначеЕсли КодВозврата = 4 Тогда
+			ТекстСообщения = ТекстСообщения + " " + НСтр("ru = 'Ошибка получения адреса функции или переменной из СOM-библиотеки.'");
+		ИначеЕсли КодВозврата = 5 Тогда
+			ТекстСообщения = ТекстСообщения + " " + НСтр("ru = 'Ошибка исполнения функции регистрации.'");
 		Иначе 
 			ТекстСообщения = ТекстСообщения + Символы.ПС + ОписаниеОшибки;
 		КонецЕсли;
@@ -966,6 +973,10 @@
 КонецПроцедуры
 
 // Продолжение процедуры ОбщегоНазначенияКлиент.ЗарегистрироватьCOMСоединитель.
+//
+// Возвращаемое значение:
+//   Булево
+//
 Функция ЗарегистрироватьCOMСоединительДоступнаРегистрация() Экспорт
 	
 #Если ВебКлиент Или МобильныйКлиент Тогда
@@ -1071,9 +1082,29 @@
 
 #КонецОбласти
 
-#Область УстаревшиеПроцедурыИФункции
+#Область ЗапускВнешнихПриложений
 
-#Область РасширениеДляРаботыСФайлами
+Функция БезопаснаяСтрокаКоманды(КомандаЗапуска) Экспорт
+	
+	СредаИсполнения = "";
+	
+	Если ОбщегоНазначенияКлиент.ЭтоWindowsКлиент() Тогда
+		СредаИсполнения = "Windows";
+	ИначеЕсли ОбщегоНазначенияКлиент.ЭтоLinuxКлиент() Тогда
+		СредаИсполнения = "Linux";
+	ИначеЕсли ОбщегоНазначенияКлиент.ЭтоMacOSКлиент() Тогда
+		СредаИсполнения = "MacOS";
+	КонецЕсли;
+	
+	Результат = ОбщегоНазначенияСлужебныйКлиентСервер.БезопаснаяСтрокаКоманды(КомандаЗапуска, СредаИсполнения);
+	
+	Возврат Результат;
+	
+КонецФункции
+
+#КонецОбласти
+
+#Область УстаревшиеПроцедурыИФункции
 
 // Устарела. Используется в ОбщегоНазначенияКлиент.ПроверитьРасширениеРаботыСФайламиПодключено.
 Процедура ПроверитьРасширениеРаботыСФайламиПодключеноЗавершение(РасширениеПодключено, ДополнительныеПараметры) Экспорт
@@ -1093,6 +1124,4 @@
 
 #КонецОбласти
 
-#КонецОбласти
-
 #КонецОбласти