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
+3028 -2187

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
@@ -116,6 +116,17 @@
ФормулаРасчетаКурса = "";
КонецЕсли;
Если ЗначениеЗаполнено(ФормулаРасчетаКурса) Тогда
Попытка
ПроверитьФормулу(ФормулаРасчетаКурса);
Исключение
ИнформацияОбОшибке = ИнформацияОбОшибке();
Уточнение = ОбщегоНазначенияКлиентСервер.УточнениеИсключения(ИнформацияОбОшибке,
НСтр("ru = 'Не удалось вычислить курс валюты по формуле:'"));
ВызватьИсключение(Уточнение.Текст, Уточнение.Категория, , , ИнформацияОбОшибке);
КонецПопытки;
КонецЕсли;
КонецПроцедуры
Процедура ПриЗаписи(Отказ)
@@ -124,14 +135,19 @@
Возврат;
КонецЕсли;
Если ДополнительныеСвойства.Свойство("ОбновитьКурсы") И ВыполняетсяФоновыйПересчетКурсов() Тогда
ОбновитьКурсы = ДополнительныеСвойства.Свойство("ОбновитьКурсы");
ЭтоНовый = ДополнительныеСвойства.Свойство("ЭтоНовый");
ТребуетсяЗаписьКурсов = ОбновитьКурсы Или ЭтоНовый;
ВыполняетсяФоновыйПересчетКурсов = ВыполняетсяФоновыйПересчетКурсов();
Если ТребуетсяЗаписьКурсов И ВыполняетсяФоновыйПересчетКурсов Тогда
ВызватьИсключение НСтр("ru = 'Не удалось записать валюту, так как еще не завершился фоновый пересчет курсов.
|Попробуйте записать валюту позже.'");
КонецЕсли;
Если ДополнительныеСвойства.Свойство("ОбновитьКурсы") Тогда
Если ОбновитьКурсы Тогда
НачатьФоновоеОбновлениеКурсовВалюты();
Иначе
ИначеЕсли Не ВыполняетсяФоновыйПересчетКурсов Тогда
РаботаСКурсамиВалют.ПроверитьКорректностьКурсаНа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="Document.Анкета.Form.ФормаСписка/Help">анкеты</a> типа <strong>Выбор одного варианта ответа из предложенных</strong> или <strong>Выбор нескольких вариантов ответа из предложенных</strong>. В этих случаях ответ респондента сводится к выбору одного или нескольких вариантов ответа из списка с помощью переключателей.</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.ГруппыДоступа/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.ГруппыДоступа.Form.ФормаСписка/Help">групп доступа</a> может быть очень много и с похожими настройками ограничений прав, предусмотрена возможность создавать <a href="Catalog.ГруппыДоступа.Form.ФормаВыбораГруппы/Help">папки</a> для упрощения поиска нужной <a href="Catalog.ГруппыДоступа.Form.ФормаЭлемента/Help">группы доступа</a> и понимания ограничений прав доступа в целом.</p>
<p>Группы доступа можно сгруппировать в папки по различным признакам.</p>
@@ -1318,9 +1318,9 @@
Элементы.ГруппаСтраницыРежимыСовместимостиРазрешений.ТекущаяСтраница = Элементы.СтраницаРазрешенияВерсия_2_2_2;
Если БезопасныйРежим = Истина Тогда
Если ИспользуютсяПрофилиБезопасности И БезопасныйРежим = Истина Тогда
Элементы.СтраницыБезопасныйРежимСРазрешениями.ТекущаяСтраница = Элементы.СтраницаБезопасныйРежимСРазрешениями;
ИначеЕсли БезопасныйРежим = Ложь Тогда
ИначеЕсли ТипЗнч(БезопасныйРежим) = Тип("Булево") Тогда
Элементы.СтраницыБезопасныйРежимСРазрешениями.ТекущаяСтраница = Элементы.СтраницаНебезопасныйРежимСРазрешениями;
ИначеЕсли ТипЗнч(БезопасныйРежим) = Тип("Строка") Тогда
Элементы.СтраницыБезопасныйРежимСРазрешениями.ТекущаяСтраница = Элементы.СтраницаПерсональныйПрофильБезопасности;
@@ -23,9 +23,9 @@
&НаКлиенте
Процедура ПриОткрытии(Отказ)
#Если ВебКлиент Тогда
#Если ВебКлиент Тогда
Элементы.ФильтрПоЦвету.СписокВыбора.Вставить(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>
<ul><li>В поле <strong>Группа</strong> напишите наименование группы.
</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>
@@ -676,11 +676,11 @@
ИнформационныйТекст = НСтр("ru = 'График работы заполнен до %1'");
Форма.ЗаполненностьИнформационныйТекст = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ИнформационныйТекст, Формат(Форма.ДатаЗаполненности, "ДЛФ=D"));
Иначе
#Если ВебКлиент Или ТонкийКлиент ИЛИ МобильныйКлиент Тогда
#Если ВебКлиент Или ТонкийКлиент ИЛИ МобильныйКлиент Тогда
ТекущаяДата = ОбщегоНазначенияКлиент.ДатаСеанса();
#Иначе
#Иначе
ТекущаяДата = ТекущаяДатаСеанса();
#КонецЕсли
#КонецЕсли
КонецГоризонтаПланирования = ДобавитьМесяц(ТекущаяДата, Форма.Объект.ГоризонтПланирования);
ИнформационныйТекст = НСтр("ru = 'График работы заполнен до %1, с учетом горизонта планирования график должен быть заполнен до %2'");
Форма.ЗаполненностьИнформационныйТекст = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ИнформационныйТекст, Формат(Форма.ДатаЗаполненности, "ДЛФ=D"), Формат(КонецГоризонтаПланирования, "ДЛФ=D"));
@@ -1854,6 +1854,88 @@
<userSettingsGroup>СписокКомпоновщикНастроекПользовательскиеНастройки</userSettingsGroup>
</extInfo>
</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">
<name>ГруппаЛегенда</name>
<id>176</id>
@@ -2432,12 +2514,24 @@
<edit>
<common>true</common>
</edit>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.Ограничения</segments>
</notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.Полномочия</segments>
</notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.ВозможностьПередоверия</segments>
</notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.ПолномочияВТекстовомВиде</segments>
</notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.Ссылка</segments>
</notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.ТекстПолномочий</segments>
</notDefaultUseAlwaysAttributes>
<notDefaultUseAlwaysAttributes xsi:type="form:DataPath">
<segments>Список.ФайлДоверенности</segments>
</notDefaultUseAlwaysAttributes>
@@ -2470,6 +2564,12 @@
ТОГДА ИСТИНА
ИНАЧЕ ЛОЖЬ
КОНЕЦ КАК Действует,
СправочникМашиночитаемыеДоверенности.ПолномочияВТекстовомВиде КАК ПолномочияВТекстовомВиде,
ВЫБОР
КОГДА &amp;ВидимостьПолномочий
ТОГДА СправочникМашиночитаемыеДоверенности.ТекстПолномочий
Иначе &quot;&quot;
КОНЕЦ КАК ТекстПолномочий,
ВЫБОР
КОГДА СправочникМашиночитаемыеДоверенности.ПометкаУдаления
ТОГДА 1
@@ -3138,6 +3238,22 @@
<value></value>
</values>
</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>
</attributes>
<attributes>
@@ -3190,19 +3306,6 @@
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ФизическоеЛицоПользователя</name>
<id>7</id>
<valueType>
<types>DefinedType.ФизическоеЛицо</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<attributes>
<name>АвторизованныйПользователь</name>
<id>8</id>
@@ -3227,32 +3330,6 @@
<common>true</common>
</edit>
</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>
<name>ОтборПоСостоянию</name>
<id>3</id>
@@ -3363,6 +3440,20 @@
<common>true</common>
</edit>
</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>
<name>ЗагрузитьИзФайла</name>
<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 Тогда
Если СтрДлина(ПараметрыПоиска.СтрокаПоиска) > 2 Тогда
Сообщение = НСтр("ru = 'Совпадений в справочниках не найдено'");
СообщениеФорматированное = СтроковыеФункцииКлиент.ФорматированнаяСтрока(
НСтр("ru = '<span style=""color: %1; font: %2"">%3</span> нет в списках'"),
"РезультатУспехЦвет", "ВажнаяНадписьШрифт",
ПараметрыПоиска.СтрокаПоиска);
Иначе
Сообщение = НСтр("ru = 'Продолжите ввод...'");
СообщениеФорматированное = Новый ФорматированнаяСтрока(Сообщение, , WebЦвета.НейтральноСерый);
КонецЕсли;
СообщениеФорматированное = Новый ФорматированнаяСтрока(Сообщение, , WebЦвета.НейтральноСерый);
ПодходящиеЗначения.Добавить("", СообщениеФорматированное);
КонецЕсли;
@@ -900,8 +1014,6 @@
"ВЫБРАТЬ РАЗРЕШЕННЫЕ РАЗЛИЧНЫЕ ПЕРВЫЕ 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>'");
КонецЕсли;
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
МодульСтроковыеФункции = СтроковыеФункции;
#Иначе
#Иначе
МодульСтроковыеФункции = СтроковыеФункцииКлиент;
#КонецЕсли
#КонецЕсли
Форма.Элементы.ДекорацияРегистрироватьВРеестреФНС.Заголовок = МодульСтроковыеФункции.ФорматированнаяСтрока(ЗаголовокРегистрироватьВРеестре, Форма.Объект.НомерДоверенности);
@@ -3475,11 +3475,11 @@
Элементы = Форма.Элементы;
Объект = Форма.Объект;
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
МодульСтроковыеФункции = СтроковыеФункции;
#Иначе
#Иначе
МодульСтроковыеФункции = СтроковыеФункцииКлиент;
#КонецЕсли
#КонецЕсли
Если Форма.Элементы.ДекорацияПросрочена.Видимость Тогда
Элементы.ОписаниеСостояния.Видимость = Ложь;
@@ -49,15 +49,15 @@
Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка)
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
Если ОбщегоНазначения.ЭтоОсновнойЯзык() Тогда
Возврат;
КонецЕсли;
#Иначе
#Иначе
Если СтрСравнить(СтандартныеПодсистемыКлиент.ПараметрКлиента("КодОсновногоЯзыка"), ОбщегоНазначенияКлиент.КодОсновногоЯзыка()) = 0 Тогда
Возврат;
КонецЕсли;
#КонецЕсли
#КонецЕсли
Если ЗначениеЗаполнено(Данные.Родитель) Тогда
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
@@ -240,9 +240,9 @@
&НаКлиенте
Процедура ПриОткрытии(Отказ)
#Если ВебКлиент Тогда
#Если ВебКлиент Тогда
Элементы.ПользовательИБПользовательОС.КнопкаВыбора = Ложь;
#КонецЕсли
#КонецЕсли
ОбновитьСвойствоПоказыватьВСпискеВыбора();
@@ -949,9 +949,9 @@
&НаКлиенте
Процедура ПользовательИБПользовательОСНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
#Если НЕ ВебКлиент И НЕ МобильныйКлиент Тогда
#Если НЕ ВебКлиент И НЕ МобильныйКлиент Тогда
ОткрытьФорму("Справочник.Пользователи.Форма.ВыборПользователяОперационнойСистемы", , Элемент);
#КонецЕсли
#КонецЕсли
КонецПроцедуры
@@ -1014,7 +1014,7 @@
Возврат;
КонецЕсли;
#Если Не ВебКлиент Тогда
#Если Не ВебКлиент Тогда
Картинка = Новый Картинка(ПолучитьИзВременногоХранилища(Результат.Хранение));
Если Картинка.Формат() = ФорматКартинки.НеизвестныйФормат Тогда
ПоказатьПредупреждение(, НСтр("ru = 'Необходимо выбрать файл с изображением.'"));
@@ -1025,7 +1025,7 @@
ПоказатьПредупреждение(, НСтр("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>Открывается с помощью ссылки <strong>Правила проверки учета</strong> в разделе <strong>Администрирование - Обслуживание - Корректировка данных</strong>.</p>
<p>В списке выводится:</p>
@@ -593,7 +593,6 @@
<key>ru</key>
<value>Серийный номер</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
@@ -27,7 +27,7 @@
Элементы.Наименование.СписокВыбора.Добавить("", НСтр("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.ПрофилиГруппДоступа.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.ПрофилиГруппДоступа.Form.ФормаСписка/Help">Профилей групп доступа</a> может быть много и с похожим назначением, поэтому предусмотрена возможность создавать папки (группы) для упрощения поиска нужного <a href="Catalog.ПрофилиГруппДоступа.Form.ФормаЭлемента/Help">профиля</a> и понимания принципов их формирования.</p>
<h3>Ввод папки профилей групп доступа</h3>
@@ -35,13 +35,13 @@
РежимДиалогаВыбораФайла.Открытие,
НСтр("ru = 'Выберите файл профиля ключевых операций'"),
Новый ОписаниеОповещения("ДиалогВыбораФайлаЗавершение", ЭтотОбъект, Неопределено));
#Если ВебКлиент Тогда
#Если ВебКлиент Тогда
Оповещение = Новый ОписаниеОповещения("НачатьПодключениеРасширенияРаботыСФайламиЗавершение", ЭтотОбъект,
Новый ОписаниеОповещения("ДиалогВыбораФайлаПоказать", ЭтотОбъект, ДополнительныеПараметры));
НачатьПодключениеРасширенияРаботыСФайлами(Оповещение);
#Иначе
#Иначе
ДиалогВыбораФайлаПоказать(Истина, ДополнительныеПараметры);
#КонецЕсли
#КонецЕсли
КонецЕсли;
КонецПроцедуры
@@ -62,13 +62,13 @@
РежимДиалогаВыбораФайла.Сохранение,
НСтр("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>Открывается из рассылки отчетов по ссылке <strong>Укажите получателей</strong>.</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>Открывается из окна группы рассылок по кнопке выбора.</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>
<h3>Сведения о группе</h3>
<ul><li>Напишите <strong>Наименование</strong> группы.
@@ -46,7 +46,7 @@
</li>
<li>В поле <strong>Автор</strong> выберите пользователя из списка. По умолчанию приложение выбирает в качестве автора текущего пользователя, который создает рассылку.
<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>Если выбрана <b>Личная рассылка автора</b>, то доставка выполняется только по электронной почте по единственному адресу, который указывается в поле <strong>Почтовый адрес</strong>.
</li>
@@ -67,13 +67,13 @@
<li>Если используются оба способа доставки (и публикация, и отправка по почте), то можно указать, что по почте нужно <strong>Отправлять только уведомление</strong> о том, что отчет сформирован. Сами отчеты не будут присоединяться к письму, а будут помещаться в каталог публикации. В этом случае письмо-уведомление будет содержать адрес, по которому находится сформированный отчет.</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>, выберите нужное значение:
<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>
<div style="MARGIN-RIGHT: 0px"><strong>[Автор]</strong> - пользователь, запустивший рассылку. </div>
</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>
<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>Открывается по кнопке <strong>Подобрать</strong> из окна <a href="Catalog.СертификатыКлючейЭлектроннойПодписиИШифрования.Form.ШифрованиеДанных/Help">Шифрование данных</a>.</p>
<p>В списке выводится:</p>
@@ -315,14 +315,27 @@
КонецЕсли;
Если ЭлектроннаяПодписьСлужебныйКлиент.ЭтоОперацияОблачнойПодписи(ЭтотОбъект) Тогда
МодульСервисКриптографииDSSПодтверждениеКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("СервисКриптографииDSSПодтверждениеКлиент");
Если МодульСервисКриптографииDSSПодтверждениеКлиент.ПроверкаПередВыполнениемОперации(ЭтотОбъект, СвойстваПароля.Значение) Тогда
Если ТипЗнч(ОписаниеДанных) = Тип("Структура")
И ТипЗнч(ОписаниеДанных.Данные) = Тип("Структура")
И ОписаниеДанных.Данные.Свойство("ПараметрыCMS") Тогда
ОписаниеДанных.Данные.ПараметрыCMS.ВключениеСертификатовВПодпись = Строка(ОписаниеДанных.Данные.ПараметрыCMS.ВключениеСертификатовВПодпись);
МодульСервисКриптографииDSSПодтверждениеКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль(
"СервисКриптографииDSSПодтверждениеКлиент");
Если МодульСервисКриптографииDSSПодтверждениеКлиент.ПроверкаПередВыполнениемОперации(ЭтотОбъект,
СвойстваПароля.Значение) Тогда
Если ТипЗнч(ОписаниеДанных) = Тип("Структура") И ОписаниеДанных.Свойство("Данные") И ТипЗнч(
ОписаниеДанных.Данные) = Тип("Структура") И ОписаниеДанных.Данные.Свойство("Параметры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>
<ul><li>В ссылке в верхней части окна указываются сведения о данных, которые будут расшифрованы.
@@ -670,11 +670,14 @@
РасшифроватьДанныеПослеВыполнения(Результат);
Если Результат.Свойство("Ошибка") Тогда
Ошибка = Результат.Ошибка;
Если ОписаниеДанных.Свойство("КонтекстОперации") Тогда
ОписаниеДанных.КонтекстОперации = ЭтотОбъект;
КонецЕсли;
Контекст.ОшибкаНаКлиенте = Результат.Ошибка;
ОбработатьОшибку(Контекст.Оповещение, Контекст.ОшибкаНаКлиенте, Контекст.ОшибкаНаСервере);
Контекст.ОшибкаНаКлиенте = Ошибка;
ДополнительныеДанныеОшибки = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(
Ошибка, "ДополнительныеДанныеПроверокНаКлиенте", Неопределено);
ОбработатьОшибку(Контекст.Оповещение, Контекст.ОшибкаНаКлиенте, Контекст.ОшибкаНаСервере, ДополнительныеДанныеОшибки);
Возврат;
КонецЕсли;
@@ -789,7 +792,7 @@
КонецФункции
&НаКлиенте
Процедура ОбработатьОшибку(Оповещение, ОшибкаНаКлиенте, ОшибкаНаСервере)
Процедура ОбработатьОшибку(Оповещение, ОшибкаНаКлиенте, ОшибкаНаСервере, ДополнительныеДанные = Неопределено)
Если ОписаниеДанных.Свойство("ПрекратитьВыполнение") Тогда
@@ -814,6 +817,12 @@
ДополнительныеПараметры = Новый Структура("Сертификат", Сертификат);
Если ЗначениеЗаполнено(ДополнительныеДанные) Тогда
Для Каждого КлючИЗначение Из ДополнительныеДанные Цикл
ДополнительныеПараметры.Вставить(КлючИЗначение.Ключ, КлючИЗначение.Значение);
КонецЦикла;
КонецЕсли;
ЭлектроннаяПодписьСлужебныйКлиент.ПоказатьОшибкуОбращенияКПрограмме(
НСтр("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>
<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
}
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
}
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">Открывается по команде <strong>Добавить - комплексный вопрос</strong> из <a href="Catalog.ШаблоныАнкет.Form.ФормаЭлемента/Help">шаблона анкеты</a>.</p>
<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>Открывается по команде <strong>Добавить - простой вопрос</strong> из шаблона анкеты.</p>
<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>В левой части списка перечислены наименования шаблонов, в правой части показывается содержание шаблона.</p>
<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>Открывается при выборе вопроса по команде <strong>Добавить - простой вопрос</strong> в <a href="Catalog.ШаблоныАнкет.Form.ФормаЭлемента/Help">шаблоне анкеты</a> или в <a href="Catalog.ШаблоныАнкет.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>Открывается по команде <strong>Вопросы для анкетирования</strong> в разделе <strong>Анкетирование</strong>.</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>Для общих дополнительных реквизитов данная настройка недоступна.</p>
<p>Для ввода новых условий нажмите кнопку <strong>Добавить условие</strong>. </p>
@@ -60,7 +60,7 @@
МодульМультиязычностьКлиентСервер = ОбщегоНазначения.ОбщийМодуль("МультиязычностьКлиентСервер");
МодульМультиязычностьКлиентСервер.ОбработкаПолученияПолейПредставления(Поля, СтандартнаяОбработка);
КонецЕсли;
#Иначе
#Иначе
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.Мультиязычность") Тогда
МодульМультиязычностьКлиентСервер = ОбщегоНазначенияКлиент.ОбщийМодуль("МультиязычностьКлиентСервер");
МодульМультиязычностьКлиентСервер.ОбработкаПолученияПолейПредставления(Поля, СтандартнаяОбработка);
@@ -1231,7 +1231,6 @@
<verticalLines>true</verticalLines>
<searchOnInput>Auto</searchOnInput>
<initialListView>Auto</initialListView>
<initialTreeView>ExpandTopLevel</initialTreeView>
<horizontalStretch>true</horizontalStretch>
<verticalStretch>true</verticalStretch>
<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>Открывается из вкладки <strong>Отборы</strong> окна <a href="CommonForm.ФормаНастроекОтчета/Help">Настройки отчета</a> по двойному щелчку мыши в столбце <strong>Значение</strong> для операций <strong>В списке</strong>, <strong>Не в списке</strong>, <strong>В группе из списка</strong>, <strong>Не в группе из списка</strong>.</p>
<h3>Подбор значений</h3>
@@ -935,7 +935,6 @@
<verticalLines>true</verticalLines>
<searchOnInput>Auto</searchOnInput>
<initialListView>Auto</initialListView>
<initialTreeView>ExpandTopLevel</initialTreeView>
<horizontalStretch>true</horizontalStretch>
<verticalStretch>true</verticalStretch>
<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>Укажите с помощью флажков нужные типы пользователей, нажмите <strong>Выбрать</strong>.</p>
<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>По умолчанию включен флажок <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>Открывается по команде <strong>Настройка доступа к сервису "Морфер"</strong> в разделе <strong>Администрирование - Интернет-Поддержка и Сервисы</strong>.</p>
<h3>Анонимный вход</h3>
@@ -98,9 +98,9 @@
Процедура НастроитьШрифтВерхнегоКолонтитула(Команда)
ДиалогВыбораШрифта = Новый ДиалогВыбораШрифта;
#Если Не ВебКлиент Тогда
#Если Не ВебКлиент Тогда
ДиалогВыбораШрифта.Шрифт = ШрифтСверху;
#КонецЕсли
#КонецЕсли
ОписаниеОповещения = Новый ОписаниеОповещения("НастройкаШрифтаВерхнегоКолонтитулаЗавершение", ЭтотОбъект);
@@ -112,9 +112,9 @@
Процедура НастроитьШрифтНижнегоКолонтитула(Команда)
ДиалогВыбораШрифта = Новый ДиалогВыбораШрифта;
#Если Не ВебКлиент Тогда
#Если Не ВебКлиент Тогда
ДиалогВыбораШрифта.Шрифт = ШрифтСнизу;
#КонецЕсли
#КонецЕсли
ОписаниеОповещения = Новый ОписаниеОповещения("НастройкаШрифтаНижнегоКолонтитулаЗавершение", ЭтотОбъект);
@@ -1927,6 +1927,7 @@
<autoFill>true</autoFill>
</contextMenu>
<autoMaxHeight>true</autoMaxHeight>
<groupVerticalAlign>Center</groupVerticalAlign>
<extInfo xsi:type="form:PictureDecorationExtInfo">
<picture xsi:type="core:PictureRef">
<picture>StdPicture.Information</picture>
@@ -1071,11 +1071,11 @@
Элементы.ГруппаПрограммыОбновление.Видимость = Истина;
КонецЕсли;
#Если ВебКлиент Тогда
#Если ВебКлиент Тогда
ПодключитьОбработчикОжидания("ОбработчикОжиданияОпределитьУстановленныеПрограммы", 0.3, Истина);
#Иначе
#Иначе
ПодключитьОбработчикОжидания("ОбработчикОжиданияОпределитьУстановленныеПрограммы", 0.1, Истина);
#КонецЕсли
#КонецЕсли
КонецПроцедуры
@@ -1337,6 +1337,7 @@
НСтр("ru = 'На вашем компьютере установлено несколько приложений с алгоритмами ГОСТ: %1.
|Возможна некорректная работа из-за конфликта между ними. В этом случае следует удалить приложения и после перезагрузки установить только одно из них.'"),
СтрСоединить(МассивПрограмм, ", "));
Элементы.ДекорацияИнформацияКриптопровайдеры.Картинка = БиблиотекаКартинок.Предупреждение;
// Конец Локализация
Иначе
Элементы.ГруппаПодсказкаКриптопровайдеры.Видимость = Ложь;
@@ -1030,11 +1030,11 @@
Процедура ПечатьПослеПолученияИмениВременногоКаталога(ИмяКаталогаВременныхФайлов, МассивПечатныхФорм) Экспорт
Для Каждого ПечатнаяФорма Из МассивПечатныхФорм Цикл
#Если ВебКлиент Тогда
#Если ВебКлиент Тогда
ИмяВременногоФайла = ИмяКаталогаВременныхФайлов + Строка(Новый УникальныйИдентификатор);
#Иначе
#Иначе
ИмяВременногоФайла = ПолучитьИмяВременногоФайла("DOCX"); // АПК:441 Функция для получения имени временного файла.
#КонецЕсли
#КонецЕсли
Оповещение = Новый ОписаниеОповещения("ПослеСохраненияФайла", ЭтотОбъект, ИмяВременногоФайла);
ДанныеДокумента = ПолучитьИзВременногоХранилища(ПечатнаяФорма.АдресПечатнойФормы); // ДвоичныеДанные
ДанныеДокумента.НачатьЗапись(Оповещение, ИмяВременногоФайла);
@@ -32,14 +32,14 @@
Отказ = Истина;
КонецЕсли;
Иначе
#Если Не ВебКлиент И Не МобильныйКлиент Тогда
#Если Не ВебКлиент И Не МобильныйКлиент Тогда
Попытка
Результат = ИзменилсяТолькоНомерСборкиОсновнойКонфигурации();
Исключение
ТекстОшибки = ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
ЗаписатьОшибку(ТекстОшибки);
КонецПопытки;
#КонецЕсли
#КонецЕсли
Отказ = Истина;
Если ТипЗнч(Результат) <> Тип("Булево") Тогда
Результат = Ложь;
@@ -275,7 +275,7 @@
</userVisible>
<title>
<key>ru</key>
<value>Подменю включить расширения</value>
<value>Включить/выключить расширения</value>
</title>
<toolTip>
<key>ru</key>
@@ -370,7 +370,7 @@
</userVisible>
<title>
<key>ru</key>
<value>Подменю передавать в подчиненные узлы РИБ</value>
<value>Передавать в подчиненные узлы РИБ</value>
</title>
<toolTip>
<key>ru</key>
@@ -1163,6 +1163,44 @@
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</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">
<name>ГруппаПодвал</name>
<id>60</id>
@@ -1875,6 +1913,26 @@
<stringQualifiers/>
</valueType>
</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>
<navigationPanel/>
<commandBar/>
@@ -60,16 +60,23 @@
СтандартныеПодсистемыСервер.СброситьРазмерыИПоложениеОкна(ЭтотОбъект);
Если ЗначениеЗаполнено(Параметры.ТекстДополнительнойСсылки) Тогда
Элементы.ДополнительнаяСсылка.Видимость = Истина;
Элементы.ДополнительнаяСсылка.Заголовок = СтроковыеФункции.ФорматированнаяСтрока(Параметры.ТекстДополнительнойСсылки);
Иначе
Элементы.ДополнительнаяСсылка.Видимость = Ложь;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
#Если Не МобильноеПриложениеКлиент И Не МобильныйКлиент Тогда
#Если Не МобильноеПриложениеКлиент И Не МобильныйКлиент Тогда
Если ПараметрыДополненияТекстаРешенияОшибкиКлассификатора <> Неопределено Тогда
ПодключитьОбработчикОжидания("ДополнитьРешениеКлассификатораОшибокПодробностями", 0.1, Истина);
КонецЕсли;
#КонецЕсли
#КонецЕсли
КонецПроцедуры
@@ -146,6 +153,27 @@
Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка, ДополнительныеДанные());
КонецПроцедуры
&НаКлиенте
Процедура ДополнительнаяСсылкаОбработкаНавигационнойСсылки(Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка)
Если ЗначениеЗаполнено(Параметры.ОбработчикДополнительнойСсылки) Тогда
СтандартнаяОбработка = Ложь;
ПолноеИмяПроцедуры = Параметры.ОбработчикДополнительнойСсылки;
ЧастиИмениПроцедуры = СтрРазделить(ПолноеИмяПроцедуры, ".");
ИмяМодуля = ЧастиИмениПроцедуры[0];
ИмяПроцедуры = ЧастиИмениПроцедуры[1];
Оповещение = Новый ОписаниеОповещения(ИмяПроцедуры, ОбщегоНазначенияКлиент.ОбщийМодуль(ИмяМодуля));
ПараметрОповещения = Новый Структура("ПараметрОбработчикаДополнительнойСсылки, НавигационнаяСсылка",
Параметры.ПараметрОбработчикаДополнительнойСсылки, НавигационнаяСсылкаФорматированнойСтроки);
ВыполнитьОбработкуОповещения(Оповещение, ПараметрОповещения);
КонецЕсли;
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиКомандФормы
@@ -640,7 +640,7 @@
<id>77</id>
<title>
<key>ru</key>
<value>Перезаполнение предопределенных элементов и классификаторов.</value>
<value>Перезаполнение предопределенных элементов и классификаторов на выбранных языках учета.</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
@@ -663,6 +663,7 @@
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<width>50</width>
<height>3</height>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
@@ -816,7 +817,7 @@
<id>72</id>
<title>
<key>ru</key>
<value>Предопределенные элементы и классификаторы успешно перезаполнены.</value>
<value>Предопределенные элементы и классификаторы успешно перезаполнены на выбранных языках учета.</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
@@ -839,6 +840,7 @@
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<width>50</width>
<height>3</height>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
@@ -1032,7 +1034,6 @@
<common>true</common>
</edit>
<fillChecking>ShowError</fillChecking>
<savedData>true</savedData>
</attributes>
<attributes>
<name>ИспользоватьДополнительныйЯзык1</name>
@@ -1050,7 +1051,6 @@
<edit>
<common>true</common>
</edit>
<savedData>true</savedData>
</attributes>
<attributes>
<name>ДополнительныйЯзык1</name>
@@ -1069,7 +1069,6 @@
<edit>
<common>true</common>
</edit>
<savedData>true</savedData>
</attributes>
<attributes>
<name>ЧасовойПоясПрограммы</name>
@@ -1088,7 +1087,6 @@
<edit>
<common>true</common>
</edit>
<savedData>true</savedData>
</attributes>
<attributes>
<name>ДополнительныйЯзык2</name>
@@ -1107,7 +1105,6 @@
<edit>
<common>true</common>
</edit>
<savedData>true</savedData>
</attributes>
<attributes>
<name>ИспользоватьДополнительныйЯзык2</name>
@@ -1125,7 +1122,6 @@
<edit>
<common>true</common>
</edit>
<savedData>true</savedData>
</attributes>
<attributes>
<name>Источник</name>
@@ -1251,6 +1247,19 @@
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ДанныеБылиИзменены</name>
<id>15</id>
<valueType>
<types>Boolean</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<formCommands>
<name>ОК</name>
<title>
@@ -21,6 +21,7 @@
Источник = Параметры.Источник;
Если Источник = "ПанельАдминистрированияБСП" Тогда
Элементы.ОК.Заголовок = НСтр("ru = 'Изменить'");
Элементы.ОК.ОтображениеПодсказки = ОтображениеПодсказки.Нет;
Элементы.ГруппаЧасовойПоясПрограммы.Видимость = Ложь;
Заголовок = НСтр("ru = 'Языки ведения учета'");
АвтоЗаголовок = Ложь;
@@ -182,11 +183,13 @@
&НаКлиенте
Процедура ИспользоватьДополнительныйЯзык1ПриИзменении(Элемент)
Элементы.ДополнительныйЯзык1.Доступность = ИспользоватьДополнительныйЯзык1;
ДанныеБылиИзменены = Истина;
КонецПроцедуры
&НаКлиенте
Процедура ИспользоватьДополнительныйЯзык2ПриИзменении(Элемент)
Элементы.ДополнительныйЯзык2.Доступность = ИспользоватьДополнительныйЯзык2;
ДанныеБылиИзменены = Истина;
КонецПроцедуры
&НаКлиенте
@@ -200,6 +203,8 @@
КонецЕсли;
КонецЕсли;
ДанныеБылиИзменены = Истина;
КонецПроцедуры
&НаКлиенте
@@ -218,6 +223,8 @@
КонецЕсли;
КонецЕсли;
ДанныеБылиИзменены = Истина;
КонецПроцедуры
&НаКлиенте
@@ -231,6 +238,8 @@
КонецЕсли;
КонецЕсли;
ДанныеБылиИзменены = Истина;
КонецПроцедуры
&НаКлиенте
@@ -246,6 +255,7 @@
&НаКлиенте
Процедура ЧасовойПоясПрограммыПриИзменении(Элемент)
СмещениеЧасовогоПояса = СмещениеЧасовогоПояса(ЧасовойПоясПрограммы, ТекущиеВремяНаКлиенте());
ДанныеБылиИзменены = Истина;
КонецПроцедуры
#КонецОбласти
@@ -276,7 +286,7 @@
&НаКлиенте
Процедура АвтоматическоеЗакрытиеФормыПриНеактивности()
Если Модифицированность Тогда
Если ДанныеБылиИзменены Тогда
Элементы.ОК.Заголовок = НСтр("ru = 'ОК'");
Возврат;
КонецЕсли;
@@ -170,11 +170,11 @@
&НаКлиенте
Процедура ПриОткрытии(Отказ)
#Если ВебКлиент Тогда
#Если ВебКлиент Тогда
СпрятатьЗонуПеретаскивания = Ложь;
#Иначе
#Иначе
СпрятатьЗонуПеретаскивания = Истина;
#КонецЕсли
#КонецЕсли
Если ЭтоLinuxКлиент Тогда
СпрятатьЗонуПеретаскивания = Ложь;
@@ -1320,11 +1320,11 @@
ПараметрыСохранения = ФайловаяСистемаКлиент.ПараметрыСохраненияФайла();
#Если ВебКлиент Тогда
#Если ВебКлиент Тогда
ПараметрыСохранения.Интерактивно = Истина;
#Иначе
#Иначе
ПараметрыСохранения.Интерактивно = Ложь;
#КонецЕсли
#КонецЕсли
ПараметрыОткрытия = ОбработчикПослеРазрешений.ДополнительныеПараметры;
ФайловаяСистемаКлиент.СохранитьФайл(ОбработчикПослеРазрешений, ПараметрыОткрытия.АдресДокумента, ВременныйКаталог+ПараметрыОткрытия.ИмяФайлаДляОткрытия, ПараметрыСохранения);
@@ -2666,9 +2666,9 @@
Если ОбщегоНазначенияКлиентСервер.СравнитьВерсии(ВерсияПлатформы, "8.3.23.838") >= 0 Тогда
ПодключитьОбработчикОжидания("ПодсветитьЯчейкиСВыбраннымПолем", 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>
<h3>Основные сведения о сертификате</h3>
<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-выкл код сохранен для обратной совместимости, используется в устаревшем программном интерфейсе.
#Если Сервер Тогда
#Если Сервер Тогда
Если БезопасныйРежим() <> Ложь Тогда
ВызватьИсключение НСтр("ru = 'Внимание! Администрирование кластера невозможно в безопасном режиме.'");
@@ -1296,7 +1296,7 @@
ВызватьИсключение НСтр("ru = 'Внимание! В модели сервиса недопустимо выполнение прикладной информационной базой функций администрирования кластера.'");
КонецЕсли;
#КонецЕсли
#КонецЕсли
// АПК:547-вкл
@@ -642,17 +642,7 @@
ИначеЕсли СтрокаДерева.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.ОдинВариантИз Тогда
Если СтрокаДерева.ВидПереключателя = Перечисления.ВидыПереключателяВАнкетах.Переключатель Тогда
ВариантыОтветовНаВопрос = ВариантыОтветовНаВопрос(СтрокаДерева.ЭлементарныйВопрос, Форма);
Счетчик = 0;
Для Каждого ВариантОтвета Из ВариантыОтветовНаВопрос Цикл
Счетчик = Счетчик + 1;
ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы(ИмяВопроса + "_Реквизит_" + Счетчик,
СтрокаДерева.ТипЗначения, , СтрокаДерева.Формулировка));
КонецЦикла;
Иначе
ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы(ИмяВопроса,СтрокаДерева.ТипЗначения,,СтрокаДерева.Формулировка))
КонецЕсли;
ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы(ИмяВопроса,СтрокаДерева.ТипЗначения,,СтрокаДерева.Формулировка));
ИначеЕсли СтрокаДерева.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.НесколькоВариантовИз Тогда
ВариантыОтветовНаВопрос = ВариантыОтветовНаВопрос(СтрокаДерева.ЭлементарныйВопрос, Форма);
@@ -1110,85 +1100,26 @@
ИначеЕсли СтрокаТаблицы.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.ОдинВариантИз Тогда
ВариантыОтветовНаВопрос = ВариантыОтветовНаВопрос(СтрокаТаблицы.ЭлементарныйВопрос, Форма);
Если СтрокаТаблицы.ВидПереключателя = Перечисления.ВидыПереключателяВАнкетах.Переключатель Тогда
ЭлементГруппаВариантыОтветов = Форма.Элементы.Добавить(ИмяВопроса + "_Группа_Варианты", Тип("ГруппаФормы"),
ЭлементГруппаВопросКомментарий);
ЭлементГруппаВариантыОтветов.Вид = ВидГруппыФормы.ОбычнаяГруппа;
ЭлементГруппаВариантыОтветов.Отображение = ОтображениеОбычнойГруппы.Нет;
ЭлементГруппаВариантыОтветов.Группировка = ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяВсегда;
ЭлементГруппаВариантыОтветов.ОтображатьЗаголовок = Ложь;
ЭлементГруппаВопросы = Форма.Элементы.Добавить(ИмяВопроса + "_ГруппаВопросы", Тип("ГруппаФормы"),
ЭлементГруппаВариантыОтветов);
ЭлементГруппаВопросы.Вид = ВидГруппыФормы.ОбычнаяГруппа;
ЭлементГруппаВопросы.Отображение = ОтображениеОбычнойГруппы.Нет;
ЭлементГруппаВопросы.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Вертикальная;
ЭлементГруппаВопросы.ОтображатьЗаголовок = Ложь;
Счетчик = 0;
Для Каждого ВариантОтвета Из ВариантыОтветовНаВопрос Цикл
Счетчик = Счетчик + 1;
ЭлементГруппаВариантОтвета = Форма.Элементы.Добавить(ИмяВопроса + "_Группа_ВариантОтвета_" + XMLСтрока(
Счетчик), Тип("ГруппаФормы"), ЭлементГруппаВопросы);
ЭлементГруппаВариантОтвета.Вид = ВидГруппыФормы.ОбычнаяГруппа;
ЭлементГруппаВариантОтвета.Отображение = ОтображениеОбычнойГруппы.Нет;
ЭлементГруппаВариантОтвета.Группировка = ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяВсегда;
ЭлементГруппаВариантОтвета.ОтображатьЗаголовок = Ложь;
ЭлементГруппаВариантОтвета.РастягиватьПоГоризонтали = Истина;
ИмяРеквизитаВопроса = ИмяВопроса + "_Реквизит_" + Счетчик;
Элемент = Форма.Элементы.Добавить(ИмяРеквизитаВопроса, Тип("ПолеФормы"), ЭлементГруппаВариантОтвета);
Элемент.Вид = ВидПоляФормы.ПолеПереключателя;
Элемент.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Нет;
Элемент.ПутьКДанным = ИмяРеквизитаВопроса;
Элемент.КоличествоКолонок = 1;
Элемент.ВысотаЭлемента = 1;
Элемент.ГоризонтальноеПоложение = ГоризонтальноеПоложениеЭлемента.Лево;
Элемент.ВидПереключателя = ВидПереключателя.Переключатель;
Элемент.КоличествоКолонок = 1;
Элемент.Подсказка = ВариантОтвета.Подсказка;
СписокВыбораЭлемента = Элемент.СписокВыбора;
СписокВыбораЭлемента.Добавить(ВариантОтвета.Ответ, ВариантОтвета.Представление);
КонецЦикла;
ЭлементГруппаПодсказка = Форма.Элементы.Добавить(ИмяВопроса + "_ГруппаПодсказка", Тип("ГруппаФормы"),
ЭлементГруппаВариантыОтветов);
ЭлементГруппаПодсказка.Вид = ВидГруппыФормы.ОбычнаяГруппа;
ЭлементГруппаПодсказка.Отображение = ОтображениеОбычнойГруппы.Нет;
ЭлементГруппаПодсказка.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Вертикальная;
ЭлементГруппаПодсказка.ОтображатьЗаголовок = Ложь;
ЭлементРасшифровка = Форма.Элементы.Добавить(
ИмяВопроса + "_РасшифровкаПодсказки", Тип("ДекорацияФормы"), ЭлементГруппаПодсказка);
ЭлементРасшифровка.АвтоМаксимальнаяШирина = Ложь;
ЭлементРасшифровка.РастягиватьПоГоризонтали = Истина;
ЭлементРасшифровка.ЦветТекста = ЦветаСтиля.ПоясняющийТекст;
Иначе
Элемент = Форма.Элементы.Добавить(ИмяВопроса,Тип("ПолеФормы"),ЭлементГруппаВопросКомментарий);
Элемент = Форма.Элементы.Добавить(ИмяВопроса, Тип("ПолеФормы"), ЭлементГруппаВопросКомментарий);
Элемент.Вид = ВидПоляФормы.ПолеПереключателя;
Элемент.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Нет;
Элемент.ПутьКДанным = ИмяВопроса;
Элемент.КоличествоКолонок = 1;
Элемент.ВысотаЭлемента = 1;
Элемент.ГоризонтальноеПоложение = ГоризонтальноеПоложениеЭлемента.Лево;
Если СтрокаТаблицы.ВидПереключателя = Перечисления.ВидыПереключателяВАнкетах.Тумблер Тогда
Элемент.ВидПереключателя = ВидПереключателя.Тумблер;
Элемент.КоличествоКолонок = 0;
Элемент.ОдинаковаяШиринаКолонок = Ложь;
Иначе
Элемент.ВидПереключателя = ВидПереключателя.Переключатель;
Элемент.КоличествоКолонок = 1;
КонецЕсли;
Для Каждого ВариантОтвета Из ВариантыОтветовНаВопрос Цикл
СписокВыбораЭлемента = Элемент.СписокВыбора;
СписокВыбораЭлемента.Добавить(ВариантОтвета.Ответ,ВариантОтвета.Представление);
Элемент.СписокВыбора.Добавить(ВариантОтвета.Ответ, ВариантОтвета.Представление);
КонецЦикла;
КонецЕсли;
ИначеЕсли СтрокаТаблицы.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.НесколькоВариантовИз Тогда
ВариантыОтветовНаВопрос = ВариантыОтветовНаВопрос(СтрокаТаблицы.ЭлементарныйВопрос, Форма);
@@ -294,9 +294,7 @@
Форма.Элементы[ИмяВопроса + "_Комментарий"].Доступность = Не БезОтвета;
КонецЕсли;
Если Вопрос.ТипОтвета = ПредопределенноеЗначение("Перечисление.ТипыОтветовНаВопрос.НесколькоВариантовИз")
Или (Вопрос.ТипОтвета = ПредопределенноеЗначение("Перечисление.ТипыОтветовНаВопрос.ОдинВариантИз")
И Вопрос.ВидПереключателя = ПредопределенноеЗначение("Перечисление.ВидыПереключателяВАнкетах.Переключатель")) Тогда
Если Вопрос.ТипОтвета = ПредопределенноеЗначение("Перечисление.ТипыОтветовНаВопрос.НесколькоВариантовИз") Тогда
Форма.Элементы[ИмяВопроса + "_Группа_Варианты"].Доступность = Не БезОтвета;
ЕстьОтвет = ЕстьОтветНаВопросСВыборомОтветов(Форма, Вопрос, ИмяВопроса);
Иначе
@@ -8631,7 +8631,7 @@
ОписаниеНастроек = ОписаниеНастроекВариантаОтчета();
#Область ЧтениеФайлаОписанияНастроек
#Область ЧтениеФайлаОписанияНастроек
ШапкаОписанияОшибки = НСтр("ru = 'Некорректный формат описания настроек:'") + Символы.ПС;
@@ -8650,9 +8650,9 @@
ЧтениеXML.Закрыть();
#КонецОбласти
#КонецОбласти
#Область ЧтениеОбщегоОписанияНастроек
#Область ЧтениеОбщегоОписанияНастроек
Если ДокументDOM.ДочерниеУзлы.Количество() = 0 Тогда
ОписаниеНастроек.ОписаниеОшибки = ШапкаОписанияОшибки + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
@@ -8673,9 +8673,9 @@
ОписаниеНастроек.ИмяОтчета = ИмяОтчета.Значение;
Состав = Элемент.ДочерниеУзлы;
#КонецОбласти
#КонецОбласти
#Область ЧтениеОписанияОсновныхНастроек
#Область ЧтениеОписанияОсновныхНастроек
ИмяЭлемента = "Settings";
Если Состав.Количество() = 0 Тогда
@@ -8705,9 +8705,9 @@
ОписаниеНастроек.ПредставлениеВарианта = ПредставлениеВарианта.Значение;
#КонецОбласти
#КонецОбласти
#Область ЧтениеОписанияПользовательскихНастроек
#Область ЧтениеОписанияПользовательскихНастроек
ГраницаСостава = Состав.Количество() - 1;
Если ГраницаСостава <= 0 Тогда
@@ -8754,7 +8754,7 @@
КонецЦикла;
#КонецОбласти
#КонецОбласти
Возврат ОписаниеНастроек;
@@ -8954,7 +8954,7 @@
ВариантОтчета = Новый Структура("Ссылка, КлючВариантаЗанят");
#Область ЗапросПользовательскогоВариантаОтчета
#Область ЗапросПользовательскогоВариантаОтчета
Запрос = Новый Запрос(
"ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 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 = 'Ошибка генерации штрихкода'",
МодульОбщегоНазначения.КодОсновногоЯзыка()),
УровеньЖурналаРегистрации.Ошибка,,,
ТекстСообщения);
#КонецЕсли
#КонецЕсли
ВызватьИсключение ТекстСообщения;
КонецЕсли;
@@ -169,13 +169,13 @@
РезультатФормированияШтрихкода = ИзображениеШтрихкода(ПараметрыШтрихкода);
ДвоичныеДанныеКартинки = РезультатФормированияШтрихкода.ДвоичныеДанные;
Исключение
#Если НЕ МобильноеПриложениеСервер Тогда
#Если НЕ МобильноеПриложениеСервер Тогда
МодульОбщегоНазначения = МодульОбщегоНазначения();
ЗаписьЖурналаРегистрации(НСтр("ru = 'Ошибка генерации штрихкода'",
МодульОбщегоНазначения.КодОсновногоЯзыка()),
УровеньЖурналаРегистрации.Ошибка,,,
ОбработкаОшибок.ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
#КонецЕсли
#КонецЕсли
КонецПопытки;
Возврат ДвоичныеДанныеКартинки;
@@ -3068,9 +3068,9 @@
КомандаОписание.ВариантЗапуска = Перечисления.СпособыВызоваДополнительныхОбработок[КомандаОписание.Использование];
КонецЦикла;
#Если ТолстыйКлиентОбычноеПриложение Тогда
#Если ТолстыйКлиентОбычноеПриложение Тогда
РезультатРегистрации.ИмяОбъекта = ВнешнийОбъектМетаданные.Имя;
#КонецЕсли
#КонецЕсли
КонецПроцедуры
// Вывод команд заполнения в формах объектов.
@@ -359,7 +359,7 @@
ПараметрыОбработки.Вставить("ОбъектыНазначения", ОбъектыНазначения);
КонецЕсли;
#Если ТолстыйКлиентОбычноеПриложение Тогда
#Если ТолстыйКлиентОбычноеПриложение Тогда
ВнешняяОбработка = ДополнительныеОтчетыИОбработкиВызовСервера.ОбъектВнешнейОбработки(ВыполняемаяКоманда.Ссылка);
ФормаОбработки = ВнешняяОбработка.ПолучитьФорму(, Форма);
Если ФормаОбработки = Неопределено Тогда
@@ -372,14 +372,14 @@
КонецЕсли;
ФормаОбработки.Открыть();
ФормаОбработки = Неопределено;
#Иначе
#Иначе
ИмяОбработки = ДополнительныеОтчетыИОбработкиВызовСервера.ПодключитьВнешнююОбработку(ВыполняемаяКоманда.Ссылка);
Если ВыполняемаяКоманда.ЭтоОтчет Тогда
ОткрытьФорму("ВнешнийОтчет." + ИмяОбработки + ".Форма", ПараметрыОбработки, Форма);
Иначе
ОткрытьФорму("ВнешняяОбработка." + ИмяОбработки + ".Форма", ПараметрыОбработки, Форма);
КонецЕсли;
#КонецЕсли
#КонецЕсли
КонецПроцедуры
// Выполняет клиентский метод обработки.
@@ -396,7 +396,7 @@
ПараметрыОбработки.Вставить("ОбъектыНазначения", ОбъектыНазначения);
КонецЕсли;
#Если ТолстыйКлиентОбычноеПриложение Тогда
#Если ТолстыйКлиентОбычноеПриложение Тогда
ВнешняяОбработка = ДополнительныеОтчетыИОбработкиВызовСервера.ОбъектВнешнейОбработки(ВыполняемаяКоманда.Ссылка);
ФормаОбработки = ВнешняяОбработка.ПолучитьФорму(, Форма);
Если ФормаОбработки = Неопределено Тогда
@@ -407,14 +407,14 @@
Строка(ВыполняемаяКоманда.Ссылка),
ВыполняемаяКоманда.Представление);
КонецЕсли;
#Иначе
#Иначе
ИмяОбработки = ДополнительныеОтчетыИОбработкиВызовСервера.ПодключитьВнешнююОбработку(ВыполняемаяКоманда.Ссылка);
Если ВыполняемаяКоманда.ЭтоОтчет Тогда
ФормаОбработки = ПолучитьФорму("ВнешнийОтчет."+ ИмяОбработки +".Форма", ПараметрыОбработки, Форма);
Иначе
ФормаОбработки = ПолучитьФорму("ВнешняяОбработка."+ ИмяОбработки +".Форма", ПараметрыОбработки, Форма);
КонецЕсли;
#КонецЕсли
#КонецЕсли
Если ВыполняемаяКоманда.Вид = ПредопределенноеЗначение("Перечисление.ВидыДополнительныхОтчетовИОбработок.ДополнительнаяОбработка")
Или ВыполняемаяКоманда.Вид = ПредопределенноеЗначение("Перечисление.ВидыДополнительныхОтчетовИОбработок.ДополнительныйОтчет") Тогда
@@ -788,6 +788,11 @@
МодульРаботаСФайламиСлужебныйВМоделиСервиса.ПриОпределенииИспользованияРегламентныхЗаданий(ТаблицаИспользования);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РегламентныеЗадания") Тогда
МодульРегламентныеЗаданияСлужебный = ОбщегоНазначения.ОбщийМодуль("РегламентныеЗаданияСлужебный");
МодульРегламентныеЗаданияСлужебный.ПриОпределенииИспользованияРегламентныхЗаданий(ТаблицаИспользования);
КонецЕсли;
КонецПроцедуры
#КонецОбласти
@@ -203,7 +203,8 @@
Разделители = "()/*-+%=<>, " + Символы.Таб + Символы.ПС;
ОткрывающихСкобок = 0;
ЭтоСтрокаВКавычках = Ложь;
ЭтоСтрокаВДвойныхКавычках = Ложь;
ЭтоСтрокаВОдинарныхКавычках = Ложь;
Операнд = "";
@@ -212,17 +213,23 @@
Символ = Сред(Формула, Индекс, 1);
ЭтоРазделитель = СтрНайти(Разделители, Символ) > 0;
Если ОткрывающихСкобок = 0 И Символ = """" Тогда
ЭтоСтрокаВКавычках = Не ЭтоСтрокаВКавычках;
Если ОткрывающихСкобок = 0 И Символ = """" И Не ЭтоСтрокаВОдинарныхКавычках Тогда
ЭтоСтрокаВДвойныхКавычках = Не ЭтоСтрокаВДвойныхКавычках;
ВсеЭлементы.Добавить(Символ);
Продолжить;
КонецЕсли;
Если ЭтоСтрокаВКавычках Тогда
Если ОткрывающихСкобок = 0 И Символ = "'" И Не ЭтоСтрокаВДвойныхКавычках Тогда
ЭтоСтрокаВОдинарныхКавычках = Не ЭтоСтрокаВОдинарныхКавычках;
ВсеЭлементы.Добавить(Символ);
Продолжить;
КонецЕсли;
Если ЭтоСтрокаВДвойныхКавычках Или ЭтоСтрокаВОдинарныхКавычках Тогда
ВсеЭлементы[ВсеЭлементы.ВГраница()] = ВсеЭлементы[ВсеЭлементы.ВГраница()] + Символ;
Продолжить;
КонецЕсли;
Если Символ = "[" Тогда
ОткрывающихСкобок = ОткрывающихСкобок + 1;
КонецЕсли;
@@ -19,7 +19,7 @@
//
Процедура ОбработкаПолученияПредставления(Данные, Представление, СтандартнаяОбработка, ИмяРеквизита = "Наименование") Экспорт
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
Если МультиязычностьСервер.ЭтоОсновнойЯзык() Тогда
Возврат;
@@ -73,7 +73,7 @@
КонецЕсли;
#КонецЕсли
#КонецЕсли
КонецПроцедуры
@@ -90,7 +90,7 @@
//
Процедура ОбработкаПолученияПолейПредставления(Поля, СтандартнаяОбработка, ИмяРеквизита = "Наименование") Экспорт
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
Если МультиязычностьСервер.ЭтоОсновнойЯзык() Тогда
Возврат;
@@ -108,7 +108,7 @@
Поля.Добавить(ИмяРеквизита +"Язык2");
КонецЕсли;
#КонецЕсли
#КонецЕсли
КонецПроцедуры
@@ -2345,17 +2345,17 @@
Попытка
#Если ВнешнееСоединение ИЛИ ТолстыйКлиентОбычноеПриложение Тогда
#Если ВнешнееСоединение ИЛИ ТолстыйКлиентОбычноеПриложение Тогда
ВыполнитьОбработчикВПривилегированномРежиме(Значение, СтрокаДерева.ЗначениеКонстанты);
#Иначе
#Иначе
УстановитьПривилегированныйРежим(Истина);
Выполнить(СтрокаДерева.ЗначениеКонстанты);
УстановитьПривилегированныйРежим(Ложь);
#КонецЕсли
#КонецЕсли
Исключение
@@ -4442,7 +4442,7 @@
КонецЕсли;
КонецЦикла;
#Область ДополнительныеИсточникиСсылки
#Область ДополнительныеИсточникиСсылки
Если ДополнительныеИсточникиСсылки.Количество() > 0 Тогда
Если ПолноеИмяОбъекта = Неопределено Тогда
@@ -4537,9 +4537,9 @@
Иначе
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&УсловиеПоДопИсточникамСсылкам", "ИСТИНА");
КонецЕсли;
#КонецОбласти
#КонецОбласти
#Область ДополнительныеИсточникиРегистры
#Область ДополнительныеИсточникиРегистры
Если ДополнительныеИсточникиРегистры.Количество() > 0 Тогда
@@ -4582,7 +4582,7 @@
Иначе
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&УсловиеПоДопИсточникамРегистрам", "ИСТИНА");
КонецЕсли;
#КонецОбласти
#КонецОбласти
КонецЕсли;
КонецПроцедуры
@@ -45,7 +45,7 @@
Процедура ПриДобавленииПодсистемы(Описание) Экспорт
Описание.Имя = "СтандартныеПодсистемы";
Описание.Версия = "3.1.10.329";
Описание.Версия = "3.1.10.344";
Описание.ИдентификаторИнтернетПоддержки = "SSL";
Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно";
Описание.ПараллельноеОтложенноеОбновлениеСВерсии = "2.3.3.0";
@@ -1768,7 +1768,7 @@
Если ТипЗнч(Модуль) <> Тип("ОбщийМодуль") Тогда
ВызватьИсключение(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Неверное значение параметра %1 в %2. Общий модуль ""%1"" не существует.'"),
НСтр("ru = 'Неверное значение параметра %1 в %2. Общий модуль ""%3"" не существует.'"),
"Имя", "ОбщегоНазначения.ОбщийМодуль", Имя),
КатегорияОшибки.ОшибкаКонфигурации);
КонецЕсли;
@@ -6070,6 +6070,20 @@
// безопасный режим выполнения кода и безопасный режим разделения данных для всех разделителей,
// присутствующих в составе конфигурации.
//
// Для выполняемого кода так же применяются дополнительные ограничения, запрещается:
//
// 1) Вызов методов:
// - Выполнить
// - Вычислить
// - ЗафиксироватьТранзакцию
// - СократитьЖурналРегистрации
// - УстановитьИспользованиеСобытияЖурналаРегистрации
// - ЗапуститьПриложение
//
// 2) Вызов общих модулей и свойств глобального контекста:
// - ДлительныеОперации
// - ПользователиИнформационнойБазы
//
// Параметры:
// Алгоритм - Строка - алгоритм на встроенном языке "1С:Предприятия".
// Параметры - Произвольный - контекст, который требуется для выполнения алгоритма.
@@ -6103,13 +6117,44 @@
КонецЦикла;
Попытка
Если ТранзакцияАктивна() Тогда
Выполнить Алгоритм;
Иначе
НачатьТранзакцию();
Попытка
Выполнить Алгоритм;
ОтменитьТранзакцию();
Исключение
ОтменитьТранзакцию();
ВызватьИсключение;
КонецПопытки;
КонецЕсли;
Исключение
ИнформацияОбОшибке = ИнформацияОбОшибке();
Уточнение = ОбщегоНазначенияКлиентСервер.УточнениеИсключения(ИнформацияОбОшибке);
ВызватьИсключение(Уточнение.Текст, КатегорияОшибки.ОшибкаВнешнегоИсточникаДанных ,,, ИнформацияОбОшибке);
КонецПопытки;
КонецПроцедуры
// Вычисляет переданное выражение, предварительно устанавливая безопасный режим выполнения кода
// и безопасный режим разделения данных для всех разделителей, присутствующих в составе конфигурации.
//
// Для выполняемого кода так же применяются дополнительные ограничения, запрещается:
//
// 1) Вызов методов:
// - Выполнить
// - Вычислить
// - ЗафиксироватьТранзакцию
// - СократитьЖурналРегистрации
// - УстановитьИспользованиеСобытияЖурналаРегистрации
// - ЗапуститьПриложение
//
// 2) Вызов общих модулей и свойств глобального контекста:
// - ДлительныеОперации
// - ПользователиИнформационнойБазы
//
// Параметры:
// Выражение - Строка - выражение на встроенном языке 1С:Предприятия.
// Параметры - Произвольный - контекст, который требуется для вычисления выражения.
@@ -6150,7 +6195,26 @@
КонецЦикла;
Возврат Вычислить(Выражение);
Попытка
Если ТранзакцияАктивна() Тогда
Результат = Вычислить(Выражение);
Иначе
НачатьТранзакцию();
Попытка
Результат = Вычислить(Выражение);
ОтменитьТранзакцию();
Исключение
ОтменитьТранзакцию();
ВызватьИсключение;
КонецПопытки;
КонецЕсли;
Возврат Результат;
Исключение
ИнформацияОбОшибке = ИнформацияОбОшибке();
Уточнение = ОбщегоНазначенияКлиентСервер.УточнениеИсключения(ИнформацияОбОшибке);
ВызватьИсключение(Уточнение.Текст, КатегорияОшибки.ОшибкаВнешнегоИсточникаДанных ,,, ИнформацияОбОшибке);
КонецПопытки;
КонецФункции
@@ -10332,7 +10396,7 @@
КонецЕсли;
Если ТекстыОшибок.Количество() > 0 Тогда
ВызватьИсключение СтрСоединить(ТекстыОшибок, Символы.ПС + "-----------------------" + Символы.ПС);
ВызватьИсключение СтрСоединить(ТекстыОшибок, Символы.ПС + Символы.ПС);
КонецЕсли;
КонецПроцедуры
@@ -1311,13 +1311,13 @@
//
Процедура ПерейтиПоСсылке(Ссылка) Экспорт
#Если ТолстыйКлиентОбычноеПриложение Тогда
#Если ТолстыйКлиентОбычноеПриложение Тогда
// Особенность платформы: ПерейтиПоНавигационнойСсылке недоступен в толстом клиенте обычного приложения.
Оповещение = Новый ОписаниеОповещения;
НачатьЗапускПриложения(Оповещение, Ссылка);
#Иначе
#Иначе
ПерейтиПоНавигационнойСсылке(Ссылка);
#КонецЕсли
#КонецЕсли
КонецПроцедуры
@@ -2767,7 +2767,7 @@
Возврат Дата;
КонецЕсли;
#Область ПодготовкаЧастейДаты
#Область ПодготовкаЧастейДаты
КоличествоСимволов = СтрДлина(Значение);
@@ -2820,7 +2820,7 @@
ЧастиЗначения.Добавить("00");
КонецЕсли;
#КонецОбласти
#КонецОбласти
// Если формат ггггММддЧЧммсс:
НормализованноеЗначение = ЧастиЗначения[2] + ЧастиЗначения[1] + ЧастиЗначения[0]
@@ -3354,13 +3354,13 @@
Результат.Вставить("ПодробноеОписаниеОшибки", "");
Результат.Вставить("ОшибкаПодключенияКомпоненты", Ложь);
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
ПодключениеНедоступно = ОбщегоНазначения.ЭтоLinuxСервер();
КраткоеОписаниеОшибки = НСтр("ru = 'Прямое подключение к информационной базе недоступно на сервере под управлением ОС Linux.'");
#Иначе
#Иначе
ПодключениеНедоступно = ЭтоLinuxКлиент() Или ЭтоOSXКлиент() Или ЭтоМобильныйКлиент();
КраткоеОписаниеОшибки = НСтр("ru = 'Прямое подключение к информационной базе доступно только на клиенте под управлением ОС Windows.'");
#КонецЕсли
#КонецЕсли
Если ПодключениеНедоступно Тогда
Результат.Соединение = Неопределено;
@@ -3369,7 +3369,7 @@
Возврат Результат;
КонецЕсли;
#Если Не МобильныйКлиент Тогда
#Если Не МобильныйКлиент Тогда
Попытка
COMConnector = Новый COMObject(ИмяCOMСоединителя()); // "V83.COMConnector"
Исключение
@@ -3453,7 +3453,7 @@
Результат.ПодробноеОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаСообщенияОбОшибке, ОбработкаОшибок.ПодробноеПредставлениеОшибки(Информация));
Результат.КраткоеОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаСообщенияОбОшибке, ОбработкаОшибок.КраткоеПредставлениеОшибки(Информация));
КонецПопытки;
#КонецЕсли
#КонецЕсли
Возврат Результат;
@@ -3693,11 +3693,11 @@
//
Функция КодОсновногоЯзыка() Экспорт
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
Возврат ОбщегоНазначения.КодОсновногоЯзыка();
#Иначе
#Иначе
Возврат ОбщегоНазначенияКлиент.КодОсновногоЯзыка();
#КонецЕсли
#КонецЕсли
КонецФункции
@@ -3712,11 +3712,11 @@
// Строка - представление даты.
//
Функция ПредставлениеЛокальнойДатыСоСмещением(ЛокальнаяДата) Экспорт
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
#Если Сервер Или ТолстыйКлиентОбычноеПриложение Или ВнешнееСоединение Тогда
Смещение = СмещениеСтандартногоВремени(ЧасовойПоясСеанса());
#Иначе
#Иначе
Смещение = СтандартныеПодсистемыКлиент.ПараметрКлиента("СмещениеСтандартногоВремени");
#КонецЕсли
#КонецЕсли
ПредставлениеСмещения = "Z";
Если Смещение > 0 Тогда
ПредставлениеСмещения = "+";
@@ -305,12 +305,12 @@
"ПодключитьКомпонентуПослеПопыткиПодключения", ЭтотОбъект, Контекст,
"ПодключитьКомпонентуПриОбработкеОшибки", ЭтотОбъект);
#Если МобильноеПриложениеКлиент Или МобильныйКлиент Тогда
#Если МобильноеПриложениеКлиент Или МобильныйКлиент Тогда
НачатьПодключениеВнешнейКомпоненты(Оповещение, Контекст.Местоположение, СимволическоеИмя);
#Иначе
#Иначе
НачатьПодключениеВнешнейКомпоненты(Оповещение, Контекст.Местоположение, СимволическоеИмя,,
ОбщегоНазначенияСлужебныйКлиентСервер.ТипПодключенияКомпоненты(Контекст.Изолированно));
#КонецЕсли
#КонецЕсли
КонецПроцедуры
@@ -69,7 +69,7 @@
//
Функция РасчетныеПоказателиЯчеек(Знач ТабличныйДокумент, ВыделенныеОбласти) Экспорт
#Область КонструкторРезультата
#Область КонструкторРезультата
РасчетныеПоказатели = Новый Структура;
РасчетныеПоказатели.Вставить("Количество", 0);
@@ -80,7 +80,7 @@
РасчетныеПоказатели.Вставить("Минимум", 0);
РасчетныеПоказатели.Вставить("Максимум", 0);
#КонецОбласти
#КонецОбласти
ПроверенныеЯчейки = Новый Соответствие;
@@ -91,7 +91,7 @@
Продолжить;
КонецЕсли;
#Область ОпределениеГраницВыделеннойОбласти
#Область ОпределениеГраницВыделеннойОбласти
ВыделеннаяОбластьВерх = ВыделеннаяОбласть.Верх;
ВыделеннаяОбластьНиз = ВыделеннаяОбласть.Низ;
@@ -122,7 +122,7 @@
ВыделеннаяОбластьВысота = ВыделеннаяОбластьНиз - ВыделеннаяОбластьВерх + 1;
ВыделеннаяОбластьШирина = ВыделеннаяОбластьПраво - ВыделеннаяОбластьЛево + 1;
#КонецОбласти
#КонецОбласти
РасчетныеПоказатели.Количество = РасчетныеПоказатели.Количество + ВыделеннаяОбластьШирина * ВыделеннаяОбластьВысота;
@@ -140,7 +140,7 @@
Если Ячейка.Видимость = Истина Тогда
#Область ОпределениеЗначенияЯчейки
#Область ОпределениеЗначенияЯчейки
Если Ячейка.ТипОбласти <> ТипОбластиЯчеекТабличногоДокумента.Колонки
И Ячейка.СодержитЗначение И ТипЗнч(Ячейка.Значение) = Тип("Число") Тогда
@@ -175,11 +175,11 @@
Продолжить;
КонецЕсли;
#КонецОбласти
#КонецОбласти
РасчетныеПоказатели.КоличествоНеПустых = РасчетныеПоказатели.КоличествоНеПустых + 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, Ложь, Ложь));
@@ -2367,7 +2367,7 @@
НомерГруппы = НомерГруппы + 1;
КонецЦикла;
#КонецОбласти
#КонецОбласти
КонецПроцедуры
Процедура УпорядочитьЭлементыФормыНастроек(ЭлементыНастроек, ДополнительныеСвойства)
@@ -194,7 +194,7 @@
СравнениеСтрокНаПодобие.ДлинаНебольшихСтрок, СравнениеСтрокНаПодобие.ПроцентСовпаденияНебольшихСтрок,
СравнениеСтрокНаПодобие.ПроцентСовпаденияСтрок, СловаИсключения);
Возврат ИндексыСтрок;
Возврат СтрЗаменить(ИндексыСтрок, Символ(8239), "");
КонецФункции
@@ -220,6 +220,8 @@
Результат.Вставить("ПроцентСовпаденияНебольшихСтрок", 80);
Результат.Вставить("ДлинаНебольшихСтрок", 30);
Результат.Вставить("СловаИсключения", Новый Массив);
НечеткийПоиск = Неопределено;
Если ПодключитьКомпоненту Тогда
УстановитьОтключениеБезопасногоРежима(Истина);
НечеткийПоиск = ОбщегоНазначения.ПодключитьКомпонентуИзМакета("FuzzyStringMatchExtension",
@@ -227,10 +229,8 @@
Если НечеткийПоиск = Неопределено Тогда
ВызватьИсключение НСтр("ru = 'Не удалось подключить компоненту нечеткого поиска. Подробнее см. в журнале регистрации.'");
КонецЕсли;
Результат.Вставить("КомпонентаПоиска", НечеткийПоиск);
Иначе
Результат.Вставить("КомпонентаПоиска", Неопределено);
КонецЕсли;
Результат.Вставить("КомпонентаПоиска", НечеткийПоиск);
Возврат Результат;
@@ -1271,13 +1271,13 @@
Если ИспользоватьImageMagick Тогда
Для Каждого ОбъектДляОбъединения Из ОбъектыДляОбъединения Цикл
ИмяФайла = Неопределено;
#Если Не ВебКлиент И Не МобильныйКлиент Тогда
#Если Не ВебКлиент И Не МобильныйКлиент Тогда
// АПК: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Клиент() Тогда
Возврат РабочийКаталогДанныхПользователя();
Иначе
@@ -10169,7 +10169,7 @@
КаталогДанныхПользователя = Оболочка.ExpandEnvironmentStrings("%APPDATA%");
Возврат ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(КаталогДанныхПользователя);
КонецЕсли;
#КонецЕсли
#КонецЕсли
КонецФункции
@@ -10765,25 +10765,25 @@
Функция ДоступноСканирование(ЭтоПроверкаНастроек = Ложь) Экспорт
Если ЭтоПроверкаНастроек Тогда
#Если МобильныйКлиент Тогда
#Если МобильныйКлиент Тогда
Возврат СредстваМультимедиа.ПоддерживаетсяФотоснимок();
#ИначеЕсли ВебКлиент Тогда
#ИначеЕсли ВебКлиент Тогда
Возврат Ложь;
#Иначе
#Иначе
Возврат ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Windows_x86
Или ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Windows_x86_64
Или ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Linux_x86
Или ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Linux_x86_64;
#КонецЕсли
#КонецЕсли
Иначе
#Если МобильныйКлиент ИЛИ ВебКлиент Тогда
#Если МобильныйКлиент ИЛИ ВебКлиент Тогда
Возврат Ложь;
#Иначе
#Иначе
Возврат ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Windows_x86
Или ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Windows_x86_64
Или ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Linux_x86
Или ОбщегоНазначенияКлиент.ТипПлатформыКлиента() = ТипПлатформы.Linux_x86_64;
#КонецЕсли
#КонецЕсли
КонецЕсли;
КонецФункции
@@ -206,6 +206,8 @@
ПараметрыДоставки.ЗапускЗафиксирован = ЗапускЗафиксирован;
ПараметрыДоставки.АдресРезультата = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(ДополнительныеНастройки, "АдресРезультата");
Результат = ВыполнитьРассылку(ТаблицаОтчетов, ПараметрыДоставки, Рассылка, ПараметрыЖурнала);
РегистрыСведений.СостоянияРассылокОтчетов.ЗафиксироватьРезультатВыполненияРассылки(Рассылка, ПараметрыДоставки);
@@ -386,10 +388,14 @@
ЗашифрованныеВложения = Новый Соответствие;
Для Каждого Вложение Из ВложенияПолучателя Цикл
МодульЭлектроннаяПодпись = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодпись");
Попытка
ВложениеДвоичныеДанные = МодульЭлектроннаяПодпись.Зашифровать(
Новый ДвоичныеДанные(Вложение.Значение), ПараметрыДоставки.СертификатДляШифрования);
Исключение
ОбработатьОшибкуПриШифровании(ПараметрыДоставки.АдресРезультата, ПараметрыДоставки.СертификатДляШифрования, ИнформацияОбОшибке(), ПараметрыЖурнала);
ВызватьИсключение;
КонецПопытки;
ВложениеДвоичныеДанные.Записать(Вложение.Значение);
КоличествоСимволовДоРасширения = СтрНайти(Вложение.Ключ, ".", НаправлениеПоиска.СКонца);
ИмяЗашифрованногоФайла = Лев(Вложение.Ключ, КоличествоСимволовДоРасширения-1) + " " + НСтр(
"ru = '(Необходимо расшифровать)'") + Сред(Вложение.Ключ, КоличествоСимволовДоРасширения);
@@ -403,7 +409,7 @@
КонецЕсли;
// Архивация вложений.
АрхивацияВложений(ВложенияПолучателя, ПараметрыДоставки, СтрокаПолучатель.Значение);
АрхивацияВложений(ВложенияПолучателя, ПараметрыДоставки, СтрокаПолучатель.Значение, ПараметрыЖурнала);
Иначе
ВложенияПолучателя = Новый Массив;
@@ -488,10 +494,14 @@
ЗашифрованныеВложения = Новый Соответствие;
Для Каждого Вложение Из ОбщиеВложения Цикл
МодульЭлектроннаяПодпись = ОбщегоНазначения.ОбщийМодуль("ЭлектроннаяПодпись");
Попытка
ВложениеДвоичныеДанные = МодульЭлектроннаяПодпись.Зашифровать(
Новый ДвоичныеДанные(Вложение.Значение), ПараметрыДоставки.СертификатДляШифрования);
Исключение
ОбработатьОшибкуПриШифровании(ПараметрыДоставки.АдресРезультата, ПараметрыДоставки.СертификатДляШифрования, ИнформацияОбОшибке(), ПараметрыЖурнала);
ВызватьИсключение;
КонецПопытки;
ВложениеДвоичныеДанные.Записать(Вложение.Значение);
КоличествоСимволовДоРасширения = СтрНайти(Вложение.Ключ, ".", НаправлениеПоиска.СКонца);
ИмяЗашифрованногоФайла = Лев(Вложение.Ключ, КоличествоСимволовДоРасширения-1) + " " + НСтр(
"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Клиент()
Или Не ОбщегоНазначенияКлиент.ИнформационнаяБазаФайловая()
@@ -672,9 +672,9 @@
КонецЕсли;
МобильныйКлиент = Ложь;
#Если МобильныйКлиент Тогда
#Если МобильныйКлиент Тогда
МобильныйКлиент = Истина;
#КонецЕсли
#КонецЕсли
Если ДанныеПодтверждения.ЭтапЦикла = "ВводКода" И НЕ МобильныйКлиент Тогда
ЭлементыФормы = КонтекстФормы.Элементы;
@@ -2705,12 +2705,12 @@
ИсточникНастроек = ПараметрыОперации;
КонецЕсли;
#Если ВнешнееСоединение Тогда
#Если ВнешнееСоединение Тогда
Если ИсточникНастроек = Неопределено
И ПроверитьСредуВыполнения("ВнешнееСоединение") Тогда
Результат = СервисКриптографииDSSКлиентСервер.ИсточникНастроекХранилище();
КонецЕсли;
#КонецЕсли
#КонецЕсли
Если ИсточникНастроек = СервисКриптографииDSSКлиентСервер.ИсточникНастроекПараметрыСеанса()
ИЛИ ИсточникНастроек = СервисКриптографииDSSКлиентСервер.ИсточникНастроекХранилище() Тогда
@@ -2544,20 +2544,20 @@
Функция ИспользуемыйКлиент()
ИспользуемыйКлиент = "";
#Если ТонкийКлиент Тогда
#Если ТонкийКлиент Тогда
ИспользуемыйКлиент = "ТонкийКлиент";
#ИначеЕсли ТолстыйКлиентУправляемоеПриложение Тогда
#ИначеЕсли ТолстыйКлиентУправляемоеПриложение Тогда
ИспользуемыйКлиент = "ТолстыйКлиентУправляемоеПриложение";
#ИначеЕсли ТолстыйКлиентОбычноеПриложение Тогда
#ИначеЕсли ТолстыйКлиентОбычноеПриложение Тогда
ИспользуемыйКлиент = "ТолстыйКлиентОбычноеПриложение";
#ИначеЕсли ВебКлиент Тогда
#ИначеЕсли ВебКлиент Тогда
ОписаниеБраузера = ТекущийБраузер();
Если ПустаяСтрока(ОписаниеБраузера.Версия) Тогда
ИспользуемыйКлиент = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("ВебКлиент.%1", ОписаниеБраузера.Название);
Иначе
ИспользуемыйКлиент = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("ВебКлиент.%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".
#Если МобильныйКлиент Тогда
#Если МобильныйКлиент Тогда
СредстваТелефонии.НабратьНомер(НомерТелефона, Истина);
Возврат;
#КонецЕсли
#КонецЕсли
#Если НЕ ВебКлиент Тогда
#Если НЕ ВебКлиент Тогда
ДоступноеИмяПротокола = ПрограммаТелефонииУстановлена();
Если ДоступноеИмяПротокола = Неопределено Тогда
СтрокаСПредупреждением = Новый ФорматированнаяСтрока(
@@ -544,7 +544,7 @@
ИначеЕсли НЕ ПустаяСтрока(ДоступноеИмяПротокола) Тогда
ИмяПротокола = ДоступноеИмяПротокола;
КонецЕсли;
#КонецЕсли
#КонецЕсли
СтрокаЗапуска = ИмяПротокола + ":" + НомерТелефона;
@@ -1627,12 +1627,12 @@
Процедура ОткрытьSkype(СтрокаЗапуска)
#Если НЕ ВебКлиент Тогда
#Если НЕ ВебКлиент Тогда
Если ПустаяСтрока(ПрограммаТелефонииУстановлена("skype")) Тогда
ПоказатьПредупреждение(Неопределено, НСтр("ru = 'Для совершения звонка по Skype установите приложение.'"));
Возврат;
КонецЕсли;
#КонецЕсли
#КонецЕсли
Оповещение = Новый ОписаниеОповещения("ПослеЗапускаПриложения", ЭтотОбъект);
ФайловаяСистемаКлиент.ОткрытьНавигационнуюСсылку(СтрокаЗапуска, Оповещение);
@@ -144,11 +144,11 @@
Handler.COMСоединение = 0;
#Если Не ВебКлиент Тогда
#Если Не ВебКлиент Тогда
Если Handler.Свойство("ИмяФайла") Тогда
УдалитьФайлы(Handler.ИмяФайла);
КонецЕсли;
#КонецЕсли
#КонецЕсли
КонецПроцедуры
Loaded 100 of 238 files, more files were not shown because too many files have changed in this diff. Show more