3_1_10_344

This commit is contained in:
Компания 1С committed 2024-10-18 10:25:00 +03:00
1 parent 747b421eee
commit c6a33e6d6b
238 files changed
+3080 -2239

No files matched your search

@@ -340,12 +340,10 @@
ТаблицаОперандов = МодульКонструкторФормул.ТаблицаПолей(); ТаблицаОперандов = МодульКонструкторФормул.ТаблицаПолей();
Для Каждого ОписаниеВалюты Из Справочники.Валюты.КодыВалют() Цикл Для Каждого ОписаниеВалюты Из Справочники.Валюты.КодыВалют() Цикл
Если ЗначениеЗаполнено(СтрСоединить(СтрРазделить(ОписаниеВалюты.СимвольныйКод, "0123456789", Ложь), "")) Тогда Операнд = ТаблицаОперандов.Добавить();
Операнд = ТаблицаОперандов.Добавить(); Операнд.Идентификатор = ОписаниеВалюты.СимвольныйКод;
Операнд.Идентификатор = ОписаниеВалюты.СимвольныйКод; Операнд.Представление = ОписаниеВалюты.СимвольныйКод;
Операнд.Представление = ОписаниеВалюты.СимвольныйКод; Операнд.ТипЗначения = Новый ОписаниеТипов("Число");
Операнд.ТипЗначения = Новый ОписаниеТипов("Число");
КонецЕсли;
КонецЦикла; КонецЦикла;
Возврат ТаблицаОперандов; Возврат ТаблицаОперандов;
@@ -53,7 +53,105 @@
| И Валюты.СпособУстановкиКурса <> ЗНАЧЕНИЕ(Перечисление.СпособыУстановкиКурсаВалюты.РасчетПоФормуле)"; | И Валюты.СпособУстановкиКурса <> ЗНАЧЕНИЕ(Перечисление.СпособыУстановкиКурсаВалюты.РасчетПоФормуле)";
Запрос = Новый Запрос(ТекстЗапроса); Запрос = Новый Запрос(ТекстЗапроса);
Возврат ОбщегоНазначения.ТаблицаЗначенийВМассив(Запрос.Выполнить().Выгрузить());
Валюты = Запрос.Выполнить().Выгрузить();
КопируемыеСтроки = Новый Массив;
Для Каждого Валюта Из Валюты Цикл
// Валюта участвует в формуле, если символьный код содержит буквы.
Если ЗначениеЗаполнено(СтрСоединить(СтрРазделить(Валюта.СимвольныйКод, "0123456789", Ложь), "")) Тогда
КопируемыеСтроки.Добавить(Валюта);
КонецЕсли;
КонецЦикла;
Результат = Валюты.Скопировать(КопируемыеСтроки);
Результат.Индексы.Добавить("Ссылка");
Возврат Результат;
КонецФункции
Функция КурсВалютыПоФормуле(Формула, Период, КодыВалют = Неопределено) Экспорт
Если КодыВалют = Неопределено Тогда
КодыВалют = Справочники.Валюты.КодыВалют();
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| Валюты.Ссылка КАК Ссылка,
| Валюты.СимвольныйКод КАК СимвольныйКод
|ПОМЕСТИТЬ Валюты
|ИЗ
| &КодыВалют КАК Валюты
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| Валюты.СимвольныйКод КАК СимвольныйКод,
| ЕСТЬNULL(КурсыВалютСрезПоследних.Курс, 1) / ЕСТЬNULL(КурсыВалютСрезПоследних.Кратность, 1) КАК Курс
|ИЗ
| Валюты КАК Валюты
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КурсыВалют.СрезПоследних(&Период, ) КАК КурсыВалютСрезПоследних
| ПО (КурсыВалютСрезПоследних.Валюта = Валюты.Ссылка)";
Запрос = Новый Запрос(ТекстЗапроса);
Запрос.УстановитьПараметр("КодыВалют", КодыВалют);
Запрос.УстановитьПараметр("Период", Период);
Выражение = ФорматироватьЧисла(Формула);
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Выражение = СтрЗаменить(Выражение, Выборка.СимвольныйКод, Формат(Выборка.Курс, "ЧРД=.; ЧГ=0"));
КонецЦикла;
Возврат ОбщегоНазначения.ВычислитьВБезопасномРежиме(Выражение);
КонецФункции
Функция ФорматироватьЧисла(Строка) Экспорт
Результат = "";
Число = "";
ЕстьРазделительВЧисле = Ложь;
ПредыдущийСимвол = "";
ДлинаСтроки = СтрДлина(Строка);
Для Индекс = 1 По ДлинаСтроки Цикл
Если Индекс < ДлинаСтроки Тогда
СледующийСимвол = Сред(Строка, Индекс + 1, 1);
Иначе
СледующийСимвол = "";
КонецЕсли;
Символ = Сред(Строка, Индекс, 1);
ПредыдущийСимволЭтоРазделитель = ПредыдущийСимвол = "" Или СтрНайти("()[]/*-+%=<>, ", ПредыдущийСимвол) > 0;
Если ЭтоЦифра(Символ) И (ПредыдущийСимволЭтоРазделитель Или ЭтоЦифра(ПредыдущийСимвол) И ЗначениеЗаполнено(Число)) Тогда
Число = Число + Символ;
ИначеЕсли Не ЕстьРазделительВЧисле И (Символ = "," Или Символ = ".") И ЭтоЦифра(СледующийСимвол)
И (ЭтоЦифра(ПредыдущийСимвол) Или ПредыдущийСимволЭтоРазделитель) И ЗначениеЗаполнено(Число) Тогда
Число = Число + ".";
ЕстьРазделительВЧисле = Истина;
Иначе
Результат = Результат + Число + Символ;
Число = "";
ЕстьРазделительВЧисле = Ложь;
КонецЕсли;
ПредыдущийСимвол = Символ;
Символ = "";
КонецЦикла;
Результат = Результат + Число + Символ;
Возврат Результат;
КонецФункции
Функция ЭтоЦифра(Символ)
Возврат СтрНайти("1234567890", Символ) > 0;
КонецФункции КонецФункции
+32 -3
View File
@@ -115,6 +115,17 @@
Если СпособУстановкиКурса <> Перечисления.СпособыУстановкиКурсаВалюты.РасчетПоФормуле Тогда Если СпособУстановкиКурса <> Перечисления.СпособыУстановкиКурсаВалюты.РасчетПоФормуле Тогда
ФормулаРасчетаКурса = ""; ФормулаРасчетаКурса = "";
КонецЕсли; КонецЕсли;
Если ЗначениеЗаполнено(ФормулаРасчетаКурса) Тогда
Попытка
ПроверитьФормулу(ФормулаРасчетаКурса);
Исключение
ИнформацияОбОшибке = ИнформацияОбОшибке();
Уточнение = ОбщегоНазначенияКлиентСервер.УточнениеИсключения(ИнформацияОбОшибке,
НСтр("ru = 'Не удалось вычислить курс валюты по формуле:'"));
ВызватьИсключение(Уточнение.Текст, Уточнение.Категория, , , ИнформацияОбОшибке);
КонецПопытки;
КонецЕсли;
КонецПроцедуры КонецПроцедуры
@@ -124,14 +135,19 @@
Возврат; Возврат;
КонецЕсли; КонецЕсли;
Если ДополнительныеСвойства.Свойство("ОбновитьКурсы") И ВыполняетсяФоновыйПересчетКурсов() Тогда ОбновитьКурсы = ДополнительныеСвойства.Свойство("ОбновитьКурсы");
ЭтоНовый = ДополнительныеСвойства.Свойство("ЭтоНовый");
ТребуетсяЗаписьКурсов = ОбновитьКурсы Или ЭтоНовый;
ВыполняетсяФоновыйПересчетКурсов = ВыполняетсяФоновыйПересчетКурсов();
Если ТребуетсяЗаписьКурсов И ВыполняетсяФоновыйПересчетКурсов Тогда
ВызватьИсключение НСтр("ru = 'Не удалось записать валюту, так как еще не завершился фоновый пересчет курсов. ВызватьИсключение НСтр("ru = 'Не удалось записать валюту, так как еще не завершился фоновый пересчет курсов.
|Попробуйте записать валюту позже.'"); |Попробуйте записать валюту позже.'");
КонецЕсли; КонецЕсли;
Если ДополнительныеСвойства.Свойство("ОбновитьКурсы") Тогда Если ОбновитьКурсы Тогда
НачатьФоновоеОбновлениеКурсовВалюты(); НачатьФоновоеОбновлениеКурсовВалюты();
Иначе ИначеЕсли Не ВыполняетсяФоновыйПересчетКурсов Тогда
РаботаСКурсамиВалют.ПроверитьКорректностьКурсаНа01_01_1980(Ссылка); РаботаСКурсамиВалют.ПроверитьКорректностьКурсаНа01_01_1980(Ссылка);
КонецЕсли; КонецЕсли;
@@ -233,6 +249,19 @@
КонецФункции КонецФункции
Процедура ПроверитьФормулу(Формула) Экспорт
КодыВалют = Справочники.Валюты.КодыВалют();
Выражение = Справочники.Валюты.ФорматироватьЧисла(Формула);
Для Каждого Валюта Из КодыВалют Цикл
Выражение = СтрЗаменить(Выражение, Валюта.СимвольныйКод, "1");
КонецЦикла;
ОбщегоНазначения.ВычислитьВБезопасномРежиме(Выражение);
КонецПроцедуры
#КонецОбласти #КонецОбласти
#Иначе #Иначе
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17126"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17126"></meta></head><body>
<p>Ведение списка вариантов ответов на <a href="ChartOfCharacteristicTypes.ВопросыДляАнкетирования/Help">вопросы</a> типов <strong>Выбор одного</strong> или <strong>нескольких вариантов ответа из предложенных.</strong></p> <p>Ведение списка вариантов ответов на <a href="ChartOfCharacteristicTypes.ВопросыДляАнкетирования/Help">вопросы</a> типов <strong>Выбор одного</strong> или <strong>нескольких вариантов ответа из предложенных.</strong></p>
<p>Существуют вопросы <a href="Document.Анкета.Form.ФормаСписка/Help">анкеты</a> типа <strong>Выбор одного варианта ответа из предложенных</strong> или <strong>Выбор нескольких вариантов ответа из предложенных</strong>. В этих случаях ответ респондента сводится к выбору одного или нескольких вариантов ответа из списка с помощью переключателей.</p> <p>Существуют вопросы <a href="Document.Анкета.Form.ФормаСписка/Help">анкеты</a> типа <strong>Выбор одного варианта ответа из предложенных</strong> или <strong>Выбор нескольких вариантов ответа из предложенных</strong>. В этих случаях ответ респондента сводится к выбору одного или нескольких вариантов ответа из списка с помощью переключателей.</p>
<p>Задайте возможные варианты ответов на <a href="ChartOfCharacteristicTypes.ВопросыДляАнкетирования.Form.ФормаЭлемента/Help">вопрос</a>.</p> <p>Задайте возможные варианты ответов на <a href="ChartOfCharacteristicTypes.ВопросыДляАнкетирования.Form.ФормаЭлемента/Help">вопрос</a>.</p>
@@ -1126,16 +1126,16 @@
ОбновитьЗначениеПараметраКомпоновкиДанных(Форма.ВнешниеПользователиСписок, ОбновитьЗначениеПараметраКомпоновкиДанных(Форма.ВнешниеПользователиСписок,
"ВсеВнешниеПользователи", Ложь); "ВсеВнешниеПользователи", Ложь);
#Если Сервер Тогда #Если Сервер Тогда
Если ЗначениеЗаполнено(Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока) Тогда Если ЗначениеЗаполнено(Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока) Тогда
ТекущиеДанные = ОбщегоНазначения.ЗначенияРеквизитовОбъекта( ТекущиеДанные = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(
Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока, "ВсеОбъектыАвторизации"); Элементы.ГруппыВнешнихПользователей.ТекущаяСтрока, "ВсеОбъектыАвторизации");
Иначе Иначе
ТекущиеДанные = Неопределено; ТекущиеДанные = Неопределено;
КонецЕсли; КонецЕсли;
#Иначе #Иначе
ТекущиеДанные = Элементы.ГруппыВнешнихПользователей.ТекущиеДанные; ТекущиеДанные = Элементы.ГруппыВнешнихПользователей.ТекущиеДанные;
#КонецЕсли #КонецЕсли
Если ТекущиеДанные <> Неопределено Если ТекущиеДанные <> Неопределено
И Не ТекущиеДанные.Свойство("ГруппировкаСтроки") И Не ТекущиеДанные.Свойство("ГруппировкаСтроки")
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17239"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17239"></meta></head><body>
<p>Список предназначен для выбора папок <a href="Catalog.ГруппыДоступа.Form.ФормаСписка/Help">групп доступа</a>.</p> <p>Список предназначен для выбора папок <a href="Catalog.ГруппыДоступа.Form.ФормаСписка/Help">групп доступа</a>.</p>
<p>Т.к. групп доступа может быть очень много и с похожими настройками ограничений прав, предусмотрена возможность создавать папки для упрощения поиска нужной <a href="Catalog.ГруппыДоступа.Form.ФормаЭлемента/Help">группы доступа</a> и понимания ограничений прав доступа в целом.</p> <p>Т.к. групп доступа может быть очень много и с похожими настройками ограничений прав, предусмотрена возможность создавать папки для упрощения поиска нужной <a href="Catalog.ГруппыДоступа.Form.ФормаЭлемента/Help">группы доступа</a> и понимания ограничений прав доступа в целом.</p>
<p><a href="Catalog.ГруппыДоступа/Help">Группы доступа</a> можно сгруппировать по различным признакам.</p> <p><a href="Catalog.ГруппыДоступа/Help">Группы доступа</a> можно сгруппировать по различным признакам.</p>
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17239"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17239"></meta></head><body>
<p>Описание свойств папки <a href="Catalog.ГруппыДоступа/Help">групп доступа</a>.</p> <p>Описание свойств папки <a href="Catalog.ГруппыДоступа/Help">групп доступа</a>.</p>
<p>Т.к. <a href="Catalog.ГруппыДоступа.Form.ФормаСписка/Help">групп доступа</a> может быть очень много и с похожими настройками ограничений прав, предусмотрена возможность создавать <a href="Catalog.ГруппыДоступа.Form.ФормаВыбораГруппы/Help">папки</a> для упрощения поиска нужной <a href="Catalog.ГруппыДоступа.Form.ФормаЭлемента/Help">группы доступа</a> и понимания ограничений прав доступа в целом.</p> <p>Т.к. <a href="Catalog.ГруппыДоступа.Form.ФормаСписка/Help">групп доступа</a> может быть очень много и с похожими настройками ограничений прав, предусмотрена возможность создавать <a href="Catalog.ГруппыДоступа.Form.ФормаВыбораГруппы/Help">папки</a> для упрощения поиска нужной <a href="Catalog.ГруппыДоступа.Form.ФормаЭлемента/Help">группы доступа</a> и понимания ограничений прав доступа в целом.</p>
<p>Группы доступа можно сгруппировать в папки по различным признакам.</p> <p>Группы доступа можно сгруппировать в папки по различным признакам.</p>
@@ -1318,9 +1318,9 @@
Элементы.ГруппаСтраницыРежимыСовместимостиРазрешений.ТекущаяСтраница = Элементы.СтраницаРазрешенияВерсия_2_2_2; Элементы.ГруппаСтраницыРежимыСовместимостиРазрешений.ТекущаяСтраница = Элементы.СтраницаРазрешенияВерсия_2_2_2;
Если БезопасныйРежим = Истина Тогда Если ИспользуютсяПрофилиБезопасности И БезопасныйРежим = Истина Тогда
Элементы.СтраницыБезопасныйРежимСРазрешениями.ТекущаяСтраница = Элементы.СтраницаБезопасныйРежимСРазрешениями; Элементы.СтраницыБезопасныйРежимСРазрешениями.ТекущаяСтраница = Элементы.СтраницаБезопасныйРежимСРазрешениями;
ИначеЕсли БезопасныйРежим = Ложь Тогда ИначеЕсли ТипЗнч(БезопасныйРежим) = Тип("Булево") Тогда
Элементы.СтраницыБезопасныйРежимСРазрешениями.ТекущаяСтраница = Элементы.СтраницаНебезопасныйРежимСРазрешениями; Элементы.СтраницыБезопасныйРежимСРазрешениями.ТекущаяСтраница = Элементы.СтраницаНебезопасныйРежимСРазрешениями;
ИначеЕсли ТипЗнч(БезопасныйРежим) = Тип("Строка") Тогда ИначеЕсли ТипЗнч(БезопасныйРежим) = Тип("Строка") Тогда
Элементы.СтраницыБезопасныйРежимСРазрешениями.ТекущаяСтраница = Элементы.СтраницаПерсональныйПрофильБезопасности; Элементы.СтраницыБезопасныйРежимСРазрешениями.ТекущаяСтраница = Элементы.СтраницаПерсональныйПрофильБезопасности;
@@ -23,9 +23,9 @@
&НаКлиенте &НаКлиенте
Процедура ПриОткрытии(Отказ) Процедура ПриОткрытии(Отказ)
#Если ВебКлиент Тогда #Если ВебКлиент Тогда
Элементы.ФильтрПоЦвету.СписокВыбора.Вставить(0, ПредопределенноеЗначение("Перечисление.ЦветаЗаметок.ПустаяСсылка")," "); Элементы.ФильтрПоЦвету.СписокВыбора.Вставить(0, ПредопределенноеЗначение("Перечисление.ЦветаЗаметок.ПустаяСсылка")," ");
#КонецЕсли #КонецЕсли
КонецПроцедуры КонецПроцедуры
&НаСервере &НаСервере
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 9.00.8112.16553"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 9.00.8112.16553"></meta></head><body>
<p>Предназначена для ввода сведений о группе <a href="Catalog.ЗначенияСвойствОбъектов/Help">значений дополнительных реквизитов (сведений)</a>.</p> <p>Предназначена для ввода сведений о группе <a href="Catalog.ЗначенияСвойствОбъектов/Help">значений дополнительных реквизитов (сведений)</a>.</p>
<ul><li>В поле <strong>Группа</strong> напишите наименование группы. <ul><li>В поле <strong>Группа</strong> напишите наименование группы.
</li><li>С помощью поля <strong>Входит в группу</strong> можно подчинить новую группу другой группе. Выберите группу из списка.</li></ul><h3>См. также:</h3> </li><li>С помощью поля <strong>Входит в группу</strong> можно подчинить новую группу другой группе. Выберите группу из списка.</li></ul><h3>См. также:</h3>
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17496"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17496"></meta></head><body>
<p>Просмотр свойств идентификатора объекта метаданных расширений.</p> <p>Просмотр свойств идентификатора объекта метаданных расширений.</p>
<p>Заполняется автоматически при первом запуске (и каждом обновлении) конфигурации, согласно метаданным конфигурации, а также автоматически актуализируется при каждом обновлении версии конфигурации (учитываются переименованные, добавленные и удаленные объекты метаданных). </p> <p>Заполняется автоматически при первом запуске (и каждом обновлении) конфигурации, согласно метаданным конфигурации, а также автоматически актуализируется при каждом обновлении версии конфигурации (учитываются переименованные, добавленные и удаленные объекты метаданных). </p>
<p>Выводятся сведения:</p> <p>Выводятся сведения:</p>
@@ -676,11 +676,11 @@
ИнформационныйТекст = НСтр("ru = 'График работы заполнен до %1'"); ИнформационныйТекст = НСтр("ru = 'График работы заполнен до %1'");
Форма.ЗаполненностьИнформационныйТекст = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ИнформационныйТекст, Формат(Форма.ДатаЗаполненности, "ДЛФ=D")); Форма.ЗаполненностьИнформационныйТекст = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ИнформационныйТекст, Формат(Форма.ДатаЗаполненности, "ДЛФ=D"));
Иначе Иначе
#Если ВебКлиент Или ТонкийКлиент ИЛИ МобильныйКлиент Тогда #Если ВебКлиент Или ТонкийКлиент ИЛИ МобильныйКлиент Тогда
ТекущаяДата = ОбщегоНазначенияКлиент.ДатаСеанса(); ТекущаяДата = ОбщегоНазначенияКлиент.ДатаСеанса();
#Иначе #Иначе
ТекущаяДата = ТекущаяДатаСеанса(); ТекущаяДата = ТекущаяДатаСеанса();
#КонецЕсли #КонецЕсли
КонецГоризонтаПланирования = ДобавитьМесяц(ТекущаяДата, Форма.Объект.ГоризонтПланирования); КонецГоризонтаПланирования = ДобавитьМесяц(ТекущаяДата, Форма.Объект.ГоризонтПланирования);
ИнформационныйТекст = НСтр("ru = 'График работы заполнен до %1, с учетом горизонта планирования график должен быть заполнен до %2'"); ИнформационныйТекст = НСтр("ru = 'График работы заполнен до %1, с учетом горизонта планирования график должен быть заполнен до %2'");
Форма.ЗаполненностьИнформационныйТекст = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ИнформационныйТекст, Формат(Форма.ДатаЗаполненности, "ДЛФ=D"), Формат(КонецГоризонтаПланирования, "ДЛФ=D")); Форма.ЗаполненностьИнформационныйТекст = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ИнформационныйТекст, Формат(Форма.ДатаЗаполненности, "ДЛФ=D"), Формат(КонецГоризонтаПланирования, "ДЛФ=D"));
@@ -1854,6 +1854,88 @@
<userSettingsGroup>СписокКомпоновщикНастроекПользовательскиеНастройки</userSettingsGroup> <userSettingsGroup>СписокКомпоновщикНастроекПользовательскиеНастройки</userSettingsGroup>
</extInfo> </extInfo>
</items> </items>
<items xsi:type="form:FormGroup">
<name>ГруппаПолномочия</name>
<id>270</id>
<items xsi:type="form:FormField">
<name>ПолномочияДоверенности</name>
<id>275</id>
<title>
<key>ru</key>
<value>Полномочия доверенности</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Items.Список.CurrentData.ТекстПолномочий</segments>
</dataPath>
<titleLocation>None</titleLocation>
<extendedTooltip>
<name>ПолномочияДоверенностиРасширеннаяПодсказка</name>
<id>277</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ПолномочияДоверенностиКонтекстноеМеню</name>
<id>276</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<height>12</height>
<verticalStretch>true</verticalStretch>
<wrap>true</wrap>
<multiLine>true</multiLine>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
<heightControlVariant>ByContent</heightControlVariant>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Полномочия доверенности</value>
</title>
<extendedTooltip>
<name>ГруппаПолномочияРасширеннаяПодсказка</name>
<id>271</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>HorizontalIfPossible</group>
<behavior>Auto</behavior>
<representation>WeakSeparation</representation>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<showTitle>auto</showTitle>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<items xsi:type="form:FormGroup"> <items xsi:type="form:FormGroup">
<name>ГруппаЛегенда</name> <name>ГруппаЛегенда</name>
<id>176</id> <id>176</id>
@@ -2432,12 +2514,24 @@
<edit> <edit>
<common>true</common> <common>true</common>
</edit> </edit>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.Ограничения</segments>
</notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.Полномочия</segments>
</notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath"> <notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.ВозможностьПередоверия</segments> <segments>Список.ВозможностьПередоверия</segments>
</notDefaultUseAlwaysAttributes> </notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.ПолномочияВТекстовомВиде</segments>
</notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath"> <notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.Ссылка</segments> <segments>Список.Ссылка</segments>
</notDefaultUseAlwaysAttributes> </notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.ТекстПолномочий</segments>
</notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath"> <notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.ФайлДоверенности</segments> <segments>Список.ФайлДоверенности</segments>
</notDefaultUseAlwaysAttributes> </notDefaultUseAlwaysAttributes>
@@ -2470,6 +2564,12 @@
ТОГДА ИСТИНА ТОГДА ИСТИНА
ИНАЧЕ ЛОЖЬ ИНАЧЕ ЛОЖЬ
КОНЕЦ КАК Действует, КОНЕЦ КАК Действует,
СправочникМашиночитаемыеДоверенности.ПолномочияВТекстовомВиде КАК ПолномочияВТекстовомВиде,
ВЫБОР
КОГДА &amp;ВидимостьПолномочий
ТОГДА СправочникМашиночитаемыеДоверенности.ТекстПолномочий
Иначе &quot;&quot;
КОНЕЦ КАК ТекстПолномочий,
ВЫБОР ВЫБОР
КОГДА СправочникМашиночитаемыеДоверенности.ПометкаУдаления КОГДА СправочникМашиночитаемыеДоверенности.ПометкаУдаления
ТОГДА 1 ТОГДА 1
@@ -3138,6 +3238,22 @@
<value></value> <value></value>
</values> </values>
</parameters> </parameters>
<parameters>
<name>ВидимостьПолномочий</name>
<title>
<localValue>
<content>
<key>ru</key>
<value>Видимость полномочий</value>
</content>
</localValue>
</title>
<valueType>
<types>Boolean</types>
</valueType>
<values xsi:type="core:BooleanValue"/>
<useRestriction>true</useRestriction>
</parameters>
</extInfo> </extInfo>
</attributes> </attributes>
<attributes> <attributes>
@@ -3190,19 +3306,6 @@
<common>true</common> <common>true</common>
</edit> </edit>
</attributes> </attributes>
<attributes>
<name>ФизическоеЛицоПользователя</name>
<id>7</id>
<valueType>
<types>DefinedType.ФизическоеЛицо</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes> <attributes>
<name>АвторизованныйПользователь</name> <name>АвторизованныйПользователь</name>
<id>8</id> <id>8</id>
@@ -3227,32 +3330,6 @@
<common>true</common> <common>true</common>
</edit> </edit>
</attributes> </attributes>
<attributes>
<name>ТипДоверителя</name>
<id>11</id>
<valueType>
<types>TypeDescription</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ТипПредставителя</name>
<id>4</id>
<valueType>
<types>TypeDescription</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes> <attributes>
<name>ОтборПоСостоянию</name> <name>ОтборПоСостоянию</name>
<id>3</id> <id>3</id>
@@ -3363,6 +3440,20 @@
<common>true</common> <common>true</common>
</edit> </edit>
</attributes> </attributes>
<attributes>
<name>ПолномочияДоверенности</name>
<id>18</id>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<formCommands> <formCommands>
<name>ЗагрузитьИзФайла</name> <name>ЗагрузитьИзФайла</name>
<title> <title>
@@ -12,6 +12,9 @@
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка); Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка);
Элементы.Список.РежимВыбора = Параметры.РежимВыбора; Элементы.Список.РежимВыбора = Параметры.РежимВыбора;
Элементы.ПолномочияДоверенности.Видимость = Элементы.Список.РежимВыбора;
Если Параметры.МножественныйВыбор <> Неопределено Тогда Если Параметры.МножественныйВыбор <> Неопределено Тогда
Элементы.Список.МножественныйВыбор = Параметры.МножественныйВыбор; Элементы.Список.МножественныйВыбор = Параметры.МножественныйВыбор;
КонецЕсли; КонецЕсли;
@@ -37,12 +40,13 @@
Доверитель = ?(ЗначениеЗаполнено(ФизическоеЛицо), ФизическоеЛицо, ТекстОшибкиФизическоеЛицо()); Доверитель = ?(ЗначениеЗаполнено(ФизическоеЛицо), ФизическоеЛицо, ТекстОшибкиФизическоеЛицо());
Представитель = ""; Представитель = "";
Иначе Иначе
Доверитель = ""; Доверитель = ?(ЗначениеЗаполнено(Параметры.Доверитель), Параметры.Доверитель, "");
Представитель = ""; Представитель = ?(ЗначениеЗаполнено(Параметры.Представитель), Параметры.Представитель, "");
КонецЕсли; КонецЕсли;
Доверитель = ?(ЗначениеЗаполнено(Параметры.Доверитель), Параметры.Доверитель, Доверитель); Элементы.Представитель.Доступность = ДоверенностиПоРоли <> "Представитель";
Представитель = ?(ЗначениеЗаполнено(Параметры.Представитель), Параметры.Представитель, Представитель); Элементы.Доверитель.Доступность = ДоверенностиПоРоли <> "Доверитель";
Полномочия = ?(ЗначениеЗаполнено(Параметры.Полномочия), Параметры.Полномочия, Полномочия); Полномочия = ?(ЗначениеЗаполнено(Параметры.Полномочия), Параметры.Полномочия, Полномочия);
Если ТипЗнч(СертификатПредставителя) = Тип("СправочникСсылка.СертификатыКлючейЭлектроннойПодписиИШифрования") Тогда Если ТипЗнч(СертификатПредставителя) = Тип("СправочникСсылка.СертификатыКлючейЭлектроннойПодписиИШифрования") Тогда
@@ -129,10 +133,6 @@
&НаКлиенте &НаКлиенте
Процедура ДоверенностиПоРолиПриИзменении(Элемент) Процедура ДоверенностиПоРолиПриИзменении(Элемент)
Если Элементы.ДоверенностиПоРоли.Видимость = Ложь Тогда
Возврат;
КонецЕсли;
Если ДоверенностиПоРоли = "Представитель" Тогда Если ДоверенностиПоРоли = "Представитель" Тогда
ФизическоеЛицо = ФизическоеЛицоПользователя(АвторизованныйПользователь); ФизическоеЛицо = ФизическоеЛицоПользователя(АвторизованныйПользователь);
Представитель = ?(ЗначениеЗаполнено(ФизическоеЛицо), ФизическоеЛицо, ТекстОшибкиФизическоеЛицо()); Представитель = ?(ЗначениеЗаполнено(ФизическоеЛицо), ФизическоеЛицо, ТекстОшибкиФизическоеЛицо());
@@ -146,6 +146,9 @@
Представитель = ""; Представитель = "";
КонецЕсли; КонецЕсли;
Элементы.Представитель.Доступность = ДоверенностиПоРоли <> "Представитель";
Элементы.Доверитель.Доступность = ДоверенностиПоРоли <> "Доверитель";
УстановитьОтбор(); УстановитьОтбор();
КонецПроцедуры КонецПроцедуры
@@ -222,13 +225,22 @@
Запрос = СокрЛП(Текст); Запрос = СокрЛП(Текст);
ПодходящиеЗначения = ПодходящиеЗначенияУниверсальногоПоиска(Запрос); ПодходящиеЗначения = ПодходящиеЗначенияУниверсальногоПоиска(Запрос);
ПодходящиеЗначения.Вставить(0, Текст, СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='Поля доверенности содержат: %1'"), Текст));
Если ПодходящиеЗначения.Количество() = 0 Тогда ТолькоЦифры = МашиночитаемыеДоверенностиФНССлужебныйКлиентСервер.ТолькоЦифры(Текст);
Возврат; Если Не ПустаяСтрока(ТолькоЦифры) И ТолькоЦифры <> Текст Тогда
ПодходящиеЗначения.Вставить(0, ТолькоЦифры,
СтроковыеФункцииКлиент.ФорматированнаяСтрока(
НСтр("ru = 'Поля доверенности содержат <span style=""color: %1; font: %2"">%3</span>'"),
"РезультатУспехЦвет", "ВажнаяНадписьШрифт",
ТолькоЦифры));
КонецЕсли; КонецЕсли;
ПодходящиеЗначения.Вставить(0, Текст,
СтроковыеФункцииКлиент.ФорматированнаяСтрока(
НСтр("ru = 'Поля доверенности содержат <span style=""color: %1; font: %2"">%3</span>'"),
"РезультатУспехЦвет", "ВажнаяНадписьШрифт",
Текст));
ДанныеВыбора = ПодходящиеЗначения; ДанныеВыбора = ПодходящиеЗначения;
СтандартнаяОбработка = Ложь; СтандартнаяОбработка = Ложь;
@@ -253,14 +265,108 @@
&НаКлиенте &НаКлиенте
Процедура СписокПриАктивизацииСтроки(Элемент) Процедура СписокПриАктивизацииСтроки(Элемент)
// СтандартныеПодсистемы.ПодключаемыеКоманды // СтандартныеПодсистемы.ПодключаемыеКоманды
ПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект); ПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект);
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды // Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры КонецПроцедуры
&НаСервереБезКонтекста &НаСервереБезКонтекста
Процедура СписокПриПолученииДанныхНаСервере(ИмяЭлемента, Настройки, Строки) Процедура СписокПриПолученииДанныхНаСервере(ИмяЭлемента, Настройки, Строки)
Если Настройки.ПараметрыДанных.Элементы.Найти("ВидимостьПолномочий").Значение = Истина Тогда
Запрос = Неопределено;
Для Каждого СтрокаСписка Из Строки Цикл
Если СтрокаСписка.Значение.Данные.ПолномочияВТекстовомВиде = Истина Тогда
Продолжить;
КонецЕсли;
Если Запрос = Неопределено Тогда
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| МашиночитаемыеДоверенности.Ограничения.(
| Ссылка КАК Ссылка,
| НомерСтроки КАК НомерСтроки,
| ИдентификаторПолномочия КАК ИдентификаторПолномочия,
| Код КАК Код,
| Наименование КАК Наименование,
| НаименованиеЗначения КАК НаименованиеЗначения,
| КодЗначения КАК КодЗначения,
| ТекстовоеЗначение КАК ТекстовоеЗначение
| ) КАК Ограничения,
| МашиночитаемыеДоверенности.Полномочия.(
| Ссылка КАК Ссылка,
| НомерСтроки КАК НомерСтроки,
| Код КАК Код,
| ИдентификаторПолномочия КАК ИдентификаторПолномочия,
| Мнемокод КАК Мнемокод,
| Наименование КАК Наименование
| ) КАК Полномочия,
| МашиночитаемыеДоверенности.Ссылка КАК Ссылка
|ИЗ
| Справочник.МашиночитаемыеДоверенности КАК МашиночитаемыеДоверенности
|ГДЕ
| НЕ МашиночитаемыеДоверенности.ПолномочияВТекстовомВиде
| И МашиночитаемыеДоверенности.Ссылка В(&Ссылки)";
Запрос.УстановитьПараметр("Ссылки", Строки.ПолучитьКлючи());
РезультатЗапроса = Запрос.Выполнить(); // @skip-check query-in-loop - Запрос выполняется один раз
ВыборкаСсылка = РезультатЗапроса.Выбрать();
КонецЕсли;
Если ВыборкаСсылка.НайтиСледующий(СтрокаСписка.Значение.Данные["Ссылка"], "Ссылка") Тогда
Полномочия = ВыборкаСсылка.Полномочия.Выгрузить();
Ограничения = ВыборкаСсылка.Ограничения.Выгрузить();
ПредставлениеПолномочий = Новый Массив;
Для Каждого СтрокаПолномочия Из Полномочия Цикл
ПредставлениеПолномочия = ?(ЗначениеЗаполнено(СтрокаПолномочия.Наименование),
СтрокаПолномочия.Наименование, СтрокаПолномочия.Код);
МассивОграничений = Новый Массив;
Найдено = Ограничения.НайтиСтроки(
Новый Структура("ИдентификаторПолномочия", СтрокаПолномочия.ИдентификаторПолномочия));
Для Каждого СтрокаОграничение Из Найдено Цикл
Массив = Новый Массив;
Если ЗначениеЗаполнено(СтрокаОграничение.Наименование) Тогда
Массив.Добавить(СтрокаОграничение.Наименование + ":");
ИначеЕсли ЗначениеЗаполнено(СтрокаОграничение.Код) Тогда
Массив.Добавить(СтрокаОграничение.Код + ":");
КонецЕсли;
Если ЗначениеЗаполнено(СтрокаОграничение.НаименованиеЗначения) Тогда
Массив.Добавить(СтрокаОграничение.НаименованиеЗначения);
ИначеЕсли ЗначениеЗаполнено(СтрокаОграничение.КодЗначения) Тогда
Массив.Добавить(СтрокаОграничение.КодЗначения);
КонецЕсли;
Если ЗначениеЗаполнено(СтрокаОграничение.ТекстовоеЗначение) Тогда
Массив.Добавить(СтрокаОграничение.ТекстовоеЗначение);
КонецЕсли;
МассивОграничений.Добавить(СтрСоединить(Массив, " "));
КонецЦикла;
Если ПустаяСтрока(ПредставлениеПолномочия) Тогда
ПредставлениеПолномочия = НСтр("ru = '<Не заполнено>'");
КонецЕсли;
ПредставлениеПолномочия = ПредставлениеПолномочия + ?(МассивОграничений.Количество()>0,
Символы.ПС + Символы.Таб + СтрСоединить(МассивОграничений, Символы.ПС + Символы.Таб), "");
ПредставлениеПолномочий.Добавить(ПредставлениеПолномочия);
КонецЦикла;
СтрокаСписка.Значение.Данные.ТекстПолномочий = СтрСоединить(ПредставлениеПолномочий, ";" + Символы.ПС);
ВыборкаСсылка.Сбросить();
КонецЕсли;
КонецЦикла;
КонецЕсли;
Если Настройки.ПараметрыДанных.Элементы.Найти("СтатусВДругомРеестре").Значение = "НетСтатусов" Тогда Если Настройки.ПараметрыДанных.Элементы.Найти("СтатусВДругомРеестре").Значение = "НетСтатусов" Тогда
Возврат; Возврат;
КонецЕсли; КонецЕсли;
@@ -288,7 +394,6 @@
КонецЕсли; КонецЕсли;
Для Каждого Строка Из Строки Цикл Для Каждого Строка Из Строки Цикл
Статус = Доверенности[Строка.Значение.Данные.Ссылка]; Статус = Доверенности[Строка.Значение.Данные.Ссылка];
Если Статус = Неопределено Тогда Если Статус = Неопределено Тогда
Продолжить; Продолжить;
@@ -462,6 +567,7 @@
УстановитьОтборСоСтрокойПоиска(Полномочия, "Полномочия"); УстановитьОтборСоСтрокойПоиска(Полномочия, "Полномочия");
ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка(Список, "ТекущаяДата", ТекущаяДатаСеанса); ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка(Список, "ТекущаяДата", ТекущаяДатаСеанса);
ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка(Список, "ВидимостьПолномочий", Элементы.ПолномочияДоверенности.Видимость);
Если ОтборПоСостоянию = "СИстекающимСрокомДействия" Тогда Если ОтборПоСостоянию = "СИстекающимСрокомДействия" Тогда
ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбора(Список.Отбор, "ДатаОкончания", ТекущаяДатаСеанса, ВидСравненияКомпоновкиДанных.БольшеИлиРавно); ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбора(Список.Отбор, "ДатаОкончания", ТекущаяДатаСеанса, ВидСравненияКомпоновкиДанных.БольшеИлиРавно);
@@ -538,7 +644,12 @@
&НаСервереБезКонтекста &НаСервереБезКонтекста
Функция ФизическоеЛицоПользователя(Знач АвторизованныйПользователь) Функция ФизическоеЛицоПользователя(Знач АвторизованныйПользователь)
Возврат ОбщегоНазначения.ЗначениеРеквизитаОбъекта(АвторизованныйПользователь, "ФизическоеЛицо"); Реквизиты = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(АвторизованныйПользователь, "ФизическоеЛицо, Наименование");
ФизическоеЛицо = Реквизиты.ФизическоеЛицо;
Если Не ЗначениеЗаполнено(Реквизиты.ФизическоеЛицо) Тогда
ФизическоеЛицо = Реквизиты.Наименование;
КонецЕсли;
Возврат ФизическоеЛицо;
КонецФункции КонецФункции
&НаСервереБезКонтекста &НаСервереБезКонтекста
@@ -838,7 +949,7 @@
Функция ПодходящиеЗначенияУниверсальногоПоиска(Запрос) Функция ПодходящиеЗначенияУниверсальногоПоиска(Запрос)
ПодходящиеЗначения = Новый СписокЗначений; ПодходящиеЗначения = Новый СписокЗначений;
МаксимальноеКоличествоПодходящихЗначений = 49; МаксимальноеКоличествоПодходящихЗначений = 48;
ПараметрыПоиска = ПараметрыУниверсальногоПоиска(Запрос); ПараметрыПоиска = ПараметрыУниверсальногоПоиска(Запрос);
Если Не ЗначениеЗаполнено(ПараметрыПоиска.СтрокаПоиска) Тогда Если Не ЗначениеЗаполнено(ПараметрыПоиска.СтрокаПоиска) Тогда
@@ -856,12 +967,15 @@
Если ПодходящиеЗначения.Количество() = 0 Тогда Если ПодходящиеЗначения.Количество() = 0 Тогда
Если СтрДлина(ПараметрыПоиска.СтрокаПоиска) > 2 Тогда Если СтрДлина(ПараметрыПоиска.СтрокаПоиска) > 2 Тогда
Сообщение = НСтр("ru = 'Совпадений в справочниках не найдено'"); СообщениеФорматированное = СтроковыеФункцииКлиент.ФорматированнаяСтрока(
НСтр("ru = '<span style=""color: %1; font: %2"">%3</span> нет в списках'"),
"РезультатУспехЦвет", "ВажнаяНадписьШрифт",
ПараметрыПоиска.СтрокаПоиска);
Иначе Иначе
Сообщение = НСтр("ru = 'Продолжите ввод...'"); Сообщение = НСтр("ru = 'Продолжите ввод...'");
СообщениеФорматированное = Новый ФорматированнаяСтрока(Сообщение, , WebЦвета.НейтральноСерый);
КонецЕсли; КонецЕсли;
СообщениеФорматированное = Новый ФорматированнаяСтрока(Сообщение, , WebЦвета.НейтральноСерый);
ПодходящиеЗначения.Добавить("", СообщениеФорматированное); ПодходящиеЗначения.Добавить("", СообщениеФорматированное);
КонецЕсли; КонецЕсли;
@@ -900,8 +1014,6 @@
"ВЫБРАТЬ РАЗРЕШЕННЫЕ РАЗЛИЧНЫЕ ПЕРВЫЕ 5 "ВЫБРАТЬ РАЗРЕШЕННЫЕ РАЗЛИЧНЫЕ ПЕРВЫЕ 5
| ""&ПолноеИмяОбъекта"" КАК ПолноеИмяОбъекта, | ""&ПолноеИмяОбъекта"" КАК ПолноеИмяОбъекта,
| Ссылка КАК Ссылка, | Ссылка КАК Ссылка,
| &ПолеПоУсловию КАК ПолеПоУсловию,
| &ПредставлениеПоляПоУсловию КАК ПолеПоУсловиюПредставление,
| &ДополнительныеДанные КАК ДополнительныеДанные | &ДополнительныеДанные КАК ДополнительныеДанные
|ИЗ |ИЗ
| &ПолноеИмяОбъекта | &ПолноеИмяОбъекта
@@ -909,64 +1021,14 @@
| &Условие | &Условие
|"; |";
ПоляПоУсловию = ПоляТекстаЗапросаПоОбъектуПоиска(Объект, ПараметрыПоиска);
ТекстЗапроса = СтрЗаменить(ШаблонТекстаЗапроса, "&ПолноеИмяОбъекта", Объект.ПолноеИмя()); ТекстЗапроса = СтрЗаменить(ШаблонТекстаЗапроса, "&ПолноеИмяОбъекта", Объект.ПолноеИмя());
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&ПолеПоУсловию", ПоляПоУсловию.Значение);
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&ПредставлениеПоляПоУсловию", ПоляПоУсловию.Представление);
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&Условие", УсловиеТекстаЗапросаПоОбъектуПоиска(Объект, ПараметрыПоиска)); ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&Условие", УсловиеТекстаЗапросаПоОбъектуПоиска(Объект, ПараметрыПоиска));
Возврат СтрЗаменить(ТекстЗапроса, "&ДополнительныеДанные", ДополнительныеДанныеТекстаЗапросаПоОбъектуПоиска(Объект)); Возврат СтрЗаменить(ТекстЗапроса, "&ДополнительныеДанные", ДополнительныеДанныеТекстаЗапросаПоОбъектуПоиска(Объект));
КонецФункции КонецФункции
&НаСервереБезКонтекста
Функция ПоляТекстаЗапросаПоОбъектуПоиска(Объект, ПараметрыПоиска)
Результат = Новый Структура("Значение, Представление", """""", """""");
ПоляПоУсловию = Новый Массив;
ПредставленияПолейПоУсловию = Новый Массив;
Поля = Объект.ВводПоСтроке; // СписокПолей
ФрагментЗапроса = "КОГДА ВЫРАЗИТЬ(%1 КАК СТРОКА(150)) ПОДОБНО %2 СПЕЦСИМВОЛ ""~"" ТОГДА ""%3"""; // @query-part
СтрокаПоиска = """%" + ОбщегоНазначения.СформироватьСтрокуДляПоискаВЗапросе(ПараметрыПоиска.СтрокаПоискаНормализованная) + "%""";
Для Каждого Поле Из Поля Цикл
ТипРеквизита = ТипРеквизитаПоиска(Объект, Поле.Имя);
Если Не ТипРеквизита.СодержитТип(Тип("Строка")) Тогда
Продолжить;
КонецЕсли;
ПолеПоУсловию = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ФрагментЗапроса,
Поле.Имя, СтрокаПоиска, Поле.Имя);
ПоляПоУсловию.Добавить(ПолеПоУсловию);
ПредставлениеПоляПоУсловию = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ФрагментЗапроса,
Поле.Имя, СтрокаПоиска, ПредставлениеПоля(Поле.Имя, Объект));
ПредставленияПолейПоУсловию.Добавить(ПредставлениеПоляПоУсловию);
КонецЦикла;
Если ПоляПоУсловию.Количество() = 0 Тогда
Возврат Результат;
КонецЕсли;
ПоляПоУсловию.Вставить(0, "ВЫБОР"); // @query-part
ПоляПоУсловию.Добавить("ИНАЧЕ """""); // @query-part
ПоляПоУсловию.Добавить("КОНЕЦ"); // @query-part
Результат.Значение = СтрСоединить(ПоляПоУсловию, " ");
ПредставленияПолейПоУсловию.Вставить(0, "ВЫБОР"); // @query-part
ПредставленияПолейПоУсловию.Добавить("ИНАЧЕ """""); // @query-part
ПредставленияПолейПоУсловию.Добавить("КОНЕЦ"); // @query-part
Результат.Представление = СтрСоединить(ПредставленияПолейПоУсловию, " ");
Возврат Результат;
КонецФункции
&НаСервереБезКонтекста &НаСервереБезКонтекста
Процедура НайтиПодходящиеЗначенияУниверсальногоПоиска(ПодходящиеЗначения, ПоляПоискаПоТипам, ПараметрыПоиска) Процедура НайтиПодходящиеЗначенияУниверсальногоПоиска(ПодходящиеЗначения, ПоляПоискаПоТипам, ПараметрыПоиска)
@@ -1030,29 +1092,6 @@
ВариантыПоиска.Добавить(СвойстваПоиска); ВариантыПоиска.Добавить(СвойстваПоиска);
ИндексВариантовПоиска.Вставить(СвойстваПоиска.ПравоеЗначение, ВариантыПоиска); ИндексВариантовПоиска.Вставить(СвойстваПоиска.ПравоеЗначение, ВариантыПоиска);
Если Не ЗначениеЗаполнено(Выборка.ПолеПоУсловию)
Или ИндексДополнительныхЗначений[ПолеПоиска.Ключ] <> Неопределено Тогда
Продолжить;
КонецЕсли;
ПутьКДанным = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
"%1.%2", ПолеПоиска.Ключ, Выборка.ПолеПоУсловию);
РеквизитПоля = Новый ПолеКомпоновкиДанных(ПутьКДанным);
СвойстваПоиска = СвойстваУниверсальногоПоиска(
РеквизитПоля, ПараметрыПоиска.СтрокаПоиска);
ПутьКДаннымПредставление = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
"%1.%2", ПолеПоиска.Значение, Выборка.ПолеПоУсловиюПредставление);
ВариантыПоиска = Новый Массив;
ВариантыПоиска.Добавить(СвойстваПоиска);
ДополнительныеЗначения.Добавить(ВариантыПоиска, ПредставлениеРезультатПоиска(ПутьКДаннымПредставление,
СвойстваПоиска.ВидСравнения, ПараметрыПоиска.СтрокаПоиска));
ИндексДополнительныхЗначений.Вставить(ПолеПоиска.Ключ, Истина);
КонецЦикла; КонецЦикла;
КонецЦикла; КонецЦикла;
@@ -1265,29 +1304,10 @@
КонецФункции КонецФункции
&НаСервереБезКонтекста
Функция ПредставлениеРезультатПоиска(Знач ПолеПоиска, Знач Условие, Знач ЗначениеПоиска)
СтрокаУсловия = НРег(Условие);
ФрагментУсловия = СтроковыеФункции.ФорматированнаяСтрока(ШаблонФрагментаУсловия(СтрокаУсловия));
ФрагментСтрокиПоиска = СтроковыеФункции.ФорматированнаяСтрока(ШаблонФрагментаСтрокиПоиска(ЗначениеПоиска));
Возврат ФорматированнаяСтрокаРезультатаПоиска(ПолеПоиска, ФрагментУсловия, ФрагментСтрокиПоиска);
КонецФункции
&НаКлиентеНаСервереБезКонтекста
Функция ФорматированнаяСтрокаРезультатаПоиска(Знач ПолеПоиска, Знач ФрагментУсловия, Знач ФрагментСтрокиПоиска)
Возврат Новый ФорматированнаяСтрока(ПолеПоиска, ФрагментУсловия, """", ФрагментСтрокиПоиска, """");
КонецФункции
&НаКлиентеНаСервереБезКонтекста &НаКлиентеНаСервереБезКонтекста
Функция ШаблонФрагментаУсловия(Условие) Функция ШаблонФрагментаУсловия(Условие)
Возврат СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( Возврат ": ";
НСтр("ru = '%1<span style=""color: %2"">%3</span>%4'"), " ", "ПоясняющийТекст",
НРег(СтрЗаменить(Условие, "<", "&lt;")), " ");
КонецФункции КонецФункции
@@ -1864,11 +1864,11 @@
"ru='Регистрировать в <a href = ""https://m4d.nalog.gov.ru/"">распределенном реестре ФНС России</a>'"); "ru='Регистрировать в <a href = ""https://m4d.nalog.gov.ru/"">распределенном реестре ФНС России</a>'");
КонецЕсли; КонецЕсли;
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
МодульСтроковыеФункции = СтроковыеФункции; МодульСтроковыеФункции = СтроковыеФункции;
#Иначе #Иначе
МодульСтроковыеФункции = СтроковыеФункцииКлиент; МодульСтроковыеФункции = СтроковыеФункцииКлиент;
#КонецЕсли #КонецЕсли
Форма.Элементы.ДекорацияРегистрироватьВРеестреФНС.Заголовок = МодульСтроковыеФункции.ФорматированнаяСтрока(ЗаголовокРегистрироватьВРеестре, Форма.Объект.НомерДоверенности); Форма.Элементы.ДекорацияРегистрироватьВРеестреФНС.Заголовок = МодульСтроковыеФункции.ФорматированнаяСтрока(ЗаголовокРегистрироватьВРеестре, Форма.Объект.НомерДоверенности);
@@ -3475,11 +3475,11 @@
Элементы = Форма.Элементы; Элементы = Форма.Элементы;
Объект = Форма.Объект; Объект = Форма.Объект;
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
МодульСтроковыеФункции = СтроковыеФункции; МодульСтроковыеФункции = СтроковыеФункции;
#Иначе #Иначе
МодульСтроковыеФункции = СтроковыеФункцииКлиент; МодульСтроковыеФункции = СтроковыеФункцииКлиент;
#КонецЕсли #КонецЕсли
Если Форма.Элементы.ДекорацияПросрочена.Видимость Тогда Если Форма.Элементы.ДекорацияПросрочена.Видимость Тогда
Элементы.ОписаниеСостояния.Видимость = Ложь; Элементы.ОписаниеСостояния.Видимость = Ложь;
@@ -49,15 +49,15 @@
Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка) Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка)
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
Если ОбщегоНазначения.ЭтоОсновнойЯзык() Тогда Если ОбщегоНазначения.ЭтоОсновнойЯзык() Тогда
Возврат; Возврат;
КонецЕсли; КонецЕсли;
#Иначе #Иначе
Если СтрСравнить(СтандартныеПодсистемыКлиент.ПараметрКлиента("КодОсновногоЯзыка"), ОбщегоНазначенияКлиент.КодОсновногоЯзыка()) = 0 Тогда Если СтрСравнить(СтандартныеПодсистемыКлиент.ПараметрКлиента("КодОсновногоЯзыка"), ОбщегоНазначенияКлиент.КодОсновногоЯзыка()) = 0 Тогда
Возврат; Возврат;
КонецЕсли; КонецЕсли;
#КонецЕсли #КонецЕсли
Если ЗначениеЗаполнено(Данные.Родитель) Тогда Если ЗначениеЗаполнено(Данные.Родитель) Тогда
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
@@ -240,9 +240,9 @@
&НаКлиенте &НаКлиенте
Процедура ПриОткрытии(Отказ) Процедура ПриОткрытии(Отказ)
#Если ВебКлиент Тогда #Если ВебКлиент Тогда
Элементы.ПользовательИБПользовательОС.КнопкаВыбора = Ложь; Элементы.ПользовательИБПользовательОС.КнопкаВыбора = Ложь;
#КонецЕсли #КонецЕсли
ОбновитьСвойствоПоказыватьВСпискеВыбора(); ОбновитьСвойствоПоказыватьВСпискеВыбора();
@@ -949,9 +949,9 @@
&НаКлиенте &НаКлиенте
Процедура ПользовательИБПользовательОСНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) Процедура ПользовательИБПользовательОСНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
#Если НЕ ВебКлиент И НЕ МобильныйКлиент Тогда #Если НЕ ВебКлиент И НЕ МобильныйКлиент Тогда
ОткрытьФорму("Справочник.Пользователи.Форма.ВыборПользователяОперационнойСистемы", , Элемент); ОткрытьФорму("Справочник.Пользователи.Форма.ВыборПользователяОперационнойСистемы", , Элемент);
#КонецЕсли #КонецЕсли
КонецПроцедуры КонецПроцедуры
@@ -1014,7 +1014,7 @@
Возврат; Возврат;
КонецЕсли; КонецЕсли;
#Если Не ВебКлиент Тогда #Если Не ВебКлиент Тогда
Картинка = Новый Картинка(ПолучитьИзВременногоХранилища(Результат.Хранение)); Картинка = Новый Картинка(ПолучитьИзВременногоХранилища(Результат.Хранение));
Если Картинка.Формат() = ФорматКартинки.НеизвестныйФормат Тогда Если Картинка.Формат() = ФорматКартинки.НеизвестныйФормат Тогда
ПоказатьПредупреждение(, НСтр("ru = 'Необходимо выбрать файл с изображением.'")); ПоказатьПредупреждение(, НСтр("ru = 'Необходимо выбрать файл с изображением.'"));
@@ -1025,7 +1025,7 @@
ПоказатьПредупреждение(, НСтр("ru = 'Необходимо выбрать файл с изображением меньше 2 Мб.'")); ПоказатьПредупреждение(, НСтр("ru = 'Необходимо выбрать файл с изображением меньше 2 Мб.'"));
Возврат; Возврат;
КонецЕсли; КонецЕсли;
#КонецЕсли #КонецЕсли
Если ЭтоАдресВременногоХранилища(АдресФотографии) Тогда Если ЭтоАдресВременногоХранилища(АдресФотографии) Тогда
УдалитьИзВременногоХранилища(АдресФотографии); УдалитьИзВременногоХранилища(АдресФотографии);
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.18739"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.18739"></meta></head><body>
<p>Предназначен для хранения правил проверки учета.</p> <p>Предназначен для хранения правил проверки учета.</p>
<p>Открывается с помощью ссылки <strong>Правила проверки учета</strong> в разделе <strong>Администрирование - Обслуживание - Корректировка данных</strong>.</p> <p>Открывается с помощью ссылки <strong>Правила проверки учета</strong> в разделе <strong>Администрирование - Обслуживание - Корректировка данных</strong>.</p>
<p>В списке выводится:</p> <p>В списке выводится:</p>
@@ -593,7 +593,6 @@
<key>ru</key> <key>ru</key>
<value>Серийный номер</value> <value>Серийный номер</value>
</title> </title>
<visible>true</visible>
<enabled>true</enabled> <enabled>true</enabled>
<userVisible> <userVisible>
<common>true</common> <common>true</common>
@@ -27,7 +27,7 @@
Элементы.Наименование.СписокВыбора.Добавить("", НСтр("ru = '<Другое приложение>'")); Элементы.Наименование.СписокВыбора.Добавить("", НСтр("ru = '<Другое приложение>'"));
ПоставляемыеНастройки = Справочники.ПрограммыЭлектроннойПодписиИШифрования.ПоставляемыеНастройкиПрограмм(); ПоставляемыеНастройки = Справочники.ПрограммыЭлектроннойПодписиИШифрования.ПоставляемыеНастройкиПрограмм();
Для каждого ПоставляемаяНастройка Из ПоставляемыеНастройки Цикл Для каждого ПоставляемаяНастройка Из ПоставляемыеНастройки Цикл
Если ЕстьВОСКлиентаИлиВОССервера(ПоставляемаяНастройка) Тогда Если ЕстьВОСКлиентаИлиВОССервера(ПоставляемаяНастройка) И Не ПоставляемаяНастройка.Неактуальная Тогда
Элементы.Наименование.СписокВыбора.Добавить(ПоставляемаяНастройка.Представление); Элементы.Наименование.СписокВыбора.Добавить(ПоставляемаяНастройка.Представление);
КонецЕсли; КонецЕсли;
КонецЦикла; КонецЦикла;
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17239"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17239"></meta></head><body>
<p>Список предназначен для выбора папок <a href="Catalog.ПрофилиГруппДоступа/Help">профилей групп доступа</a>.</p> <p>Список предназначен для выбора папок <a href="Catalog.ПрофилиГруппДоступа/Help">профилей групп доступа</a>.</p>
<p>Т.к. профилей групп доступа может быть очень много и с похожими настройками ограничений прав, предусмотрена возможность создавать папки для упрощения поиска нужного <a href="Catalog.ПрофилиГруппДоступа.Form.ФормаЭлемента/Help">профиля групп доступа</a> и понимания ограничений прав доступа в целом.</p> <p>Т.к. профилей групп доступа может быть очень много и с похожими настройками ограничений прав, предусмотрена возможность создавать папки для упрощения поиска нужного <a href="Catalog.ПрофилиГруппДоступа.Form.ФормаЭлемента/Help">профиля групп доступа</a> и понимания ограничений прав доступа в целом.</p>
<p><a href="Catalog.ПрофилиГруппДоступа.Form.ФормаСписка/Help">Профили групп доступа</a> можно сгруппировать по различным признакам.</p> <p><a href="Catalog.ПрофилиГруппДоступа.Form.ФормаСписка/Help">Профили групп доступа</a> можно сгруппировать по различным признакам.</p>
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17239"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17239"></meta></head><body>
<p>Сведения о папке <a href="Catalog.ПрофилиГруппДоступа/Help">профилей групп доступа</a>.</p> <p>Сведения о папке <a href="Catalog.ПрофилиГруппДоступа/Help">профилей групп доступа</a>.</p>
<p><a href="Catalog.ПрофилиГруппДоступа.Form.ФормаСписка/Help">Профилей групп доступа</a> может быть много и с похожим назначением, поэтому предусмотрена возможность создавать папки (группы) для упрощения поиска нужного <a href="Catalog.ПрофилиГруппДоступа.Form.ФормаЭлемента/Help">профиля</a> и понимания принципов их формирования.</p> <p><a href="Catalog.ПрофилиГруппДоступа.Form.ФормаСписка/Help">Профилей групп доступа</a> может быть много и с похожим назначением, поэтому предусмотрена возможность создавать папки (группы) для упрощения поиска нужного <a href="Catalog.ПрофилиГруппДоступа.Form.ФормаЭлемента/Help">профиля</a> и понимания принципов их формирования.</p>
<h3>Ввод папки профилей групп доступа</h3> <h3>Ввод папки профилей групп доступа</h3>
@@ -35,13 +35,13 @@
РежимДиалогаВыбораФайла.Открытие, РежимДиалогаВыбораФайла.Открытие,
НСтр("ru = 'Выберите файл профиля ключевых операций'"), НСтр("ru = 'Выберите файл профиля ключевых операций'"),
Новый ОписаниеОповещения("ДиалогВыбораФайлаЗавершение", ЭтотОбъект, Неопределено)); Новый ОписаниеОповещения("ДиалогВыбораФайлаЗавершение", ЭтотОбъект, Неопределено));
#Если ВебКлиент Тогда #Если ВебКлиент Тогда
Оповещение = Новый ОписаниеОповещения("НачатьПодключениеРасширенияРаботыСФайламиЗавершение", ЭтотОбъект, Оповещение = Новый ОписаниеОповещения("НачатьПодключениеРасширенияРаботыСФайламиЗавершение", ЭтотОбъект,
Новый ОписаниеОповещения("ДиалогВыбораФайлаПоказать", ЭтотОбъект, ДополнительныеПараметры)); Новый ОписаниеОповещения("ДиалогВыбораФайлаПоказать", ЭтотОбъект, ДополнительныеПараметры));
НачатьПодключениеРасширенияРаботыСФайлами(Оповещение); НачатьПодключениеРасширенияРаботыСФайлами(Оповещение);
#Иначе #Иначе
ДиалогВыбораФайлаПоказать(Истина, ДополнительныеПараметры); ДиалогВыбораФайлаПоказать(Истина, ДополнительныеПараметры);
#КонецЕсли #КонецЕсли
КонецЕсли; КонецЕсли;
КонецПроцедуры КонецПроцедуры
@@ -62,13 +62,13 @@
РежимДиалогаВыбораФайла.Сохранение, РежимДиалогаВыбораФайла.Сохранение,
НСтр("ru = 'Сохранить профиль ключевых операций в файл'"), НСтр("ru = 'Сохранить профиль ключевых операций в файл'"),
Новый ОписаниеОповещения("ДиалогСохраненияФайлаЗавершение", ЭтотОбъект, Неопределено)); Новый ОписаниеОповещения("ДиалогСохраненияФайлаЗавершение", ЭтотОбъект, Неопределено));
#Если ВебКлиент Тогда #Если ВебКлиент Тогда
Оповещение = Новый ОписаниеОповещения("НачатьПодключениеРасширенияРаботыСФайламиЗавершение", ЭтотОбъект, Оповещение = Новый ОписаниеОповещения("НачатьПодключениеРасширенияРаботыСФайламиЗавершение", ЭтотОбъект,
Новый ОписаниеОповещения("ДиалогВыбораФайлаПоказать", ЭтотОбъект, ДополнительныеПараметры)); Новый ОписаниеОповещения("ДиалогВыбораФайлаПоказать", ЭтотОбъект, ДополнительныеПараметры));
НачатьПодключениеРасширенияРаботыСФайлами(Оповещение); НачатьПодключениеРасширенияРаботыСФайлами(Оповещение);
#Иначе #Иначе
ДиалогВыбораФайлаПоказать(Истина, ДополнительныеПараметры); ДиалогВыбораФайлаПоказать(Истина, ДополнительныеПараметры);
#КонецЕсли #КонецЕсли
КонецЕсли; КонецЕсли;
КонецПроцедуры КонецПроцедуры
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17239"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17239"></meta></head><body>
<p>Предназначен для подбора получателей <a href="Catalog.РассылкиОтчетов.Form.ФормаЭлемента/Help">рассылки</a>.</p> <p>Предназначен для подбора получателей <a href="Catalog.РассылкиОтчетов.Form.ФормаЭлемента/Help">рассылки</a>.</p>
<p>Открывается из рассылки отчетов по ссылке <strong>Укажите получателей</strong>.</p> <p>Открывается из рассылки отчетов по ссылке <strong>Укажите получателей</strong>.</p>
<p>Список состоит из колонок:</p> <p>Список состоит из колонок:</p>
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17126"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17126"></meta></head><body>
<p>Предназначен для выбора группы <a href="Catalog.РассылкиОтчетов/Help">рассылок</a>.</p> <p>Предназначен для выбора группы <a href="Catalog.РассылкиОтчетов/Help">рассылок</a>.</p>
<p>Открывается из окна группы рассылок по кнопке выбора.</p> <p>Открывается из окна группы рассылок по кнопке выбора.</p>
<p>Список по умолчанию выводится в виде дерева.</p> <p>Список по умолчанию выводится в виде дерева.</p>
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17126"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17126"></meta></head><body>
<p>Предназначена для ввода группы <a href="Catalog.РассылкиОтчетов/Help">рассылок отчетов</a>.</p> <p>Предназначена для ввода группы <a href="Catalog.РассылкиОтчетов/Help">рассылок отчетов</a>.</p>
<h3>Сведения о группе</h3> <h3>Сведения о группе</h3>
<ul><li>Напишите <strong>Наименование</strong> группы. <ul><li>Напишите <strong>Наименование</strong> группы.
@@ -46,7 +46,7 @@
</li> </li>
<li>В поле <strong>Автор</strong> выберите пользователя из списка. По умолчанию приложение выбирает в качестве автора текущего пользователя, который создает рассылку. <li>В поле <strong>Автор</strong> выберите пользователя из списка. По умолчанию приложение выбирает в качестве автора текущего пользователя, который создает рассылку.
<ul><li>При запуске по расписанию рассылка выполняется от имени автора. </li></ul></li></ul><h3>Доставка</h3> <ul><li>При запуске по расписанию рассылка выполняется от имени автора. </li></ul></li></ul><h3>Доставка</h3>
<ul dir="ltr"><li>На вкладке описываются все возможные способы доставки настраиваемой рассылки. Содержимое вкладки может меняться, в зависимости от <a href="#&amp;#1042;&amp;#1080;&amp;#1076;&amp;#1056;&amp;#1072;&amp;#1089;&amp;#1089;&amp;#1099;&amp;#1083;&amp;#1082;&amp;#1080;">вида рассылки</a>. <ul dir="ltr"><li>На вкладке описываются все возможные способы доставки настраиваемой рассылки. Содержимое вкладки может меняться, в зависимости от <a href="#ВидРассылки">вида рассылки</a>.
</li> </li>
<li>Если выбрана <b>Личная рассылка автора</b>, то доставка выполняется только по электронной почте по единственному адресу, который указывается в поле <strong>Почтовый адрес</strong>. <li>Если выбрана <b>Личная рассылка автора</b>, то доставка выполняется только по электронной почте по единственному адресу, который указывается в поле <strong>Почтовый адрес</strong>.
</li> </li>
@@ -67,13 +67,13 @@
<li>Если используются оба способа доставки (и публикация, и отправка по почте), то можно указать, что по почте нужно <strong>Отправлять только уведомление</strong> о том, что отчет сформирован. Сами отчеты не будут присоединяться к письму, а будут помещаться в каталог публикации. В этом случае письмо-уведомление будет содержать адрес, по которому находится сформированный отчет.</li> <li>Если используются оба способа доставки (и публикация, и отправка по почте), то можно указать, что по почте нужно <strong>Отправлять только уведомление</strong> о том, что отчет сформирован. Сами отчеты не будут присоединяться к письму, а будут помещаться в каталог публикации. В этом случае письмо-уведомление будет содержать адрес, по которому находится сформированный отчет.</li>
<li>Для того чтобы опубликованный или отправленный отчет получил уникальное наименование, можно выбрать из выпадающего списка <b>Шаблон наименований</b>. Выберите шаблон, включающий в себя параметры формата, периода или даты. Можно выбрать шаблон с нужным форматом даты рассылки, а в <b>Конструкторе форматной строки</b> задать <b>Формат даты</b>, например, <b>dd.MM.yyyy (12.06.2023)</b>. Если в рассылке вложено несколько отчетов,<b> Шаблоном наименований</b> можно воспользоваться для каждого отчета по отдельности.</li> <li>Для того чтобы опубликованный или отправленный отчет получил уникальное наименование, можно выбрать из выпадающего списка <b>Шаблон наименований</b>. Выберите шаблон, включающий в себя параметры формата, периода или даты. Можно выбрать шаблон с нужным форматом даты рассылки, а в <b>Конструкторе форматной строки</b> задать <b>Формат даты</b>, например, <b>dd.MM.yyyy (12.06.2023)</b>. Если в рассылке вложено несколько отчетов,<b> Шаблоном наименований</b> можно воспользоваться для каждого отчета по отдельности.</li>
<li>После установки флажка <strong>Отправлять по электронной почте</strong> становятся доступными <a name="ТемаИТекстПисьма"><strong>Тема и текст письма</strong></a>. Могут содержать шаблоны <a name="Параметр"><strong>параметров</strong></a> рассылки. По умолчанию шаблон письма уже сформирован автоматически. Для добавления параметров в письмо нажмите <strong>Параметр</strong>, выберите нужное значение: <li>После установки флажка <strong>Отправлять по электронной почте</strong> становятся доступными <a name="ТемаИТекстПисьма"><strong>Тема и текст письма</strong></a>. Могут содержать шаблоны <a name="Параметр"><strong>параметров</strong></a> рассылки. По умолчанию шаблон письма уже сформирован автоматически. Для добавления параметров в письмо нажмите <strong>Параметр</strong>, выберите нужное значение:
<ul><li><strong>[</strong><strong>ДатаВыполнения]</strong> - дата рассылки. Параметр может быть указан в <u><a href="#&amp;#1053;&amp;#1072;&amp;#1080;&amp;#1084;&amp;#1077;&amp;#1085;&amp;#1086;&amp;#1074;&amp;#1072;&amp;#1085;&amp;#1080;&amp;#1077;&amp;#1040;&amp;#1088;&amp;#1093;&amp;#1080;&amp;#1074;&amp;#1072;">имени архива</a></u>. <ul><li><strong>[</strong><strong>ДатаВыполнения]</strong> - дата рассылки. Параметр может быть указан в <u><a href="#НаименованиеАрхива">имени архива</a></u>.
</li> </li>
<li> <li>
<div style="MARGIN-RIGHT: 0px"><strong>[Автор]</strong> - пользователь, запустивший рассылку. </div> <div style="MARGIN-RIGHT: 0px"><strong>[Автор]</strong> - пользователь, запустивший рассылку. </div>
</li> </li>
<li> <li>
<div style="MARGIN-RIGHT: 0px"><strong>[Получатель]</strong> - представление получателя рассылки. Доступен только для вида рассылки <a href="#&amp;#1042;&amp;#1080;&amp;#1076;&amp;#1056;&amp;#1072;&amp;#1089;&amp;#1089;&amp;#1099;&amp;#1083;&amp;#1082;&amp;#1080;">свой отчет для каждого получателя</a>. </div> <div style="MARGIN-RIGHT: 0px"><strong>[Получатель]</strong> - представление получателя рассылки. Доступен только для вида рассылки <a href="#ВидРассылки">свой отчет для каждого получателя</a>. </div>
</li> </li>
<li> <li>
<div style="MARGIN-RIGHT: 0px"><strong>[НаименованиеРассылки]</strong> - наименование рассылки. Параметр может быть указан в имени архива. </div> <div style="MARGIN-RIGHT: 0px"><strong>[НаименованиеРассылки]</strong> - наименование рассылки. Параметр может быть указан в имени архива. </div>
@@ -133,7 +133,7 @@
МодульМультиязычностьКлиентСервер = ОбщегоНазначения.ОбщийМодуль("МультиязычностьКлиентСервер"); МодульМультиязычностьКлиентСервер = ОбщегоНазначения.ОбщийМодуль("МультиязычностьКлиентСервер");
МодульМультиязычностьКлиентСервер.ОбработкаПолученияПолейПредставления(Поля, СтандартнаяОбработка); МодульМультиязычностьКлиентСервер.ОбработкаПолученияПолейПредставления(Поля, СтандартнаяОбработка);
КонецЕсли; КонецЕсли;
#Иначе #Иначе
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.Мультиязычность") Тогда Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.Мультиязычность") Тогда
МодульМультиязычностьКлиентСервер = ОбщегоНазначенияКлиент.ОбщийМодуль("МультиязычностьКлиентСервер"); МодульМультиязычностьКлиентСервер = ОбщегоНазначенияКлиент.ОбщийМодуль("МультиязычностьКлиентСервер");
МодульМультиязычностьКлиентСервер.ОбработкаПолученияПолейПредставления(Поля, СтандартнаяОбработка); МодульМультиязычностьКлиентСервер.ОбработкаПолученияПолейПредставления(Поля, СтандартнаяОбработка);
@@ -127,9 +127,9 @@
И Контекст.КлиентскиеПараметры.ОписаниеДанных.Свойство("КонтекстОперации") И Контекст.КлиентскиеПараметры.ОписаниеДанных.Свойство("КонтекстОперации")
И ТипЗнч(Контекст.КлиентскиеПараметры.ОписаниеДанных.КонтекстОперации) = Тип("ФормаКлиентскогоПриложения") Тогда И ТипЗнч(Контекст.КлиентскиеПараметры.ОписаниеДанных.КонтекстОперации) = Тип("ФормаКлиентскогоПриложения") Тогда
#Если ВебКлиент Тогда #Если ВебКлиент Тогда
ПродлитьХранениеКонтекстаОперации(Контекст.КлиентскиеПараметры.ОписаниеДанных.КонтекстОперации); ПродлитьХранениеКонтекстаОперации(Контекст.КлиентскиеПараметры.ОписаниеДанных.КонтекстОперации);
#КонецЕсли #КонецЕсли
КонецЕсли; КонецЕсли;
КонецПроцедуры КонецПроцедуры
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17239"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17239"></meta></head><body>
<p>Предназначен для подбора сертификата электронной подписи.</p> <p>Предназначен для подбора сертификата электронной подписи.</p>
<p>Открывается по кнопке <strong>Подобрать</strong> из окна <a href="Catalog.СертификатыКлючейЭлектроннойПодписиИШифрования.Form.ШифрованиеДанных/Help">Шифрование данных</a>.</p> <p>Открывается по кнопке <strong>Подобрать</strong> из окна <a href="Catalog.СертификатыКлючейЭлектроннойПодписиИШифрования.Form.ШифрованиеДанных/Help">Шифрование данных</a>.</p>
<p>В списке выводится:</p> <p>В списке выводится:</p>
@@ -315,25 +315,38 @@
КонецЕсли; КонецЕсли;
Если ЭлектроннаяПодписьСлужебныйКлиент.ЭтоОперацияОблачнойПодписи(ЭтотОбъект) Тогда Если ЭлектроннаяПодписьСлужебныйКлиент.ЭтоОперацияОблачнойПодписи(ЭтотОбъект) Тогда
МодульСервисКриптографииDSSПодтверждениеКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("СервисКриптографииDSSПодтверждениеКлиент"); МодульСервисКриптографииDSSПодтверждениеКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль(
Если МодульСервисКриптографииDSSПодтверждениеКлиент.ПроверкаПередВыполнениемОперации(ЭтотОбъект, СвойстваПароля.Значение) Тогда "СервисКриптографииDSSПодтверждениеКлиент");
Если ТипЗнч(ОписаниеДанных) = Тип("Структура") Если МодульСервисКриптографииDSSПодтверждениеКлиент.ПроверкаПередВыполнениемОперации(ЭтотОбъект,
И ТипЗнч(ОписаниеДанных.Данные) = Тип("Структура") СвойстваПароля.Значение) Тогда
И ОписаниеДанных.Данные.Свойство("ПараметрыCMS") Тогда
ОписаниеДанных.Данные.ПараметрыCMS.ВключениеСертификатовВПодпись = Строка(ОписаниеДанных.Данные.ПараметрыCMS.ВключениеСертификатовВПодпись); Если ТипЗнч(ОписаниеДанных) = Тип("Структура") И ОписаниеДанных.Свойство("Данные") И ТипЗнч(
ОписаниеДанных.Данные) = Тип("Структура") И ОписаниеДанных.Данные.Свойство("ПараметрыCMS") Тогда
ОписаниеДанных.Данные.ПараметрыCMS.ВключениеСертификатовВПодпись = ЭлектроннаяПодписьСлужебныйКлиент.ВключениеСертификатовВПодписьСтрокой(
ОписаниеДанных.Данные.ПараметрыCMS.ВключениеСертификатовВПодпись);
ИначеЕсли ТипЗнч(ОписаниеДанных) = Тип("Структура") И ОписаниеДанных.Свойство("НаборДанных") Тогда
Для Каждого ДанныеНабора Из ОписаниеДанных.НаборДанных Цикл
Если ТипЗнч(ДанныеНабора.Данные) = Тип("Структура") И ДанныеНабора.Данные.Свойство("ПараметрыCMS") Тогда
ДанныеНабора.Данные.ПараметрыCMS.ВключениеСертификатовВПодпись = ЭлектроннаяПодписьСлужебныйКлиент.ВключениеСертификатовВПодписьСтрокой(
ДанныеНабора.Данные.ПараметрыCMS.ВключениеСертификатовВПодпись);
КонецЕсли;
КонецЦикла;
КонецЕсли; КонецЕсли;
МодульСервисКриптографииDSSПодтверждениеКлиент.ВыполнитьНачальнуюОперациюСервиса(ЭтотОбъект, ОписаниеДанных, СвойстваПароля.Значение); МодульСервисКриптографииDSSПодтверждениеКлиент.ВыполнитьНачальнуюОперациюСервиса(ЭтотОбъект,
ОписаниеДанных, СвойстваПароля.Значение);
Элементы.Подписать.Доступность = Ложь; Элементы.Подписать.Доступность = Ложь;
КонецЕсли; КонецЕсли;
Иначе Иначе
Если Не Элементы.Подписать.Доступность Тогда Если Не Элементы.Подписать.Доступность Тогда
Возврат; Возврат;
КонецЕсли; КонецЕсли;
Элементы.Подписать.Доступность = Ложь; Элементы.Подписать.Доступность = Ложь;
ПодписатьДанные(Новый ОписаниеОповещения("ПодписатьЗавершение", ЭтотОбъект)); ПодписатьДанные(Новый ОписаниеОповещения("ПодписатьЗавершение", ЭтотОбъект));
КонецЕсли; КонецЕсли;
КонецПроцедуры КонецПроцедуры
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17239"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17239"></meta></head><body>
<p>Предназначена для расшифровки данных. </p> <p>Предназначена для расшифровки данных. </p>
<p>Выводятся сведения:</p> <p>Выводятся сведения:</p>
<ul><li>В ссылке в верхней части окна указываются сведения о данных, которые будут расшифрованы. <ul><li>В ссылке в верхней части окна указываются сведения о данных, которые будут расшифрованы.
@@ -670,11 +670,14 @@
РасшифроватьДанныеПослеВыполнения(Результат); РасшифроватьДанныеПослеВыполнения(Результат);
Если Результат.Свойство("Ошибка") Тогда Если Результат.Свойство("Ошибка") Тогда
Ошибка = Результат.Ошибка;
Если ОписаниеДанных.Свойство("КонтекстОперации") Тогда Если ОписаниеДанных.Свойство("КонтекстОперации") Тогда
ОписаниеДанных.КонтекстОперации = ЭтотОбъект; ОписаниеДанных.КонтекстОперации = ЭтотОбъект;
КонецЕсли; КонецЕсли;
Контекст.ОшибкаНаКлиенте = Результат.Ошибка; Контекст.ОшибкаНаКлиенте = Ошибка;
ОбработатьОшибку(Контекст.Оповещение, Контекст.ОшибкаНаКлиенте, Контекст.ОшибкаНаСервере); ДополнительныеДанныеОшибки = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(
Ошибка, "ДополнительныеДанныеПроверокНаКлиенте", Неопределено);
ОбработатьОшибку(Контекст.Оповещение, Контекст.ОшибкаНаКлиенте, Контекст.ОшибкаНаСервере, ДополнительныеДанныеОшибки);
Возврат; Возврат;
КонецЕсли; КонецЕсли;
@@ -789,7 +792,7 @@
КонецФункции КонецФункции
&НаКлиенте &НаКлиенте
Процедура ОбработатьОшибку(Оповещение, ОшибкаНаКлиенте, ОшибкаНаСервере) Процедура ОбработатьОшибку(Оповещение, ОшибкаНаКлиенте, ОшибкаНаСервере, ДополнительныеДанные = Неопределено)
Если ОписаниеДанных.Свойство("ПрекратитьВыполнение") Тогда Если ОписаниеДанных.Свойство("ПрекратитьВыполнение") Тогда
@@ -814,6 +817,12 @@
ДополнительныеПараметры = Новый Структура("Сертификат", Сертификат); ДополнительныеПараметры = Новый Структура("Сертификат", Сертификат);
Если ЗначениеЗаполнено(ДополнительныеДанные) Тогда
Для Каждого КлючИЗначение Из ДополнительныеДанные Цикл
ДополнительныеПараметры.Вставить(КлючИЗначение.Ключ, КлючИЗначение.Значение);
КонецЦикла;
КонецЕсли;
ЭлектроннаяПодписьСлужебныйКлиент.ПоказатьОшибкуОбращенияКПрограмме( ЭлектроннаяПодписьСлужебныйКлиент.ПоказатьОшибкуОбращенияКПрограмме(
НСтр("ru = 'Не удалось расшифровать данные'"), "", НСтр("ru = 'Не удалось расшифровать данные'"), "",
ОшибкаНаКлиенте, ОшибкаНаСервере, ДополнительныеПараметры, ОбработкаПослеПредупреждения); ОшибкаНаКлиенте, ОшибкаНаСервере, ДополнительныеПараметры, ОбработкаПослеПредупреждения);
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17239"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17239"></meta></head><body>
<p>Предназначен для выбора сертификата электронной подписи.</p> <p>Предназначен для выбора сертификата электронной подписи.</p>
<p>В списке выводится:</p> <p>В списке выводится:</p>
<ul><li><strong>Представление</strong> - полное наименование сертификата; <ul><li><strong>Представление</strong> - полное наименование сертификата;
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><style type="text/css">BODY { <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><style type="text/css">BODY {
MARGIN-LEFT: 1em; MARGIN-TOP: 1em; MARGIN-RIGHT: 1em MARGIN-LEFT: 1em; MARGIN-TOP: 1em; MARGIN-RIGHT: 1em
} }
P:first-letter { P:first-letter {
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><style type="text/css">BODY { <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><style type="text/css">BODY {
MARGIN-LEFT: 1em; MARGIN-TOP: 1em; MARGIN-RIGHT: 1em MARGIN-LEFT: 1em; MARGIN-TOP: 1em; MARGIN-RIGHT: 1em
} }
P:first-letter { P:first-letter {
@@ -729,9 +729,9 @@
УстановитьВидимостьПредпросмотра(Предпросмотр); УстановитьВидимостьПредпросмотра(Предпросмотр);
СохранитьВариантПредпросмотра("Файлы", Предпросмотр); СохранитьВариантПредпросмотра("Файлы", Предпросмотр);
#Если ВебКлиент Тогда #Если ВебКлиент Тогда
ОбновитьПредпросмотр(); ОбновитьПредпросмотр();
#КонецЕсли #КонецЕсли
КонецПроцедуры КонецПроцедуры
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 9.00.8112.16421"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html xmlns:o="urn:schemas-microsoft-com:office:office"><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 9.00.8112.16421"></meta></head><body>
<p style="MARGIN: 0cm 0cm 0pt">Предназначен для ввода и редактирования комплексных вопросов <a href="Document.Анкета.Form.ФормаДокумента/Help">анкеты</a>.</p> <p style="MARGIN: 0cm 0cm 0pt">Предназначен для ввода и редактирования комплексных вопросов <a href="Document.Анкета.Form.ФормаДокумента/Help">анкеты</a>.</p>
<p style="MARGIN: 0cm 0cm 0pt">Открывается по команде <strong>Добавить - комплексный вопрос</strong> из <a href="Catalog.ШаблоныАнкет.Form.ФормаЭлемента/Help">шаблона анкеты</a>.</p> <p style="MARGIN: 0cm 0cm 0pt">Открывается по команде <strong>Добавить - комплексный вопрос</strong> из <a href="Catalog.ШаблоныАнкет.Form.ФормаЭлемента/Help">шаблона анкеты</a>.</p>
<ul><li> <ul><li>
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 9.00.8112.16421"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 9.00.8112.16421"></meta></head><body>
<p>Предназначена для ввода простого вопроса в <a href="Catalog.ШаблоныАнкет.Form.ФормаЭлемента/Help">шаблон анкеты</a>.</p> <p>Предназначена для ввода простого вопроса в <a href="Catalog.ШаблоныАнкет.Form.ФормаЭлемента/Help">шаблон анкеты</a>.</p>
<p>Открывается по команде <strong>Добавить - простой вопрос</strong> из шаблона анкеты.</p> <p>Открывается по команде <strong>Добавить - простой вопрос</strong> из шаблона анкеты.</p>
<h3>Ввод простого вопроса в шаблон анкеты</h3> <h3>Ввод простого вопроса в шаблон анкеты</h3>
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.18500"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.18500"></meta></head><body>
<p>Предназначен для выбора шаблонов сообщений sms или электронных писем. </p> <p>Предназначен для выбора шаблонов сообщений sms или электронных писем. </p>
<p>В левой части списка перечислены наименования шаблонов, в правой части показывается содержание шаблона.</p> <p>В левой части списка перечислены наименования шаблонов, в правой части показывается содержание шаблона.</p>
<h3>Использование шаблона</h3> <h3>Использование шаблона</h3>
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17126"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17126"></meta></head><body>
<p>Предназначен для выбора <a href="ChartOfCharacteristicTypes.ВопросыДляАнкетирования/Help">вопросов</a>.</p> <p>Предназначен для выбора <a href="ChartOfCharacteristicTypes.ВопросыДляАнкетирования/Help">вопросов</a>.</p>
<p>Открывается при выборе вопроса по команде <strong>Добавить - простой вопрос</strong> в <a href="Catalog.ШаблоныАнкет.Form.ФормаЭлемента/Help">шаблоне анкеты</a> или в <a href="Catalog.ШаблоныАнкет.Form.ФормаМастераТабличныхВопросов/Help">Помощнике создания табличных вопросов</a>.</p> <p>Открывается при выборе вопроса по команде <strong>Добавить - простой вопрос</strong> в <a href="Catalog.ШаблоныАнкет.Form.ФормаЭлемента/Help">шаблоне анкеты</a> или в <a href="Catalog.ШаблоныАнкет.Form.ФормаМастераТабличныхВопросов/Help">Помощнике создания табличных вопросов</a>.</p>
<p>Одним из важных этапов подготовки <a href="Document.Анкета.Form.ФормаСписка/Help">анкет</a> является составление вопросов. </p> <p>Одним из важных этапов подготовки <a href="Document.Анкета.Form.ФормаСписка/Help">анкет</a> является составление вопросов. </p>
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17126"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17126"></meta></head><body>
<p>Подготовка вопросов для анкетирования.</p> <p>Подготовка вопросов для анкетирования.</p>
<p>Открывается по команде <strong>Вопросы для анкетирования</strong> в разделе <strong>Анкетирование</strong>.</p> <p>Открывается по команде <strong>Вопросы для анкетирования</strong> в разделе <strong>Анкетирование</strong>.</p>
<p>Одним из важных этапов подготовки <a href="Document.Анкета.Form.ФормаСписка/Help">анкет</a> является составление вопросов. </p> <p>Одним из важных этапов подготовки <a href="Document.Анкета.Form.ФормаСписка/Help">анкет</a> является составление вопросов. </p>
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 9.00.8112.16421"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 9.00.8112.16421"></meta></head><body>
<p>Предусмотрена для указания свойств одного <a href="ChartOfCharacteristicTypes.ДополнительныеРеквизитыИСведения.Form.ФормаЭлемента/Help">дополнительного реквизита</a> в зависимости от значения других реквизитов.</p> <p>Предусмотрена для указания свойств одного <a href="ChartOfCharacteristicTypes.ДополнительныеРеквизитыИСведения.Form.ФормаЭлемента/Help">дополнительного реквизита</a> в зависимости от значения других реквизитов.</p>
<p>Для общих дополнительных реквизитов данная настройка недоступна.</p> <p>Для общих дополнительных реквизитов данная настройка недоступна.</p>
<p>Для ввода новых условий нажмите кнопку <strong>Добавить условие</strong>. </p> <p>Для ввода новых условий нажмите кнопку <strong>Добавить условие</strong>. </p>
@@ -60,7 +60,7 @@
МодульМультиязычностьКлиентСервер = ОбщегоНазначения.ОбщийМодуль("МультиязычностьКлиентСервер"); МодульМультиязычностьКлиентСервер = ОбщегоНазначения.ОбщийМодуль("МультиязычностьКлиентСервер");
МодульМультиязычностьКлиентСервер.ОбработкаПолученияПолейПредставления(Поля, СтандартнаяОбработка); МодульМультиязычностьКлиентСервер.ОбработкаПолученияПолейПредставления(Поля, СтандартнаяОбработка);
КонецЕсли; КонецЕсли;
#Иначе #Иначе
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.Мультиязычность") Тогда Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.Мультиязычность") Тогда
МодульМультиязычностьКлиентСервер = ОбщегоНазначенияКлиент.ОбщийМодуль("МультиязычностьКлиентСервер"); МодульМультиязычностьКлиентСервер = ОбщегоНазначенияКлиент.ОбщийМодуль("МультиязычностьКлиентСервер");
МодульМультиязычностьКлиентСервер.ОбработкаПолученияПолейПредставления(Поля, СтандартнаяОбработка); МодульМультиязычностьКлиентСервер.ОбработкаПолученияПолейПредставления(Поля, СтандартнаяОбработка);
@@ -1231,7 +1231,6 @@
<verticalLines>true</verticalLines> <verticalLines>true</verticalLines>
<searchOnInput>Auto</searchOnInput> <searchOnInput>Auto</searchOnInput>
<initialListView>Auto</initialListView> <initialListView>Auto</initialListView>
<initialTreeView>ExpandTopLevel</initialTreeView>
<horizontalStretch>true</horizontalStretch> <horizontalStretch>true</horizontalStretch>
<verticalStretch>true</verticalStretch> <verticalStretch>true</verticalStretch>
<enableStartDrag>true</enableStartDrag> <enableStartDrag>true</enableStartDrag>
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17937"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17937"></meta></head><body>
<p>Предназначен для ввода нескольких значений в список для отбора.</p> <p>Предназначен для ввода нескольких значений в список для отбора.</p>
<p>Открывается из вкладки <strong>Отборы</strong> окна <a href="CommonForm.ФормаНастроекОтчета/Help">Настройки отчета</a> по двойному щелчку мыши в столбце <strong>Значение</strong> для операций <strong>В списке</strong>, <strong>Не в списке</strong>, <strong>В группе из списка</strong>, <strong>Не в группе из списка</strong>.</p> <p>Открывается из вкладки <strong>Отборы</strong> окна <a href="CommonForm.ФормаНастроекОтчета/Help">Настройки отчета</a> по двойному щелчку мыши в столбце <strong>Значение</strong> для операций <strong>В списке</strong>, <strong>Не в списке</strong>, <strong>В группе из списка</strong>, <strong>Не в группе из списка</strong>.</p>
<h3>Подбор значений</h3> <h3>Подбор значений</h3>
@@ -935,7 +935,6 @@
<verticalLines>true</verticalLines> <verticalLines>true</verticalLines>
<searchOnInput>Auto</searchOnInput> <searchOnInput>Auto</searchOnInput>
<initialListView>Auto</initialListView> <initialListView>Auto</initialListView>
<initialTreeView>ExpandTopLevel</initialTreeView>
<horizontalStretch>true</horizontalStretch> <horizontalStretch>true</horizontalStretch>
<verticalStretch>true</verticalStretch> <verticalStretch>true</verticalStretch>
<enableStartDrag>true</enableStartDrag> <enableStartDrag>true</enableStartDrag>
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 9.00.8112.16421"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 9.00.8112.16421"></meta></head><body>
<p>Предназначена для выбора типов пользователей.</p> <p>Предназначена для выбора типов пользователей.</p>
<p>Укажите с помощью флажков нужные типы пользователей, нажмите <strong>Выбрать</strong>.</p> <p>Укажите с помощью флажков нужные типы пользователей, нажмите <strong>Выбрать</strong>.</p>
<h3>См. также:</h3> <h3>См. также:</h3>
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.10570.1001"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.10570.1001"></meta></head><body>
<p>Настраиваются для механизмов, которые работают с веб-сервисами.</p> <p>Настраиваются для механизмов, которые работают с веб-сервисами.</p>
<p>При необходимости укажите адреса прокси-серверов для отдельных протоколов и адреса интернет-серверов, к которым должен использоваться прямой доступ.</p> <p>При необходимости укажите адреса прокси-серверов для отдельных протоколов и адреса интернет-серверов, к которым должен использоваться прямой доступ.</p>
<p>По умолчанию включен флажок <strong>Использовать прокси-сервер по умолчанию для всех протоколов</strong>.</p> <p>По умолчанию включен флажок <strong>Использовать прокси-сервер по умолчанию для всех протоколов</strong>.</p>
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.10570.1001"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.10570.1001"></meta></head><body>
<p>Предназначена для ввода данных регистрации на сервисе склонений <a href="http://morpher.ru/">http://morpher.ru/</a>.</p> <p>Предназначена для ввода данных регистрации на сервисе склонений <a href="http://morpher.ru/">http://morpher.ru/</a>.</p>
<p>Открывается по команде <strong>Настройка доступа к сервису "Морфер"</strong> в разделе <strong>Администрирование - Интернет-Поддержка и Сервисы</strong>.</p> <p>Открывается по команде <strong>Настройка доступа к сервису "Морфер"</strong> в разделе <strong>Администрирование - Интернет-Поддержка и Сервисы</strong>.</p>
<h3>Анонимный вход</h3> <h3>Анонимный вход</h3>
@@ -98,9 +98,9 @@
Процедура НастроитьШрифтВерхнегоКолонтитула(Команда) Процедура НастроитьШрифтВерхнегоКолонтитула(Команда)
ДиалогВыбораШрифта = Новый ДиалогВыбораШрифта; ДиалогВыбораШрифта = Новый ДиалогВыбораШрифта;
#Если Не ВебКлиент Тогда #Если Не ВебКлиент Тогда
ДиалогВыбораШрифта.Шрифт = ШрифтСверху; ДиалогВыбораШрифта.Шрифт = ШрифтСверху;
#КонецЕсли #КонецЕсли
ОписаниеОповещения = Новый ОписаниеОповещения("НастройкаШрифтаВерхнегоКолонтитулаЗавершение", ЭтотОбъект); ОписаниеОповещения = Новый ОписаниеОповещения("НастройкаШрифтаВерхнегоКолонтитулаЗавершение", ЭтотОбъект);
@@ -112,9 +112,9 @@
Процедура НастроитьШрифтНижнегоКолонтитула(Команда) Процедура НастроитьШрифтНижнегоКолонтитула(Команда)
ДиалогВыбораШрифта = Новый ДиалогВыбораШрифта; ДиалогВыбораШрифта = Новый ДиалогВыбораШрифта;
#Если Не ВебКлиент Тогда #Если Не ВебКлиент Тогда
ДиалогВыбораШрифта.Шрифт = ШрифтСнизу; ДиалогВыбораШрифта.Шрифт = ШрифтСнизу;
#КонецЕсли #КонецЕсли
ОписаниеОповещения = Новый ОписаниеОповещения("НастройкаШрифтаНижнегоКолонтитулаЗавершение", ЭтотОбъект); ОписаниеОповещения = Новый ОписаниеОповещения("НастройкаШрифтаНижнегоКолонтитулаЗавершение", ЭтотОбъект);
@@ -1927,6 +1927,7 @@
<autoFill>true</autoFill> <autoFill>true</autoFill>
</contextMenu> </contextMenu>
<autoMaxHeight>true</autoMaxHeight> <autoMaxHeight>true</autoMaxHeight>
<groupVerticalAlign>Center</groupVerticalAlign>
<extInfo xsi:type="form:PictureDecorationExtInfo"> <extInfo xsi:type="form:PictureDecorationExtInfo">
<picture xsi:type="core:PictureRef"> <picture xsi:type="core:PictureRef">
<picture>StdPicture.Information</picture> <picture>StdPicture.Information</picture>
@@ -1071,11 +1071,11 @@
Элементы.ГруппаПрограммыОбновление.Видимость = Истина; Элементы.ГруппаПрограммыОбновление.Видимость = Истина;
КонецЕсли; КонецЕсли;
#Если ВебКлиент Тогда #Если ВебКлиент Тогда
ПодключитьОбработчикОжидания("ОбработчикОжиданияОпределитьУстановленныеПрограммы", 0.3, Истина); ПодключитьОбработчикОжидания("ОбработчикОжиданияОпределитьУстановленныеПрограммы", 0.3, Истина);
#Иначе #Иначе
ПодключитьОбработчикОжидания("ОбработчикОжиданияОпределитьУстановленныеПрограммы", 0.1, Истина); ПодключитьОбработчикОжидания("ОбработчикОжиданияОпределитьУстановленныеПрограммы", 0.1, Истина);
#КонецЕсли #КонецЕсли
КонецПроцедуры КонецПроцедуры
@@ -1337,6 +1337,7 @@
НСтр("ru = 'На вашем компьютере установлено несколько приложений с алгоритмами ГОСТ: %1. НСтр("ru = 'На вашем компьютере установлено несколько приложений с алгоритмами ГОСТ: %1.
|Возможна некорректная работа из-за конфликта между ними. В этом случае следует удалить приложения и после перезагрузки установить только одно из них.'"), |Возможна некорректная работа из-за конфликта между ними. В этом случае следует удалить приложения и после перезагрузки установить только одно из них.'"),
СтрСоединить(МассивПрограмм, ", ")); СтрСоединить(МассивПрограмм, ", "));
Элементы.ДекорацияИнформацияКриптопровайдеры.Картинка = БиблиотекаКартинок.Предупреждение;
// Конец Локализация // Конец Локализация
Иначе Иначе
Элементы.ГруппаПодсказкаКриптопровайдеры.Видимость = Ложь; Элементы.ГруппаПодсказкаКриптопровайдеры.Видимость = Ложь;
@@ -1030,11 +1030,11 @@
Процедура ПечатьПослеПолученияИмениВременногоКаталога(ИмяКаталогаВременныхФайлов, МассивПечатныхФорм) Экспорт Процедура ПечатьПослеПолученияИмениВременногоКаталога(ИмяКаталогаВременныхФайлов, МассивПечатныхФорм) Экспорт
Для Каждого ПечатнаяФорма Из МассивПечатныхФорм Цикл Для Каждого ПечатнаяФорма Из МассивПечатныхФорм Цикл
#Если ВебКлиент Тогда #Если ВебКлиент Тогда
ИмяВременногоФайла = ИмяКаталогаВременныхФайлов + Строка(Новый УникальныйИдентификатор); ИмяВременногоФайла = ИмяКаталогаВременныхФайлов + Строка(Новый УникальныйИдентификатор);
#Иначе #Иначе
ИмяВременногоФайла = ПолучитьИмяВременногоФайла("DOCX"); // АПК:441 Функция для получения имени временного файла. ИмяВременногоФайла = ПолучитьИмяВременногоФайла("DOCX"); // АПК:441 Функция для получения имени временного файла.
#КонецЕсли #КонецЕсли
Оповещение = Новый ОписаниеОповещения("ПослеСохраненияФайла", ЭтотОбъект, ИмяВременногоФайла); Оповещение = Новый ОписаниеОповещения("ПослеСохраненияФайла", ЭтотОбъект, ИмяВременногоФайла);
ДанныеДокумента = ПолучитьИзВременногоХранилища(ПечатнаяФорма.АдресПечатнойФормы); // ДвоичныеДанные ДанныеДокумента = ПолучитьИзВременногоХранилища(ПечатнаяФорма.АдресПечатнойФормы); // ДвоичныеДанные
ДанныеДокумента.НачатьЗапись(Оповещение, ИмяВременногоФайла); ДанныеДокумента.НачатьЗапись(Оповещение, ИмяВременногоФайла);
@@ -32,14 +32,14 @@
Отказ = Истина; Отказ = Истина;
КонецЕсли; КонецЕсли;
Иначе Иначе
#Если Не ВебКлиент И Не МобильныйКлиент Тогда #Если Не ВебКлиент И Не МобильныйКлиент Тогда
Попытка Попытка
Результат = ИзменилсяТолькоНомерСборкиОсновнойКонфигурации(); Результат = ИзменилсяТолькоНомерСборкиОсновнойКонфигурации();
Исключение Исключение
ТекстОшибки = ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()); ТекстОшибки = ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
ЗаписатьОшибку(ТекстОшибки); ЗаписатьОшибку(ТекстОшибки);
КонецПопытки; КонецПопытки;
#КонецЕсли #КонецЕсли
Отказ = Истина; Отказ = Истина;
Если ТипЗнч(Результат) <> Тип("Булево") Тогда Если ТипЗнч(Результат) <> Тип("Булево") Тогда
Результат = Ложь; Результат = Ложь;
@@ -275,7 +275,7 @@
</userVisible> </userVisible>
<title> <title>
<key>ru</key> <key>ru</key>
<value>Подменю включить расширения</value> <value>Включить/выключить расширения</value>
</title> </title>
<toolTip> <toolTip>
<key>ru</key> <key>ru</key>
@@ -370,7 +370,7 @@
</userVisible> </userVisible>
<title> <title>
<key>ru</key> <key>ru</key>
<value>Подменю передавать в подчиненные узлы РИБ</value> <value>Передавать в подчиненные узлы РИБ</value>
</title> </title>
<toolTip> <toolTip>
<key>ru</key> <key>ru</key>
@@ -1163,6 +1163,44 @@
<horizontalAlign>Left</horizontalAlign> <horizontalAlign>Left</horizontalAlign>
</extInfo> </extInfo>
</items> </items>
<items xsi:type="form:Decoration">
<name>ДополнительнаяСсылка</name>
<id>116</id>
<title>
<key>ru</key>
<value>Дополнительная ссылка</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ДополнительнаяСсылкаРасширеннаяПодсказка</name>
<id>118</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДополнительнаяСсылкаКонтекстноеМеню</name>
<id>117</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<handlers>
<event>URLProcessing</event>
<name>ДополнительнаяСсылкаОбработкаНавигационнойСсылки</name>
</handlers>
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</items>
<items xsi:type="form:FormGroup"> <items xsi:type="form:FormGroup">
<name>ГруппаПодвал</name> <name>ГруппаПодвал</name>
<id>60</id> <id>60</id>
@@ -1875,6 +1913,26 @@
<stringQualifiers/> <stringQualifiers/>
</valueType> </valueType>
</parameters> </parameters>
<parameters>
<name>ТекстДополнительнойСсылки</name>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
</parameters>
<parameters>
<name>ОбработчикДополнительнойСсылки</name>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<keyParameter>true</keyParameter>
</parameters>
<parameters>
<name>ПараметрОбработчикаДополнительнойСсылки</name>
<valueType/>
<keyParameter>true</keyParameter>
</parameters>
<commandInterface> <commandInterface>
<navigationPanel/> <navigationPanel/>
<commandBar/> <commandBar/>
@@ -60,16 +60,23 @@
СтандартныеПодсистемыСервер.СброситьРазмерыИПоложениеОкна(ЭтотОбъект); СтандартныеПодсистемыСервер.СброситьРазмерыИПоложениеОкна(ЭтотОбъект);
Если ЗначениеЗаполнено(Параметры.ТекстДополнительнойСсылки) Тогда
Элементы.ДополнительнаяСсылка.Видимость = Истина;
Элементы.ДополнительнаяСсылка.Заголовок = СтроковыеФункции.ФорматированнаяСтрока(Параметры.ТекстДополнительнойСсылки);
Иначе
Элементы.ДополнительнаяСсылка.Видимость = Ложь;
КонецЕсли;
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
Процедура ПриОткрытии(Отказ) Процедура ПриОткрытии(Отказ)
#Если Не МобильноеПриложениеКлиент И Не МобильныйКлиент Тогда #Если Не МобильноеПриложениеКлиент И Не МобильныйКлиент Тогда
Если ПараметрыДополненияТекстаРешенияОшибкиКлассификатора <> Неопределено Тогда Если ПараметрыДополненияТекстаРешенияОшибкиКлассификатора <> Неопределено Тогда
ПодключитьОбработчикОжидания("ДополнитьРешениеКлассификатораОшибокПодробностями", 0.1, Истина); ПодключитьОбработчикОжидания("ДополнитьРешениеКлассификатораОшибокПодробностями", 0.1, Истина);
КонецЕсли; КонецЕсли;
#КонецЕсли #КонецЕсли
КонецПроцедуры КонецПроцедуры
@@ -146,6 +153,27 @@
Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка, ДополнительныеДанные()); Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка, ДополнительныеДанные());
КонецПроцедуры КонецПроцедуры
&НаКлиенте
Процедура ДополнительнаяСсылкаОбработкаНавигационнойСсылки(Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Параметры.ОбработчикДополнительнойСсылки) Тогда
СтандартнаяОбработка = Ложь;
ПолноеИмяПроцедуры = Параметры.ОбработчикДополнительнойСсылки;
ЧастиИмениПроцедуры = СтрРазделить(ПолноеИмяПроцедуры, ".");
ИмяМодуля = ЧастиИмениПроцедуры[0];
ИмяПроцедуры = ЧастиИмениПроцедуры[1];
Оповещение = Новый ОписаниеОповещения(ИмяПроцедуры, ОбщегоНазначенияКлиент.ОбщийМодуль(ИмяМодуля));
ПараметрОповещения = Новый Структура("ПараметрОбработчикаДополнительнойСсылки, НавигационнаяСсылка",
Параметры.ПараметрОбработчикаДополнительнойСсылки, НавигационнаяСсылкаФорматированнойСтроки);
ВыполнитьОбработкуОповещения(Оповещение, ПараметрОповещения);
КонецЕсли;
КонецПроцедуры
#КонецОбласти #КонецОбласти
#Область ОбработчикиКомандФормы #Область ОбработчикиКомандФормы
@@ -640,7 +640,7 @@
<id>77</id> <id>77</id>
<title> <title>
<key>ru</key> <key>ru</key>
<value>Перезаполнение предопределенных элементов и классификаторов.</value> <value>Перезаполнение предопределенных элементов и классификаторов на выбранных языках учета.</value>
</title> </title>
<visible>true</visible> <visible>true</visible>
<enabled>true</enabled> <enabled>true</enabled>
@@ -663,6 +663,7 @@
<autoFill>true</autoFill> <autoFill>true</autoFill>
</contextMenu> </contextMenu>
<type>Label</type> <type>Label</type>
<width>50</width>
<height>3</height> <height>3</height>
<extInfo xsi:type="form:LabelDecorationExtInfo"> <extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign> <horizontalAlign>Left</horizontalAlign>
@@ -816,7 +817,7 @@
<id>72</id> <id>72</id>
<title> <title>
<key>ru</key> <key>ru</key>
<value>Предопределенные элементы и классификаторы успешно перезаполнены.</value> <value>Предопределенные элементы и классификаторы успешно перезаполнены на выбранных языках учета.</value>
</title> </title>
<visible>true</visible> <visible>true</visible>
<enabled>true</enabled> <enabled>true</enabled>
@@ -839,6 +840,7 @@
<autoFill>true</autoFill> <autoFill>true</autoFill>
</contextMenu> </contextMenu>
<type>Label</type> <type>Label</type>
<width>50</width>
<height>3</height> <height>3</height>
<extInfo xsi:type="form:LabelDecorationExtInfo"> <extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign> <horizontalAlign>Left</horizontalAlign>
@@ -1032,7 +1034,6 @@
<common>true</common> <common>true</common>
</edit> </edit>
<fillChecking>ShowError</fillChecking> <fillChecking>ShowError</fillChecking>
<savedData>true</savedData>
</attributes> </attributes>
<attributes> <attributes>
<name>ИспользоватьДополнительныйЯзык1</name> <name>ИспользоватьДополнительныйЯзык1</name>
@@ -1050,7 +1051,6 @@
<edit> <edit>
<common>true</common> <common>true</common>
</edit> </edit>
<savedData>true</savedData>
</attributes> </attributes>
<attributes> <attributes>
<name>ДополнительныйЯзык1</name> <name>ДополнительныйЯзык1</name>
@@ -1069,7 +1069,6 @@
<edit> <edit>
<common>true</common> <common>true</common>
</edit> </edit>
<savedData>true</savedData>
</attributes> </attributes>
<attributes> <attributes>
<name>ЧасовойПоясПрограммы</name> <name>ЧасовойПоясПрограммы</name>
@@ -1088,7 +1087,6 @@
<edit> <edit>
<common>true</common> <common>true</common>
</edit> </edit>
<savedData>true</savedData>
</attributes> </attributes>
<attributes> <attributes>
<name>ДополнительныйЯзык2</name> <name>ДополнительныйЯзык2</name>
@@ -1107,7 +1105,6 @@
<edit> <edit>
<common>true</common> <common>true</common>
</edit> </edit>
<savedData>true</savedData>
</attributes> </attributes>
<attributes> <attributes>
<name>ИспользоватьДополнительныйЯзык2</name> <name>ИспользоватьДополнительныйЯзык2</name>
@@ -1125,7 +1122,6 @@
<edit> <edit>
<common>true</common> <common>true</common>
</edit> </edit>
<savedData>true</savedData>
</attributes> </attributes>
<attributes> <attributes>
<name>Источник</name> <name>Источник</name>
@@ -1251,6 +1247,19 @@
<common>true</common> <common>true</common>
</edit> </edit>
</attributes> </attributes>
<attributes>
<name>ДанныеБылиИзменены</name>
<id>15</id>
<valueType>
<types>Boolean</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<formCommands> <formCommands>
<name>ОК</name> <name>ОК</name>
<title> <title>
@@ -21,6 +21,7 @@
Источник = Параметры.Источник; Источник = Параметры.Источник;
Если Источник = "ПанельАдминистрированияБСП" Тогда Если Источник = "ПанельАдминистрированияБСП" Тогда
Элементы.ОК.Заголовок = НСтр("ru = 'Изменить'"); Элементы.ОК.Заголовок = НСтр("ru = 'Изменить'");
Элементы.ОК.ОтображениеПодсказки = ОтображениеПодсказки.Нет;
Элементы.ГруппаЧасовойПоясПрограммы.Видимость = Ложь; Элементы.ГруппаЧасовойПоясПрограммы.Видимость = Ложь;
Заголовок = НСтр("ru = 'Языки ведения учета'"); Заголовок = НСтр("ru = 'Языки ведения учета'");
АвтоЗаголовок = Ложь; АвтоЗаголовок = Ложь;
@@ -182,11 +183,13 @@
&НаКлиенте &НаКлиенте
Процедура ИспользоватьДополнительныйЯзык1ПриИзменении(Элемент) Процедура ИспользоватьДополнительныйЯзык1ПриИзменении(Элемент)
Элементы.ДополнительныйЯзык1.Доступность = ИспользоватьДополнительныйЯзык1; Элементы.ДополнительныйЯзык1.Доступность = ИспользоватьДополнительныйЯзык1;
ДанныеБылиИзменены = Истина;
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
Процедура ИспользоватьДополнительныйЯзык2ПриИзменении(Элемент) Процедура ИспользоватьДополнительныйЯзык2ПриИзменении(Элемент)
Элементы.ДополнительныйЯзык2.Доступность = ИспользоватьДополнительныйЯзык2; Элементы.ДополнительныйЯзык2.Доступность = ИспользоватьДополнительныйЯзык2;
ДанныеБылиИзменены = Истина;
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
@@ -200,6 +203,8 @@
КонецЕсли; КонецЕсли;
КонецЕсли; КонецЕсли;
ДанныеБылиИзменены = Истина;
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
@@ -217,7 +222,9 @@
ДополнительныйЯзык2 = ПредыдущийЯзык; ДополнительныйЯзык2 = ПредыдущийЯзык;
КонецЕсли; КонецЕсли;
КонецЕсли; КонецЕсли;
ДанныеБылиИзменены = Истина;
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
@@ -230,7 +237,9 @@
ОсновнойЯзык = ПредыдущийЯзык; ОсновнойЯзык = ПредыдущийЯзык;
КонецЕсли; КонецЕсли;
КонецЕсли; КонецЕсли;
ДанныеБылиИзменены = Истина;
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
@@ -246,6 +255,7 @@
&НаКлиенте &НаКлиенте
Процедура ЧасовойПоясПрограммыПриИзменении(Элемент) Процедура ЧасовойПоясПрограммыПриИзменении(Элемент)
СмещениеЧасовогоПояса = СмещениеЧасовогоПояса(ЧасовойПоясПрограммы, ТекущиеВремяНаКлиенте()); СмещениеЧасовогоПояса = СмещениеЧасовогоПояса(ЧасовойПоясПрограммы, ТекущиеВремяНаКлиенте());
ДанныеБылиИзменены = Истина;
КонецПроцедуры КонецПроцедуры
#КонецОбласти #КонецОбласти
@@ -276,7 +286,7 @@
&НаКлиенте &НаКлиенте
Процедура АвтоматическоеЗакрытиеФормыПриНеактивности() Процедура АвтоматическоеЗакрытиеФормыПриНеактивности()
Если Модифицированность Тогда Если ДанныеБылиИзменены Тогда
Элементы.ОК.Заголовок = НСтр("ru = 'ОК'"); Элементы.ОК.Заголовок = НСтр("ru = 'ОК'");
Возврат; Возврат;
КонецЕсли; КонецЕсли;
@@ -170,11 +170,11 @@
&НаКлиенте &НаКлиенте
Процедура ПриОткрытии(Отказ) Процедура ПриОткрытии(Отказ)
#Если ВебКлиент Тогда #Если ВебКлиент Тогда
СпрятатьЗонуПеретаскивания = Ложь; СпрятатьЗонуПеретаскивания = Ложь;
#Иначе #Иначе
СпрятатьЗонуПеретаскивания = Истина; СпрятатьЗонуПеретаскивания = Истина;
#КонецЕсли #КонецЕсли
Если ЭтоLinuxКлиент Тогда Если ЭтоLinuxКлиент Тогда
СпрятатьЗонуПеретаскивания = Ложь; СпрятатьЗонуПеретаскивания = Ложь;
@@ -1320,11 +1320,11 @@
ПараметрыСохранения = ФайловаяСистемаКлиент.ПараметрыСохраненияФайла(); ПараметрыСохранения = ФайловаяСистемаКлиент.ПараметрыСохраненияФайла();
#Если ВебКлиент Тогда #Если ВебКлиент Тогда
ПараметрыСохранения.Интерактивно = Истина; ПараметрыСохранения.Интерактивно = Истина;
#Иначе #Иначе
ПараметрыСохранения.Интерактивно = Ложь; ПараметрыСохранения.Интерактивно = Ложь;
#КонецЕсли #КонецЕсли
ПараметрыОткрытия = ОбработчикПослеРазрешений.ДополнительныеПараметры; ПараметрыОткрытия = ОбработчикПослеРазрешений.ДополнительныеПараметры;
ФайловаяСистемаКлиент.СохранитьФайл(ОбработчикПослеРазрешений, ПараметрыОткрытия.АдресДокумента, ВременныйКаталог+ПараметрыОткрытия.ИмяФайлаДляОткрытия, ПараметрыСохранения); ФайловаяСистемаКлиент.СохранитьФайл(ОбработчикПослеРазрешений, ПараметрыОткрытия.АдресДокумента, ВременныйКаталог+ПараметрыОткрытия.ИмяФайлаДляОткрытия, ПараметрыСохранения);
@@ -2666,9 +2666,9 @@
Если ОбщегоНазначенияКлиентСервер.СравнитьВерсии(ВерсияПлатформы, "8.3.23.838") >= 0 Тогда Если ОбщегоНазначенияКлиентСервер.СравнитьВерсии(ВерсияПлатформы, "8.3.23.838") >= 0 Тогда
ПодключитьОбработчикОжидания("ПодсветитьЯчейкиСВыбраннымПолем", 0.1, Истина); ПодключитьОбработчикОжидания("ПодсветитьЯчейкиСВыбраннымПолем", 0.1, Истина);
Иначе Иначе
#Если Не ВебКлиент Тогда #Если Не ВебКлиент Тогда
ПодключитьОбработчикОжидания("ПодсветитьЯчейкиСВыбраннымПолем", 0.1, Истина); ПодключитьОбработчикОжидания("ПодсветитьЯчейкиСВыбраннымПолем", 0.1, Истина);
#КонецЕсли #КонецЕсли
КонецЕсли; КонецЕсли;
КонецПроцедуры КонецПроцедуры
@@ -2842,10 +2842,10 @@
Для Каждого Область Из Элементы.ТабличныйДокумент.ПолучитьВыделенныеОбласти() Цикл Для Каждого Область Из Элементы.ТабличныйДокумент.ПолучитьВыделенныеОбласти() Цикл
Если СтрНачинаетсяС(Область.Имя, "ШтампЭП") Тогда Если СтрНачинаетсяС(Область.Имя, "ШтампЭП") Тогда
Область.Имя = ""; Область.Имя = "";
#Если ВебКлиент Тогда #Если ВебКлиент Тогда
// Требуется для обновления отображения // Требуется для обновления отображения
Область.Защита = Область.Защита; Область.Защита = Область.Защита;
#КонецЕсли #КонецЕсли
КонецЕсли; КонецЕсли;
КонецЦикла; КонецЦикла;
@@ -1,4 +1,4 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html;charset=utf-8" http-equiv="content-type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17239"></meta></head><body> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.17239"></meta></head><body>
<p>Предназначена для просмотра основных свойств сертификата ключа электронной подписи и шифрования.</p> <p>Предназначена для просмотра основных свойств сертификата ключа электронной подписи и шифрования.</p>
<h3>Основные сведения о сертификате</h3> <h3>Основные сведения о сертификате</h3>
<ul><li><strong>Кому выдан</strong> - личные данные владельца сертификата; <ul><li><strong>Кому выдан</strong> - личные данные владельца сертификата;
@@ -133,7 +133,7 @@
&НаСервере &НаСервере
Процедура ВыполнитьСравнение() Процедура ВыполнитьСравнение()
#Область Сравнение #Область Сравнение
// Тексты из ячеек табличных документов выгружается в таблицы значений. // Тексты из ячеек табличных документов выгружается в таблицы значений.
ТаблицаЛевогоДокумента = ПрочитатьТабличныйДокумент(ТабличныйДокументЛевый); ТаблицаЛевогоДокумента = ПрочитатьТабличныйДокумент(ТабличныйДокументЛевый);
@@ -152,9 +152,9 @@
ТаблицаЛевогоДокумента = Неопределено; ТаблицаЛевогоДокумента = Неопределено;
ТаблицаПравогоДокумента = Неопределено; ТаблицаПравогоДокумента = Неопределено;
#КонецОбласти #КонецОбласти
#Область ГрафическоеОтображениеРазличий #Область ГрафическоеОтображениеРазличий
ЦветОбластиУдаленнойФон = ЦветаСтиля.УдаленныйРеквизитФон; ЦветОбластиУдаленнойФон = ЦветаСтиля.УдаленныйРеквизитФон;
ЦветОбластиДобавленнойФон = ЦветаСтиля.ДобавленныйРеквизитФон; ЦветОбластиДобавленнойФон = ЦветаСтиля.ДобавленныйРеквизитФон;
@@ -279,7 +279,7 @@
РазличияЯчеекЛевый.Сортировать("НомерСтроки, НомерСтолбца"); РазличияЯчеекЛевый.Сортировать("НомерСтроки, НомерСтолбца");
РазличияЯчеекПравый.Сортировать("НомерСтроки, НомерСтолбца"); РазличияЯчеекПравый.Сортировать("НомерСтроки, НомерСтолбца");
#КонецОбласти #КонецОбласти
КонецПроцедуры КонецПроцедуры
@@ -478,9 +478,9 @@
Если ТипЗнч(Строка.Поле) = Тип("ПолеКомпоновкиДанных") Тогда Если ТипЗнч(Строка.Поле) = Тип("ПолеКомпоновкиДанных") Тогда
Если Поле = Элементы.СортировкаПоле Тогда // Изменение поля Если Поле = Элементы.СортировкаПоле Тогда // Изменение поля
#Если Не МобильныйКлиент Тогда #Если Не МобильныйКлиент Тогда
СортировкаВыбратьПоле(ИдентификаторСтроки, Строка); СортировкаВыбратьПоле(ИдентификаторСтроки, Строка);
#КонецЕсли #КонецЕсли
ИначеЕсли Поле = Элементы.СортировкаТипУпорядочивания Тогда // Изменение порядка. ИначеЕсли Поле = Элементы.СортировкаТипУпорядочивания Тогда // Изменение порядка.
ИзменитьТипУпорядочивания(Строка); ИзменитьТипУпорядочивания(Строка);
КонецЕсли; КонецЕсли;
@@ -2581,7 +2581,7 @@
Возврат; Возврат;
КонецЕсли; КонецЕсли;
#Область ПараметрыРедактированияУсловия #Область ПараметрыРедактированияУсловия
ПолеУсловия = Элементы.ОтборыВидСравнения; ПолеУсловия = Элементы.ОтборыВидСравнения;
ПолеУсловия.РежимВыбораИзСписка = (Строка.ДоступныеВидыСравнения <> Неопределено); ПолеУсловия.РежимВыбораИзСписка = (Строка.ДоступныеВидыСравнения <> Неопределено);
@@ -2608,9 +2608,9 @@
Условие = Строка.ВидСравнения; Условие = Строка.ВидСравнения;
КонецЕсли; КонецЕсли;
#КонецОбласти #КонецОбласти
#Область ПараметрыРедактированияЗначения #Область ПараметрыРедактированияЗначения
ПолеЗначения = ?(Строка.ЭтоПараметр, Элементы.ОтборыЗначение, Элементы.ОтборыПравоеЗначение); ПолеЗначения = ?(Строка.ЭтоПараметр, Элементы.ОтборыЗначение, Элементы.ОтборыПравоеЗначение);
ПолеЗначения.ДоступныеТипы = Строка.ТипЗначения; ПолеЗначения.ДоступныеТипы = Строка.ТипЗначения;
@@ -2627,7 +2627,7 @@
КонецЕсли; КонецЕсли;
#КонецОбласти #КонецОбласти
КонецПроцедуры КонецПроцедуры
@@ -6671,14 +6671,14 @@
Процедура ОбновитьСвойстваЭлементовФормы() Процедура ОбновитьСвойстваЭлементовФормы()
КомпоновщикНастроек = Отчет.КомпоновщикНастроек; КомпоновщикНастроек = Отчет.КомпоновщикНастроек;
#Область ОбщиеПризнакиСвойствЭлементов #Область ОбщиеПризнакиСвойствЭлементов
ЭтоРасширенныйРежим = Булево(РасширенныйРежим); ЭтоРасширенныйРежим = Булево(РасширенныйРежим);
ОтображатьИнформацию = ЭтоРасширенныйРежим И Не РежимИзмененияЭлементаСтруктурыНастроек; ОтображатьИнформацию = ЭтоРасширенныйРежим И Не РежимИзмененияЭлементаСтруктурыНастроек;
#КонецОбласти #КонецОбласти
#Область СвойстваЭлементовПростогоРежимаРедактирования #Область СвойстваЭлементовПростогоРежимаРедактирования
Элементы.Основное.Видимость = Не ЭтоРасширенныйРежим; Элементы.Основное.Видимость = Не ЭтоРасширенныйРежим;
Элементы.Дополнительно.Видимость = Не ЭтоРасширенныйРежим И Не ЭтоМобильныйКлиент; Элементы.Дополнительно.Видимость = Не ЭтоРасширенныйРежим И Не ЭтоМобильныйКлиент;
@@ -6686,9 +6686,9 @@
Элементы.ВыводитьЗаголовок.Видимость = Не ЭтоРасширенныйРежим; Элементы.ВыводитьЗаголовок.Видимость = Не ЭтоРасширенныйРежим;
Элементы.ВыводитьФильтры.Видимость = Не ЭтоРасширенныйРежим; Элементы.ВыводитьФильтры.Видимость = Не ЭтоРасширенныйРежим;
#КонецОбласти #КонецОбласти
#Область СвойстваЭлементовСтраницыСоставГруппировки #Область СвойстваЭлементовСтраницыСоставГруппировки
ОтображатьСоставГруппировки = (ЭтоРасширенныйРежим ОтображатьСоставГруппировки = (ЭтоРасширенныйРежим
И РежимИзмененияЭлементаСтруктурыНастроек И РежимИзмененияЭлементаСтруктурыНастроек
@@ -6698,9 +6698,9 @@
Элементы.КомандыСоставаГруппировки.Видимость = ОтображатьСоставГруппировки; Элементы.КомандыСоставаГруппировки.Видимость = ОтображатьСоставГруппировки;
Элементы.СоставГруппировки.Видимость = ОтображатьСоставГруппировки; Элементы.СоставГруппировки.Видимость = ОтображатьСоставГруппировки;
#КонецОбласти #КонецОбласти
#Область СвойстваЭлементовСтраницыОтборы #Область СвойстваЭлементовСтраницыОтборы
ОтображатьОтборы = (ЭтоРасширенныйРежим ОтображатьОтборы = (ЭтоРасширенныйРежим
И ТипЭлементаСтруктурыНастроек <> "ДиаграммаКомпоновкиДанных"); И ТипЭлементаСтруктурыНастроек <> "ДиаграммаКомпоновкиДанных");
@@ -6759,9 +6759,9 @@
Элементы.ОтборыПерейтиКНастройкамДляТехническогоСпециалиста.Видимость = ЭтоРасширенныйРежим Элементы.ОтборыПерейтиКНастройкамДляТехническогоСпециалиста.Видимость = ЭтоРасширенныйРежим
И Не РежимИзмененияЭлементаСтруктурыНастроек; И Не РежимИзмененияЭлементаСтруктурыНастроек;
#КонецОбласти #КонецОбласти
#Область СвойстваЭлементовСтраницыПоляИСортировки #Область СвойстваЭлементовСтраницыПоляИСортировки
СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек( СвойствоЭлементаСтруктуры = СвойствоЭлементаСтруктурыНастроек(
КомпоновщикНастроек, "Выбор", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим); КомпоновщикНастроек, "Выбор", ИдентификаторЭлементаСтруктурыНастроек, РасширенныйРежим);
@@ -6801,9 +6801,9 @@
Элементы.ВыбранныеПоляПерейтиКНастройкамДляТехническогоСпециалиста.Видимость = ЭтоРасширенныйРежим Элементы.ВыбранныеПоляПерейтиКНастройкамДляТехническогоСпециалиста.Видимость = ЭтоРасширенныйРежим
И Не РежимИзмененияЭлементаСтруктурыНастроек; И Не РежимИзмененияЭлементаСтруктурыНастроек;
#КонецОбласти #КонецОбласти
#Область СвойстваЭлементовСтраницыОформление #Область СвойстваЭлементовСтраницыОформление
ОтображатьОформление = ЭтоРасширенныйРежим; ОтображатьОформление = ЭтоРасширенныйРежим;
Элементы.Оформление.Видимость = ОтображатьОформление; Элементы.Оформление.Видимость = ОтображатьОформление;
@@ -6814,9 +6814,9 @@
Элементы.ОформлениеПерейтиКНастройкамДляТехническогоСпециалиста.Видимость = ЭтоРасширенныйРежим Элементы.ОформлениеПерейтиКНастройкамДляТехническогоСпециалиста.Видимость = ЭтоРасширенныйРежим
И Не РежимИзмененияЭлементаСтруктурыНастроек; И Не РежимИзмененияЭлементаСтруктурыНастроек;
#КонецОбласти #КонецОбласти
#Область СвойстваЭлементовСтраницыСтруктураВарианта #Область СвойстваЭлементовСтраницыСтруктураВарианта
ОтображатьСтруктуруВарианта = ОтображатьСтруктуруВарианта =
НастройкиОтчета.РазрешеноИзменятьСтруктуру НастройкиОтчета.РазрешеноИзменятьСтруктуру
@@ -6851,9 +6851,9 @@
Элементы.СтруктураВариантаПерейтиКНастройкамДляТехническогоСпециалиста.Видимость = ЭтоРасширенныйРежим Элементы.СтруктураВариантаПерейтиКНастройкамДляТехническогоСпециалиста.Видимость = ЭтоРасширенныйРежим
И Не РежимИзмененияЭлементаСтруктурыНастроек; И Не РежимИзмененияЭлементаСтруктурыНастроек;
#КонецОбласти #КонецОбласти
#Область ОбщиеСвойстваЭлементов #Область ОбщиеСвойстваЭлементов
Если ТипЗнч(ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "ОтображатьСтраницы", Неопределено)) = Тип("Булево") Тогда Если ТипЗнч(ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "ОтображатьСтраницы", Неопределено)) = Тип("Булево") Тогда
ОтображатьСтраницы = (Параметры.ОтображатьСтраницы <> Ложь); ОтображатьСтраницы = (Параметры.ОтображатьСтраницы <> Ложь);
@@ -6903,7 +6903,7 @@
Элементы.Справка.Видимость = Ложь; Элементы.Справка.Видимость = Ложь;
КонецЕсли; КонецЕсли;
#КонецОбласти #КонецОбласти
КонецПроцедуры КонецПроцедуры
//////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////
@@ -6924,7 +6924,7 @@
Процедура УстановитьУсловноеОформление() Процедура УстановитьУсловноеОформление()
УсловноеОформление.Элементы.Очистить(); УсловноеОформление.Элементы.Очистить();
#Область УсловноеОформлениеТаблицыФормыСоставГруппировки #Область УсловноеОформлениеТаблицыФормыСоставГруппировки
// //
Элемент = УсловноеОформление.Элементы.Добавить(); Элемент = УсловноеОформление.Элементы.Добавить();
@@ -6980,9 +6980,9 @@
ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СоставГруппировкиПоле.Имя); ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СоставГруппировкиПоле.Имя);
#КонецОбласти #КонецОбласти
#Область УсловноеОформлениеТаблицыФормыОтборы #Область УсловноеОформлениеТаблицыФормыОтборы
// //
Элемент = УсловноеОформление.Элементы.Добавить(); Элемент = УсловноеОформление.Элементы.Добавить();
@@ -7332,9 +7332,9 @@
ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыПредставлениеПользовательскойНастройки.Имя); ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ОтборыПредставлениеПользовательскойНастройки.Имя);
#КонецОбласти #КонецОбласти
#Область УсловноеОформлениеТаблицыФормыВыбранныеПоля #Область УсловноеОформлениеТаблицыФормыВыбранныеПоля
// //
@@ -7363,9 +7363,9 @@
ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ВыбранныеПоляПоле.Имя); ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.ВыбранныеПоляПоле.Имя);
#КонецОбласти #КонецОбласти
#Область УсловноеОформлениеТаблицыФормыСортировка #Область УсловноеОформлениеТаблицыФормыСортировка
// //
Элемент = УсловноеОформление.Элементы.Добавить(); Элемент = УсловноеОформление.Элементы.Добавить();
@@ -7409,9 +7409,9 @@
ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СортировкаПоле.Имя); ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СортировкаПоле.Имя);
#КонецОбласти #КонецОбласти
#Область УсловноеОформлениеТаблицыФормыОформление #Область УсловноеОформлениеТаблицыФормыОформление
Элемент = УсловноеОформление.Элементы.Добавить(); Элемент = УсловноеОформление.Элементы.Добавить();
@@ -7455,9 +7455,9 @@
Элемент.Оформление.УстановитьЗначениеПараметра("ТолькоПросмотр", Истина); Элемент.Оформление.УстановитьЗначениеПараметра("ТолькоПросмотр", Истина);
#КонецОбласти #КонецОбласти
#Область УсловноеОформлениеТаблицыФормыСтруктураВарианта #Область УсловноеОформлениеТаблицыФормыСтруктураВарианта
ШрифтВажнойНадписи = Метаданные.ЭлементыСтиля.ВажнаяНадписьШрифт.Значение; ШрифтВажнойНадписи = Метаданные.ЭлементыСтиля.ВажнаяНадписьШрифт.Значение;
@@ -7505,7 +7505,7 @@
ПолеЭлемента = Элемент.Поля.Элементы.Добавить(); ПолеЭлемента = Элемент.Поля.Элементы.Добавить();
ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СтруктураВариантаИспользование.Имя); ПолеЭлемента.Поле = Новый ПолеКомпоновкиДанных(Элементы.СтруктураВариантаИспользование.Имя);
#КонецОбласти #КонецОбласти
КонецПроцедуры КонецПроцедуры
&НаСервере &НаСервере
@@ -1286,7 +1286,7 @@
// АПК:547-выкл код сохранен для обратной совместимости, используется в устаревшем программном интерфейсе. // АПК:547-выкл код сохранен для обратной совместимости, используется в устаревшем программном интерфейсе.
#Если Сервер Тогда #Если Сервер Тогда
Если БезопасныйРежим() <> Ложь Тогда Если БезопасныйРежим() <> Ложь Тогда
ВызватьИсключение НСтр("ru = 'Внимание! Администрирование кластера невозможно в безопасном режиме.'"); ВызватьИсключение НСтр("ru = 'Внимание! Администрирование кластера невозможно в безопасном режиме.'");
@@ -1296,7 +1296,7 @@
ВызватьИсключение НСтр("ru = 'Внимание! В модели сервиса недопустимо выполнение прикладной информационной базой функций администрирования кластера.'"); ВызватьИсключение НСтр("ru = 'Внимание! В модели сервиса недопустимо выполнение прикладной информационной базой функций администрирования кластера.'");
КонецЕсли; КонецЕсли;
#КонецЕсли #КонецЕсли
// АПК:547-вкл // АПК:547-вкл
@@ -642,17 +642,7 @@
ИначеЕсли СтрокаДерева.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.ОдинВариантИз Тогда ИначеЕсли СтрокаДерева.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.ОдинВариантИз Тогда
Если СтрокаДерева.ВидПереключателя = Перечисления.ВидыПереключателяВАнкетах.Переключатель Тогда ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы(ИмяВопроса,СтрокаДерева.ТипЗначения,,СтрокаДерева.Формулировка));
ВариантыОтветовНаВопрос = ВариантыОтветовНаВопрос(СтрокаДерева.ЭлементарныйВопрос, Форма);
Счетчик = 0;
Для Каждого ВариантОтвета Из ВариантыОтветовНаВопрос Цикл
Счетчик = Счетчик + 1;
ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы(ИмяВопроса + "_Реквизит_" + Счетчик,
СтрокаДерева.ТипЗначения, , СтрокаДерева.Формулировка));
КонецЦикла;
Иначе
ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы(ИмяВопроса,СтрокаДерева.ТипЗначения,,СтрокаДерева.Формулировка))
КонецЕсли;
ИначеЕсли СтрокаДерева.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.НесколькоВариантовИз Тогда ИначеЕсли СтрокаДерева.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.НесколькоВариантовИз Тогда
ВариантыОтветовНаВопрос = ВариантыОтветовНаВопрос(СтрокаДерева.ЭлементарныйВопрос, Форма); ВариантыОтветовНаВопрос = ВариантыОтветовНаВопрос(СтрокаДерева.ЭлементарныйВопрос, Форма);
@@ -1110,85 +1100,26 @@
ИначеЕсли СтрокаТаблицы.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.ОдинВариантИз Тогда ИначеЕсли СтрокаТаблицы.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.ОдинВариантИз Тогда
ВариантыОтветовНаВопрос = ВариантыОтветовНаВопрос(СтрокаТаблицы.ЭлементарныйВопрос, Форма); ВариантыОтветовНаВопрос = ВариантыОтветовНаВопрос(СтрокаТаблицы.ЭлементарныйВопрос, Форма);
Если СтрокаТаблицы.ВидПереключателя = Перечисления.ВидыПереключателяВАнкетах.Переключатель Тогда
ЭлементГруппаВариантыОтветов = Форма.Элементы.Добавить(ИмяВопроса + "_Группа_Варианты", Тип("ГруппаФормы"),
ЭлементГруппаВопросКомментарий);
ЭлементГруппаВариантыОтветов.Вид = ВидГруппыФормы.ОбычнаяГруппа;
ЭлементГруппаВариантыОтветов.Отображение = ОтображениеОбычнойГруппы.Нет;
ЭлементГруппаВариантыОтветов.Группировка = ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяВсегда;
ЭлементГруппаВариантыОтветов.ОтображатьЗаголовок = Ложь;
ЭлементГруппаВопросы = Форма.Элементы.Добавить(ИмяВопроса + "_ГруппаВопросы", Тип("ГруппаФормы"), Элемент = Форма.Элементы.Добавить(ИмяВопроса, Тип("ПолеФормы"), ЭлементГруппаВопросКомментарий);
ЭлементГруппаВариантыОтветов); Элемент.Вид = ВидПоляФормы.ПолеПереключателя;
ЭлементГруппаВопросы.Вид = ВидГруппыФормы.ОбычнаяГруппа; Элемент.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Нет;
ЭлементГруппаВопросы.Отображение = ОтображениеОбычнойГруппы.Нет; Элемент.ПутьКДанным = ИмяВопроса;
ЭлементГруппаВопросы.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Вертикальная; Элемент.ВысотаЭлемента = 1;
ЭлементГруппаВопросы.ОтображатьЗаголовок = Ложь; Элемент.ГоризонтальноеПоложение = ГоризонтальноеПоложениеЭлемента.Лево;
Если СтрокаТаблицы.ВидПереключателя = Перечисления.ВидыПереключателяВАнкетах.Тумблер Тогда
Счетчик = 0;
Для Каждого ВариантОтвета Из ВариантыОтветовНаВопрос Цикл
Счетчик = Счетчик + 1;
ЭлементГруппаВариантОтвета = Форма.Элементы.Добавить(ИмяВопроса + "_Группа_ВариантОтвета_" + XMLСтрока(
Счетчик), Тип("ГруппаФормы"), ЭлементГруппаВопросы);
ЭлементГруппаВариантОтвета.Вид = ВидГруппыФормы.ОбычнаяГруппа;
ЭлементГруппаВариантОтвета.Отображение = ОтображениеОбычнойГруппы.Нет;
ЭлементГруппаВариантОтвета.Группировка = ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяВсегда;
ЭлементГруппаВариантОтвета.ОтображатьЗаголовок = Ложь;
ЭлементГруппаВариантОтвета.РастягиватьПоГоризонтали = Истина;
ИмяРеквизитаВопроса = ИмяВопроса + "_Реквизит_" + Счетчик;
Элемент = Форма.Элементы.Добавить(ИмяРеквизитаВопроса, Тип("ПолеФормы"), ЭлементГруппаВариантОтвета);
Элемент.Вид = ВидПоляФормы.ПолеПереключателя;
Элемент.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Нет;
Элемент.ПутьКДанным = ИмяРеквизитаВопроса;
Элемент.КоличествоКолонок = 1;
Элемент.ВысотаЭлемента = 1;
Элемент.ГоризонтальноеПоложение = ГоризонтальноеПоложениеЭлемента.Лево;
Элемент.ВидПереключателя = ВидПереключателя.Переключатель;
Элемент.КоличествоКолонок = 1;
Элемент.Подсказка = ВариантОтвета.Подсказка;
СписокВыбораЭлемента = Элемент.СписокВыбора;
СписокВыбораЭлемента.Добавить(ВариантОтвета.Ответ, ВариантОтвета.Представление);
КонецЦикла;
ЭлементГруппаПодсказка = Форма.Элементы.Добавить(ИмяВопроса + "_ГруппаПодсказка", Тип("ГруппаФормы"),
ЭлементГруппаВариантыОтветов);
ЭлементГруппаПодсказка.Вид = ВидГруппыФормы.ОбычнаяГруппа;
ЭлементГруппаПодсказка.Отображение = ОтображениеОбычнойГруппы.Нет;
ЭлементГруппаПодсказка.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Вертикальная;
ЭлементГруппаПодсказка.ОтображатьЗаголовок = Ложь;
ЭлементРасшифровка = Форма.Элементы.Добавить(
ИмяВопроса + "_РасшифровкаПодсказки", Тип("ДекорацияФормы"), ЭлементГруппаПодсказка);
ЭлементРасшифровка.АвтоМаксимальнаяШирина = Ложь;
ЭлементРасшифровка.РастягиватьПоГоризонтали = Истина;
ЭлементРасшифровка.ЦветТекста = ЦветаСтиля.ПоясняющийТекст;
Иначе
Элемент = Форма.Элементы.Добавить(ИмяВопроса,Тип("ПолеФормы"),ЭлементГруппаВопросКомментарий);
Элемент.Вид = ВидПоляФормы.ПолеПереключателя;
Элемент.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Нет;
Элемент.ПутьКДанным = ИмяВопроса;
Элемент.КоличествоКолонок = 1;
Элемент.ВысотаЭлемента = 1;
Элемент.ГоризонтальноеПоложение = ГоризонтальноеПоложениеЭлемента.Лево;
Элемент.ВидПереключателя = ВидПереключателя.Тумблер; Элемент.ВидПереключателя = ВидПереключателя.Тумблер;
Элемент.КоличествоКолонок = 0; Элемент.КоличествоКолонок = 0;
Элемент.ОдинаковаяШиринаКолонок = Ложь; Элемент.ОдинаковаяШиринаКолонок = Ложь;
Иначе
Для Каждого ВариантОтвета Из ВариантыОтветовНаВопрос Цикл Элемент.ВидПереключателя = ВидПереключателя.Переключатель;
СписокВыбораЭлемента = Элемент.СписокВыбора; Элемент.КоличествоКолонок = 1;
СписокВыбораЭлемента.Добавить(ВариантОтвета.Ответ,ВариантОтвета.Представление);
КонецЦикла;
КонецЕсли; КонецЕсли;
Для Каждого ВариантОтвета Из ВариантыОтветовНаВопрос Цикл
Элемент.СписокВыбора.Добавить(ВариантОтвета.Ответ, ВариантОтвета.Представление);
КонецЦикла;
ИначеЕсли СтрокаТаблицы.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.НесколькоВариантовИз Тогда ИначеЕсли СтрокаТаблицы.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.НесколькоВариантовИз Тогда
ВариантыОтветовНаВопрос = ВариантыОтветовНаВопрос(СтрокаТаблицы.ЭлементарныйВопрос, Форма); ВариантыОтветовНаВопрос = ВариантыОтветовНаВопрос(СтрокаТаблицы.ЭлементарныйВопрос, Форма);
@@ -294,9 +294,7 @@
Форма.Элементы[ИмяВопроса + "_Комментарий"].Доступность = Не БезОтвета; Форма.Элементы[ИмяВопроса + "_Комментарий"].Доступность = Не БезОтвета;
КонецЕсли; КонецЕсли;
Если Вопрос.ТипОтвета = ПредопределенноеЗначение("Перечисление.ТипыОтветовНаВопрос.НесколькоВариантовИз") Если Вопрос.ТипОтвета = ПредопределенноеЗначение("Перечисление.ТипыОтветовНаВопрос.НесколькоВариантовИз") Тогда
Или (Вопрос.ТипОтвета = ПредопределенноеЗначение("Перечисление.ТипыОтветовНаВопрос.ОдинВариантИз")
И Вопрос.ВидПереключателя = ПредопределенноеЗначение("Перечисление.ВидыПереключателяВАнкетах.Переключатель")) Тогда
Форма.Элементы[ИмяВопроса + "_Группа_Варианты"].Доступность = Не БезОтвета; Форма.Элементы[ИмяВопроса + "_Группа_Варианты"].Доступность = Не БезОтвета;
ЕстьОтвет = ЕстьОтветНаВопросСВыборомОтветов(Форма, Вопрос, ИмяВопроса); ЕстьОтвет = ЕстьОтветНаВопросСВыборомОтветов(Форма, Вопрос, ИмяВопроса);
Иначе Иначе
@@ -8631,7 +8631,7 @@
ОписаниеНастроек = ОписаниеНастроекВариантаОтчета(); ОписаниеНастроек = ОписаниеНастроекВариантаОтчета();
#Область ЧтениеФайлаОписанияНастроек #Область ЧтениеФайлаОписанияНастроек
ШапкаОписанияОшибки = НСтр("ru = 'Некорректный формат описания настроек:'") + Символы.ПС; ШапкаОписанияОшибки = НСтр("ru = 'Некорректный формат описания настроек:'") + Символы.ПС;
@@ -8650,9 +8650,9 @@
ЧтениеXML.Закрыть(); ЧтениеXML.Закрыть();
#КонецОбласти #КонецОбласти
#Область ЧтениеОбщегоОписанияНастроек #Область ЧтениеОбщегоОписанияНастроек
Если ДокументDOM.ДочерниеУзлы.Количество() = 0 Тогда Если ДокументDOM.ДочерниеУзлы.Количество() = 0 Тогда
ОписаниеНастроек.ОписаниеОшибки = ШапкаОписанияОшибки + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( ОписаниеНастроек.ОписаниеОшибки = ШапкаОписанияОшибки + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
@@ -8673,9 +8673,9 @@
ОписаниеНастроек.ИмяОтчета = ИмяОтчета.Значение; ОписаниеНастроек.ИмяОтчета = ИмяОтчета.Значение;
Состав = Элемент.ДочерниеУзлы; Состав = Элемент.ДочерниеУзлы;
#КонецОбласти #КонецОбласти
#Область ЧтениеОписанияОсновныхНастроек #Область ЧтениеОписанияОсновныхНастроек
ИмяЭлемента = "Settings"; ИмяЭлемента = "Settings";
Если Состав.Количество() = 0 Тогда Если Состав.Количество() = 0 Тогда
@@ -8705,9 +8705,9 @@
ОписаниеНастроек.ПредставлениеВарианта = ПредставлениеВарианта.Значение; ОписаниеНастроек.ПредставлениеВарианта = ПредставлениеВарианта.Значение;
#КонецОбласти #КонецОбласти
#Область ЧтениеОписанияПользовательскихНастроек #Область ЧтениеОписанияПользовательскихНастроек
ГраницаСостава = Состав.Количество() - 1; ГраницаСостава = Состав.Количество() - 1;
Если ГраницаСостава <= 0 Тогда Если ГраницаСостава <= 0 Тогда
@@ -8754,7 +8754,7 @@
КонецЦикла; КонецЦикла;
#КонецОбласти #КонецОбласти
Возврат ОписаниеНастроек; Возврат ОписаниеНастроек;
@@ -8954,7 +8954,7 @@
ВариантОтчета = Новый Структура("Ссылка, КлючВариантаЗанят"); ВариантОтчета = Новый Структура("Ссылка, КлючВариантаЗанят");
#Область ЗапросПользовательскогоВариантаОтчета #Область ЗапросПользовательскогоВариантаОтчета
Запрос = Новый Запрос( Запрос = Новый Запрос(
"ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1 "ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1
@@ -9010,7 +9010,7 @@
РезультатыЗапроса = Запрос.ВыполнитьПакет(); // Массив из РезультатЗапроса РезультатыЗапроса = Запрос.ВыполнитьПакет(); // Массив из РезультатЗапроса
#КонецОбласти #КонецОбласти
Для Каждого Результат Из РезультатыЗапроса Цикл Для Каждого Результат Из РезультатыЗапроса Цикл
@@ -9200,7 +9200,7 @@
СвойстваПользователей.Вставить("Действительных", Новый Массив); СвойстваПользователей.Вставить("Действительных", Новый Массив);
СвойстваПользователей.Вставить("Недействительных", Новый Массив); СвойстваПользователей.Вставить("Недействительных", Новый Массив);
#Область ЗапросПользователей #Область ЗапросПользователей
ИспользоватьГруппыПользователей = ПолучитьФункциональнуюОпцию("ИспользоватьГруппыПользователей"); ИспользоватьГруппыПользователей = ПолучитьФункциональнуюОпцию("ИспользоватьГруппыПользователей");
@@ -9246,7 +9246,7 @@
Выборка = Запрос.Выполнить().Выбрать(); Выборка = Запрос.Выполнить().Выбрать();
#КонецОбласти #КонецОбласти
Пока Выборка.Следующий() Цикл Пока Выборка.Следующий() Цикл
@@ -9441,7 +9441,7 @@
Процедура ОповеститьПользователейНастроекОтчета(СвойстваПользователей, ОписаниеНастроек) Процедура ОповеститьПользователейНастроекОтчета(СвойстваПользователей, ОписаниеНастроек)
#Область Проверка #Область Проверка
Если Не ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Обсуждения") Тогда Если Не ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Обсуждения") Тогда
Возврат; Возврат;
@@ -9454,9 +9454,9 @@
Возврат; Возврат;
КонецЕсли; КонецЕсли;
#КонецОбласти #КонецОбласти
#Область ОпределениеПолучателейСообщения #Область ОпределениеПолучателейСообщения
Получатели = Новый Массив; Получатели = Новый Массив;
@@ -9468,9 +9468,9 @@
Возврат; Возврат;
КонецЕсли; КонецЕсли;
#КонецОбласти #КонецОбласти
#Область ГенерацияОповещенияНовыхПользователейНастроек #Область ГенерацияОповещенияНовыхПользователейНастроек
Если ЗначениеЗаполнено(ОписаниеНастроек.Представление) Тогда Если ЗначениеЗаполнено(ОписаниеНастроек.Представление) Тогда
@@ -9505,7 +9505,7 @@
КонецПопытки; КонецПопытки;
#КонецОбласти #КонецОбласти
КонецПроцедуры КонецПроцедуры
@@ -108,12 +108,12 @@
Если ВнешняяКомпонента = Неопределено Тогда Если ВнешняяКомпонента = Неопределено Тогда
МодульОбщегоНазначения = МодульОбщегоНазначения(); МодульОбщегоНазначения = МодульОбщегоНазначения();
ТекстСообщения = НСтр("ru = 'Ошибка подключения внешней компоненты печати штрихкода.'", МодульОбщегоНазначения.КодОсновногоЯзыка()); ТекстСообщения = НСтр("ru = 'Ошибка подключения внешней компоненты печати штрихкода.'", МодульОбщегоНазначения.КодОсновногоЯзыка());
#Если НЕ МобильноеПриложениеСервер Тогда #Если НЕ МобильноеПриложениеСервер Тогда
ЗаписьЖурналаРегистрации(НСтр("ru = 'Ошибка генерации штрихкода'", ЗаписьЖурналаРегистрации(НСтр("ru = 'Ошибка генерации штрихкода'",
МодульОбщегоНазначения.КодОсновногоЯзыка()), МодульОбщегоНазначения.КодОсновногоЯзыка()),
УровеньЖурналаРегистрации.Ошибка,,, УровеньЖурналаРегистрации.Ошибка,,,
ТекстСообщения); ТекстСообщения);
#КонецЕсли #КонецЕсли
ВызватьИсключение ТекстСообщения; ВызватьИсключение ТекстСообщения;
КонецЕсли; КонецЕсли;
@@ -169,13 +169,13 @@
РезультатФормированияШтрихкода = ИзображениеШтрихкода(ПараметрыШтрихкода); РезультатФормированияШтрихкода = ИзображениеШтрихкода(ПараметрыШтрихкода);
ДвоичныеДанныеКартинки = РезультатФормированияШтрихкода.ДвоичныеДанные; ДвоичныеДанныеКартинки = РезультатФормированияШтрихкода.ДвоичныеДанные;
Исключение Исключение
#Если НЕ МобильноеПриложениеСервер Тогда #Если НЕ МобильноеПриложениеСервер Тогда
МодульОбщегоНазначения = МодульОбщегоНазначения(); МодульОбщегоНазначения = МодульОбщегоНазначения();
ЗаписьЖурналаРегистрации(НСтр("ru = 'Ошибка генерации штрихкода'", ЗаписьЖурналаРегистрации(НСтр("ru = 'Ошибка генерации штрихкода'",
МодульОбщегоНазначения.КодОсновногоЯзыка()), МодульОбщегоНазначения.КодОсновногоЯзыка()),
УровеньЖурналаРегистрации.Ошибка,,, УровеньЖурналаРегистрации.Ошибка,,,
ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке())); ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
#КонецЕсли #КонецЕсли
КонецПопытки; КонецПопытки;
Возврат ДвоичныеДанныеКартинки; Возврат ДвоичныеДанныеКартинки;
@@ -3068,9 +3068,9 @@
КомандаОписание.ВариантЗапуска = Перечисления.СпособыВызоваДополнительныхОбработок[КомандаОписание.Использование]; КомандаОписание.ВариантЗапуска = Перечисления.СпособыВызоваДополнительныхОбработок[КомандаОписание.Использование];
КонецЦикла; КонецЦикла;
#Если ТолстыйКлиентОбычноеПриложение Тогда #Если ТолстыйКлиентОбычноеПриложение Тогда
РезультатРегистрации.ИмяОбъекта = ВнешнийОбъектМетаданные.Имя; РезультатРегистрации.ИмяОбъекта = ВнешнийОбъектМетаданные.Имя;
#КонецЕсли #КонецЕсли
КонецПроцедуры КонецПроцедуры
// Вывод команд заполнения в формах объектов. // Вывод команд заполнения в формах объектов.
@@ -359,7 +359,7 @@
ПараметрыОбработки.Вставить("ОбъектыНазначения", ОбъектыНазначения); ПараметрыОбработки.Вставить("ОбъектыНазначения", ОбъектыНазначения);
КонецЕсли; КонецЕсли;
#Если ТолстыйКлиентОбычноеПриложение Тогда #Если ТолстыйКлиентОбычноеПриложение Тогда
ВнешняяОбработка = ДополнительныеОтчетыИОбработкиВызовСервера.ОбъектВнешнейОбработки(ВыполняемаяКоманда.Ссылка); ВнешняяОбработка = ДополнительныеОтчетыИОбработкиВызовСервера.ОбъектВнешнейОбработки(ВыполняемаяКоманда.Ссылка);
ФормаОбработки = ВнешняяОбработка.ПолучитьФорму(, Форма); ФормаОбработки = ВнешняяОбработка.ПолучитьФорму(, Форма);
Если ФормаОбработки = Неопределено Тогда Если ФормаОбработки = Неопределено Тогда
@@ -372,14 +372,14 @@
КонецЕсли; КонецЕсли;
ФормаОбработки.Открыть(); ФормаОбработки.Открыть();
ФормаОбработки = Неопределено; ФормаОбработки = Неопределено;
#Иначе #Иначе
ИмяОбработки = ДополнительныеОтчетыИОбработкиВызовСервера.ПодключитьВнешнююОбработку(ВыполняемаяКоманда.Ссылка); ИмяОбработки = ДополнительныеОтчетыИОбработкиВызовСервера.ПодключитьВнешнююОбработку(ВыполняемаяКоманда.Ссылка);
Если ВыполняемаяКоманда.ЭтоОтчет Тогда Если ВыполняемаяКоманда.ЭтоОтчет Тогда
ОткрытьФорму("ВнешнийОтчет." + ИмяОбработки + ".Форма", ПараметрыОбработки, Форма); ОткрытьФорму("ВнешнийОтчет." + ИмяОбработки + ".Форма", ПараметрыОбработки, Форма);
Иначе Иначе
ОткрытьФорму("ВнешняяОбработка." + ИмяОбработки + ".Форма", ПараметрыОбработки, Форма); ОткрытьФорму("ВнешняяОбработка." + ИмяОбработки + ".Форма", ПараметрыОбработки, Форма);
КонецЕсли; КонецЕсли;
#КонецЕсли #КонецЕсли
КонецПроцедуры КонецПроцедуры
// Выполняет клиентский метод обработки. // Выполняет клиентский метод обработки.
@@ -396,7 +396,7 @@
ПараметрыОбработки.Вставить("ОбъектыНазначения", ОбъектыНазначения); ПараметрыОбработки.Вставить("ОбъектыНазначения", ОбъектыНазначения);
КонецЕсли; КонецЕсли;
#Если ТолстыйКлиентОбычноеПриложение Тогда #Если ТолстыйКлиентОбычноеПриложение Тогда
ВнешняяОбработка = ДополнительныеОтчетыИОбработкиВызовСервера.ОбъектВнешнейОбработки(ВыполняемаяКоманда.Ссылка); ВнешняяОбработка = ДополнительныеОтчетыИОбработкиВызовСервера.ОбъектВнешнейОбработки(ВыполняемаяКоманда.Ссылка);
ФормаОбработки = ВнешняяОбработка.ПолучитьФорму(, Форма); ФормаОбработки = ВнешняяОбработка.ПолучитьФорму(, Форма);
Если ФормаОбработки = Неопределено Тогда Если ФормаОбработки = Неопределено Тогда
@@ -407,14 +407,14 @@
Строка(ВыполняемаяКоманда.Ссылка), Строка(ВыполняемаяКоманда.Ссылка),
ВыполняемаяКоманда.Представление); ВыполняемаяКоманда.Представление);
КонецЕсли; КонецЕсли;
#Иначе #Иначе
ИмяОбработки = ДополнительныеОтчетыИОбработкиВызовСервера.ПодключитьВнешнююОбработку(ВыполняемаяКоманда.Ссылка); ИмяОбработки = ДополнительныеОтчетыИОбработкиВызовСервера.ПодключитьВнешнююОбработку(ВыполняемаяКоманда.Ссылка);
Если ВыполняемаяКоманда.ЭтоОтчет Тогда Если ВыполняемаяКоманда.ЭтоОтчет Тогда
ФормаОбработки = ПолучитьФорму("ВнешнийОтчет."+ ИмяОбработки +".Форма", ПараметрыОбработки, Форма); ФормаОбработки = ПолучитьФорму("ВнешнийОтчет."+ ИмяОбработки +".Форма", ПараметрыОбработки, Форма);
Иначе Иначе
ФормаОбработки = ПолучитьФорму("ВнешняяОбработка."+ ИмяОбработки +".Форма", ПараметрыОбработки, Форма); ФормаОбработки = ПолучитьФорму("ВнешняяОбработка."+ ИмяОбработки +".Форма", ПараметрыОбработки, Форма);
КонецЕсли; КонецЕсли;
#КонецЕсли #КонецЕсли
Если ВыполняемаяКоманда.Вид = ПредопределенноеЗначение("Перечисление.ВидыДополнительныхОтчетовИОбработок.ДополнительнаяОбработка") Если ВыполняемаяКоманда.Вид = ПредопределенноеЗначение("Перечисление.ВидыДополнительныхОтчетовИОбработок.ДополнительнаяОбработка")
Или ВыполняемаяКоманда.Вид = ПредопределенноеЗначение("Перечисление.ВидыДополнительныхОтчетовИОбработок.ДополнительныйОтчет") Тогда Или ВыполняемаяКоманда.Вид = ПредопределенноеЗначение("Перечисление.ВидыДополнительныхОтчетовИОбработок.ДополнительныйОтчет") Тогда
@@ -787,7 +787,12 @@
МодульРаботаСФайламиСлужебныйВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль("РаботаСФайламиСлужебныйВМоделиСервиса"); МодульРаботаСФайламиСлужебныйВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль("РаботаСФайламиСлужебныйВМоделиСервиса");
МодульРаботаСФайламиСлужебныйВМоделиСервиса.ПриОпределенииИспользованияРегламентныхЗаданий(ТаблицаИспользования); МодульРаботаСФайламиСлужебныйВМоделиСервиса.ПриОпределенииИспользованияРегламентныхЗаданий(ТаблицаИспользования);
КонецЕсли; КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РегламентныеЗадания") Тогда
МодульРегламентныеЗаданияСлужебный = ОбщегоНазначения.ОбщийМодуль("РегламентныеЗаданияСлужебный");
МодульРегламентныеЗаданияСлужебный.ПриОпределенииИспользованияРегламентныхЗаданий(ТаблицаИспользования);
КонецЕсли;
КонецПроцедуры КонецПроцедуры
#КонецОбласти #КонецОбласти
@@ -203,7 +203,8 @@
Разделители = "()/*-+%=<>, " + Символы.Таб + Символы.ПС; Разделители = "()/*-+%=<>, " + Символы.Таб + Символы.ПС;
ОткрывающихСкобок = 0; ОткрывающихСкобок = 0;
ЭтоСтрокаВКавычках = Ложь; ЭтоСтрокаВДвойныхКавычках = Ложь;
ЭтоСтрокаВОдинарныхКавычках = Ложь;
Операнд = ""; Операнд = "";
@@ -212,14 +213,20 @@
Символ = Сред(Формула, Индекс, 1); Символ = Сред(Формула, Индекс, 1);
ЭтоРазделитель = СтрНайти(Разделители, Символ) > 0; ЭтоРазделитель = СтрНайти(Разделители, Символ) > 0;
Если ОткрывающихСкобок = 0 И Символ = """" Тогда Если ОткрывающихСкобок = 0 И Символ = """" И Не ЭтоСтрокаВОдинарныхКавычках Тогда
ЭтоСтрокаВКавычках = Не ЭтоСтрокаВКавычках; ЭтоСтрокаВДвойныхКавычках = Не ЭтоСтрокаВДвойныхКавычках;
ВсеЭлементы.Добавить(Символ);
Продолжить;
КонецЕсли;
Если ОткрывающихСкобок = 0 И Символ = "'" И Не ЭтоСтрокаВДвойныхКавычках Тогда
ЭтоСтрокаВОдинарныхКавычках = Не ЭтоСтрокаВОдинарныхКавычках;
ВсеЭлементы.Добавить(Символ); ВсеЭлементы.Добавить(Символ);
Продолжить; Продолжить;
КонецЕсли; КонецЕсли;
Если ЭтоСтрокаВКавычках Тогда Если ЭтоСтрокаВДвойныхКавычках Или ЭтоСтрокаВОдинарныхКавычках Тогда
ВсеЭлементы.Добавить(Символ); ВсеЭлементы[ВсеЭлементы.ВГраница()] = ВсеЭлементы[ВсеЭлементы.ВГраница()] + Символ;
Продолжить; Продолжить;
КонецЕсли; КонецЕсли;
@@ -19,7 +19,7 @@
// //
Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка, ИмяРеквизита = "Наименование") Экспорт Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка, ИмяРеквизита = "Наименование") Экспорт
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
Если МультиязычностьСервер.ЭтоОсновнойЯзык() Тогда Если МультиязычностьСервер.ЭтоОсновнойЯзык() Тогда
Возврат; Возврат;
@@ -73,7 +73,7 @@
КонецЕсли; КонецЕсли;
#КонецЕсли #КонецЕсли
КонецПроцедуры КонецПроцедуры
@@ -90,7 +90,7 @@
// //
Процедура ОбработкаПолученияПолейПредставления(Поля, СтандартнаяОбработка, ИмяРеквизита = "Наименование") Экспорт Процедура ОбработкаПолученияПолейПредставления(Поля, СтандартнаяОбработка, ИмяРеквизита = "Наименование") Экспорт
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
Если МультиязычностьСервер.ЭтоОсновнойЯзык() Тогда Если МультиязычностьСервер.ЭтоОсновнойЯзык() Тогда
Возврат; Возврат;
@@ -108,7 +108,7 @@
Поля.Добавить(ИмяРеквизита +"Язык2"); Поля.Добавить(ИмяРеквизита +"Язык2");
КонецЕсли; КонецЕсли;
#КонецЕсли #КонецЕсли
КонецПроцедуры КонецПроцедуры
@@ -2345,17 +2345,17 @@
Попытка Попытка
#Если ВнешнееСоединение ИЛИ ТолстыйКлиентОбычноеПриложение Тогда #Если ВнешнееСоединение ИЛИ ТолстыйКлиентОбычноеПриложение Тогда
ВыполнитьОбработчикВПривилегированномРежиме(Значение, СтрокаДерева.ЗначениеКонстанты); ВыполнитьОбработчикВПривилегированномРежиме(Значение, СтрокаДерева.ЗначениеКонстанты);
#Иначе #Иначе
УстановитьПривилегированныйРежим(Истина); УстановитьПривилегированныйРежим(Истина);
Выполнить(СтрокаДерева.ЗначениеКонстанты); Выполнить(СтрокаДерева.ЗначениеКонстанты);
УстановитьПривилегированныйРежим(Ложь); УстановитьПривилегированныйРежим(Ложь);
#КонецЕсли #КонецЕсли
Исключение Исключение
@@ -4442,7 +4442,7 @@
КонецЕсли; КонецЕсли;
КонецЦикла; КонецЦикла;
#Область ДополнительныеИсточникиСсылки #Область ДополнительныеИсточникиСсылки
Если ДополнительныеИсточникиСсылки.Количество() > 0 Тогда Если ДополнительныеИсточникиСсылки.Количество() > 0 Тогда
Если ПолноеИмяОбъекта = Неопределено Тогда Если ПолноеИмяОбъекта = Неопределено Тогда
@@ -4537,9 +4537,9 @@
Иначе Иначе
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&УсловиеПоДопИсточникамСсылкам", "ИСТИНА"); ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&УсловиеПоДопИсточникамСсылкам", "ИСТИНА");
КонецЕсли; КонецЕсли;
#КонецОбласти #КонецОбласти
#Область ДополнительныеИсточникиРегистры #Область ДополнительныеИсточникиРегистры
Если ДополнительныеИсточникиРегистры.Количество() > 0 Тогда Если ДополнительныеИсточникиРегистры.Количество() > 0 Тогда
@@ -4582,7 +4582,7 @@
Иначе Иначе
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&УсловиеПоДопИсточникамРегистрам", "ИСТИНА"); ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&УсловиеПоДопИсточникамРегистрам", "ИСТИНА");
КонецЕсли; КонецЕсли;
#КонецОбласти #КонецОбласти
КонецЕсли; КонецЕсли;
КонецПроцедуры КонецПроцедуры
@@ -45,7 +45,7 @@
Процедура ПриДобавленииПодсистемы(Описание) Экспорт Процедура ПриДобавленииПодсистемы(Описание) Экспорт
Описание.Имя = "СтандартныеПодсистемы"; Описание.Имя = "СтандартныеПодсистемы";
Описание.Версия = "3.1.10.329"; Описание.Версия = "3.1.10.344";
Описание.ИдентификаторИнтернетПоддержки = "SSL"; Описание.ИдентификаторИнтернетПоддержки = "SSL";
Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно"; Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно";
Описание.ПараллельноеОтложенноеОбновлениеСВерсии = "2.3.3.0"; Описание.ПараллельноеОтложенноеОбновлениеСВерсии = "2.3.3.0";
@@ -1768,7 +1768,7 @@
Если ТипЗнч(Модуль) <> Тип("ОбщийМодуль") Тогда Если ТипЗнч(Модуль) <> Тип("ОбщийМодуль") Тогда
ВызватьИсключение(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку( ВызватьИсключение(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Неверное значение параметра %1 в %2. Общий модуль ""%1"" не существует.'"), НСтр("ru = 'Неверное значение параметра %1 в %2. Общий модуль ""%3"" не существует.'"),
"Имя", "ОбщегоНазначения.ОбщийМодуль", Имя), "Имя", "ОбщегоНазначения.ОбщийМодуль", Имя),
КатегорияОшибки.ОшибкаКонфигурации); КатегорияОшибки.ОшибкаКонфигурации);
КонецЕсли; КонецЕсли;
@@ -6069,6 +6069,20 @@
// Выполняет произвольный алгоритм на встроенном языке 1С:Предприятия, предварительно устанавливая // Выполняет произвольный алгоритм на встроенном языке 1С:Предприятия, предварительно устанавливая
// безопасный режим выполнения кода и безопасный режим разделения данных для всех разделителей, // безопасный режим выполнения кода и безопасный режим разделения данных для всех разделителей,
// присутствующих в составе конфигурации. // присутствующих в составе конфигурации.
//
// Для выполняемого кода так же применяются дополнительные ограничения, запрещается:
//
// 1) Вызов методов:
// - Выполнить
// - Вычислить
// - ЗафиксироватьТранзакцию
// - СократитьЖурналРегистрации
// - УстановитьИспользованиеСобытияЖурналаРегистрации
// - ЗапуститьПриложение
//
// 2) Вызов общих модулей и свойств глобального контекста:
// - ДлительныеОперации
// - ПользователиИнформационнойБазы
// //
// Параметры: // Параметры:
// Алгоритм - Строка - алгоритм на встроенном языке "1С:Предприятия". // Алгоритм - Строка - алгоритм на встроенном языке "1С:Предприятия".
@@ -6103,13 +6117,44 @@
КонецЦикла; КонецЦикла;
Выполнить Алгоритм; Попытка
Если ТранзакцияАктивна() Тогда
Выполнить Алгоритм;
Иначе
НачатьТранзакцию();
Попытка
Выполнить Алгоритм;
ОтменитьТранзакцию();
Исключение
ОтменитьТранзакцию();
ВызватьИсключение;
КонецПопытки;
КонецЕсли;
Исключение
ИнформацияОбОшибке = ИнформацияОбОшибке();
Уточнение = ОбщегоНазначенияКлиентСервер.УточнениеИсключения(ИнформацияОбОшибке);
ВызватьИсключение(Уточнение.Текст, КатегорияОшибки.ОшибкаВнешнегоИсточникаДанных ,,, ИнформацияОбОшибке);
КонецПопытки;
КонецПроцедуры КонецПроцедуры
// Вычисляет переданное выражение, предварительно устанавливая безопасный режим выполнения кода // Вычисляет переданное выражение, предварительно устанавливая безопасный режим выполнения кода
// и безопасный режим разделения данных для всех разделителей, присутствующих в составе конфигурации. // и безопасный режим разделения данных для всех разделителей, присутствующих в составе конфигурации.
// //
// Для выполняемого кода так же применяются дополнительные ограничения, запрещается:
//
// 1) Вызов методов:
// - Выполнить
// - Вычислить
// - ЗафиксироватьТранзакцию
// - СократитьЖурналРегистрации
// - УстановитьИспользованиеСобытияЖурналаРегистрации
// - ЗапуститьПриложение
//
// 2) Вызов общих модулей и свойств глобального контекста:
// - ДлительныеОперации
// - ПользователиИнформационнойБазы
//
// Параметры: // Параметры:
// Выражение - Строка - выражение на встроенном языке 1С:Предприятия. // Выражение - Строка - выражение на встроенном языке 1С:Предприятия.
// Параметры - Произвольный - контекст, который требуется для вычисления выражения. // Параметры - Произвольный - контекст, который требуется для вычисления выражения.
@@ -6150,7 +6195,26 @@
КонецЦикла; КонецЦикла;
Возврат Вычислить(Выражение); Попытка
Если ТранзакцияАктивна() Тогда
Результат = Вычислить(Выражение);
Иначе
НачатьТранзакцию();
Попытка
Результат = Вычислить(Выражение);
ОтменитьТранзакцию();
Исключение
ОтменитьТранзакцию();
ВызватьИсключение;
КонецПопытки;
КонецЕсли;
Возврат Результат;
Исключение
ИнформацияОбОшибке = ИнформацияОбОшибке();
Уточнение = ОбщегоНазначенияКлиентСервер.УточнениеИсключения(ИнформацияОбОшибке);
ВызватьИсключение(Уточнение.Текст, КатегорияОшибки.ОшибкаВнешнегоИсточникаДанных ,,, ИнформацияОбОшибке);
КонецПопытки;
КонецФункции КонецФункции
@@ -10332,7 +10396,7 @@
КонецЕсли; КонецЕсли;
Если ТекстыОшибок.Количество() > 0 Тогда Если ТекстыОшибок.Количество() > 0 Тогда
ВызватьИсключение СтрСоединить(ТекстыОшибок, Символы.ПС + "-----------------------" + Символы.ПС); ВызватьИсключение СтрСоединить(ТекстыОшибок, Символы.ПС + Символы.ПС);
КонецЕсли; КонецЕсли;
КонецПроцедуры КонецПроцедуры
@@ -1311,13 +1311,13 @@
// //
Процедура ПерейтиПоСсылке(Ссылка) Экспорт Процедура ПерейтиПоСсылке(Ссылка) Экспорт
#Если ТолстыйКлиентОбычноеПриложение Тогда #Если ТолстыйКлиентОбычноеПриложение Тогда
// Особенность платформы: ПерейтиПоНавигационнойСсылке недоступен в толстом клиенте обычного приложения. // Особенность платформы: ПерейтиПоНавигационнойСсылке недоступен в толстом клиенте обычного приложения.
Оповещение = Новый ОписаниеОповещения; Оповещение = Новый ОписаниеОповещения;
НачатьЗапускПриложения(Оповещение, Ссылка); НачатьЗапускПриложения(Оповещение, Ссылка);
#Иначе #Иначе
ПерейтиПоНавигационнойСсылке(Ссылка); ПерейтиПоНавигационнойСсылке(Ссылка);
#КонецЕсли #КонецЕсли
КонецПроцедуры КонецПроцедуры
@@ -2767,7 +2767,7 @@
Возврат Дата; Возврат Дата;
КонецЕсли; КонецЕсли;
#Область ПодготовкаЧастейДаты #Область ПодготовкаЧастейДаты
КоличествоСимволов = СтрДлина(Значение); КоличествоСимволов = СтрДлина(Значение);
@@ -2820,7 +2820,7 @@
ЧастиЗначения.Добавить("00"); ЧастиЗначения.Добавить("00");
КонецЕсли; КонецЕсли;
#КонецОбласти #КонецОбласти
// Если формат ггггММддЧЧммсс: // Если формат ггггММддЧЧммсс:
НормализованноеЗначение = ЧастиЗначения[2] + ЧастиЗначения[1] + ЧастиЗначения[0] НормализованноеЗначение = ЧастиЗначения[2] + ЧастиЗначения[1] + ЧастиЗначения[0]
@@ -3354,13 +3354,13 @@
Результат.Вставить("ПодробноеОписаниеОшибки", ""); Результат.Вставить("ПодробноеОписаниеОшибки", "");
Результат.Вставить("ОшибкаПодключенияКомпоненты", Ложь); Результат.Вставить("ОшибкаПодключенияКомпоненты", Ложь);
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
ПодключениеНедоступно = ОбщегоНазначения.ЭтоLinuxСервер(); ПодключениеНедоступно = ОбщегоНазначения.ЭтоLinuxСервер();
КраткоеОписаниеОшибки = НСтр("ru = 'Прямое подключение к информационной базе недоступно на сервере под управлением ОС Linux.'"); КраткоеОписаниеОшибки = НСтр("ru = 'Прямое подключение к информационной базе недоступно на сервере под управлением ОС Linux.'");
#Иначе #Иначе
ПодключениеНедоступно = ЭтоLinuxКлиент() Или ЭтоOSXКлиент() Или ЭтоМобильныйКлиент(); ПодключениеНедоступно = ЭтоLinuxКлиент() Или ЭтоOSXКлиент() Или ЭтоМобильныйКлиент();
КраткоеОписаниеОшибки = НСтр("ru = 'Прямое подключение к информационной базе доступно только на клиенте под управлением ОС Windows.'"); КраткоеОписаниеОшибки = НСтр("ru = 'Прямое подключение к информационной базе доступно только на клиенте под управлением ОС Windows.'");
#КонецЕсли #КонецЕсли
Если ПодключениеНедоступно Тогда Если ПодключениеНедоступно Тогда
Результат.Соединение = Неопределено; Результат.Соединение = Неопределено;
@@ -3369,7 +3369,7 @@
Возврат Результат; Возврат Результат;
КонецЕсли; КонецЕсли;
#Если Не МобильныйКлиент Тогда #Если Не МобильныйКлиент Тогда
Попытка Попытка
COMConnector = Новый COMObject(ИмяCOMСоединителя()); // "V83.COMConnector" COMConnector = Новый COMObject(ИмяCOMСоединителя()); // "V83.COMConnector"
Исключение Исключение
@@ -3453,7 +3453,7 @@
Результат.ПодробноеОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаСообщенияОбОшибке, ОбработкаОшибок.ПодробноеПредставлениеОшибки(Информация)); Результат.ПодробноеОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаСообщенияОбОшибке, ОбработкаОшибок.ПодробноеПредставлениеОшибки(Информация));
Результат.КраткоеОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаСообщенияОбОшибке, ОбработкаОшибок.КраткоеПредставлениеОшибки(Информация)); Результат.КраткоеОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаСообщенияОбОшибке, ОбработкаОшибок.КраткоеПредставлениеОшибки(Информация));
КонецПопытки; КонецПопытки;
#КонецЕсли #КонецЕсли
Возврат Результат; Возврат Результат;
@@ -3693,11 +3693,11 @@
// //
Функция КодОсновногоЯзыка() Экспорт Функция КодОсновногоЯзыка() Экспорт
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
Возврат ОбщегоНазначения.КодОсновногоЯзыка(); Возврат ОбщегоНазначения.КодОсновногоЯзыка();
#Иначе #Иначе
Возврат ОбщегоНазначенияКлиент.КодОсновногоЯзыка(); Возврат ОбщегоНазначенияКлиент.КодОсновногоЯзыка();
#КонецЕсли #КонецЕсли
КонецФункции КонецФункции
@@ -3712,11 +3712,11 @@
// Строка - представление даты. // Строка - представление даты.
// //
Функция ПредставлениеЛокальнойДатыСоСмещением(ЛокальнаяДата) Экспорт Функция ПредставлениеЛокальнойДатыСоСмещением(ЛокальнаяДата) Экспорт
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда #Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
Смещение = СмещениеСтандартногоВремени(ЧасовойПоясСеанса()); Смещение = СмещениеСтандартногоВремени(ЧасовойПоясСеанса());
#Иначе #Иначе
Смещение = СтандартныеПодсистемыКлиент.ПараметрКлиента("СмещениеСтандартногоВремени"); Смещение = СтандартныеПодсистемыКлиент.ПараметрКлиента("СмещениеСтандартногоВремени");
#КонецЕсли #КонецЕсли
ПредставлениеСмещения = "Z"; ПредставлениеСмещения = "Z";
Если Смещение > 0 Тогда Если Смещение > 0 Тогда
ПредставлениеСмещения = "+"; ПредставлениеСмещения = "+";
@@ -305,12 +305,12 @@
"ПодключитьКомпонентуПослеПопыткиПодключения", ЭтотОбъект, Контекст, "ПодключитьКомпонентуПослеПопыткиПодключения", ЭтотОбъект, Контекст,
"ПодключитьКомпонентуПриОбработкеОшибки", ЭтотОбъект); "ПодключитьКомпонентуПриОбработкеОшибки", ЭтотОбъект);
#Если МобильноеПриложениеКлиент Или МобильныйКлиент Тогда #Если МобильноеПриложениеКлиент Или МобильныйКлиент Тогда
НачатьПодключениеВнешнейКомпоненты(Оповещение, Контекст.Местоположение, СимволическоеИмя); НачатьПодключениеВнешнейКомпоненты(Оповещение, Контекст.Местоположение, СимволическоеИмя);
#Иначе #Иначе
НачатьПодключениеВнешнейКомпоненты(Оповещение, Контекст.Местоположение, СимволическоеИмя,, НачатьПодключениеВнешнейКомпоненты(Оповещение, Контекст.Местоположение, СимволическоеИмя,,
ОбщегоНазначенияСлужебныйКлиентСервер.ТипПодключенияКомпоненты(Контекст.Изолированно)); ОбщегоНазначенияСлужебныйКлиентСервер.ТипПодключенияКомпоненты(Контекст.Изолированно));
#КонецЕсли #КонецЕсли
КонецПроцедуры КонецПроцедуры
@@ -69,7 +69,7 @@
// //
Функция РасчетныеПоказателиЯчеек(Знач ТабличныйДокумент, ВыделенныеОбласти) Экспорт Функция РасчетныеПоказателиЯчеек(Знач ТабличныйДокумент, ВыделенныеОбласти) Экспорт
#Область КонструкторРезультата #Область КонструкторРезультата
РасчетныеПоказатели = Новый Структура; РасчетныеПоказатели = Новый Структура;
РасчетныеПоказатели.Вставить("Количество", 0); РасчетныеПоказатели.Вставить("Количество", 0);
@@ -80,7 +80,7 @@
РасчетныеПоказатели.Вставить("Минимум", 0); РасчетныеПоказатели.Вставить("Минимум", 0);
РасчетныеПоказатели.Вставить("Максимум", 0); РасчетныеПоказатели.Вставить("Максимум", 0);
#КонецОбласти #КонецОбласти
ПроверенныеЯчейки = Новый Соответствие; ПроверенныеЯчейки = Новый Соответствие;
@@ -91,7 +91,7 @@
Продолжить; Продолжить;
КонецЕсли; КонецЕсли;
#Область ОпределениеГраницВыделеннойОбласти #Область ОпределениеГраницВыделеннойОбласти
ВыделеннаяОбластьВерх = ВыделеннаяОбласть.Верх; ВыделеннаяОбластьВерх = ВыделеннаяОбласть.Верх;
ВыделеннаяОбластьНиз = ВыделеннаяОбласть.Низ; ВыделеннаяОбластьНиз = ВыделеннаяОбласть.Низ;
@@ -122,7 +122,7 @@
ВыделеннаяОбластьВысота = ВыделеннаяОбластьНиз - ВыделеннаяОбластьВерх + 1; ВыделеннаяОбластьВысота = ВыделеннаяОбластьНиз - ВыделеннаяОбластьВерх + 1;
ВыделеннаяОбластьШирина = ВыделеннаяОбластьПраво - ВыделеннаяОбластьЛево + 1; ВыделеннаяОбластьШирина = ВыделеннаяОбластьПраво - ВыделеннаяОбластьЛево + 1;
#КонецОбласти #КонецОбласти
РасчетныеПоказатели.Количество = РасчетныеПоказатели.Количество + ВыделеннаяОбластьШирина * ВыделеннаяОбластьВысота; РасчетныеПоказатели.Количество = РасчетныеПоказатели.Количество + ВыделеннаяОбластьШирина * ВыделеннаяОбластьВысота;
@@ -140,7 +140,7 @@
Если Ячейка.Видимость = Истина Тогда Если Ячейка.Видимость = Истина Тогда
#Область ОпределениеЗначенияЯчейки #Область ОпределениеЗначенияЯчейки
Если Ячейка.ТипОбласти <> ТипОбластиЯчеекТабличногоДокумента.Колонки Если Ячейка.ТипОбласти <> ТипОбластиЯчеекТабличногоДокумента.Колонки
И Ячейка.СодержитЗначение И ТипЗнч(Ячейка.Значение) = Тип("Число") Тогда И Ячейка.СодержитЗначение И ТипЗнч(Ячейка.Значение) = Тип("Число") Тогда
@@ -175,11 +175,11 @@
Продолжить; Продолжить;
КонецЕсли; КонецЕсли;
#КонецОбласти #КонецОбласти
РасчетныеПоказатели.КоличествоНеПустых = РасчетныеПоказатели.КоличествоНеПустых + 1; РасчетныеПоказатели.КоличествоНеПустых = РасчетныеПоказатели.КоличествоНеПустых + 1;
#Область РасчетПоказателей #Область РасчетПоказателей
Если ТипЗнч(Число) = Тип("Число") Тогда Если ТипЗнч(Число) = Тип("Число") Тогда
@@ -196,7 +196,7 @@
КонецЕсли; КонецЕсли;
#КонецОбласти #КонецОбласти
КонецЕсли; КонецЕсли;
@@ -220,7 +220,7 @@
Возврат Неопределено; Возврат Неопределено;
КонецЕсли; КонецЕсли;
#Если Не ВебКлиент И Не МобильныйКлиент Тогда #Если Не ВебКлиент И Не МобильныйКлиент Тогда
Если Изолированно Тогда Если Изолированно Тогда
Возврат ТипПодключенияВнешнейКомпоненты.Изолированно; Возврат ТипПодключенияВнешнейКомпоненты.Изолированно;
@@ -228,11 +228,11 @@
Возврат ТипПодключенияВнешнейКомпоненты.НеИзолированно; Возврат ТипПодключенияВнешнейКомпоненты.НеИзолированно;
#Иначе #Иначе
Возврат Неопределено; Возврат Неопределено;
#КонецЕсли #КонецЕсли
КонецФункции КонецФункции
@@ -127,7 +127,8 @@
// // НовыеНастройкиКД - НастройкиКомпоновкиДанных, Неопределено // // НовыеНастройкиКД - НастройкиКомпоновкиДанных, Неопределено
// // НовыеПользовательскиеНастройкиКД - ПользовательскиеНастройкиКомпоновкиДанных, Неопределено // // НовыеПользовательскиеНастройкиКД - ПользовательскиеНастройкиКомпоновкиДанных, Неопределено
// // // //
// Процедура ПередЗагрузкойНастроекВКомпоновщик(Контекст, КлючСхемы, КлючВарианта, НовыеНастройкиКД, НовыеПользовательскиеНастройкиКД) Экспорт // Процедура ПередЗагрузкойНастроекВКомпоновщик(Контекст, КлючСхемы, КлючВарианта, НовыеНастройкиКД,
// НовыеПользовательскиеНастройкиКД) Экспорт
// //
// КонецПроцедуры // КонецПроцедуры
// //
@@ -2042,7 +2042,7 @@
Процедура УстановитьСвойстваЭлементовФормыНастроек(Форма, ЭлементыНастроек, СвойстваЭлементов) Процедура УстановитьСвойстваЭлементовФормыНастроек(Форма, ЭлементыНастроек, СвойстваЭлементов)
КомпоновщикНастроек = Форма.Отчет.КомпоновщикНастроек; КомпоновщикНастроек = Форма.Отчет.КомпоновщикНастроек;
#Область УстановкаСвойствЭлементовИспользование #Область УстановкаСвойствЭлементовИспользование
Исключения = Новый Массив; Исключения = Новый Массив;
Исключения.Добавить(ВидСравненияКомпоновкиДанных.Равно); Исключения.Добавить(ВидСравненияКомпоновкиДанных.Равно);
@@ -2096,9 +2096,9 @@
КонецЕсли; КонецЕсли;
КонецЦикла; КонецЦикла;
#КонецОбласти #КонецОбласти
#Область УстановкаСвойствЭлементовЭлементыНастроек #Область УстановкаСвойствЭлементовЭлементыНастроек
НайденныеЭлементы = ЭлементыНастроек.НайтиСтроки(Новый Структура("СвойствоНастройки", "ВидСравнения")); НайденныеЭлементы = ЭлементыНастроек.НайтиСтроки(Новый Структура("СвойствоНастройки", "ВидСравнения"));
Для Каждого Элемент Из НайденныеЭлементы Цикл Для Каждого Элемент Из НайденныеЭлементы Цикл
@@ -2106,9 +2106,9 @@
Поле.Видимость = Ложь; Поле.Видимость = Ложь;
КонецЦикла; КонецЦикла;
#КонецОбласти #КонецОбласти
#Область УстановкаСвойствЭлементовЗначение #Область УстановкаСвойствЭлементовЗначение
СвязанныеЭлементы = ЭлементыНастроек.Скопировать(Новый Структура("СвойствоНастройки", "Использование")); СвязанныеЭлементы = ЭлементыНастроек.Скопировать(Новый Структура("СвойствоНастройки", "Использование"));
@@ -2214,7 +2214,7 @@
ДополнительныеСвойства.Вставить("ПараметрыПодбора", ПараметрыПодбора); ДополнительныеСвойства.Вставить("ПараметрыПодбора", ПараметрыПодбора);
ДополнительныеСвойства.Вставить("РасширенноеОписаниеТипов", РасширенноеОписаниеТипов); ДополнительныеСвойства.Вставить("РасширенноеОписаниеТипов", РасширенноеОписаниеТипов);
#КонецОбласти #КонецОбласти
КонецПроцедуры КонецПроцедуры
Функция ВыводитьЗаголовкиНастроек(Форма) Функция ВыводитьЗаголовкиНастроек(Форма)
@@ -2281,7 +2281,7 @@
// Распределение элементов формы настроек в иерархии // Распределение элементов формы настроек в иерархии
Процедура ПодготовитьЭлементыФормыНастроекКРаспределению(ЭлементыНастроек, Группировка, ЭтоОсновнаяФорма, ДополнительныеСвойства) Процедура ПодготовитьЭлементыФормыНастроекКРаспределению(ЭлементыНастроек, Группировка, ЭтоОсновнаяФорма, ДополнительныеСвойства)
#Область ПередПодготовкой #Область ПередПодготовкой
Статистика = ЭлементыНастроек.Скопировать(); Статистика = ЭлементыНастроек.Скопировать();
Статистика.Свернуть("ИндексНастройки"); Статистика.Свернуть("ИндексНастройки");
@@ -2296,9 +2296,9 @@
УпорядочитьЭлементыФормыНастроек(ЭлементыНастроек, ДополнительныеСвойства); УпорядочитьЭлементыФормыНастроек(ЭлементыНастроек, ДополнительныеСвойства);
#КонецОбласти #КонецОбласти
#Область УстановкаНомеровКолонок #Область УстановкаНомеровКолонок
Статистика = ЭлементыНастроек.Скопировать(); Статистика = ЭлементыНастроек.Скопировать();
Статистика.Свернуть("Порядок, ИндексНастройки"); Статистика.Свернуть("Порядок, ИндексНастройки");
@@ -2330,9 +2330,9 @@
РаспределитьСпискиПоКолонкамПропорционально(ЭлементыНастроек, КоличествоКолонок); РаспределитьСпискиПоКолонкамПропорционально(ЭлементыНастроек, КоличествоКолонок);
#КонецОбласти #КонецОбласти
#Область УстановкаНомеровГрупп #Область УстановкаНомеровГрупп
ВариантыПоиска = Новый Массив; ВариантыПоиска = Новый Массив;
ВариантыПоиска.Добавить(Новый Структура("НомерГруппы, ЭтоФлажок, ЭтоСписок", 0, Ложь, Ложь)); ВариантыПоиска.Добавить(Новый Структура("НомерГруппы, ЭтоФлажок, ЭтоСписок", 0, Ложь, Ложь));
@@ -2367,7 +2367,7 @@
НомерГруппы = НомерГруппы + 1; НомерГруппы = НомерГруппы + 1;
КонецЦикла; КонецЦикла;
#КонецОбласти #КонецОбласти
КонецПроцедуры КонецПроцедуры
Процедура УпорядочитьЭлементыФормыНастроек(ЭлементыНастроек, ДополнительныеСвойства) Процедура УпорядочитьЭлементыФормыНастроек(ЭлементыНастроек, ДополнительныеСвойства)
@@ -194,7 +194,7 @@
СравнениеСтрокНаПодобие.ДлинаНебольшихСтрок, СравнениеСтрокНаПодобие.ПроцентСовпаденияНебольшихСтрок, СравнениеСтрокНаПодобие.ДлинаНебольшихСтрок, СравнениеСтрокНаПодобие.ПроцентСовпаденияНебольшихСтрок,
СравнениеСтрокНаПодобие.ПроцентСовпаденияСтрок, СловаИсключения); СравнениеСтрокНаПодобие.ПроцентСовпаденияСтрок, СловаИсключения);
Возврат ИндексыСтрок; Возврат СтрЗаменить(ИндексыСтрок, Символ(8239), "");
КонецФункции КонецФункции
@@ -220,6 +220,8 @@
Результат.Вставить("ПроцентСовпаденияНебольшихСтрок", 80); Результат.Вставить("ПроцентСовпаденияНебольшихСтрок", 80);
Результат.Вставить("ДлинаНебольшихСтрок", 30); Результат.Вставить("ДлинаНебольшихСтрок", 30);
Результат.Вставить("СловаИсключения", Новый Массив); Результат.Вставить("СловаИсключения", Новый Массив);
НечеткийПоиск = Неопределено;
Если ПодключитьКомпоненту Тогда Если ПодключитьКомпоненту Тогда
УстановитьОтключениеБезопасногоРежима(Истина); УстановитьОтключениеБезопасногоРежима(Истина);
НечеткийПоиск = ОбщегоНазначения.ПодключитьКомпонентуИзМакета("FuzzyStringMatchExtension", НечеткийПоиск = ОбщегоНазначения.ПодключитьКомпонентуИзМакета("FuzzyStringMatchExtension",
@@ -227,10 +229,8 @@
Если НечеткийПоиск = Неопределено Тогда Если НечеткийПоиск = Неопределено Тогда
ВызватьИсключение НСтр("ru = 'Не удалось подключить компоненту нечеткого поиска. Подробнее см. в журнале регистрации.'"); ВызватьИсключение НСтр("ru = 'Не удалось подключить компоненту нечеткого поиска. Подробнее см. в журнале регистрации.'");
КонецЕсли; КонецЕсли;
Результат.Вставить("КомпонентаПоиска", НечеткийПоиск);
Иначе
Результат.Вставить("КомпонентаПоиска", Неопределено);
КонецЕсли; КонецЕсли;
Результат.Вставить("КомпонентаПоиска", НечеткийПоиск);
Возврат Результат; Возврат Результат;
@@ -1271,13 +1271,13 @@
Если ИспользоватьImageMagick Тогда Если ИспользоватьImageMagick Тогда
Для Каждого ОбъектДляОбъединения Из ОбъектыДляОбъединения Цикл Для Каждого ОбъектДляОбъединения Из ОбъектыДляОбъединения Цикл
ИмяФайла = Неопределено; ИмяФайла = Неопределено;
#Если Не ВебКлиент И Не МобильныйКлиент Тогда #Если Не ВебКлиент И Не МобильныйКлиент Тогда
// АПК:441-выкл файл является результатом метода // АПК:441-выкл файл является результатом метода
ИмяВременногоФайла = ПолучитьИмяВременногоФайла(); ИмяВременногоФайла = ПолучитьИмяВременногоФайла();
// АПК:441-вкл // АПК:441-вкл
#Иначе #Иначе
ИмяВременногоФайла = Неопределено; ИмяВременногоФайла = Неопределено;
#КонецЕсли #КонецЕсли
Если ОбъектДляОбъединения = Неопределено Тогда Если ОбъектДляОбъединения = Неопределено Тогда
Продолжить; Продолжить;
@@ -1435,7 +1435,7 @@
Результат = РезультатОбъединенияВМногостраничныйДокумент(); Результат = РезультатОбъединенияВМногостраничныйДокумент();
#Если Не ВебКлиент И Не МобильныйКлиент Тогда #Если Не ВебКлиент И Не МобильныйКлиент Тогда
ИмяФайлаРезультата = ПараметрыКонвертацииГрафическогоДокумента.ИмяФайлаРезультата; ИмяФайлаРезультата = ПараметрыКонвертацииГрафическогоДокумента.ИмяФайлаРезультата;
Если Не ЗначениеЗаполнено(ИмяФайлаРезультата) Тогда Если Не ЗначениеЗаполнено(ИмяФайлаРезультата) Тогда
@@ -1511,7 +1511,7 @@
КонецЕсли; КонецЕсли;
#КонецЕсли #КонецЕсли
КонецПроцедуры КонецПроцедуры
#Область УправлениеПрисоединеннымиФайлами #Область УправлениеПрисоединеннымиФайлами
@@ -2065,7 +2065,7 @@
АдресВременногоХранилища = ""; АдресВременногоХранилища = "";
#Если Не ВебКлиент Тогда #Если Не ВебКлиент Тогда
Текст = ИзвлечьТекст(ПолноеИмяФайла, Отказ, Кодировка); Текст = ИзвлечьТекст(ПолноеИмяФайла, Отказ, Кодировка);
@@ -2090,7 +2090,7 @@
"Предупреждение", ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()),, Истина); "Предупреждение", ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()),, Истина);
КонецПопытки; КонецПопытки;
#КонецЕсли #КонецЕсли
Возврат АдресВременногоХранилища; Возврат АдресВременногоХранилища;
@@ -8108,18 +8108,18 @@
Если ТипЗнч(РасшифрованныеДанные) = Тип("ДвоичныеДанные") Тогда Если ТипЗнч(РасшифрованныеДанные) = Тип("ДвоичныеДанные") Тогда
АдресВременногоХранилища = ПоместитьВоВременноеХранилище(РасшифрованныеДанные, АдресВременногоХранилища = ПоместитьВоВременноеХранилище(РасшифрованныеДанные,
ПараметрыВыполнения.УникальныйИдентификатор); ПараметрыВыполнения.УникальныйИдентификатор);
#Если Не ВебКлиент Тогда #Если Не ВебКлиент Тогда
ДвоичныеДанныеРасшифрованные = РасшифрованныеДанные; ДвоичныеДанныеРасшифрованные = РасшифрованныеДанные;
#КонецЕсли #КонецЕсли
Иначе Иначе
АдресВременногоХранилища = РасшифрованныеДанные; АдресВременногоХранилища = РасшифрованныеДанные;
#Если Не ВебКлиент Тогда #Если Не ВебКлиент Тогда
ДвоичныеДанныеРасшифрованные = ПолучитьИзВременногоХранилища(АдресВременногоХранилища); ДвоичныеДанныеРасшифрованные = ПолучитьИзВременногоХранилища(АдресВременногоХранилища);
#КонецЕсли #КонецЕсли
КонецЕсли; КонецЕсли;
АдресВременногоХранилищаТекста = ""; АдресВременногоХранилищаТекста = "";
#Если Не ВебКлиент Тогда #Если Не ВебКлиент Тогда
Если Не ПараметрыВыполнения.ИзвлекатьТекстыФайловНаСервере Тогда Если Не ПараметрыВыполнения.ИзвлекатьТекстыФайловНаСервере Тогда
ПолныйПутьКФайлу = ПолучитьИмяВременногоФайла(ПараметрыВыполнения.ДанныеФайла.Расширение); ПолныйПутьКФайлу = ПолучитьИмяВременногоФайла(ПараметрыВыполнения.ДанныеФайла.Расширение);
ДвоичныеДанныеРасшифрованные.Записать(ПолныйПутьКФайлу); ДвоичныеДанныеРасшифрованные.Записать(ПолныйПутьКФайлу);
@@ -8132,7 +8132,7 @@
"Предупреждение", ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()),, Истина); "Предупреждение", ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()),, Истина);
КонецПопытки; КонецПопытки;
КонецЕсли; КонецЕсли;
#КонецЕсли #КонецЕсли
ДанныеДляЗаписиНаСервере = Новый Структура; ДанныеДляЗаписиНаСервере = Новый Структура;
ДанныеДляЗаписиНаСервере.Вставить("АдресВременногоХранилища", АдресВременногоХранилища); ДанныеДляЗаписиНаСервере.Вставить("АдресВременногоХранилища", АдресВременногоХранилища);
@@ -10159,9 +10159,9 @@
// //
Функция КаталогДанныхПользователя() Функция КаталогДанныхПользователя()
#Если ВебКлиент Или МобильныйКлиент Тогда #Если ВебКлиент Или МобильныйКлиент Тогда
Возврат РабочийКаталогДанныхПользователя(); Возврат РабочийКаталогДанныхПользователя();
#Иначе #Иначе
Если Не ОбщегоНазначенияКлиент.ЭтоWindowsКлиент() Тогда Если Не ОбщегоНазначенияКлиент.ЭтоWindowsКлиент() Тогда
Возврат РабочийКаталогДанныхПользователя(); Возврат РабочийКаталогДанныхПользователя();
Иначе Иначе
@@ -10169,7 +10169,7 @@
КаталогДанныхПользователя = Оболочка.ExpandEnvironmentStrings("%APPDATA%"); КаталогДанныхПользователя = Оболочка.ExpandEnvironmentStrings("%APPDATA%");
Возврат ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(КаталогДанныхПользователя); Возврат ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(КаталогДанныхПользователя);
КонецЕсли; КонецЕсли;
#КонецЕсли #КонецЕсли
КонецФункции КонецФункции
@@ -10765,25 +10765,25 @@
Функция ДоступноСканирование(ЭтоПроверкаНастроек = Ложь) Экспорт Функция ДоступноСканирование(ЭтоПроверкаНастроек = Ложь) Экспорт
Если ЭтоПроверкаНастроек Тогда Если ЭтоПроверкаНастроек Тогда
#Если МобильныйКлиент Тогда #Если МобильныйКлиент Тогда
Возврат СредстваМультимедиа.ПоддерживаетсяФотоснимок(); Возврат СредстваМультимедиа.ПоддерживаетсяФотоснимок();
#ИначеЕсли ВебКлиент Тогда #ИначеЕсли ВебКлиент Тогда
Возврат Ложь; Возврат Ложь;
#Иначе #Иначе
Возврат ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Windows_x86 Возврат ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Windows_x86
Или ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Windows_x86_64 Или ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Windows_x86_64
Или ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Linux_x86 Или ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Linux_x86
Или ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Linux_x86_64; Или ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Linux_x86_64;
#КонецЕсли #КонецЕсли
Иначе Иначе
#Если МобильныйКлиент ИЛИ ВебКлиент Тогда #Если МобильныйКлиент ИЛИ ВебКлиент Тогда
Возврат Ложь; Возврат Ложь;
#Иначе #Иначе
Возврат ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Windows_x86 Возврат ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Windows_x86
Или ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Windows_x86_64 Или ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Windows_x86_64
Или ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Linux_x86 Или ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Linux_x86
Или ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Linux_x86_64; Или ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Linux_x86_64;
#КонецЕсли #КонецЕсли
КонецЕсли; КонецЕсли;
КонецФункции КонецФункции
@@ -206,6 +206,8 @@
ПараметрыДоставки.ЗапускЗафиксирован = ЗапускЗафиксирован; ПараметрыДоставки.ЗапускЗафиксирован = ЗапускЗафиксирован;
ПараметрыДоставки.АдресРезультата = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(ДополнительныеНастройки, "АдресРезультата");
Результат = ВыполнитьРассылку(ТаблицаОтчетов, ПараметрыДоставки, Рассылка, ПараметрыЖурнала); Результат = ВыполнитьРассылку(ТаблицаОтчетов, ПараметрыДоставки, Рассылка, ПараметрыЖурнала);
РегистрыСведений.СостоянияРассылокОтчетов.ЗафиксироватьРезультатВыполненияРассылки(Рассылка, ПараметрыДоставки); РегистрыСведений.СостоянияРассылокОтчетов.ЗафиксироватьРезультатВыполненияРассылки(Рассылка, ПараметрыДоставки);
@@ -386,10 +388,14 @@
ЗашифрованныеВложения = Новый Соответствие; ЗашифрованныеВложения = Новый Соответствие;
Для Каждого Вложение Из ВложенияПолучателя Цикл Для Каждого Вложение Из ВложенияПолучателя Цикл
МодульЭлектроннаяПодпись = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодпись"); МодульЭлектроннаяПодпись = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодпись");
ВложениеДвоичныеДанные = МодульЭлектроннаяПодпись.Зашифровать( Попытка
Новый ДвоичныеДанные(Вложение.Значение), ПараметрыДоставки.СертификатДляШифрования); ВложениеДвоичныеДанные = МодульЭлектроннаяПодпись.Зашифровать(
Новый ДвоичныеДанные(Вложение.Значение), ПараметрыДоставки.СертификатДляШифрования);
Исключение
ОбработатьОшибкуПриШифровании(ПараметрыДоставки.АдресРезультата, ПараметрыДоставки.СертификатДляШифрования, ИнформацияОбОшибке(), ПараметрыЖурнала);
ВызватьИсключение;
КонецПопытки;
ВложениеДвоичныеДанные.Записать(Вложение.Значение); ВложениеДвоичныеДанные.Записать(Вложение.Значение);
КоличествоСимволовДоРасширения = СтрНайти(Вложение.Ключ, ".", НаправлениеПоиска.СКонца); КоличествоСимволовДоРасширения = СтрНайти(Вложение.Ключ, ".", НаправлениеПоиска.СКонца);
ИмяЗашифрованногоФайла = Лев(Вложение.Ключ, КоличествоСимволовДоРасширения-1) + " " + НСтр( ИмяЗашифрованногоФайла = Лев(Вложение.Ключ, КоличествоСимволовДоРасширения-1) + " " + НСтр(
"ru = '(Необходимо расшифровать)'") + Сред(Вложение.Ключ, КоличествоСимволовДоРасширения); "ru = '(Необходимо расшифровать)'") + Сред(Вложение.Ключ, КоличествоСимволовДоРасширения);
@@ -403,7 +409,7 @@
КонецЕсли; КонецЕсли;
// Архивация вложений. // Архивация вложений.
АрхивацияВложений(ВложенияПолучателя, ПараметрыДоставки, СтрокаПолучатель.Значение); АрхивацияВложений(ВложенияПолучателя, ПараметрыДоставки, СтрокаПолучатель.Значение, ПараметрыЖурнала);
Иначе Иначе
ВложенияПолучателя = Новый Массив; ВложенияПолучателя = Новый Массив;
@@ -488,10 +494,14 @@
ЗашифрованныеВложения = Новый Соответствие; ЗашифрованныеВложения = Новый Соответствие;
Для Каждого Вложение Из ОбщиеВложения Цикл Для Каждого Вложение Из ОбщиеВложения Цикл
МодульЭлектроннаяПодпись = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодпись"); МодульЭлектроннаяПодпись = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодпись");
ВложениеДвоичныеДанные = МодульЭлектроннаяПодпись.Зашифровать( Попытка
Новый ДвоичныеДанные(Вложение.Значение), ПараметрыДоставки.СертификатДляШифрования); ВложениеДвоичныеДанные = МодульЭлектроннаяПодпись.Зашифровать(
Новый ДвоичныеДанные(Вложение.Значение), ПараметрыДоставки.СертификатДляШифрования);
Исключение
ОбработатьОшибкуПриШифровании(ПараметрыДоставки.АдресРезультата, ПараметрыДоставки.СертификатДляШифрования, ИнформацияОбОшибке(), ПараметрыЖурнала);
ВызватьИсключение;
КонецПопытки;
ВложениеДвоичныеДанные.Записать(Вложение.Значение); ВложениеДвоичныеДанные.Записать(Вложение.Значение);
КоличествоСимволовДоРасширения = СтрНайти(Вложение.Ключ, ".", НаправлениеПоиска.СКонца); КоличествоСимволовДоРасширения = СтрНайти(Вложение.Ключ, ".", НаправлениеПоиска.СКонца);
ИмяЗашифрованногоФайла = Лев(Вложение.Ключ, КоличествоСимволовДоРасширения-1) + " " + НСтр( ИмяЗашифрованногоФайла = Лев(Вложение.Ключ, КоличествоСимволовДоРасширения-1) + " " + НСтр(
"ru = '(Необходимо расшифровать)'") + Сред(Вложение.Ключ, КоличествоСимволовДоРасширения); "ru = '(Необходимо расшифровать)'") + Сред(Вложение.Ключ, КоличествоСимволовДоРасширения);
@@ -503,7 +513,7 @@
КонецЕсли; КонецЕсли;
// Архивация вложений. // Архивация вложений.
АрхивацияВложений(ОбщиеВложения, ПараметрыДоставки, ПараметрыДоставки.КаталогВременныхФайлов); АрхивацияВложений(ОбщиеВложения, ПараметрыДоставки, ПараметрыДоставки.КаталогВременныхФайлов, ПараметрыЖурнала);
Иначе Иначе
ОбщиеВложения = Новый Массив; ОбщиеВложения = Новый Массив;
@@ -863,6 +873,10 @@
Процедура ВыполнитьРассылкиВФоновомЗадании(ПараметрыВыполнения, АдресРезультата) Экспорт Процедура ВыполнитьРассылкиВФоновомЗадании(ПараметрыВыполнения, АдресРезультата) Экспорт
МассивРассылок = ПараметрыВыполнения.МассивРассылок; МассивРассылок = ПараметрыВыполнения.МассивРассылок;
ПредварительныеНастройки = ПараметрыВыполнения.ПредварительныеНастройки; ПредварительныеНастройки = ПараметрыВыполнения.ПредварительныеНастройки;
Если ПредварительныеНастройки = Неопределено Тогда
ПредварительныеНастройки = Новый Структура;
КонецЕсли;
ПредварительныеНастройки.Вставить("АдресРезультата", АдресРезультата);
// Выбираем все рассылки, включая вложенные, исключая группы. // Выбираем все рассылки, включая вложенные, исключая группы.
Запрос = Новый Запрос; Запрос = Новый Запрос;
@@ -3763,7 +3777,7 @@
// ПараметрыДоставки - см. ВыполнитьРассылку.ПараметрыДоставки // ПараметрыДоставки - см. ВыполнитьРассылку.ПараметрыДоставки
// КаталогВременныхФайлов - Строка - каталог, в который будет выполнена архивация. // КаталогВременныхФайлов - Строка - каталог, в который будет выполнена архивация.
// //
Процедура АрхивацияВложений(Вложения, ПараметрыДоставки, КаталогВременныхФайлов) Процедура АрхивацияВложений(Вложения, ПараметрыДоставки, КаталогВременныхФайлов, ПараметрыЖурнала)
Если Не ПараметрыДоставки.Архивировать Тогда Если Не ПараметрыДоставки.Архивировать Тогда
Возврат; Возврат;
КонецЕсли; КонецЕсли;
@@ -3797,8 +3811,13 @@
Если ПараметрыДоставки.УстановитьПаролиЗашифровать И ЗначениеЗаполнено(ПараметрыДоставки.СертификатДляШифрования) Тогда Если ПараметрыДоставки.УстановитьПаролиЗашифровать И ЗначениеЗаполнено(ПараметрыДоставки.СертификатДляШифрования) Тогда
МодульЭлектроннаяПодпись = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодпись"); МодульЭлектроннаяПодпись = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодпись");
АрхивДвоичныеДанные = МодульЭлектроннаяПодпись.Зашифровать(Новый ДвоичныеДанные(ПолноеИмяФайла), Попытка
АрхивДвоичныеДанные = МодульЭлектроннаяПодпись.Зашифровать(Новый ДвоичныеДанные(ПолноеИмяФайла),
ПараметрыДоставки.СертификатДляШифрования); ПараметрыДоставки.СертификатДляШифрования);
Исключение
ОбработатьОшибкуПриШифровании(ПараметрыДоставки.АдресРезультата, ПараметрыДоставки.СертификатДляШифрования, ИнформацияОбОшибке(), ПараметрыЖурнала);
ВызватьИсключение;
КонецПопытки;
АрхивДвоичныеДанные.Записать(ПолноеИмяФайла); АрхивДвоичныеДанные.Записать(ПолноеИмяФайла);
КонецЕсли; КонецЕсли;
@@ -4444,6 +4463,37 @@
КонецФункции КонецФункции
Процедура ОбработатьОшибкуПриШифровании(АдресРезультата, СертификатДляШифрования, ИнформацияОбОшибке, ПараметрыЖурнала)
Уточнение = ОбщегоНазначенияКлиентСервер.УточнениеИсключения(ИнформацияОбОшибке);
МодульЭлектроннаяПодпись = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодпись");
ОшибкаПоКлассификатору = МодульЭлектроннаяПодпись.ОшибкаПоКлассификатору(Уточнение.Текст, Истина);
ЭтоИзвестнаяОшибка = ОшибкаПоКлассификатору <> Неопределено;
Если ЭтоИзвестнаяОшибка Тогда
СтрокиОшибки = Новый Массив;
СтрокиОшибки.Добавить(Уточнение.Текст);
Если ЗначениеЗаполнено(ОшибкаПоКлассификатору.Причина) Тогда
Причины = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru='Возможные причины: %1'"), ОшибкаПоКлассификатору.Причина);
СтрокиОшибки.Добавить(Причины);
КонецЕсли;
Если ЗначениеЗаполнено(ОшибкаПоКлассификатору.Решение) Тогда
Решение = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru='Рекомендации: %1'"), ОшибкаПоКлассификатору.Решение);
СтрокиОшибки.Добавить(Решение);
КонецЕсли;
ТекстОшибки = СтрСоединить(СтрокиОшибки, Символы.ПС);
ЗаписьЖурнала(ПараметрыЖурнала, УровеньЖурналаРегистрации.Ошибка, ТекстОшибки);
КонецЕсли;
Если АдресРезультата <> Неопределено И ЭтоАдресВременногоХранилища(АдресРезультата) Тогда
Результат = Новый Структура;
Результат.Вставить("ЕстьОшибкиПриШифровании", Истина);
Результат.Вставить("СертификатДляШифрования", СертификатДляШифрования);
ПоместитьВоВременноеХранилище(Результат, АдресРезультата);
КонецЕсли;
КонецПроцедуры
// Формирует строку способа получения рассылки // Формирует строку способа получения рассылки
// //
// Параметры: // Параметры:
@@ -259,8 +259,22 @@
ПоказатьОповещениеПользователя(,, Результат.Текст, БиблиотекаКартинок.РассылкаОтчетов, СтатусОповещенияПользователя.Информация); ПоказатьОповещениеПользователя(,, Результат.Текст, БиблиотекаКартинок.РассылкаОтчетов, СтатусОповещенияПользователя.Информация);
Иначе Иначе
СтандартныеПодсистемыКлиент.ВывестиИнформациюОбОшибке( Результат = ПолучитьИзВременногоХранилища(Задание.АдресРезультата);
Задание.ИнформацияОбОшибке); Если Результат <> Неопределено И Результат.ЕстьОшибкиПриШифровании
И ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ЭлектроннаяПодпись") Тогда
ДополнительныеДанные = Новый Структура;
ДополнительныеДанные.Вставить("Сертификат", Результат.СертификатДляШифрования);
ПараметрыФормы = Новый Структура;
ПараметрыФормы.Вставить("ЗаголовокПредупреждения", НСтр("ru = 'Не удалось выполнить рассылку отчетов'"));
ПараметрыФормы.Вставить("ТекстОшибкиСервер", ОбработкаОшибок.КраткоеПредставлениеОшибки(Задание.ИнформацияОбОшибке));
ПараметрыФормы.Вставить("ДополнительныеДанные", ДополнительныеДанные);
ПараметрыФормы.Вставить("ПоказатьТребуетсяПомощь", Истина);
ПараметрыФормы.Вставить("ПоказатьИнструкцию", Истина);
МодульЭлектроннаяПодписьКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ЭлектроннаяПодписьКлиент");
МодульЭлектроннаяПодписьКлиент.ОткрытьФормуРасширенногоПредставленияОшибки(ПараметрыФормы);
Иначе
СтандартныеПодсистемыКлиент.ВывестиИнформациюОбОшибке(Задание.ИнформацияОбОшибке);
КонецЕсли;
КонецЕсли; КонецЕсли;
КонецПроцедуры КонецПроцедуры
@@ -210,6 +210,7 @@
ПараметрыДоставки.Вставить("УстановитьПаролиЗашифровать", Ложь); ПараметрыДоставки.Вставить("УстановитьПаролиЗашифровать", Ложь);
ПараметрыДоставки.Вставить("ОтчетыДляТекстаПисьма", Новый Соответствие); ПараметрыДоставки.Вставить("ОтчетыДляТекстаПисьма", Новый Соответствие);
ПараметрыДоставки.Вставить("ДеревоОтчетов", Неопределено); ПараметрыДоставки.Вставить("ДеревоОтчетов", Неопределено);
ПараметрыДоставки.Вставить("АдресРезультата", Неопределено);
Возврат ПараметрыДоставки; Возврат ПараметрыДоставки;
@@ -412,6 +412,27 @@
КонецПроцедуры КонецПроцедуры
// См. ОчередьЗаданийПереопределяемый.ПриОпределенииИспользованияРегламентныхЗаданий.
Процедура ПриОпределенииИспользованияРегламентныхЗаданий(ТаблицаИспользования) Экспорт
ЗависимыеРегламентныеЗадания = РегламентныеЗаданияЗависимыеОтФункциональныхОпций();
ПараметрыОтбора = Новый Структура;
ПараметрыОтбора.Вставить("ДоступноВМоделиСервиса", Ложь);
ЗаданияОтключаемыеМоделиСервиса = ЗависимыеРегламентныеЗадания.Скопировать(ПараметрыОтбора ,"РегламентноеЗадание");
Для Каждого ОтключаемоеЗадание Из ЗаданияОтключаемыеМоделиСервиса Цикл
РегламентноеЗадание = ОтключаемоеЗадание.РегламентноеЗадание; // ОбъектМетаданныхРегламентноеЗадание
Если ТаблицаИспользования.Найти(РегламентноеЗадание.Имя, "РегламентноеЗадание") <> Неопределено Тогда
Продолжить;
КонецЕсли;
НоваяСтрока = ТаблицаИспользования.Добавить();
НоваяСтрока.РегламентноеЗадание = РегламентноеЗадание.Имя;
НоваяСтрока.Использование = Ложь;
КонецЦикла;
КонецПроцедуры
#КонецОбласти #КонецОбласти
#Область СлужебныеПроцедурыИФункции #Область СлужебныеПроцедурыИФункции
@@ -73,9 +73,9 @@
// //
Процедура ПередЗавершениемРаботыСистемы(Отказ, Предупреждения) Экспорт Процедура ПередЗавершениемРаботыСистемы(Отказ, Предупреждения) Экспорт
#Если ВебКлиент ИЛИ МобильныйКлиент Тогда #Если ВебКлиент ИЛИ МобильныйКлиент Тогда
Возврат; Возврат;
#КонецЕсли #КонецЕсли
Если Не ОбщегоНазначенияКлиент.ЭтоWindowsКлиент() Если Не ОбщегоНазначенияКлиент.ЭтоWindowsКлиент()
Или Не ОбщегоНазначенияКлиент.ИнформационнаяБазаФайловая() Или Не ОбщегоНазначенияКлиент.ИнформационнаяБазаФайловая()
@@ -672,9 +672,9 @@
КонецЕсли; КонецЕсли;
МобильныйКлиент = Ложь; МобильныйКлиент = Ложь;
#Если МобильныйКлиент Тогда #Если МобильныйКлиент Тогда
МобильныйКлиент = Истина; МобильныйКлиент = Истина;
#КонецЕсли #КонецЕсли
Если ДанныеПодтверждения.ЭтапЦикла = "ВводКода" И НЕ МобильныйКлиент Тогда Если ДанныеПодтверждения.ЭтапЦикла = "ВводКода" И НЕ МобильныйКлиент Тогда
ЭлементыФормы = КонтекстФормы.Элементы; ЭлементыФормы = КонтекстФормы.Элементы;
@@ -2705,12 +2705,12 @@
ИсточникНастроек = ПараметрыОперации; ИсточникНастроек = ПараметрыОперации;
КонецЕсли; КонецЕсли;
#Если ВнешнееСоединение Тогда #Если ВнешнееСоединение Тогда
Если ИсточникНастроек = Неопределено Если ИсточникНастроек = Неопределено
И ПроверитьСредуВыполнения("ВнешнееСоединение") Тогда И ПроверитьСредуВыполнения("ВнешнееСоединение") Тогда
Результат = СервисКриптографииDSSКлиентСервер.ИсточникНастроекХранилище(); Результат = СервисКриптографииDSSКлиентСервер.ИсточникНастроекХранилище();
КонецЕсли; КонецЕсли;
#КонецЕсли #КонецЕсли
Если ИсточникНастроек = СервисКриптографииDSSКлиентСервер.ИсточникНастроекПараметрыСеанса() Если ИсточникНастроек = СервисКриптографииDSSКлиентСервер.ИсточникНастроекПараметрыСеанса()
ИЛИ ИсточникНастроек = СервисКриптографииDSSКлиентСервер.ИсточникНастроекХранилище() Тогда ИЛИ ИсточникНастроек = СервисКриптографииDSSКлиентСервер.ИсточникНастроекХранилище() Тогда
@@ -2544,20 +2544,20 @@
Функция ИспользуемыйКлиент() Функция ИспользуемыйКлиент()
ИспользуемыйКлиент = ""; ИспользуемыйКлиент = "";
#Если ТонкийКлиент Тогда #Если ТонкийКлиент Тогда
ИспользуемыйКлиент = "ТонкийКлиент"; ИспользуемыйКлиент = "ТонкийКлиент";
#ИначеЕсли ТолстыйКлиентУправляемоеПриложение Тогда #ИначеЕсли ТолстыйКлиентУправляемоеПриложение Тогда
ИспользуемыйКлиент = "ТолстыйКлиентУправляемоеПриложение"; ИспользуемыйКлиент = "ТолстыйКлиентУправляемоеПриложение";
#ИначеЕсли ТолстыйКлиентОбычноеПриложение Тогда #ИначеЕсли ТолстыйКлиентОбычноеПриложение Тогда
ИспользуемыйКлиент = "ТолстыйКлиентОбычноеПриложение"; ИспользуемыйКлиент = "ТолстыйКлиентОбычноеПриложение";
#ИначеЕсли ВебКлиент Тогда #ИначеЕсли ВебКлиент Тогда
ОписаниеБраузера = ТекущийБраузер(); ОписаниеБраузера = ТекущийБраузер();
Если ПустаяСтрока(ОписаниеБраузера.Версия) Тогда Если ПустаяСтрока(ОписаниеБраузера.Версия) Тогда
ИспользуемыйКлиент = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("ВебКлиент.%1", ОписаниеБраузера.Название); ИспользуемыйКлиент = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("ВебКлиент.%1", ОписаниеБраузера.Название);
Иначе Иначе
ИспользуемыйКлиент = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("ВебКлиент.%1.%2", ОписаниеБраузера.Название, СтрРазделить(ОписаниеБраузера.Версия, ".")[0]); ИспользуемыйКлиент = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("ВебКлиент.%1.%2", ОписаниеБраузера.Название, СтрРазделить(ОписаниеБраузера.Версия, ".")[0]);
КонецЕсли; КонецЕсли;
#КонецЕсли #КонецЕсли
Возврат ИспользуемыйКлиент; Возврат ИспользуемыйКлиент;
@@ -32,7 +32,7 @@
// При этом пометка нескольких строк будет невозможна, а выбирать можно по двойному клик по строке. // При этом пометка нескольких строк будет невозможна, а выбирать можно по двойному клик по строке.
// * ВыбиратьСсылки - Булево - по умолчанию Ложь. Укажите Истина, чтобы в возвращаемом значении вместо // * ВыбиратьСсылки - Булево - по умолчанию Ложь. Укажите Истина, чтобы в возвращаемом значении вместо
// полных имен выбранных метаданных содержались ссылки на их идентификаторы, // полных имен выбранных метаданных содержались ссылки на их идентификаторы,
// см. ОбщегоНазначения.ИдентификаторыОбъектовМетаданных. // смотри ОбщегоНазначения.ИдентификаторыОбъектовМетаданных.
// * ВыбиратьКоллекцииКогдаВыбраныВсеОбъекты - Булево - по умолчанию Ложь. При группировке объектов по видам, // * ВыбиратьКоллекцииКогдаВыбраныВсеОбъекты - Булево - по умолчанию Ложь. При группировке объектов по видам,
// укажите Истина, чтобы в возвращаемое значение включать также типы объектов метаданных // укажите Истина, чтобы в возвращаемое значение включать также типы объектов метаданных
// (Конфигурация, Справочники, Документы...), если у них выбраны все подчиненные строки. // (Конфигурация, Справочники, Документы...), если у них выбраны все подчиненные строки.
@@ -1629,7 +1629,7 @@
Обработчики.Вставить("ТаблицыРасширенийСОграничениемДоступа", Обработчики.Вставить("ТаблицыРасширенийСОграничениемДоступа",
"УправлениеДоступомСлужебный.УстановкаПараметровСеанса"); "УправлениеДоступомСлужебный.УстановкаПараметровСеанса");
#Область УниверсальноеОграничение #Область УниверсальноеОграничение
Обработчики.Вставить("ОграничениеДоступаНаУровнеЗаписейУниверсально", Обработчики.Вставить("ОграничениеДоступаНаУровнеЗаписейУниверсально",
"УправлениеДоступомСлужебный.УстановкаПараметровСеанса"); "УправлениеДоступомСлужебный.УстановкаПараметровСеанса");
@@ -1670,7 +1670,7 @@
Обработчики.Вставить("ПараметрыОграниченияДоступа", Обработчики.Вставить("ПараметрыОграниченияДоступа",
"УправлениеДоступомСлужебный.УстановкаПараметровСеанса"); "УправлениеДоступомСлужебный.УстановкаПараметровСеанса");
#КонецОбласти #КонецОбласти
КонецПроцедуры КонецПроцедуры
@@ -3042,7 +3042,7 @@
// //
Процедура УстановкаПараметровСеанса(ИмяПараметра, УстановленныеПараметры) Экспорт Процедура УстановкаПараметровСеанса(ИмяПараметра, УстановленныеПараметры) Экспорт
#Область УниверсальноеОграничение #Область УниверсальноеОграничение
Если ИмяПараметра = "ПараметрыОграниченияДоступа" Тогда Если ИмяПараметра = "ПараметрыОграниченияДоступа" Тогда
ПараметрыСеанса.ПараметрыОграниченияДоступа = Новый ФиксированнаяСтруктура(Новый Структура); ПараметрыСеанса.ПараметрыОграниченияДоступа = Новый ФиксированнаяСтруктура(Новый Структура);
УстановленныеПараметры.Добавить("ПараметрыОграниченияДоступа"); УстановленныеПараметры.Добавить("ПараметрыОграниченияДоступа");
@@ -3071,7 +3071,7 @@
Если ИмяПараметра = "ОграничениеДоступаНаУровнеЗаписейУниверсально" Тогда Если ИмяПараметра = "ОграничениеДоступаНаУровнеЗаписейУниверсально" Тогда
Возврат; Возврат;
КонецЕсли; КонецЕсли;
#КонецОбласти #КонецОбласти
// Для корректной работы препроцессора в ограничениях доступа, требуется инициализации всех // Для корректной работы препроцессора в ограничениях доступа, требуется инициализации всех
// параметров сеанса, которые могут быть востребованы в работе препроцессора. // параметров сеанса, которые могут быть востребованы в работе препроцессора.
@@ -3079,7 +3079,7 @@
ИнформационнаяБазаЗаблокированаДляОбновления = ЗначениеЗаполнено( ИнформационнаяБазаЗаблокированаДляОбновления = ЗначениеЗаполнено(
ОбновлениеИнформационнойБазыСлужебный.ИнформационнаяБазаЗаблокированаДляОбновления(Ложь)); ОбновлениеИнформационнойБазыСлужебный.ИнформационнаяБазаЗаблокированаДляОбновления(Ложь));
#Область УниверсальноеОграничение #Область УниверсальноеОграничение
Если Не ОграничиватьДоступНаУровнеЗаписей Если Не ОграничиватьДоступНаУровнеЗаписей
Или Не УниверсальноеОграничение Или Не УниверсальноеОграничение
Или ИнформационнаяБазаЗаблокированаДляОбновления Тогда Или ИнформационнаяБазаЗаблокированаДляОбновления Тогда
@@ -3111,7 +3111,7 @@
УстановленныеПараметры.Добавить("СпискиСОграничениемЧерезКлючиДоступаПользователей"); УстановленныеПараметры.Добавить("СпискиСОграничениемЧерезКлючиДоступаПользователей");
УстановленныеПараметры.Добавить("СпискиСОграничениемПоПолям"); УстановленныеПараметры.Добавить("СпискиСОграничениемПоПолям");
КонецЕсли; КонецЕсли;
#КонецОбласти #КонецОбласти
Если Не ОграничиватьДоступНаУровнеЗаписей Если Не ОграничиватьДоступНаУровнеЗаписей
Или УниверсальноеОграничение Или УниверсальноеОграничение
@@ -3155,12 +3155,12 @@
Возврат; Возврат;
КонецЕсли; КонецЕсли;
#Область УниверсальноеОграничение #Область УниверсальноеОграничение
Если УниверсальноеОграничение Тогда Если УниверсальноеОграничение Тогда
ДействующиеПараметрыОграниченияДоступа(Неопределено, Неопределено, Ложь, Истина); ДействующиеПараметрыОграниченияДоступа(Неопределено, Неопределено, Ложь, Истина);
Возврат; Возврат;
КонецЕсли; КонецЕсли;
#КонецОбласти #КонецОбласти
Если Не ОграничиватьДоступНаУровнеЗаписей Тогда Если Не ОграничиватьДоступНаУровнеЗаписей Тогда
Возврат; Возврат;
@@ -528,12 +528,12 @@
ИмяПротокола = "tel"; // по умолчанию используем "tel". ИмяПротокола = "tel"; // по умолчанию используем "tel".
#Если МобильныйКлиент Тогда #Если МобильныйКлиент Тогда
СредстваТелефонии.НабратьНомер(НомерТелефона, Истина); СредстваТелефонии.НабратьНомер(НомерТелефона, Истина);
Возврат; Возврат;
#КонецЕсли #КонецЕсли
#Если НЕ ВебКлиент Тогда #Если НЕ ВебКлиент Тогда
ДоступноеИмяПротокола = ПрограммаТелефонииУстановлена(); ДоступноеИмяПротокола = ПрограммаТелефонииУстановлена();
Если ДоступноеИмяПротокола = Неопределено Тогда Если ДоступноеИмяПротокола = Неопределено Тогда
СтрокаСПредупреждением = Новый ФорматированнаяСтрока( СтрокаСПредупреждением = Новый ФорматированнаяСтрока(
@@ -544,7 +544,7 @@
ИначеЕсли НЕ ПустаяСтрока(ДоступноеИмяПротокола) Тогда ИначеЕсли НЕ ПустаяСтрока(ДоступноеИмяПротокола) Тогда
ИмяПротокола = ДоступноеИмяПротокола; ИмяПротокола = ДоступноеИмяПротокола;
КонецЕсли; КонецЕсли;
#КонецЕсли #КонецЕсли
СтрокаЗапуска = ИмяПротокола + ":" + НомерТелефона; СтрокаЗапуска = ИмяПротокола + ":" + НомерТелефона;
@@ -1627,12 +1627,12 @@
Процедура ОткрытьSkype(СтрокаЗапуска) Процедура ОткрытьSkype(СтрокаЗапуска)
#Если НЕ ВебКлиент Тогда #Если НЕ ВебКлиент Тогда
Если ПустаяСтрока(ПрограммаТелефонииУстановлена("skype")) Тогда Если ПустаяСтрока(ПрограммаТелефонииУстановлена("skype")) Тогда
ПоказатьПредупреждение(Неопределено, НСтр("ru = 'Для совершения звонка по Skype установите приложение.'")); ПоказатьПредупреждение(Неопределено, НСтр("ru = 'Для совершения звонка по Skype установите приложение.'"));
Возврат; Возврат;
КонецЕсли; КонецЕсли;
#КонецЕсли #КонецЕсли
Оповещение = Новый ОписаниеОповещения("ПослеЗапускаПриложения", ЭтотОбъект); Оповещение = Новый ОписаниеОповещения("ПослеЗапускаПриложения", ЭтотОбъект);
ФайловаяСистемаКлиент.ОткрытьНавигационнуюСсылку(СтрокаЗапуска, Оповещение); ФайловаяСистемаКлиент.ОткрытьНавигационнуюСсылку(СтрокаЗапуска, Оповещение);
@@ -144,11 +144,11 @@
Handler.COMСоединение = 0; Handler.COMСоединение = 0;
#Если Не ВебКлиент Тогда #Если Не ВебКлиент Тогда
Если Handler.Свойство("ИмяФайла") Тогда Если Handler.Свойство("ИмяФайла") Тогда
УдалитьФайлы(Handler.ИмяФайла); УдалитьФайлы(Handler.ИмяФайла);
КонецЕсли; КонецЕсли;
#КонецЕсли #КонецЕсли
КонецПроцедуры КонецПроцедуры
Loaded 100 of 238 files, more files were not shown because too many files have changed in this diff. Show more