astakhovp/SSL
1
0 Fork 0
Code Issues Actions Packages Projects Releases Wiki Activity

3_1_2_157

Browse Source
This commit is contained in:
Компания 1С committed 2019-09-26 12:22:00 +03:00
1 parent ccbf98d8bf
commit 9317048254
80 files changed
+4055 -1823
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

SSL/src/Catalogs/ВидыКонтактнойИнформации/ManagerModule.bsl
+61 -14
View File
@@ -180,7 +180,7 @@
#Область СлужебныеПроцедурыИФункции
// Регистрирует к обработке виды контактной информации другое у которых необходимо заполнить поле ВидРедактирования.
// Регистрирует к обработке виды контактной информации.
//
Процедура ЗарегистрироватьДанныеКОбработкеДляПереходаНаНовуюВерсию(Параметры) Экспорт
@@ -188,9 +188,7 @@
Запрос.Текст = "ВЫБРАТЬ
| ВидыКонтактнойИнформации.Ссылка КАК Ссылка
|ИЗ
| Справочник.ВидыКонтактнойИнформации КАК ВидыКонтактнойИнформации
|ГДЕ
| ВидыКонтактнойИнформации.ЭтоГруппа = ЛОЖЬ";
| Справочник.ВидыКонтактнойИнформации КАК ВидыКонтактнойИнформации";
РезультатЗапроса = Запрос.Выполнить().Выгрузить();
@@ -203,22 +201,38 @@
ВидКонтактнойИнформацииСсылка = ОбновлениеИнформационнойБазы.ВыбратьСсылкиДляОбработки(Параметры.Очередь, "Справочник.ВидыКонтактнойИнформации");
ЯзыковБольшеОдного = Метаданные.Языки.Количество() > 1;
Наименования = УправлениеКонтактнойИнформациейСлужебныйПовтИсп.НаименованияВидовКонтактнойИнформации();
ПроблемныхОбъектов = 0;
ОбъектовОбработано = 0;
Пока ВидКонтактнойИнформацииСсылка.Следующий() Цикл
Попытка
ВидКонтактнойИнформации = ВидКонтактнойИнформацииСсылка.Ссылка.ПолучитьОбъект();
Если ВидКонтактнойИнформации.УдалитьРедактированиеТолькоВДиалоге Тогда
ВидКонтактнойИнформации.ВидРедактирования = "Диалог";
ИначеЕсли ВидКонтактнойИнформации.Тип = Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты
Или ВидКонтактнойИнформации.Тип = Перечисления.ТипыКонтактнойИнформации.Skype
Или ВидКонтактнойИнформации.Тип = Перечисления.ТипыКонтактнойИнформации.Другое Тогда
ВидКонтактнойИнформации.ВидРедактирования = "ПолеВвода";
ИначеЕсли ВидКонтактнойИнформации.Тип = Перечисления.ТипыКонтактнойИнформации.ВебСтраница Тогда
ВидКонтактнойИнформации.ВидРедактирования = "Диалог";
Иначе
ВидКонтактнойИнформации.ВидРедактирования = "ПолеВводаИДиалог";
// Исправление наименований на разных языках
Если ЯзыковБольшеОдного Тогда
ИмяВида = ?(ЗначениеЗаполнено(ВидКонтактнойИнформации.ИмяПредопределенногоВида),
ВидКонтактнойИнформации.ИмяПредопределенногоВида, ВидКонтактнойИнформации.ИмяПредопределенныхДанных);
Если ЗначениеЗаполнено(ИмяВида) Тогда
УстановитьНаименованияВидовКонтактнойИнформации(ВидКонтактнойИнформации, ИмяВида, Наименования);
КонецЕсли;
КонецЕсли;
Если Не ВидКонтактнойИнформации.ЭтоГруппа Тогда
Если ВидКонтактнойИнформации.УдалитьРедактированиеТолькоВДиалоге Тогда
ВидКонтактнойИнформации.ВидРедактирования = "Диалог";
ИначеЕсли ВидКонтактнойИнформации.Тип = Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты
Или ВидКонтактнойИнформации.Тип = Перечисления.ТипыКонтактнойИнформации.Skype
Или ВидКонтактнойИнформации.Тип = Перечисления.ТипыКонтактнойИнформации.Другое Тогда
ВидКонтактнойИнформации.ВидРедактирования = "ПолеВвода";
ИначеЕсли ВидКонтактнойИнформации.Тип = Перечисления.ТипыКонтактнойИнформации.ВебСтраница Тогда
ВидКонтактнойИнформации.ВидРедактирования = "Диалог";
Иначе
ВидКонтактнойИнформации.ВидРедактирования = "ПолеВводаИДиалог";
КонецЕсли;
КонецЕсли;
ОбновлениеИнформационнойБазы.ЗаписатьДанные(ВидКонтактнойИнформации);
ОбъектовОбработано = ОбъектовОбработано + 1;
@@ -251,6 +265,39 @@
КонецПроцедуры
Процедура УстановитьНаименованияВидовКонтактнойИнформации(ВидКонтактнойИнформации, ИмяВида, Наименования)
Для Каждого Язык Из Метаданные.Языки Цикл
Представление = Наименования[Язык.КодЯзыка][ИмяВида];
Если ЗначениеЗаполнено(Представление) Тогда
Если Язык = Метаданные.ОсновнойЯзык Тогда
ВидКонтактнойИнформации.Наименование = Представление;
Иначе
Если Наименования[Язык.КодЯзыка][ИмяВида] <> Неопределено Тогда
Отбор = Новый Структура;
Отбор.Вставить("КодЯзыка", Язык.КодЯзыка);
Отбор.Вставить("Наименование", Представление);
НайденныеСтроки = ВидКонтактнойИнформации.Представления.НайтиСтроки(Отбор);
Если НайденныеСтроки.Количество() > 0 Тогда
НоваяСтрока = НайденныеСтроки[0];
Иначе
НоваяСтрока = ВидКонтактнойИнформации.Представления.Добавить();
КонецЕсли;
НоваяСтрока.КодЯзыка = Язык.КодЯзыка;
НоваяСтрока.Наименование = Представление;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
#КонецОбласти
SSL/src/Catalogs/ВнешниеКомпоненты/Forms/ФормаСписка/Form.form
+27 -27
View File
@@ -184,6 +184,32 @@
<items xsi:type="form:FormGroup">
<name>ГруппаДействие</name>
<id>65</id>
<items xsi:type="form:Button">
<name>ОбновитьСПортала1СИТС</name>
<id>67</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ОбновитьСПортала1СИТСРасширеннаяПодсказка</name>
<id>68</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.ОбновитьСПортала1СИТС</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:Button">
<name>ФормаОбновитьИзФайла</name>
<id>58</id>
@@ -237,32 +263,6 @@
<representationInContextMenu>Auto</representationInContextMenu>
<locationInCommandBar>InAdditionalSubmenu</locationInCommandBar>
</items>
<items xsi:type="form:Button">
<name>ОбновитьСПортала1СИТС</name>
<id>67</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ОбновитьСПортала1СИТСРасширеннаяПодсказка</name>
<id>68</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.ОбновитьСПортала1СИТС</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
@@ -796,7 +796,7 @@
<name>ОбновитьИзФайла</name>
</handler>
</action>
<representation>TextPicture</representation>
<representation>Picture</representation>
<currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
SSL/src/Catalogs/ГруппыДоступа/Forms/ВыборПоОтветственному/Form.form
+1
View File
@@ -259,6 +259,7 @@
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<readOnly>true</readOnly>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
SSL/src/Catalogs/Календари/Forms/ФормаЭлемента/Form.form
+1
View File
@@ -1635,6 +1635,7 @@
<event>StartChoice</event>
<name>КомментарийНачалоВыбора</name>
</handlers>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<choiceButton>true</choiceButton>
<chooseType>true</chooseType>
SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаВыбора/Form.form
+4
View File
@@ -253,6 +253,10 @@
<horizontalAlign>Left</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
<handlers>
<event>OnCreateAtServer</event>
<name>ПриСозданииНаСервере</name>
</handlers>
<windowOpeningMode>LockOwner</windowOpeningMode>
<saveWindowSettings>true</saveWindowSettings>
<autoTitle>true</autoTitle>
SSL/src/Catalogs/ПапкиЭлектронныхПисем/Forms/ФормаВыбора/Module.bsl
+25
View File
@@ -0,0 +1,25 @@
///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////
#Область ОбработчикиСобытийФормы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(Список,
"ПометкаУдаления",
Ложь,
ВидСравненияКомпоновкиДанных.Равно,
НСтр("ru = 'Отображение только не помеченных на удаление папок'"),
Истина,
РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный);
КонецПроцедуры
#КонецОбласти
SSL/src/Catalogs/ПравилаОбработкиЭлектроннойПочты/Templates/СхемаПравилаОбработкиЭлектроннойПочты/Template.dcs
+18
View File
@@ -15,6 +15,12 @@
<v8:content>Письмо</v8:content>
</v8:item>
</title>
<attributeUseRestriction>
<field>true</field>
<condition>true</condition>
<group>true</group>
<order>true</order>
</attributeUseRestriction>
</field>
<field xsi:type="DataSetFieldField">
<dataPath>Тема</dataPath>
@@ -33,10 +39,22 @@
<field xsi:type="DataSetFieldField">
<dataPath>ОтправительКонтакт</dataPath>
<field>ОтправительКонтакт</field>
<attributeUseRestriction>
<field>true</field>
<condition>true</condition>
<group>true</group>
<order>true</order>
</attributeUseRestriction>
</field>
<field xsi:type="DataSetFieldField">
<dataPath>Предмет</dataPath>
<field>Предмет</field>
<attributeUseRestriction>
<field>true</field>
<condition>true</condition>
<group>true</group>
<order>true</order>
</attributeUseRestriction>
</field>
<field xsi:type="DataSetFieldField">
<dataPath>ТипПисьма</dataPath>
SSL/src/Catalogs/РассылкиОтчетов/Forms/ФормаЭлемента/Module.bsl
+2
View File
@@ -2001,6 +2001,8 @@
ПараметрыДоставки.Вставить("ДобавлятьСсылки", "");
РезультатВыполнения = ПроверитьСпособДоставки(Объект.Ссылка, ПараметрыДоставки);
ПараметрыВопроса = СтандартныеПодсистемыКлиент.ПараметрыВопросаПользователю();
ПараметрыВопроса.ПредлагатьБольшеНеЗадаватьЭтотВопрос = Ложь;
СтандартныеПодсистемыКлиент.ПоказатьВопросПользователю(Неопределено,
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = '%1
|%2'"), РезультатВыполнения.Текст, РезультатВыполнения.Подробно), РежимДиалогаВопрос.ОК);
SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ВыборСертификатаДляПодписанияИлиРасшифровки/Module.bsl
+12 -3
View File
@@ -608,7 +608,7 @@
Если ЗаполнитьСвойстваТекущегоСертификатаНаСервере(ТекущиеДанные.Отпечаток, Контекст.СохраненныеСвойства) Тогда
ПерейтиКВыборуТекущегоСертификатаПослеЗаполненияСвойствСертификата(Контекст);
Иначе
Результат.ОписаниеОшибки = НСтр("ru = 'Сертификат не найден на сервере (возможно удален).'");
Результат.ОписаниеОшибки = НСтр("ru = 'Сертификат отсутствует на сервере (возможно удален).'");
Результат.ОбновитьСписокСертификатов = Истина;
ВыполнитьОбработкуОповещения(Оповещение, Результат);
КонецЕсли;
@@ -657,11 +657,20 @@
Процедура ПерейтиКВыборуТекущегоСертификатаПослеПоискаСертификатаВОблачномСервисе(РезультатПоиска, Контекст) Экспорт
Если Не РезультатПоиска.Выполнено Тогда
Контекст.Вставить("ОписаниеОшибки", РезультатПоиска.ОписаниеОшибки.Описание);
Контекст.Результат.ОписаниеОшибки = РезультатПоиска.ОписаниеОшибки.Описание;
Контекст.Результат.ОбновитьСписокСертификатов = Истина;
ВыполнитьОбработкуОповещения(Контекст.Оповещение, Контекст.Результат);
Возврат;
КонецЕсли;
Если Не ЗначениеЗаполнено(РезультатПоиска.Сертификат) Тогда
Контекст.Результат.ОписаниеОшибки = НСтр("ru = 'Сертификат отсутствует в облачном сервисе (возможно удален).'");
Контекст.Результат.ОбновитьСписокСертификатов = Истина;
ВыполнитьОбработкуОповещения(Контекст.Оповещение, Контекст.Результат);
Возврат;
КонецЕсли;
Контекст.Вставить("СертификатКриптографии", РезультатПоиска.Сертификат);
ПерейтиКВыборуТекущегоСертификатаПослеВыгрузкиСертификата(РезультатПоиска.Сертификат.Сертификат, Контекст);
КонецПроцедуры
SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ДобавлениеСертификатаДляШифрования/Module.bsl
+14 -14
View File
@@ -277,23 +277,23 @@
&НаКлиенте
Процедура ДалееПослеПоискаСертификатаВОблачномСервисе(Результат, Контекст) Экспорт
Если ТипЗнч(Результат) = Тип("Структура") Тогда
Если Результат.Выполнено Тогда
ДалееПослеВыгрузкиСертификата(Результат.Сертификат.Сертификат, Результат.Сертификат);
КонецЕсли;
Если Не Результат.Выполнено Тогда
Контекст = Новый Структура;
Контекст.Вставить("ОписаниеОшибки", Результат.ОписаниеОшибки.Описание);
ОбновитьСписокСертификатов(Новый ОписаниеОповещения(
"ДалееПослеОбновленияСпискаСертификатов", ЭтотОбъект, Контекст));
Возврат;
КонецЕсли;
Контекст = Новый Структура;
Если Не Результат.Выполнено Тогда
Контекст.Вставить("ОписаниеОшибки", НСтр("ru = 'Сертификат не найден в облачном сервисе (возможно удален).'"));
Иначе
Контекст.Вставить("ОписаниеОшибки", Результат.ОписаниеОшибки);
Если Не ЗначениеЗаполнено(Результат.Сертификат) Тогда
Контекст = Новый Структура;
Контекст.Вставить("ОписаниеОшибки", НСтр("ru = 'Сертификат отсутствует в облачном сервисе (возможно удален).'"));
ОбновитьСписокСертификатов(Новый ОписаниеОповещения(
"ДалееПослеОбновленияСпискаСертификатов", ЭтотОбъект, Контекст));
Возврат;
КонецЕсли;
ОбновитьСписокСертификатов(Новый ОписаниеОповещения(
"ДалееПослеОбновленияСпискаСертификатов", ЭтотОбъект, Контекст));
ДалееПослеВыгрузкиСертификата(Результат.Сертификат.Сертификат, Результат.Сертификат);
КонецПроцедуры
SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПодписаниеДанных/Form.form
+13
View File
@@ -1006,6 +1006,19 @@
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ОблачныйПарольПодтвержден</name>
<id>23</id>
<valueType>
<types>Boolean</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<formCommands>
<name>Подписать</name>
<title>
SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПодписаниеДанных/Module.bsl
+2 -1
View File
@@ -282,7 +282,8 @@
Если БезПодтверждения
И ( ДополнительныеПараметры.ПарольУказан
Или ДополнительныеПараметры.УсиленнаяЗащитаЗакрытогоКлюча) Тогда
Или ДополнительныеПараметры.УсиленнаяЗащитаЗакрытогоКлюча
Или ОблачныйПарольПодтвержден) Тогда
ОбработкаПослеПредупреждения = Неопределено;
ПодписатьДанные(Новый ОписаниеОповещения("ПродолжитьОткрытиеПослеПодписанияДанных", ЭтотОбъект, Контекст));
SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/ПроверкаСертификата/Module.bsl
+9 -11
View File
@@ -541,18 +541,16 @@
&НаКлиенте
Процедура ПроверитьНаСторонеКлиентаПослеПоискаСертификатаВМоделиСервиса(Результат, Контекст) Экспорт
Если ТипЗнч(Результат) = Тип("Структура") И Не Результат.Выполнено Тогда
ОписаниеОшибки = КраткоеПредставлениеОшибки(Результат.ИнформацияОбОшибке) + Символы.ПС + Символы.ПС
+ НСтр("ru = 'Проверка подписания, созданной подписи и расшифровки не могут быть выполнены.'");
ИначеЕсли ТипЗнч(Результат) <> Тип("Структура") Тогда
ОписаниеОшибки = Результат.ОписаниеОшибки.Описание + Символы.ПС + Символы.ПС
+ НСтр("ru = 'Проверка подписания, созданной подписи и расшифровки не могут быть выполнены.'");
ИначеЕсли Результат.Сертификат = Неопределено Тогда
ОписаниеОшибки = НСтр("ru = 'Сертификат не найден в хранилище сертификатов.'") + Символы.ПС
+ НСтр("ru = 'Проверка подписания, созданной подписи и расшифровки не могут быть выполнены.'");
Иначе
ОписаниеОшибки = "";
ОписаниеОшибки = "";
Если Не Результат.Выполнено Тогда
ОписаниеОшибки = Результат.ОписаниеОшибки.Описание;
ИначеЕсли Не ЗначениеЗаполнено(Результат.Сертификат) Тогда
ОписаниеОшибки = НСтр("ru = 'Сертификат отсутствует в облачном сервисе (возможно удален).'");
КонецЕсли;
Если Не ПустаяСтрока(ОписаниеОшибки) Тогда
ОписаниеОшибки = ОписаниеОшибки + Символы.ПС
+ НСтр("ru = 'Проверка подписания, созданной подписи и расшифровки не могут быть выполнены.'");
КонецЕсли;
УстановитьЭлемент(ЭтотОбъект, "НаличиеСертификата", Ложь, ОписаниеОшибки);
// Если не нашли сертификат в хранилище сертификатов, проверки прекращаются.
SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Form.form
+13
View File
@@ -939,6 +939,19 @@
<common>true</common>
</edit>
</attributes>
<attributes>
<name>ОблачныйПарольПодтвержден</name>
<id>24</id>
<valueType>
<types>Boolean</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<formCommands>
<name>Расшифровать</name>
<title>
SSL/src/Catalogs/СертификатыКлючейЭлектроннойПодписиИШифрования/Forms/РасшифровкаДанных/Module.bsl
+2 -1
View File
@@ -319,7 +319,8 @@
Если БезПодтверждения
И ( ДополнительныеПараметры.ПарольУказан
Или ДополнительныеПараметры.УсиленнаяЗащитаЗакрытогоКлюча) Тогда
Или ДополнительныеПараметры.УсиленнаяЗащитаЗакрытогоКлюча
Или ОблачныйПарольПодтвержден) Тогда
ОбработкаПослеПредупреждения = Неопределено;
РасшифроватьДанные(Новый ОписаниеОповещения("ПродолжитьОткрытиеПослеРасшифровкиДанных", ЭтотОбъект, Контекст));
SSL/src/Catalogs/ШаблоныСообщений/Forms/ФормаЭлемента/Form.form
+28 -1
View File
@@ -1464,6 +1464,7 @@
<segments>Реквизиты</segments>
</dataPath>
<titleLocation>None</titleLocation>
<excludedCommands>Change</excludedCommands>
<excludedCommands>Copy</excludedCommands>
<excludedCommands>EndEdit</excludedCommands>
<excludedCommands>MoveDown</excludedCommands>
@@ -1878,7 +1879,7 @@
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Item.Реквизиты.StandardCommand.Change</commandName>
<commandName>Form.Command.ИзменитьРеквизит</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
@@ -3987,6 +3988,32 @@
<currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
<name>ИзменитьРеквизит</name>
<title>
<key>ru</key>
<value>Изменить</value>
</title>
<id>11</id>
<toolTip>
<key>ru</key>
<value>Изменить реквизит</value>
</toolTip>
<use>
<common>true</common>
</use>
<picture xsi:type="core:PictureRef">
<picture>StdPicture.Change</picture>
</picture>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>ИзменитьРеквизит</name>
</handler>
</action>
<modifiesStoredData>true</modifiesStoredData>
<currentRowUse>Auto</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<parameters>
<name>ВидСообщения</name>
<valueType>
SSL/src/Catalogs/ШаблоныСообщений/Forms/ФормаЭлемента/Module.bsl
+62 -36
View File
@@ -436,9 +436,11 @@
Если ТекущиеДанные.ПроизвольныйПараметр Тогда
Элементы.РеквизитыКонтекстноеМенюУдалить.Доступность = Истина;
Элементы.Удалить.Доступность = Истина;
Элементы.РеквизитыКонтекстноеМенюИзменить.Доступность = Истина;
Иначе
Элементы.РеквизитыКонтекстноеМенюУдалить.Доступность = Ложь;
Элементы.Удалить.Доступность = Ложь;
Элементы.РеквизитыКонтекстноеМенюИзменить.Доступность = Ложь;
КонецЕсли;
Если ТекущиеДанные.ПолучитьЭлементы().Количество() > 0 Тогда
ИзменитьДоступностьКонтекстногоМенюРеквизитов(Ложь);
@@ -460,18 +462,13 @@
&НаКлиенте
Процедура РеквизитыВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
Если ИспользоватьПроизвольныеПараметры Тогда
Реквизит = Реквизиты.НайтиПоИдентификатору(ВыбраннаяСтрока);
Если Реквизит.ПроизвольныйПараметр Тогда
ДополнительныеПараметры = Новый Структура("Добавление, ВыбраннаяСтрока", Ложь, ВыбраннаяСтрока);
ПараметрыФормы = Новый Структура("ИмяПараметра, ПредставлениеПараметра, ОписаниеТипа", Реквизит.Имя, Реквизит.Представление, Реквизит.Тип);
ПараметрыФормы.Вставить("СписокПараметров", Объект.Параметры);
ПараметрыФормы.Вставить("ПолноеИмяТипаПараметраВводаНаОсновании", Объект.ПолноеИмяТипаПараметраВводаНаОсновании);
ОповещениеОЗакрытие = Новый ОписаниеОповещения("ПослеЗакрытияФормыПараметра", ЭтотОбъект, ДополнительныеПараметры);
ОткрытьФорму("Справочник.ШаблоныСообщений.Форма.ПроизвольныйПараметр", ПараметрыФормы,,,,, ОповещениеОЗакрытие);
КонецЕсли;
Реквизит = Реквизиты.НайтиПоИдентификатору(ВыбраннаяСтрока);
ЭлементДерева = Реквизиты.НайтиПоИдентификатору(Реквизит.ПолучитьИдентификатор());
Если ЭлементДерева.ПолучитьЭлементы().Количество() = 0 Тогда
ДобавитьВТекстСообщенияПараметр();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
@@ -604,31 +601,27 @@
&НаКлиенте
Процедура ДобавитьПараметрВТекстСообщения(Команда)
Если Элементы.Реквизиты.ВыделенныеСтроки <> Неопределено Тогда
Текст = "";
Для каждого НомерСтроки Из Элементы.Реквизиты.ВыделенныеСтроки Цикл
НайденнаяСтрока = Реквизиты.НайтиПоИдентификатору(НомерСтроки);
Если НайденнаяСтрока <> Неопределено Тогда
ФорматВывода = ?(ПустаяСтрока(НайденнаяСтрока.Формат), "", "{" + НайденнаяСтрока.Формат +"}");
Текст = Текст + "[" + НайденнаяСтрока.Имя + ФорматВывода + "] ";
КонецЕсли;
КонецЦикла;
Если Объект.ТипТекстаПисьма = ПредопределенноеЗначение("Перечисление.СпособыРедактированияЭлектронныхПисем.HTML") Тогда
Если ПустаяСтрока(Элементы.ТелоПисьмаВHTML.ВыделенныйТекст) Тогда
ЗакладкаДляВставкиНачало = Неопределено;
ЗакладкаДляВставкиКонец = Неопределено;
Элементы.ТелоПисьмаВHTML.ПолучитьГраницыВыделения(ЗакладкаДляВставкиНачало, ЗакладкаДляВставкиКонец);
ТелоПисьмаВHTML.Вставить(ЗакладкаДляВставкиКонец, Текст);
Иначе
Элементы.ТелоПисьмаВHTML.ВыделенныйТекст = Текст;
КонецЕсли;
Иначе
Если Объект.ПредназначенДляSMS Тогда
Элементы.ТелоСообщенияОбычныйТекстSMS.ВыделенныйТекст = Текст;
Иначе
Элементы.ТелоСообщенияОбычныйТекст.ВыделенныйТекст = Текст;
КонецЕсли;
КонецЕсли;
ДобавитьВТекстСообщенияПараметр();
КонецПроцедуры
&НаКлиенте
Процедура ИзменитьРеквизит(Команда)
ТекущиеДанные = Элементы.Реквизиты.ТекущиеДанные;
Если ТекущиеДанные = Неопределено Тогда
Возврат;
КонецЕсли;
Если ИспользоватьПроизвольныеПараметры И ТекущиеДанные.ПроизвольныйПараметр Тогда
ИдентификаторыСтроки = ТекущиеДанные.ПолучитьИдентификатор();
ДополнительныеПараметры = Новый Структура("Добавление, ВыбраннаяСтрока", Ложь, ИдентификаторыСтроки);
ПараметрыФормы = Новый Структура("ИмяПараметра, ПредставлениеПараметра, ОписаниеТипа", ТекущиеДанные.Имя, ТекущиеДанные.Представление, ТекущиеДанные.Тип);
ПараметрыФормы.Вставить("СписокПараметров", Объект.Параметры);
ПараметрыФормы.Вставить("ПолноеИмяТипаПараметраВводаНаОсновании", Объект.ПолноеИмяТипаПараметраВводаНаОсновании);
ОповещениеОЗакрытие = Новый ОписаниеОповещения("ПослеЗакрытияФормыПараметра", ЭтотОбъект, ДополнительныеПараметры);
ОткрытьФорму("Справочник.ШаблоныСообщений.Форма.ПроизвольныйПараметр", ПараметрыФормы,,,,, ОповещениеОЗакрытие);
КонецЕсли;
КонецПроцедуры
@@ -1830,4 +1823,37 @@
КонецПроцедуры
&НаКлиенте
Процедура ДобавитьВТекстСообщенияПараметр()
Если Элементы.Реквизиты.ВыделенныеСтроки <> Неопределено Тогда
Текст = "";
Для каждого НомерСтроки Из Элементы.Реквизиты.ВыделенныеСтроки Цикл
НайденнаяСтрока = Реквизиты.НайтиПоИдентификатору(НомерСтроки);
Если НайденнаяСтрока <> Неопределено Тогда
ФорматВывода = ?(ПустаяСтрока(НайденнаяСтрока.Формат), "", "{" + НайденнаяСтрока.Формат +"}");
Текст = Текст + "[" + НайденнаяСтрока.Имя + ФорматВывода + "] ";
КонецЕсли;
КонецЦикла;
Если Объект.ТипТекстаПисьма = ПредопределенноеЗначение("Перечисление.СпособыРедактированияЭлектронныхПисем.HTML") Тогда
Если ПустаяСтрока(Элементы.ТелоПисьмаВHTML.ВыделенныйТекст) Тогда
ЗакладкаДляВставкиНачало = Неопределено;
ЗакладкаДляВставкиКонец = Неопределено;
Элементы.ТелоПисьмаВHTML.ПолучитьГраницыВыделения(ЗакладкаДляВставкиНачало, ЗакладкаДляВставкиКонец);
ТелоПисьмаВHTML.Вставить(ЗакладкаДляВставкиКонец, Текст);
Иначе
Элементы.ТелоПисьмаВHTML.ВыделенныйТекст = Текст;
КонецЕсли;
Иначе
Если Объект.ПредназначенДляSMS Тогда
Элементы.ТелоСообщенияОбычныйТекстSMS.ВыделенныйТекст = Текст;
Иначе
Элементы.ТелоСообщенияОбычныйТекст.ВыделенныйТекст = Текст;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
#КонецОбласти
SSL/src/CommonForms/АдреснаяКнига/Form.form
+968 -396
View File
File diff suppressed because it is too large. Load diff
SSL/src/CommonForms/АдреснаяКнига/Module.bsl
+91 -25
View File
@@ -19,19 +19,27 @@
ЗаполнитьТаблицуПолучателей();
УстановитьГруппуПоУмолчанию();
ВидыКонтактнойИнформации = УправлениеКонтактнойИнформацией.ВидыКонтактнойИнформацииОбъекта(
Справочники.Пользователи.ПустаяСсылка(), Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты);
Если ВидыКонтактнойИнформации.Количество() > 0 Тогда
ВидЭлектроннаяПочта = ВидыКонтактнойИнформации[0].Ссылка;
Иначе
ВидЭлектроннаяПочта = Неопределено;
КонецЕсли;
СписокПользователей.Параметры.УстановитьЗначениеПараметра("ЭлектроннаяПочта", ВидЭлектроннаяПочта);
// Заполним контакты по предмету.
Предмет = Параметры.Предмет;
Взаимодействия.ЗаполнитьКонтактыПоПредмету(Элементы, Предмет, КонтактыПоПредмету, Истина);
// Заполним список вариантов поиска и осуществим первый поиск.
ВсеСпискиПоиска = Взаимодействия.СписокДоступныхПоисков(ППДВключен, Параметры, Элементы, Истина);
ВариантыПоиска = "ПоEmail";
ВариантыПоиска = "Везде";
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
ОбновитьМенюВариантовПоиска();
УправлениеСтраницами();
КонецПроцедуры
@@ -94,7 +102,7 @@
Если НЕ ПустаяСтрока(ТекущиеДанные.СписокАдресов) Тогда
Элементы.Адрес.СписокВыбора.ЗагрузитьЗначения(
СтрРазделить(ТекущиеДанные.СписокАдресов,";"));
СтрРазделить(ТекущиеДанные.СписокАдресов, ";"));
КонецЕсли;
КонецЕсли;
@@ -233,17 +241,19 @@
// Инициирует процесс поиска контактов.
//
&НаКлиенте
Процедура КомандаНайтиВыполнить()
Процедура НайтиКонтактыВыполнить()
Если ПустаяСтрока(СтрокаПоиска) Тогда
ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Не задана строка поиска.'"),,"СтрокаПоиска");
ОбщегоНазначенияКлиент.СообщитьПользователю(НСтр("ru = 'Не задано, что нужно найти.'"),, "СтрокаПоиска");
Возврат;
КонецЕсли;
Результат = "";
НайденныеКонтакты.Очистить();
Если ВариантыПоиска = "ПоEmail" Тогда
Если ВариантыПоиска = "Везде" Тогда
Результат = НайтиКонтакты();
ИначеЕсли ВариантыПоиска = "ПоEmail" Тогда
НайтиПоEmail(Ложь);
ИначеЕсли ВариантыПоиска = "ПоДомену" Тогда
НайтиПоEmail(Истина);
@@ -254,9 +264,7 @@
КонецЕсли;
Если Не ПустаяСтрока(Результат) Тогда
ПоказатьПредупреждение(,Результат);
ПоказатьПредупреждение(, Результат);
КонецЕсли;
КонецПроцедуры
@@ -307,7 +315,6 @@
Элементы.СтраницыСписки.ТекущаяСтраница = Элементы.СтраницаПоискКонтактов;
НайденныеКонтакты.Очистить();
ВариантыПоиска = "ПоEmail";
ТекущиеДанные = Элементы.ПолучателиПисьма.ТекущиеДанные;
Если ТекущиеДанные = Неопределено Тогда
@@ -328,8 +335,7 @@
Элементы.СтраницыСписки.ТекущаяСтраница = Элементы.СтраницаПоискКонтактов;
НайденныеКонтакты.Очистить();
ВариантыПоиска = "ПоСтроке";
ТекущиеДанные = Элементы.ПолучателиПисьма.ТекущиеДанные;
Если ТекущиеДанные = Неопределено Тогда
Возврат;
@@ -462,6 +468,48 @@
КонецПроцедуры
&НаКлиенте
Процедура ВариантПоискаВезде(Команда)
ВариантыПоиска = "Везде";
ОбновитьМенюВариантовПоиска();
КонецПроцедуры
&НаКлиенте
Процедура ВариантПоискаВАдресах(Команда)
ВариантыПоиска = "ПоEmail";
ОбновитьМенюВариантовПоиска();
КонецПроцедуры
&НаКлиенте
Процедура ВариантПоискаВНаименованияхКонтактов(Команда)
ВариантыПоиска = "ПоСтроке";
ОбновитьМенюВариантовПоиска();
КонецПроцедуры
&НаКлиенте
Процедура ВариантПоискаПоДоменномуИмени(Команда)
ВариантыПоиска = "ПоДомену";
ОбновитьМенюВариантовПоиска();
КонецПроцедуры
&НаКлиенте
Процедура Просмотр(Команда)
Если Элементы.СтраницыСписки.ТекущаяСтраница = Элементы.СтраницаПользователей Тогда
ТекущиеДанные = Элементы.СписокПользователей.ТекущиеДанные;
ИначеЕсли ТипЗнч(ТекущийЭлемент) = Тип("ТаблицаФормы") Тогда
ТекущиеДанные = ТекущийЭлемент.ТекущиеДанные;
Иначе
Возврат;
КонецЕсли;
Если ТекущиеДанные = Неопределено Тогда
Возврат;
КонецЕсли;
ПоказатьЗначение(, ТекущиеДанные.Ссылка);
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
@@ -469,30 +517,31 @@
////////////////////////////////////////////////////////////////////////////////
// Процедуры и функции осуществления поиска.
// Осуществляет поиск контактов по доменному имени или по адресу электронной почты.
//
&НаСервере
Процедура НайтиПоEmail(ПоДомену)
Функция НайтиКонтакты()
Взаимодействия.НайтиПоEmail(СтрокаПоиска, ПоДомену ,ЭтотОбъект);
Возврат Взаимодействия.НайтиКонтакты(СтрокаПоиска, ЭтотОбъект);
КонецФункции
&НаСервере
Процедура НайтиПоEmail(ПоДомену)
Взаимодействия.НайтиПоEmail(СтрокаПоиска, ПоДомену, ЭтотОбъект);
КонецПроцедуры
// Осуществляет поиск контактов по строке.
//
&НаСервере
Функция КонтактыНайденныеПоСтроке()
Возврат Взаимодействия.ОсуществитьПоискКонтактовПоСтроке(ЭтотОбъект, Истина);
Возврат Взаимодействия.ПолнотекстовыйПоискКонтактовПоСтроке(СтрокаПоиска, ЭтотОбъект, Истина);
КонецФункции
// Осуществляет поиск контактов по началу наименования.
//
&НаСервере
Процедура НайтиПоНачалуНаименования()
Взаимодействия.ВсеКонтактыПоНачалуНаименованияСАдресамиЭлектроннойПочты(СтрокаПоиска, ЭтотОбъект);
Взаимодействия.НайтиКонтактыСАдресамиПоНаименованию(СтрокаПоиска, ЭтотОбъект);
КонецПроцедуры
@@ -572,7 +621,14 @@
// Контакт - СправочникСсылка - контакт получатель.
//
&НаКлиенте
Процедура ДобавитьПолучателя(Адрес, Наименование, Контакт,СписокАдресов = "")
Процедура ДобавитьПолучателя(Адрес, Наименование, Контакт, СписокАдресов = "")
Для Индекс = 0 По ПолучателиПисьма.Количество() - 1 Цикл
ПолучательПисьма = ПолучателиПисьма[ПолучателиПисьма.Количество() - Индекс - 1];
Если ПустаяСтрока(ПолучательПисьма.Адрес) И ПустаяСтрока(ПолучательПисьма.Представление) И Не ЗначениеЗаполнено(ПолучательПисьма.Контакт) Тогда
ПолучателиПисьма.Удалить(Индекс);
КонецЕсли;
КонецЦикла;
НоваяСтрока = ПолучателиПисьма.Добавить();
НоваяСтрока.Адрес = Адрес;
@@ -718,4 +774,14 @@
КонецПроцедуры
&НаКлиенте
Процедура ОбновитьМенюВариантовПоиска()
Элементы.ВариантПоискаВезде.Пометка = (ВариантыПоиска = "Везде");
Элементы.ВариантПоискаВАдресах.Пометка = (ВариантыПоиска = "ПоEmail");
Элементы.ВариантПоискаВНаименованияхКонтактов.Пометка = (ВариантыПоиска = "ПоСтроке");
Элементы.ВариантПоискаПоДоменномуИмени.Пометка = (ВариантыПоиска = "ПоДомену");
КонецПроцедуры
#КонецОбласти
SSL/src/CommonForms/ВводЗначенийСпискомСФлажками/Module.bsl
+27 -2
View File
@@ -9,7 +9,7 @@
#Область ОписаниеПеременных
&НаКлиенте
Перем ЭлементСпискаДоНачалаИзменения;
Перем ЭлементСпискаДоНачалаИзменения; // см. ЭлементСпискаДоНачалаИзменения
#КонецОбласти
@@ -148,7 +148,7 @@
Если ТекущаяСтрока = Неопределено Тогда
Возврат;
КонецЕсли;
ЭлементСпискаДоНачалаИзменения = Новый Структура("Идентификатор, Пометка, Значение, Представление");
ЭлементСпискаДоНачалаИзменения = ЭлементСпискаДоНачалаИзменения();
ЗаполнитьЗначенияСвойств(ЭлементСпискаДоНачалаИзменения, ЭлементСпискаВФорме);
ЭлементСпискаДоНачалаИзменения.Идентификатор = СтрокаИдентификатор;
КонецПроцедуры
@@ -289,4 +289,29 @@
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// Конструкторы.
// Конструктор описания свойств элемента списка значений.
//
// Возвращаемое значение:
// Структура - описание свойств элемента списка значений, где:
// * Идентификатор - Число - идентификатор строки таблицы формы.
// * Пометка - Булево - признак того, что элемент списка значений выбран.
// * Значение - Неопределено - значение списка значений.
// * Представление - Строка - представление элемента списка значений.
//
&НаКлиенте
Функция ЭлементСпискаДоНачалаИзменения()
Элемент = Новый Структура();
Элемент.Вставить("Идентификатор", 0);
Элемент.Вставить("Пометка", Ложь);
Элемент.Вставить("Значение", Неопределено);
Элемент.Вставить("Представление", "");
Возврат Элемент;
КонецФункции
#КонецОбласти
SSL/src/CommonForms/ВыборКонтакта/Module.bsl
+1 -1
View File
@@ -365,7 +365,7 @@
&НаСервере
Функция НайтиПоСтроке()
Возврат Взаимодействия.ОсуществитьПоискКонтактовПоСтроке(ЭтотОбъект);
Возврат Взаимодействия.ПолнотекстовыйПоискКонтактовПоСтроке(СтрокаПоиска, ЭтотОбъект);
КонецФункции
SSL/src/CommonForms/НастройкаКолонтитулов/Module.bsl
+5 -4
View File
@@ -319,7 +319,9 @@
Образец.Область(1, 1).ВысотаСтроки = 5;
Образец.Область(1, 1).ШиринаКолонки = 1;
Образец.Область(2, 2, 4, 4).ЦветРамки = Новый Цвет(128, 128, 128);
ЦветОбразца = Метаданные.ЭлементыСтиля.ОбразецНастройкиКолонтитуловЦвет.Значение;
Образец.Область(2, 2, 4, 4).ЦветРамки = ЦветОбразца;
Образец.Область(2, 2, 4, 4).РазмещениеТекста = ТипРазмещенияТекстаТабличногоДокумента.Забивать;
Линия = Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1);
@@ -332,7 +334,6 @@
Образец.Область(4, 3).Обвести(, Линия, , Линия);
Образец.Область(4, 4).Обвести(, Линия, Линия, Линия);
Образец.Область(2, 2).ГоризонтальноеПоложение = ГоризонтальноеПоложение.Лево;
Образец.Область(2, 3).ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
Образец.Область(2, 4).ГоризонтальноеПоложение = ГоризонтальноеПоложение.Право;
@@ -347,10 +348,10 @@
Образец.Область(3, 2).Текст = Символы.ПС + НСтр("ru = 'Образец отчета'") + Символы.ПС + " ";
Образец.Область(3, 2).Шрифт = Новый Шрифт("Arial", 20);
Образец.Область(3, 2).ЦветТекста = Новый Цвет(128, 128, 128);
Образец.Область(3, 2).ЦветТекста = ЦветОбразца;
Образец.Область(3, 2).ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
Образец.Область(3, 2, 3, 4).Объединить();
Образец.Область(3, 2, 3, 4).Обвести(Линия, Линия, Линия, Линия);
КонецПроцедуры
SSL/src/CommonForms/ПанельОтчетов/Module.bsl
+95 -29
View File
@@ -1315,22 +1315,7 @@
КонецЦикла;
КонецЦикла;
ОписаниеТиповИдентификатора = Новый ОписаниеТипов;
ОписаниеТиповИдентификатора.Типы().Добавить("СправочникСсылка.ИдентификаторыОбъектовМетаданных");
ОписаниеТиповИдентификатора.Типы().Добавить("СправочникСсылка.ИдентификаторыОбъектовРасширений");
// Моделирование распределения вариантов с учетом вложенности подсистем.
ДеревоРаспределения = Новый ДеревоЗначений;
ДеревоРаспределения.Колонки.Добавить("Подсистема");
ДеревоРаспределения.Колонки.Добавить("ПодсистемаСсылка", ОписаниеТиповИдентификатора);
ДеревоРаспределения.Колонки.Добавить("Варианты", Новый ОписаниеТипов("Массив"));
ДеревоРаспределения.Колонки.Добавить("КоличествоВариантов", Новый ОписаниеТипов("Число"));
ДеревоРаспределения.Колонки.Добавить("КоличествоПустыхСтрок", Новый ОписаниеТипов("Число"));
ДеревоРаспределения.Колонки.Добавить("ВсегоВложенныхВариантов", Новый ОписаниеТипов("Число"));
ДеревоРаспределения.Колонки.Добавить("ВсегоВложенныхПодсистем", Новый ОписаниеТипов("Число"));
ДеревоРаспределения.Колонки.Добавить("ВсегоВложенныхПустыхСтрок", Новый ОписаниеТипов("Число"));
ДеревоРаспределения.Колонки.Добавить("УровеньВложенности", Новый ОписаниеТипов("Число"));
ДеревоРаспределения.Колонки.Добавить("ВерхнийУровень", Новый ОписаниеТипов("Булево"));
ДеревоРаспределения = ДеревоРаспределения();
МаксимальныйУровеньВложенности = 0;
@@ -1398,19 +1383,7 @@
// Количество вариантов для вывода в одной колонке.
ГруппаУровня3Отсечка = Макс(Цел(КоличествоСтрок / КоличествоКолонок), 2);
ПорядокВывода = Новый ТаблицаЗначений;
ПорядокВывода.Колонки.Добавить("НомерКолонки", Новый ОписаниеТипов("Число"));
ПорядокВывода.Колонки.Добавить("ЭтоПодсистема", Новый ОписаниеТипов("Булево"));
ПорядокВывода.Колонки.Добавить("ЭтоПродолжение", Новый ОписаниеТипов("Булево"));
ПорядокВывода.Колонки.Добавить("ЭтоВариант", Новый ОписаниеТипов("Булево"));
ПорядокВывода.Колонки.Добавить("ЭтоПустаяСтрока", Новый ОписаниеТипов("Булево"));
ПорядокВывода.Колонки.Добавить("СтрокаДерева");
ПорядокВывода.Колонки.Добавить("Подсистема");
ПорядокВывода.Колонки.Добавить("ПодсистемаСсылка", ОписаниеТиповИдентификатора);
ПорядокВывода.Колонки.Добавить("ПодсистемаПриоритет", Новый ОписаниеТипов("Строка"));
ПорядокВывода.Колонки.Добавить("Вариант");
ПорядокВывода.Колонки.Добавить("ВариантСсылка");
ПорядокВывода.Колонки.Добавить("УровеньВложенности", Новый ОписаниеТипов("Число"));
ПорядокВывода = ПорядокВывода();
Рекурсия = Новый Структура;
Рекурсия.Вставить("ВсегоОсталосьВывести", КоличествоСтрок);
@@ -1482,6 +1455,99 @@
КонецПроцедуры
// Конструктор коллекции, для моделирования распределения вариантов отчетов с учетом вложенности подсистем.
//
// Возвращаемое значение:
// ДеревоЗначений - коллекция, для моделирования распределения вариантов отчетов с учетом вложенности подсистем, где:
// * Подсистема - СтрокаТаблицыЗначений - описание подсистемы.
// * ПодсистемаСсылка - СправочникСсылка.ИдентификаторыОбъектовМетаданных,
// СправочникСсылка.ИдентификаторыОбъектовРасширений - ссылка на идентификатор подсистемы.
// * Варианты - Массив - коллекция вариантов отчета, где:
// ** Элемент - СтрокаТаблицыЗначений - описание варианта отчета, где:
// *** КоличествоПодчиненных - Число - счетчик подчиненных элементов.
// * КоличествоВариантов- Число - счетчик вариантов отчетов.
// * КоличествоПустыхСтрок - Число - дополнительный счетчик.
// * ВсегоВложенныхВариантов- Число - счетчик дочерних вариантов отчетов.
// * ВсегоВложенныхПодсистем- Число - счетчик дочерних подсистем.
// * ВсегоВложенныхПустыхСтрок- Число - дополнительный счетчик.
// * УровеньВложенности- Число - номер уровня в иерархии.
// * ВерхнийУровень- Булево - признак того, что запись верхнего уровня.
//
&НаСервере
Функция ДеревоРаспределения()
ОписаниеПризнака = Новый ОписаниеТипов("Булево");
ОписаниеЧисла = Новый ОписаниеТипов("Число");
ОписаниеМассива = Новый ОписаниеТипов("Массив");
ОписаниеИдентификатора = Новый ОписаниеТипов(
"СправочникСсылка.ИдентификаторыОбъектовМетаданных, СправочникСсылка.ИдентификаторыОбъектовРасширений");
ДеревоРаспределения = Новый ДеревоЗначений;
ДеревоРаспределения.Колонки.Добавить("Подсистема");
ДеревоРаспределения.Колонки.Добавить("ПодсистемаСсылка", ОписаниеИдентификатора);
ДеревоРаспределения.Колонки.Добавить("Варианты", ОписаниеМассива);
ДеревоРаспределения.Колонки.Добавить("КоличествоВариантов", ОписаниеЧисла);
ДеревоРаспределения.Колонки.Добавить("КоличествоПустыхСтрок", ОписаниеЧисла);
ДеревоРаспределения.Колонки.Добавить("ВсегоВложенныхВариантов", ОписаниеЧисла);
ДеревоРаспределения.Колонки.Добавить("ВсегоВложенныхПодсистем", ОписаниеЧисла);
ДеревоРаспределения.Колонки.Добавить("ВсегоВложенныхПустыхСтрок", ОписаниеЧисла);
ДеревоРаспределения.Колонки.Добавить("УровеньВложенности", ОписаниеЧисла);
ДеревоРаспределения.Колонки.Добавить("ВерхнийУровень", ОписаниеПризнака);
Возврат ДеревоРаспределения;
КонецФункции
// Конструктор коллекции, хранящей сведения о порядке вывода отчетов на панель.
//
// Возвращаемое значение:
// ТаблицаЗначений - коллекция, хранящая сведения о порядке вывода отчетов на панель, где:
// * НомерКолонки- Число - номер колонки, в которую выводится отчет.
// * ЭтоПодсистема - Булево - признак подсистемы.
// * ЭтоПродолжение - Булево - дополнительный признак.
// * ЭтоВариант - Булево -признак варианта отчета.
// * ЭтоПустаяСтрока - Булево - признак не заполненной строки.
// * СтрокаДерева - СтрокаДереваЗначений - см. ...
// * Подсистема - СтрокаТаблицыЗначений - описание подсистемы.
// * ПодсистемаСсылка - СправочникСсылка.ИдентификаторыОбъектовМетаданных,
// СправочникСсылка.ИдентификаторыОбъектовРасширений - ссылка на идентификатор подсистемы.
// * ПодсистемаПриоритет - Число - приоритет подсистемы.
// * Вариант - СтрокаТаблицыЗначений - описание варианта отчета, где:
// ** КоличествоПодчиненных - Число - счетчик подчиненных элементов.
// * ВариантСсылка - СправочникСсылка.ВариантыОтчетов - ссылка на вариант отчета.
// * УровеньВложенности - Число - номер уровня в иерархии.
//
&НаСервере
Функция ПорядокВывода()
ОписаниеПризнака = Новый ОписаниеТипов("Булево");
ОписаниеЧисла = Новый ОписаниеТипов("Число");
ОписаниеСтроки = Новый ОписаниеТипов("Строка");
ОписаниеИдентификатора = Новый ОписаниеТипов(
"СправочникСсылка.ИдентификаторыОбъектовМетаданных, СправочникСсылка.ИдентификаторыОбъектовРасширений");
ПорядокВывода = Новый ТаблицаЗначений;
ПорядокВывода.Колонки.Добавить("НомерКолонки", ОписаниеЧисла);
ПорядокВывода.Колонки.Добавить("ЭтоПодсистема", ОписаниеПризнака);
ПорядокВывода.Колонки.Добавить("ЭтоПродолжение", ОписаниеПризнака);
ПорядокВывода.Колонки.Добавить("ЭтоВариант", ОписаниеПризнака);
ПорядокВывода.Колонки.Добавить("ЭтоПустаяСтрока", ОписаниеПризнака);
ПорядокВывода.Колонки.Добавить("СтрокаДерева");
ПорядокВывода.Колонки.Добавить("Подсистема");
ПорядокВывода.Колонки.Добавить("ПодсистемаСсылка", ОписаниеИдентификатора);
ПорядокВывода.Колонки.Добавить("ПодсистемаПриоритет", ОписаниеСтроки);
ПорядокВывода.Колонки.Добавить("Вариант");
ПорядокВывода.Колонки.Добавить("ВариантСсылка");
ПорядокВывода.Колонки.Добавить("УровеньВложенности", ОписаниеЧисла);
Возврат ПорядокВывода;
КонецФункции
&НаСервере
Процедура ЗаполнитьПорядокВывода(ПорядокВывода, СтрокаРодителя, СтрокаДерева, Рекурсия, ПараметрыЗаполнения)
SSL/src/CommonForms/ФормаОтчета/Form.form
+27 -27
View File
@@ -1222,33 +1222,6 @@
<items xsi:type="form:FormGroup">
<name>ГруппаОбменНастройкамиЕще</name>
<id>820</id>
<items xsi:type="form:Button">
<name>СохранитьВариантОтчетаВФайл</name>
<id>822</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>СохранитьВариантОтчетаВФайлРасширеннаяПодсказка</name>
<id>823</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.СохранитьВариантОтчетаВФайл</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
<locationInCommandBar>InAdditionalSubmenu</locationInCommandBar>
</items>
<items xsi:type="form:Button">
<name>ОбновитьВариантОтчетаИзФайла</name>
<id>824</id>
@@ -1276,6 +1249,33 @@
<representationInContextMenu>Auto</representationInContextMenu>
<locationInCommandBar>InAdditionalSubmenu</locationInCommandBar>
</items>
<items xsi:type="form:Button">
<name>СохранитьВариантОтчетаВФайл</name>
<id>822</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>СохранитьВариантОтчетаВФайлРасширеннаяПодсказка</name>
<id>823</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.СохранитьВариантОтчетаВФайл</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
<locationInCommandBar>InAdditionalSubmenu</locationInCommandBar>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
SSL/src/CommonForms/ФормаОтчета/Module.bsl
+1
View File
@@ -1221,6 +1221,7 @@
ПараметрыОткрытия.Вставить("Представление", Элемент.Заголовок);
ПараметрыОткрытия.Вставить("ПараметрыВыбора", Новый Массив(ПараметрыВыбора));
ПараметрыОткрытия.Вставить("ВыборГруппИЭлементов", ВыборГруппИЭлементов);
ПараметрыОткрытия.Вставить("БыстрыйВыбор", ?(ОписаниеНастроек = Неопределено, Ложь, ОписаниеНастроек.БыстрыйВыбор));
Обработчик = Новый ОписаниеОповещения("ЗавершитьВыборИзСписка", ЭтотОбъект, Сведения.ЭлементПользовательскойНастройки);
Режим = РежимОткрытияОкнаФормы.БлокироватьОкноВладельца;
SSL/src/CommonModules/ВариантыОтчетов/Module.bsl
+153 -44
View File
@@ -225,7 +225,7 @@
//
// Служебные реквизиты (только для чтения):
// * Отчет - <см. Справочники.ВариантыОтчетов.Реквизиты.Отчет> - полное имя или ссылка на отчет.
// * Метаданные - ОбъектМетаданных: Отчет - метаданные отчета.
// * Метаданные - ОбъектМетаданныхОтчет - метаданные отчета.
// * КлючВарианта - Строка - имя варианта отчета.
// * ОписаниеПолучено - Булево - флажок что описание строки уже получено.
// Описание получается методом ОписаниеВарианта().
@@ -324,7 +324,7 @@
Если ТипЗнч(Отчет) = Тип("СтрокаТаблицыЗначений") Тогда
ОписаниеОтчета = Отчет;
Иначе
ОписаниеОтчета = ОписаниеОтчета(Настройки, Отчет);
ОписаниеОтчета = ОписаниеОтчета(Настройки, Отчет); // см. ОписаниеОтчета
КонецЕсли;
КлючВариантаОтчета = ?(ПустаяСтрока(КлючВарианта), ОписаниеОтчета.ОсновнойВариант, КлючВарианта);
@@ -747,7 +747,7 @@
КонецЕсли;
// Пропуск не подключенных внутренних отчетов.
ОтчетМетаданные = Метаданные.НайтиПоПолномуИмени(ВыборкаХранилища.КлючОбъекта);
ОтчетМетаданные = Метаданные.НайтиПоПолномуИмени(ВыборкаХранилища.КлючОбъекта); // ОбъектМетаданныхОтчет
Если ОтчетМетаданные <> Неопределено Тогда
ХранилищеМетаданные = ОтчетМетаданные.ХранилищеВариантов;
Если ХранилищеМетаданные = Неопределено Или ХранилищеМетаданные.Имя <> "ХранилищеВариантовОтчетов" Тогда
@@ -1903,43 +1903,7 @@
// Для отчета по внедрению.
Функция ПредопределенныеВариантыОтчетов(ТипОтчетов = "Внутренний") Экспорт
РеквизитыСправочника = Метаданные.Справочники.ВариантыОтчетов.Реквизиты;
Результат = Новый ТаблицаЗначений;
Результат.Колонки.Добавить("Отчет", РеквизитыСправочника.Отчет.Тип);
Результат.Колонки.Добавить("Метаданные", Новый ОписаниеТипов("ОбъектМетаданных"));
Результат.Колонки.Добавить("ИспользуетСКД", Новый ОписаниеТипов("Булево"));
Результат.Колонки.Добавить("КлючВарианта", РеквизитыСправочника.КлючВарианта.Тип);
Результат.Колонки.Добавить("ОписаниеПолучено", Новый ОписаниеТипов("Булево"));
Результат.Колонки.Добавить("Включен", Новый ОписаниеТипов("Булево"));
Результат.Колонки.Добавить("ВидимостьПоУмолчанию", Новый ОписаниеТипов("Булево"));
Результат.Колонки.Добавить("Наименование", ОписаниеТиповСтрока());
Результат.Колонки.Добавить("Описание", ОписаниеТиповСтрока());
Результат.Колонки.Добавить("Размещение", Новый ОписаниеТипов("Соответствие"));
Результат.Колонки.Добавить("НастройкиДляПоиска", Новый ОписаниеТипов("Структура"));
Результат.Колонки.Добавить("СистемнаяИнформация", Новый ОписаниеТипов("Структура"));
Результат.Колонки.Добавить("Тип", ОписаниеТиповСтрока());
Результат.Колонки.Добавить("ЭтоВариант", Новый ОписаниеТипов("Булево"));
Результат.Колонки.Добавить("ФункциональныеОпции", Новый ОписаниеТипов("Массив"));
Результат.Колонки.Добавить("ГруппироватьПоОтчету", Новый ОписаниеТипов("Булево"));
Результат.Колонки.Добавить("КлючЗамеров", Новый ОписаниеТипов("Строка"));
Результат.Колонки.Добавить("ОсновнойВариант", РеквизитыСправочника.КлючВарианта.Тип);
Результат.Колонки.Добавить("ФорматНастроекСКД", Новый ОписаниеТипов("Булево"));
Результат.Колонки.Добавить("ОпределитьНастройкиФормы", Новый ОписаниеТипов("Булево"));
// Вспомогательные сведения для процедуры ОбновитьНастройкиПредопределенных.
Результат.Колонки.Добавить("НайденВБазеДанных", Новый ОписаниеТипов("Булево"));
Результат.Колонки.Добавить("ВариантИзБазы"); // строка выборки из таблицы
Результат.Колонки.Добавить("ВариантРодитель", Новый ОписаниеТипов(Новый ОписаниеТипов("СправочникСсылка.ПредопределенныеВариантыОтчетов"),
"СправочникСсылка.ПредопределенныеВариантыОтчетовРасширений"));
Результат.Индексы.Добавить("Отчет");
Результат.Индексы.Добавить("Отчет,ЭтоВариант");
Результат.Индексы.Добавить("Отчет,КлючВарианта");
Результат.Индексы.Добавить("Отчет,КлючВарианта,ЭтоВариант");
Результат.Индексы.Добавить("КлючВарианта");
Результат.Индексы.Добавить("Метаданные,КлючВарианта");
Результат.Индексы.Добавить("Метаданные,ЭтоВариант");
Результат = КоллекцияПредопределенныхВариантовОтчетов();
ГруппироватьПоОтчетам = ГлобальныеНастройки().ВыводитьОтчетыВместоВариантов;
РазрешеноИндексирование = РазрешеноИндексированиеНеразделенныхДанных();
@@ -2099,17 +2063,28 @@
ЕстьОсновойВариант = Не ПустаяСтрока(ОписаниеОтчета.ОсновнойВариант);
ОсновойВариантВключен = Ложь;
Если ЕстьОсновойВариант Тогда
Описание = Результат.НайтиСтроки(Новый Структура("Отчет,КлючВарианта,ЭтоВариант",
ОписаниеОтчета.Отчет, ОписаниеОтчета.ОсновнойВариант, Истина))[0];
ПоискОписания = Новый Структура();
ПоискОписания.Вставить("Отчет", ОписаниеОтчета.Отчет);
ПоискОписания.Вставить("КлючВарианта", ОписаниеОтчета.ОсновнойВариант);
ПоискОписания.Вставить("ЭтоВариант", Истина);
НайденныеОписания = Результат.НайтиСтроки(ПоискОписания); // см. КоллекцияПредопределенныхВариантовОтчетов
Описание = НайденныеОписания.Получить(0);
ОсновойВариантВключен = Описание.Включен;
КонецЕсли;
КонецЕсли;
Если Не ЕстьОсновойВариант Или Не ОсновойВариантВключен Тогда
Для каждого ОписаниеВарианта Из Результат.НайтиСтроки(Новый Структура("Отчет", ОписаниеОтчета.Отчет)) Цикл
ПоискОписания = Новый Структура("Отчет", ОписаниеОтчета.Отчет);
НайденныеОписания = Результат.НайтиСтроки(ПоискОписания); // см. КоллекцияПредопределенныхВариантовОтчетов
Для Каждого ОписаниеВарианта Из НайденныеОписания Цикл
Если ПустаяСтрока(ОписаниеВарианта.КлючВарианта) Тогда
Продолжить;
КонецЕсли;
ЗаполнитьОписаниеСтрокиВарианта(ОписаниеВарианта, ОписаниеОтчета);
Если ОписаниеВарианта.Включен Тогда
ОписаниеОтчета.ОсновнойВариант = ОписаниеВарианта.КлючВарианта;
ОписаниеВарианта.ВидимостьПоУмолчанию = Истина;
@@ -3248,6 +3223,9 @@
// 2. Установить пометку удаления вариантов удаленных отчетов.
ПометитьНаУдалениеВариантыУдаленныхОтчетов(Режим, Результат);
// 3. Настроить доступность (видимость) вариантов отчетов в панели отчетов (по умолчанию).
РегистрыСведений.НастройкиВариантовОтчетов.УстановитьДоступностьВариантовОтчетовПоУмолчанию();
Возврат Результат;
КонецФункции
@@ -7681,4 +7659,135 @@
#КонецОбласти
////////////////////////////////////////////////////////////////////////////////
// Конструкторы.
#Область Конструкторы
// Конструктор коллекции предопределенных вариантов отчетов.
//
// Возвращаемое значение:
// ТаблицаЗначений - коллекция предопределенных вариантов отчетов, где:
// * Отчет - СправочникСсылка.ИдентификаторыОбъектовРасширений,
// СправочникСсылка.ДополнительныеОтчетыИОбработки,
// СправочникСсылка.ИдентификаторыОбъектовМетаданных,
// Строка - полное имя или ссылка на идентификатор отчета.
// * Метаданные - ОбъектМетаданныхОтчет - метаданные отчета.
// * ИспользуетСКД - Булево - признак использования в отчете основной СКД.
// * КлючВарианта - Строка - идентификатор варианта отчета.
// * ОписаниеПолучено - Булево - флажок что описание строки уже получено.
// Описание получается методом ОписаниеВарианта().
// * Включен - Булево - если Ложь, то вариант отчета не регистрируется в подсистеме
// * ВидимостьПоУмолчанию - Булево - если Ложь, то вариант отчета по умолчанию скрыт в панели отчетов.
// * Наименование - Строка - наименование варианта отчета.
// * Описание - Строка - пояснение назначения отчета.
// * Размещение - Соответствие - настройки размещения варианта отчета в разделах (подсистемах), где:
// ** Ключ - ОбъектМетаданных - подсистема, в которой размещается отчет или вариант отчета.
// ** Значение - Строка - настройки размещения в подсистеме (группе).
// *** "" - вывод отчета в подсистеме без специального выделение.
// *** "Важный" - вывод отчета в подсистеме с выделением жирным шрифтом.
// *** "СмТакже" - вывод отчета в группе "См. также".
// * НастройкиДляПоиска - Структура - дополнительные настройки для поиска этого варианта отчета.
// Эти настройки необходимо задавать только если СКД не используется или используется не в полном объеме.
// Например, СКД может использоваться только для параметризации и получения данных,
// а вывод выполняться в фиксированный макет табличного документа.
// ** НаименованияПолей - Строка - имена полей варианта отчета.
// ** НаименованияПараметровИОтборов - Строка - имена настроек варианта отчета.
// ** КлючевыеСлова - Строка - дополнительная терминология (в т.ч. специализированная или устаревшая).
// Разделитель терминов: Символы.ПС.
// ** ИменаМакетов - Строка - используется вместо НаименованияПолей.
// Имена макетов табличных или текстовых документов,
// из которых требуется извлечь информацию о наименованиях полей.
// Имена перечисляются через запятую.
// К сожалению, в макетах отсутствует информация о связях полей и их представлениях
// (которая есть в СКД), поэтому для более точной работы механизма поиска рекомендуется
// заполнять НаименованияПолей, а не ИменаМакетов.
// * СистемнаяИнформация - Структура - другая служебная информация.
// * Тип - Строка - перечень идентификаторов типов.
// * ЭтоВариант - Булево - признак того, что описание отчета относится к варианту отчета.
// * ФункциональныеОпции - Массив - коллекция идентификаторов функциональных опций, где:
// ** Строка - идентификатор функциональной опции.
// * ГруппироватьПоОтчету - Булево - признак необходимости группировки вариантов по отчету-основанию.
// * КлючЗамеров - Строка - идентификатор замера производительности отчета.
// * ОсновнойВариант - Строка - идентификатор основного варианта отчета.
// * ФорматНастроекСКД - Булево - отчет использует типовой формат хранения настроек на механике СКД,
// а его основные формы поддерживают стандартную схему взаимодействия между формами (параметры и тип
// возвращаемого значения).
// Если Ложь, тогда для отчета отключаются проверки консистентности и некоторые механизмы, которые
// рассчитывают на типовой формат.
// * ОпределитьНастройкиФормы - Булево - отчет имеет программный интерфейс для тесной интеграции с формой отчета,
// в том числе может переопределять некоторые настройки формы и подписываться на ее события.
// Если Истина и отчет подключен к общей форме ФормаОтчета,
// тогда в модуле объекта отчета следует определить процедуру по шаблону:
//
// // Настройки общей формы отчета подсистемы "Варианты отчетов".
// //
// // Параметры:
// // Форма - ФормаКлиентскогоПриложения, Неопределено - Форма отчета или форма настроек отчета.
// // Неопределено когда вызов без контекста.
// // КлючВарианта - Строка, Неопределено - Имя предопределенного
// // или уникальный идентификатор пользовательского варианта отчета.
// // Неопределено когда вызов без контекста.
// // Настройки - Структура - см. возвращаемое значение
// // ОтчетыКлиентСервер.НастройкиОтчетаПоУмолчанию().
// //
// Процедура ОпределитьНастройкиФормы(Форма, КлючВарианта, Настройки) Экспорт
// // Код процедуры.
// КонецПроцедуры
//
Функция КоллекцияПредопределенныхВариантовОтчетов()
РеквизитыСправочника = Метаданные.Справочники.ВариантыОтчетов.Реквизиты;
ОписаниеПризнака = Новый ОписаниеТипов("Булево");
ОписаниеМассива = Новый ОписаниеТипов("Массив");
ОписаниеСоответствия = Новый ОписаниеТипов("Соответствие");
ОписаниеСтруктуры = Новый ОписаниеТипов("Структура");
ОписаниеОбъектаМетаданных = Новый ОписаниеТипов("ОбъектМетаданных");
ОписаниеВариантаОтчета = Новый ОписаниеТипов(
"СправочникСсылка.ПредопределенныеВариантыОтчетов,
|СправочникСсылка.ПредопределенныеВариантыОтчетовРасширений");
Результат = Новый ТаблицаЗначений;
Результат.Колонки.Добавить("Отчет", РеквизитыСправочника.Отчет.Тип);
Результат.Колонки.Добавить("Метаданные", ОписаниеОбъектаМетаданных);
Результат.Колонки.Добавить("ИспользуетСКД", ОписаниеПризнака);
Результат.Колонки.Добавить("КлючВарианта", РеквизитыСправочника.КлючВарианта.Тип);
Результат.Колонки.Добавить("ОписаниеПолучено", ОписаниеПризнака);
Результат.Колонки.Добавить("Включен", ОписаниеПризнака);
Результат.Колонки.Добавить("ВидимостьПоУмолчанию", ОписаниеПризнака);
Результат.Колонки.Добавить("Наименование", ОписаниеТиповСтрока());
Результат.Колонки.Добавить("Описание", ОписаниеТиповСтрока());
Результат.Колонки.Добавить("Размещение", ОписаниеСоответствия);
Результат.Колонки.Добавить("НастройкиДляПоиска", ОписаниеСтруктуры);
Результат.Колонки.Добавить("СистемнаяИнформация", ОписаниеСтруктуры);
Результат.Колонки.Добавить("Тип", ОписаниеТиповСтрока());
Результат.Колонки.Добавить("ЭтоВариант", ОписаниеПризнака);
Результат.Колонки.Добавить("ФункциональныеОпции", ОписаниеМассива);
Результат.Колонки.Добавить("ГруппироватьПоОтчету", ОписаниеПризнака);
Результат.Колонки.Добавить("КлючЗамеров", ОписаниеТиповСтрока());
Результат.Колонки.Добавить("ОсновнойВариант", РеквизитыСправочника.КлючВарианта.Тип);
Результат.Колонки.Добавить("ФорматНастроекСКД", ОписаниеПризнака);
Результат.Колонки.Добавить("ОпределитьНастройкиФормы", ОписаниеПризнака);
// Вспомогательные сведения для процедуры ОбновитьНастройкиПредопределенных.
Результат.Колонки.Добавить("НайденВБазеДанных", ОписаниеПризнака);
Результат.Колонки.Добавить("ВариантИзБазы"); // строка выборки из таблицы
Результат.Колонки.Добавить("ВариантРодитель", ОписаниеВариантаОтчета);
Результат.Индексы.Добавить("Отчет");
Результат.Индексы.Добавить("Отчет, ЭтоВариант");
Результат.Индексы.Добавить("Отчет, КлючВарианта");
Результат.Индексы.Добавить("Отчет, КлючВарианта, ЭтоВариант");
Результат.Индексы.Добавить("КлючВарианта");
Результат.Индексы.Добавить("Метаданные, КлючВарианта");
Результат.Индексы.Добавить("Метаданные, ЭтоВариант");
Возврат Результат;
КонецФункции
#КонецОбласти
#КонецОбласти
SSL/src/CommonModules/Взаимодействия/Module.bsl
+212 -138
View File
@@ -47,7 +47,6 @@
Контакты = МенеджерОбъекта.ПолучитьКонтакты(ДанныеЗаполнения);
ИначеЕсли ТипЗнч(ДанныеЗаполнения) = Тип("Структура") Тогда
// Заполним контакт
Если ДанныеЗаполнения.Свойство("Контакт") И ЗначениеЗаполнено(ДанныеЗаполнения.Контакт) Тогда
Контакты = Новый Массив;
Контакты.Добавить(ДанныеЗаполнения.Контакт);
@@ -58,7 +57,9 @@
Контакты = МенеджерОбъекта.ПолучитьКонтакты(ДанныеЗаполнения.Предмет);
КонецЕсли;
КонецЕсли;
Если ДанныеЗаполнения.Свойство("УчетнаяЗапись") И ЗначениеЗаполнено(ДанныеЗаполнения.УчетнаяЗапись) Тогда
Объект.УчетнаяЗапись = ДанныеЗаполнения.УчетнаяЗапись;
КонецЕсли;
КонецЕсли;
// Заполним участников
@@ -71,34 +72,24 @@
Если (ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ЭлектронноеПисьмоВходящее")
Или ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ЭлектронноеПисьмоИсходящее")) Тогда
ТребуетсяОчисткаАдреса = Истина;
КонецЕсли;
Если ТипЗнч(ДанныеЗаполнения) = Тип("Структура")
И ДанныеЗаполнения.Свойство("Предмет")
И (ТипЗнч(ДанныеЗаполнения.Предмет) = Тип("ДокументСсылка.ЭлектронноеПисьмоВходящее")
Или ТипЗнч(ДанныеЗаполнения.Предмет) = Тип("ДокументСсылка.ЭлектронноеПисьмоИсходящее")) Тогда
ТребуетсяОчисткаАдреса = Истина;
КонецЕсли;
Если ТребуетсяОчисткаАдреса Тогда
Для Каждого СтрокаКонтакт Из Контакты Цикл
Если ТипЗнч(СтрокаКонтакт) = Тип("Структура") Тогда
Если Не ЗначениеЗаполнено(СтрокаКонтакт.Контакт) Тогда
СтрокаКонтакт.Адрес = "";
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЕсли;
@@ -955,10 +946,10 @@
//
Функция ИмяПоляДляНаименованияВладельца(ИмяТаблицы) Экспорт
МассивОписанияКонтактов = ВзаимодействияКлиентСервер.ОписанияКонтактов();
ОписанияКонтактов = ВзаимодействияКлиентСервер.ОписанияКонтактов();
Для каждого ЭлементОписанияМассива Из МассивОписанияКонтактов Цикл
Если ЭлементОписанияМассива.Имя = ИмяТаблицы И ЭлементОписанияМассива.ЕстьВладелец Тогда
Для каждого ОписаниеКонтакта Из ОписанияКонтактов Цикл
Если ОписаниеКонтакта.Имя = ИмяТаблицы И ОписаниеКонтакта.ЕстьВладелец Тогда
Возврат "СправочникКонтакт.Владелец.Наименование";
КонецЕсли;
КонецЦикла;
@@ -974,7 +965,7 @@
//
// Параметры:
// ППДВключен - Булево - признак доступности полнотекстового поиска.
// Параметры - Структура - параметры содержащие Представление и Адрес контакта.
// Параметры - Структура - параметры, содержащие Представление и Адрес контакта.
// ЭлементыФормы - ЭлементыФормы
// ДляАдреснойКниги - Булево - истина если список формируется для адресной книги.
//
@@ -1000,9 +991,7 @@
ДобавитьВариантПоиска(ВсеСпискиПоиска, ЭлементыФормы, "ПоEmail", НСтр("ru = 'По email'"), Адрес);
ДобавитьВариантПоиска(ВсеСпискиПоиска, ЭлементыФормы, "ПоДомену", НСтр("ru = 'По доменному имени'"), ДоменныйАдрес);
Если Не ДляАдреснойКниги
И (Параметры.Свойство("ТолькоEmail")
И Не Параметры.ТолькоEmail) Тогда
Если Не ДляАдреснойКниги И (Параметры.Свойство("ТолькоEmail") И Не Параметры.ТолькоEmail) Тогда
ДобавитьВариантПоиска(ВсеСпискиПоиска, ЭлементыФормы, "ПоТелефону", НСтр("ru = 'По телефону'"), Адрес);
КонецЕсли;
@@ -1169,7 +1158,7 @@
// ТаблицаКонтакты - ТаблицаЗначений - таблица значений источник.
// НайденныеКонтакты - ТаблицаЗначений - таблица значений приемник.
//
Процедура ЗаполнитьНайденныеКонтакты(ТаблицаКонтакты,НайденныеКонтакты) Экспорт
Процедура ЗаполнитьНайденныеКонтакты(ТаблицаКонтакты, НайденныеКонтакты) Экспорт
Для Каждого Стр Из ТаблицаКонтакты Цикл
НоваяСтрока = НайденныеКонтакты.Добавить();
@@ -1186,17 +1175,14 @@
// Возвращаемое значение:
// Массив - массив содержащий метаданные возможных типов контактов.
//
Функция МассивМетаданныхКонтакты()
МассивОписанияКонтактов = ВзаимодействияКлиентСервер.ОписанияКонтактов();
МассивМетаданных = Новый Массив;
Для каждого ЭлементМассиваОписания Из МассивОписанияКонтактов Цикл
МассивМетаданных.Добавить(Метаданные.Справочники[ЭлементМассиваОписания.Имя]);
Функция МетаданныеКонтактов()
ОписанияКонтактов = ВзаимодействияКлиентСервер.ОписанияКонтактов();
Результат = Новый Массив;
Для каждого ОписаниеКонтакта Из ОписанияКонтактов Цикл
Результат.Добавить(Метаданные.Справочники[ОписаниеКонтакта.Имя]);
КонецЦикла;
Возврат МассивМетаданных;
Возврат Результат;
КонецФункции
@@ -1368,7 +1354,7 @@
// Возвращаемое значение:
// Строка - дополнение запроса.
//
Функция СтрокаСоединенияДляЗапросаИнформацииОКонтактах(ВключатьEmail,ИмяСправочника)
Функция СтрокаСоединенияДляЗапросаИнформацииОКонтактах(ВключатьEmail, ИмяСправочника)
Если (Не ВключатьEmail) ИЛИ (НЕ НаличиеТабличнойЧастиУСправочника(ИмяСправочника,"КонтактнаяИнформация")) Тогда
@@ -1396,7 +1382,7 @@
// Возвращаемое значение:
// Строка - строка, дополняющая запрос.
//
Функция ПолучитьСтрокуПроАдресДляЗапросаИнформацииОКонтактах(ВключатьEmail,ИмяСправочника,ИменоватьПоле = Ложь)
Функция ПолучитьСтрокуПроАдресДляЗапросаИнформацииОКонтактах(ВключатьEmail, ИмяСправочника, ИменоватьПоле = Ложь)
Если Не ВключатьEmail Тогда
@@ -1561,7 +1547,7 @@
// Возвращаемое значение:
// Булево - Истина, если найден хотя бы один контакт.
//
Функция ПолучитьВсеКонтактыПоТелефону(Телефон,Форма) Экспорт
Функция ПолучитьВсеКонтактыПоТелефону(Телефон, Форма) Экспорт
МассивОписанияТиповКонтактов = ВзаимодействияКлиентСервер.ОписанияКонтактов();
@@ -1634,7 +1620,7 @@
// Возвращаемое значение:
// ТаблицаЗначений - Результат выполненного запроса выгруженный в таблицу значений.
//
Функция ВсеКонтактыПоНачалуНаименования(Наименование) Экспорт
Функция ВсеКонтактыПоНачалуНаименования(СтрокаПоиска) Экспорт
МассивОписанияТиповКонтактов = ВзаимодействияКлиентСервер.ОписанияКонтактов();
@@ -1682,13 +1668,12 @@
Запрос = Новый Запрос;
Запрос.Текст = ТекстЗапроса;
Запрос.УстановитьПараметр("Наименование", Наименование + "%");
Запрос.УстановитьПараметр("Наименование", СтрокаПоиска + "%");
Возврат Запрос.Выполнить().Выгрузить();
КонецФункции
// Формирует текст запроса для поиска контактов по началу наименования с адресами электронной почты
// и выполняет его.
// Поиск по наименованию контактов, содержащих адреса электронной почты.
//
// Параметры:
// Наименование - Строка - строка, содержащая начало наименования контакта.
@@ -1697,72 +1682,84 @@
// Возвращаемое значение:
// Булево - Истина, если найден хотя бы один контакт.
//
Функция ВсеКонтактыПоНачалуНаименованияСАдресамиЭлектроннойПочты(Наименование,Форма) Экспорт
МассивОписанияТиповКонтактов = ВзаимодействияКлиентСервер.ОписанияКонтактов();
ТекстЗапроса =
" ВЫБРАТЬ
| СправочникКонтакт.Ссылка КАК Контакт,
| СправочникКонтакт.Наименование КАК Наименование,
| """" КАК НаименованиеВладельца,
| ТаблицаКонтактнаяИнформация.АдресЭП КАК Представление
|ИЗ
| Справочник.Пользователи КАК СправочникКонтакт
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Пользователи.КонтактнаяИнформация КАК ТаблицаКонтактнаяИнформация
| ПО (ТаблицаКонтактнаяИнформация.Ссылка = СправочникКонтакт.Ссылка)
| И (ТаблицаКонтактнаяИнформация.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.АдресЭлектроннойПочты))
|ГДЕ
| СправочникКонтакт.Наименование ПОДОБНО &Наименование
| И (НЕ СправочникКонтакт.ПометкаУдаления)";
Для каждого ЭлементМассиваОписания Из МассивОписанияТиповКонтактов Цикл
Если ЭлементМассиваОписания.Имя = "Пользователи" Тогда
Продолжить;
Иначе
ТекстЗапроса =ТекстЗапроса + "
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| ТаблицаСправочника.Ссылка,
| ТаблицаСправочника." + ЭлементМассиваОписания.ИмяРеквизитаПредставлениеКонтакта + " КАК Наименование,
| " + ?(ЭлементМассиваОписания.ЕстьВладелец," ТаблицаСправочника.Владелец.Наименование","""""") + ",
| ТаблицаКонтактнаяИнформация.АдресЭП
|ИЗ
| Справочник." +ЭлементМассиваОписания.Имя +" КАК ТаблицаСправочника
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник." + ЭлементМассиваОписания.Имя + ".КонтактнаяИнформация КАК ТаблицаКонтактнаяИнформация
| ПО (ТаблицаКонтактнаяИнформация.Ссылка = ТаблицаСправочника.Ссылка)
| И (ТаблицаКонтактнаяИнформация.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.АдресЭлектроннойПочты))
|ГДЕ
| ТаблицаСправочника.Наименование ПОДОБНО &Наименование "+?(ЭлементМассиваОписания.Иерархический," И (НЕ ТаблицаСправочника.ЭтоГруппа)","")+"
| И (НЕ ТаблицаСправочника.ПометкаУдаления)";
КонецЕсли;
КонецЦикла;
ТекстЗапроса = ТекстЗапроса + "
|
|УПОРЯДОЧИТЬ ПО
| Наименование";
Запрос = Новый Запрос;
Запрос.Текст = ТекстЗапроса;
Запрос.УстановитьПараметр("Наименование", Наименование + "%");
ТаблицаКонтакты = Запрос.Выполнить().Выгрузить();
Функция НайтиКонтактыСАдресамиПоНаименованию(СтрокаПоиска, Форма) Экспорт
ТаблицаКонтакты = НайтиКонтактыСАдресами(СтрокаПоиска);
Если ТаблицаКонтакты = Неопределено ИЛИ ТаблицаКонтакты.Количество() = 0 Тогда
Возврат Ложь;
КонецЕсли;
ЗаполнитьНайденныеКонтакты(ТаблицаКонтакты,Форма.НайденныеКонтакты);
ЗаполнитьНайденныеКонтакты(ТаблицаКонтакты, Форма.НайденныеКонтакты);
Возврат Истина;
КонецФункции
Функция НайтиКонтактыСАдресами(СтрокаПоиска) Экспорт
ОписанияКонтактов = ВзаимодействияКлиентСервер.ОписанияКонтактов();
ТекстЗапроса =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ РАЗЛИЧНЫЕ ПЕРВЫЕ 20
| СправочникКонтакт.Ссылка КАК Контакт,
| ПРЕДСТАВЛЕНИЕ(СправочникКонтакт.Ссылка) КАК Наименование,
| """" КАК НаименованиеВладельца,
| ТаблицаКонтактнаяИнформация.АдресЭП КАК Представление
|ИЗ
| Справочник.Пользователи КАК СправочникКонтакт
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Пользователи.КонтактнаяИнформация КАК ТаблицаКонтактнаяИнформация
| ПО (ТаблицаКонтактнаяИнформация.Ссылка = СправочникКонтакт.Ссылка)
| И (ТаблицаКонтактнаяИнформация.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.АдресЭлектроннойПочты))
| И (ТаблицаКонтактнаяИнформация.АдресЭП <> """")
|ГДЕ
| НЕ СправочникКонтакт.ПометкаУдаления
| И (СправочникКонтакт.Наименование ПОДОБНО &ВведеннаяСтрока
| ИЛИ ТаблицаКонтактнаяИнформация.АдресЭП ПОДОБНО &ВведеннаяСтрока
| ИЛИ ТаблицаКонтактнаяИнформация.ДоменноеИмяСервера ПОДОБНО &ВведеннаяСтрока
| ИЛИ ТаблицаКонтактнаяИнформация.Представление ПОДОБНО &ВведеннаяСтрока)";
Для каждого ОписаниеКонтакта Из ОписанияКонтактов Цикл
Если ОписаниеКонтакта.Имя = "Пользователи" Тогда
Продолжить;
КонецЕсли;
УсловиеПолейВводаПоСтроке = "";
МетаданныеОбъекта = Метаданные.НайтиПоТипу(ОписаниеКонтакта.Тип);
СписокПолей = МетаданныеОбъекта.ВводПоСтроке;
Для Каждого Поле Из СписокПолей Цикл
Если МетаданныеОбъекта.СтандартныеРеквизиты[Поле.Имя].Тип.Типы()[0] = Тип("Строка") Тогда
УсловиеПолейВводаПоСтроке = УсловиеПолейВводаПоСтроке + " ИЛИ СправочникКонтакт." + Поле.Имя + " ПОДОБНО &ВведеннаяСтрока";
КонецЕсли;
КонецЦикла;
ТекстЗапроса = ТекстЗапроса + "
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ ПЕРВЫЕ 20
| СправочникКонтакт.Ссылка КАК Контакт,
| СправочникКонтакт." + ОписаниеКонтакта.ИмяРеквизитаПредставлениеКонтакта + " КАК Наименование,
| " + ?(ОписаниеКонтакта.ЕстьВладелец, "ПРЕДСТАВЛЕНИЕ(СправочникКонтакт.Владелец)", """""") + " КАК НаименованиеВладельца,
| ТаблицаКонтактнаяИнформация.АдресЭП КАК Представление
|ИЗ
| Справочник." + ОписаниеКонтакта.Имя + " КАК СправочникКонтакт
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник." + ОписаниеКонтакта.Имя + ".КонтактнаяИнформация КАК ТаблицаКонтактнаяИнформация
| ПО (ТаблицаКонтактнаяИнформация.Ссылка = СправочникКонтакт.Ссылка)
| И (ТаблицаКонтактнаяИнформация.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.АдресЭлектроннойПочты) И (ТаблицаКонтактнаяИнформация.АдресЭП <> """"))
|ГДЕ
| НЕ СправочникКонтакт.ПометкаУдаления И (ТаблицаКонтактнаяИнформация.АдресЭП ПОДОБНО &ВведеннаяСтрока
| ИЛИ ТаблицаКонтактнаяИнформация.ДоменноеИмяСервера ПОДОБНО &ВведеннаяСтрока
| ИЛИ ТаблицаКонтактнаяИнформация.Представление ПОДОБНО &ВведеннаяСтрока
|" + УсловиеПолейВводаПоСтроке + ")
|";
КонецЦикла;
Запрос = Новый Запрос(ТекстЗапроса);
Запрос.УстановитьПараметр("ВведеннаяСтрока", "%" + СтрокаПоиска + "%");
Возврат Запрос.Выполнить().Выгрузить();
КонецФункции
// Формирует шаблон условия для запроса, на соответствие получаемого поля в запросе типу возможного контакта.
//
// Возвращаемое значение:
@@ -1789,6 +1786,22 @@
КонецФункции
Функция НайтиКонтакты(СтрокаПоиска, Форма) Экспорт
Если ПолнотекстовыйПоиск.ПолучитьРежимПолнотекстовогоПоиска() = РежимПолнотекстовогоПоиска.Запретить
ИЛИ Не ПолучитьФункциональнуюОпцию("ИспользоватьПолнотекстовыйПоиск") Тогда
НайтиКонтактыСАдресамиПоНаименованию(СтрокаПоиска, Форма);
Возврат "";
Иначе
Результат = ПолнотекстовыйПоискКонтактовПоСтроке(СтрокаПоиска, Форма, Истина);
Если ПустаяСтрока(Результат) Тогда
НайтиПоEmail(СтрокаПоиска, Ложь, Форма);
КонецЕсли;
Возврат Результат;
КонецЕсли;
КонецФункции
// Осуществляет поиск контактов по Email или по домену Email.
//
// Параметры:
@@ -1812,7 +1825,6 @@
КонецЕсли;
ЗаполнитьНайденныеКонтакты(ТаблицаКонтакты, Форма.НайденныеКонтакты);
Возврат Истина;
КонецФункции
@@ -1834,10 +1846,10 @@
ПерваяТаблица = Истина;
ТекстЗапроса = "";
МассивОписанияКонтактов = ВзаимодействияКлиентСервер.ОписанияКонтактов();
Для каждого ЭлементМассиваОписания Из МассивОписанияКонтактов Цикл
ОписанияКонтактов = ВзаимодействияКлиентСервер.ОписанияКонтактов();
Для каждого ОписаниеКонтакта Из ОписанияКонтактов Цикл
Если ЭлементМассиваОписания.ИскатьПоДомену Тогда
Если ОписаниеКонтакта.ИскатьПоДомену Тогда
Если ПерваяТаблица Тогда
@@ -1854,11 +1866,11 @@
ТекстЗапроса = ТекстЗапроса + "
| ТаблицаКонтактнаяИнформация.Ссылка КАК Контакт,
| ТаблицаКонтактнаяИнформация.Ссылка." + ЭлементМассиваОписания.ИмяРеквизитаПредставлениеКонтакта + " КАК Наименование,
| ТаблицаКонтактнаяИнформация.Ссылка." + ОписаниеКонтакта.ИмяРеквизитаПредставлениеКонтакта + " КАК Наименование,
| ТаблицаКонтактнаяИнформация.АдресЭП КАК Представление,
| " + ?(ЭлементМассиваОписания.ЕстьВладелец,"ТаблицаКонтактнаяИнформация.Ссылка.Владелец.Наименование ","""""") + ?(ПерваяТаблица," КАК НаименованиеВладельца ","") +"
| " + ?(ОписаниеКонтакта.ЕстьВладелец,"ТаблицаКонтактнаяИнформация.Ссылка.Владелец.Наименование ","""""") + ?(ПерваяТаблица," КАК НаименованиеВладельца ","") +"
|ИЗ
| Справочник." + ЭлементМассиваОписания.Имя + ".КонтактнаяИнформация КАК ТаблицаКонтактнаяИнформация
| Справочник." + ОписаниеКонтакта.Имя + ".КонтактнаяИнформация КАК ТаблицаКонтактнаяИнформация
|ГДЕ
| ТаблицаКонтактнаяИнформация.АдресЭП ПОДОБНО &СтрокаПоиска";
@@ -1877,7 +1889,7 @@
Запрос = Новый Запрос;
Запрос.Текст = ТекстЗапроса;
Запрос.УстановитьПараметр("СтрокаПоиска", "%@" + ИмяДомена);
Запрос.УстановитьПараметр("СтрокаПоиска", "%@" + ИмяДомена + "%");
Возврат Запрос.Выполнить().Выгрузить();
@@ -1890,30 +1902,30 @@
// ДляАдреснойКниги - Булево - признак того, что поиск осуществляется для адресной книги.
//
// Возвращаемое значение:
// Строка - сообщение пользователю по результатам поиска, если такое необходимо.
// Строка - сообщение пользователю по результатам поиска.
//
Функция ОсуществитьПоискКонтактовПоСтроке(Форма,ДляАдреснойКниги = Ложь) Экспорт
Функция ПолнотекстовыйПоискКонтактовПоСтроке(СтрокаПоиска, Форма, ДляАдреснойКниги = Ложь) Экспорт
Форма.НайденныеКонтакты.Очистить();
Если ПустаяСтрока(Форма.СтрокаПоиска) Тогда
Если ПустаяСтрока(СтрокаПоиска) Тогда
Возврат "";
КонецЕсли;
Если ПолнотекстовыйПоиск.ПолучитьРежимПолнотекстовогоПоиска() = РежимПолнотекстовогоПоиска.Запретить
ИЛИ НЕ ПолучитьФункциональнуюОпцию("ИспользоватьПолнотекстовыйПоиск") Тогда
Возврат НСтр("ru = 'Использование индекса полнотекстового поиска данных запрещено.'");
Возврат НСтр("ru = 'Использование полнотекстового поиска данных запрещено.'");
КонецЕсли;
МассивМетаданных = МассивМетаданныхКонтакты();
МассивМетаданных = МетаданныеКонтактов();
СписокПоиска = ПолнотекстовыйПоиск.СоздатьСписок(Форма.СтрокаПоиска, 101);
СписокПоиска = ПолнотекстовыйПоиск.СоздатьСписок(СтрокаПоиска, 101);
СписокПоиска.ОбластьПоиска = МассивМетаданных;
Попытка
СписокПоиска.ПерваяЧасть();
Исключение
Возврат НСтр("ru = 'При выполнении поиска произошла ошибка, попробуйте изменить выражение поиска.'");
Возврат НСтр("ru = 'Не удалось выполнить поиск, попробуйте изменить выражение поиска.'");
КонецПопытки;
КоличествоНайденныхЭлементов = СписокПоиска.Количество();
@@ -2886,7 +2898,7 @@
ПараметрыПисьма.Вставить("ПротоколПочты", ПротоколПочты);
ИдентификаторПисьма = РаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(Объект.УчетнаяЗапись, ПараметрыПисьма);
ИдентификаторПисьма = РаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(Объект.УчетнаяЗапись, ПараметрыПисьма); // АПК:223
Если Не Объект.УдалятьПослеОтправки Тогда
@@ -3767,81 +3779,143 @@
ОписаниеТипаДинамическийСписок = Новый ОписаниеТипов("ДинамическийСписок");
ДобавляемыеРеквизиты = Новый Массив;
МассивОписанийВозможныхКонтактов = ВзаимодействияКлиентСервер.ОписанияКонтактов();
ОписанияКонтактов = ВзаимодействияКлиентСервер.ОписанияКонтактов();
// Создадим динамические списки.
Для каждого ЭлементМассиваОписания Из МассивОписанийВозможныхКонтактов Цикл
Если ЭлементМассиваОписания.Имя = "Пользователи" Тогда
Для каждого ОписаниеКонтакта Из ОписанияКонтактов Цикл
Если ОписаниеКонтакта.Имя = "Пользователи" Тогда
Продолжить;
КонецЕсли;
ДобавляемыеРеквизиты.Добавить(
Новый РеквизитФормы("Список_" + ЭлементМассиваОписания.Имя ,ОписаниеТипаДинамическийСписок));
Новый РеквизитФормы("Список_" + ОписаниеКонтакта.Имя, ОписаниеТипаДинамическийСписок));
КонецЦикла;
Форма.ИзменитьРеквизиты(ДобавляемыеРеквизиты);
// Установим в динамические списки основные таблицы и обязательное использование реквизита ЭтоГруппа.
Для каждого ЭлементМассиваОписания Из МассивОписанийВозможныхКонтактов Цикл
Если ЭлементМассиваОписания.Имя = "Пользователи" Тогда
ЕстьКолонкиАдрес = Новый Соответствие;
Для каждого ОписаниеКонтакта Из ОписанияКонтактов Цикл
Если ОписаниеКонтакта.Имя = "Пользователи" Тогда
Продолжить;
КонецЕсли;
Форма["Список_" + ЭлементМассиваОписания.Имя].ОсновнаяТаблица = "Справочник." + ЭлементМассиваОписания.Имя;
ЕстьКолонкаАдрес = УстановитьТекстЗапросаКонтакта(Форма["Список_" + ОписаниеКонтакта.Имя], ОписаниеКонтакта);
ЕстьКолонкиАдрес[ОписаниеКонтакта.Имя] = ЕстьКолонкаАдрес;
КонецЦикла;
Для каждого ЭлементМассиваОписания Из МассивОписанийВозможныхКонтактов Цикл
Если ЭлементМассиваОписания.Имя = "Пользователи" Тогда
Для каждого ОписаниеКонтакта Из ОписанияКонтактов Цикл
Если ОписаниеКонтакта.Имя = "Пользователи" Тогда
Продолжить;
КонецЕсли;
Если НЕ ЭлементМассиваОписания.ЕстьВладелец Тогда
Если НЕ ОписаниеКонтакта.ЕстьВладелец Тогда
ЭлементСтраница = Форма.Элементы.Добавить(
"Страница_" + ЭлементМассиваОписания.Имя,Тип("ГруппаФормы"),Форма.Элементы.СтраницыСписки);
"Страница_" + ОписаниеКонтакта.Имя,Тип("ГруппаФормы"), Форма.Элементы.СтраницыСписки);
ЭлементСтраница.Вид = ВидГруппыФормы.Страница;
ЭлементСтраница.ОтображатьЗаголовок = Истина;
ЭлементСтраница.Заголовок = ЭлементМассиваОписания.Представление;
ЭлементСтраница.Заголовок = ОписаниеКонтакта.Представление;
ЭлементСтраница.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Вертикальная;
КонецЕсли;
ЭлементТаблица = Форма.Элементы.Добавить("Таблица_" + ЭлементМассиваОписания.Имя,
Тип("ТаблицаФормы"),
Форма.Элементы[?(ЭлементМассиваОписания.ЕстьВладелец,
"Страница_" + ЭлементМассиваОписания.ИмяВладельца,
"Страница_" + ЭлементМассиваОписания.Имя)]);
ЭлементТаблица.ПутьКДанным = "Список_" + ЭлементМассиваОписания.Имя;
ЭлементТаблица = Форма.Элементы.Добавить("Таблица_" + ОписаниеКонтакта.Имя, Тип("ТаблицаФормы"),
Форма.Элементы[?(ОписаниеКонтакта.ЕстьВладелец,
"Страница_" + ОписаниеКонтакта.ИмяВладельца,
"Страница_" + ОписаниеКонтакта.Имя)]);
ЭлементТаблица.ПутьКДанным = "Список_" + ОписаниеКонтакта.Имя;
ЭлементТаблица.УстановитьДействие("Выбор", "Подключаемый_СписокСправочникаВыбор");
ЭлементТаблица.АвтоМаксимальнаяВысота = Ложь;
ЭлементТаблица.АвтоМаксимальнаяШирина = Ложь;
Если Форма.ИмяФормы = "ОбщаяФорма.ВыборКонтакта" Тогда
ЭлементТаблица.РежимВыделения = РежимВыделенияТаблицы.Одиночный;
ЭлементТаблица.УстановитьДействие("ПриАктивизацииСтроки","Подключаемый_СписокКонтактыПриАктивизацииСтроки");
ЭлементТаблица.УстановитьДействие("ПриАктивизацииСтроки", "Подключаемый_СписокКонтактыПриАктивизацииСтроки");
КонецЕсли;
Если ЭлементМассиваОписания.ЕстьВладелец Тогда
Форма.Элементы["Таблица_" + ЭлементМассиваОписания.ИмяВладельца].УстановитьДействие(
"ПриАктивизацииСтроки","Подключаемый_СписокВладелецПриАктивизацииСтроки");
Если ОписаниеКонтакта.ЕстьВладелец Тогда
Форма.Элементы["Таблица_" + ОписаниеКонтакта.ИмяВладельца].УстановитьДействие(
"ПриАктивизацииСтроки", "Подключаемый_СписокВладелецПриАктивизацииСтроки");
ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(
Форма["Список_" + ЭлементМассиваОписания.Имя], "Владелец", Неопределено, , , Истина);
Форма["Список_" + ОписаниеКонтакта.Имя], "Владелец", Неопределено, , , Истина);
ЭлементТаблица.Высота = 5;
Форма.Элементы["Таблица_" + ЭлементМассиваОписания.ИмяВладельца].Высота = 5;
Форма.Элементы["Таблица_" + ОписаниеКонтакта.ИмяВладельца].Высота = 5;
Иначе
ЭлементТаблица.Высота = 10;
КонецЕсли;
КолонкаСсылка = Форма.Элементы.Добавить(
"Колонка_" + ЭлементМассиваОписания.Имя + "_Ссылка",Тип("ПолеФормы"),ЭлементТаблица);
"Колонка_" + ОписаниеКонтакта.Имя + "_Ссылка", Тип("ПолеФормы"), ЭлементТаблица);
КолонкаСсылка.Вид = ВидПоляФормы.ПолеВвода;
КолонкаСсылка.ПутьКДанным = "Список_" + ЭлементМассиваОписания.Имя + ".Ссылка";
КолонкаСсылка.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Нет;
КолонкаСсылка.ПутьКДанным = "Список_" + ОписаниеКонтакта.Имя + ".Ссылка";
МетаданныеКонтакта = Метаданные.НайтиПоТипу(ОписаниеКонтакта.Тип);
КолонкаСсылка.Заголовок = ОбщегоНазначения.ПредставлениеОбъекта(МетаданныеКонтакта);
Если ЕстьКолонкиАдрес[ОписаниеКонтакта.Имя] Тогда
КолонкаАдрес = Форма.Элементы.Добавить(
"Колонка_" + ОписаниеКонтакта.Имя + "_Адрес", Тип("ПолеФормы"), ЭлементТаблица);
КолонкаАдрес.Вид = ВидПоляФормы.ПолеВвода;
КолонкаАдрес.ПутьКДанным = "Список_" + ОписаниеКонтакта.Имя + ".Адрес";
КолонкаАдрес.Заголовок = НСтр("ru = 'Адрес'");
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Функция УстановитьТекстЗапросаКонтакта(Список, ОписаниеКонтакта)
МетаданныеКонтакта = Метаданные.НайтиПоТипу(ОписаниеКонтакта.Тип);
ЕстьВидДляСписка = МетаданныеКонтакта.ТабличныеЧасти.КонтактнаяИнформация.Реквизиты.Найти("ВидДляСписка") <> Неопределено;
Если ЕстьВидДляСписка Тогда
ТекстЗапроса =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
| СправочникКонтакт.Ссылка,
| СправочникКонтакт.ПометкаУдаления,
| СправочникКонтакт.Предопределенный,
| ПРЕДСТАВЛЕНИЕ(СправочникКонтакт.Ссылка) КАК Наименование,
| СправочникКонтактнаяИнформация.Представление КАК Адрес
|ИЗ
| #Таблица КАК СправочникКонтакт
| ЛЕВОЕ СОЕДИНЕНИЕ #Таблица.КонтактнаяИнформация КАК СправочникКонтактнаяИнформация
| ПО (СправочникКонтактнаяИнформация.Ссылка = СправочникКонтакт.Ссылка)
| И (СправочникКонтактнаяИнформация.ВидДляСписка = &ЭлектроннаяПочта)
|ГДЕ
| СправочникКонтакт.ПометкаУдаления = ЛОЖЬ";
Иначе
ТекстЗапроса =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
| СправочникКонтакт.Ссылка,
| СправочникКонтакт.ПометкаУдаления,
| СправочникКонтакт.Предопределенный,
| ПРЕДСТАВЛЕНИЕ(СправочникКонтакт.Ссылка) КАК Наименование
|ИЗ
| #Таблица КАК СправочникКонтакт
|ГДЕ
| СправочникКонтакт.ПометкаУдаления = ЛОЖЬ";
КонецЕсли;
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "#Таблица", "Справочник." + ОписаниеКонтакта.Имя);
Список.ТекстЗапроса = ТекстЗапроса;
Список.ОсновнаяТаблица = "Справочник." + ОписаниеКонтакта.Имя;
Список.ДинамическоеСчитываниеДанных = Истина;
Если ЕстьВидДляСписка Тогда
МенеджерОбъекта = ОбщегоНазначения.МенеджерОбъектаПоПолномуИмени("Справочник." + ОписаниеКонтакта.Имя);
ВидыКонтактнойИнформации = УправлениеКонтактнойИнформацией.ВидыКонтактнойИнформацииОбъекта(
МенеджерОбъекта.ПустаяСсылка(), Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты);
Если ВидыКонтактнойИнформации.Количество() > 0 Тогда
ВидЭлектроннаяПочта = ВидыКонтактнойИнформации[0].Ссылка;
Иначе
ВидЭлектроннаяПочта = Неопределено;
КонецЕсли;
Список.Параметры.УстановитьЗначениеПараметра("ЭлектроннаяПочта", ВидЭлектроннаяПочта);
КонецЕсли;
Возврат ЕстьВидДляСписка;
КонецФункции
// Устанавливает отбор динамического списка документов взаимодействий, исключая документы не относящиеся к почте.
//
// Параметры:
SSL/src/CommonModules/ОбменДаннымиXDTOСервер/Module.bsl
+1 -6
View File
@@ -357,12 +357,7 @@
КонецЕсли;
Если ПустаяСтрока(КомпонентыОбмена.СтрокаСообщенияОбОшибке) Тогда
КомпонентыОбмена.СтрокаСообщенияОбОшибке = КраткоеПредставлениеОшибки;
Иначе
КомпонентыОбмена.СтрокаСообщенияОбОшибке = КомпонентыОбмена.СтрокаСообщенияОбОшибке + "
|" + КраткоеПредставлениеОшибки;
КонецЕсли;
КомпонентыОбмена.СтрокаСообщенияОбОшибке = КраткоеПредставлениеОшибки;
Если ВзвестиФлагОшибок Тогда
SSL/src/CommonModules/ОбменДаннымиСервер/Module.bsl
+5 -2
View File
@@ -4094,7 +4094,7 @@
// См. РаботаВБезопасномРежимеПереопределяемый.ПриЗаполненииРазрешенийНаДоступКВнешнимРесурсам.
Процедура ПриЗаполненииРазрешенийНаДоступКВнешнимРесурсам(ЗапросыРазрешений) Экспорт
Если НЕ ПолучитьФункциональнуюОпцию("ИспользоватьСинхронизациюДанных") Тогда
Если Не Константы.ИспользоватьСинхронизациюДанных.Получить() Тогда
Возврат;
КонецЕсли;
@@ -13997,7 +13997,10 @@
Константы.КаталогСообщенийОбменаДаннымиДляLinux.СоздатьМенеджерЗначения().ПриЗаполненииРазрешенийНаДоступКВнешнимРесурсам(ЗапросыРазрешений);
Константы.КаталогСообщенийОбменаДаннымиДляWindows.СоздатьМенеджерЗначения().ПриЗаполненииРазрешенийНаДоступКВнешнимРесурсам(ЗапросыРазрешений);
РегистрыСведений.НастройкиТранспортаОбменаДанными.ПриЗаполненииРазрешенийНаДоступКВнешнимРесурсам(ЗапросыРазрешений);
Если ОбщегоНазначения.ДоступноИспользованиеРазделенныхДанных() Тогда
РегистрыСведений.НастройкиТранспортаОбменаДанными.ПриЗаполненииРазрешенийНаДоступКВнешнимРесурсам(ЗапросыРазрешений);
КонецЕсли;
РегистрыСведений.ПравилаДляОбменаДанными.ПриЗаполненииРазрешенийНаДоступКВнешнимРесурсам(ЗапросыРазрешений);
КонецПроцедуры
SSL/src/CommonModules/ОбновлениеИнформационнойБазыБСП/Module.bsl
+1 -1
View File
@@ -41,7 +41,7 @@
Процедура ПриДобавленииПодсистемы(Описание) Экспорт
Описание.Имя = "СтандартныеПодсистемы";
Описание.Версия = "3.1.2.150";
Описание.Версия = "3.1.2.157";
Описание.ИдентификаторИнтернетПоддержки = "SSL";
Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно";
Описание.ПараллельноеОтложенноеОбновлениеСВерсии = "2.3.3.0";
SSL/src/CommonModules/ОбщегоНазначения/Module.bsl
+1 -1
View File
@@ -4362,7 +4362,7 @@
РезультатДиагностики.ОписаниеОшибки);
КонецЕсли;
ЗаписьЖурналаРегистрации(НСтр("ru = 'WSПрокси'", КодЛокализацииИнформационнойБазы()),
ЗаписьЖурналаРегистрации(НСтр("ru = 'WSПрокси'", КодОсновногоЯзыка()),
УровеньЖурналаРегистрации.Ошибка,,, ТекстОшибки);
ВызватьИсключение ТекстОшибки;
КонецПопытки;
SSL/src/CommonModules/РаботаСФайламиСлужебный/Module.bsl
+38 -14
View File
@@ -2274,7 +2274,8 @@
Обработчик.Процедура = "РаботаСФайламиСлужебный.ОбновитьСписокЗапрещенныхРасширенийВОбластиДанных";
Обработчик.РежимВыполнения = "Оперативно";
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ЭлектроннаяПодпись") Тогда
ПодсистемаЭПСуществует = ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ЭлектроннаяПодпись");
Если ПодсистемаЭПСуществует Тогда
Обработчик = Обработчики.Добавить();
Обработчик.Версия = "2.4.1.49";
@@ -2319,9 +2320,12 @@
Обработчик.БлокируемыеОбъекты = "Справочник.Файлы, Справочник.ВерсииФайлов";
Обработчик.ПроцедураПроверки = "ОбновлениеИнформационнойБазы.ДанныеОбновленыНаНовуюВерсиюПрограммы";
Обработчик.ПриоритетыВыполнения = ОбновлениеИнформационнойБазы.ПриоритетыВыполненияОбработчика();
Приоритет = Обработчик.ПриоритетыВыполнения.Добавить();
Приоритет.Процедура = "РаботаСФайлами.ПеренестиЭлектронныеПодписиИСертификатыШифрованияВРегистрыСведений";
Приоритет.Порядок = "После";
Если ПодсистемаЭПСуществует Тогда
Приоритет = Обработчик.ПриоритетыВыполнения.Добавить();
Приоритет.Процедура = "РаботаСФайлами.ПеренестиЭлектронныеПодписиИСертификатыШифрованияВРегистрыСведений";
Приоритет.Порядок = "После";
КонецЕсли;
Обработчик = Обработчики.Добавить();
Обработчик.Версия = "2.4.1.1";
@@ -2337,9 +2341,13 @@
Обработчик.ОчередьОтложеннойОбработки = 3;
Обработчик.ПроцедураПроверки = "ОбновлениеИнформационнойБазы.ДанныеОбновленыНаНовуюВерсиюПрограммы";
Обработчик.ПриоритетыВыполнения = ОбновлениеИнформационнойБазы.ПриоритетыВыполненияОбработчика();
Приоритет = Обработчик.ПриоритетыВыполнения.Добавить();
Приоритет.Процедура = "РаботаСФайлами.ПеренестиЭлектронныеПодписиИСертификатыШифрованияВРегистрыСведений";
Приоритет.Порядок = "Любой";
Если ПодсистемаЭПСуществует Тогда
Приоритет = Обработчик.ПриоритетыВыполнения.Добавить();
Приоритет.Процедура = "РаботаСФайлами.ПеренестиЭлектронныеПодписиИСертификатыШифрованияВРегистрыСведений";
Приоритет.Порядок = "Любой";
КонецЕсли;
Приоритет = Обработчик.ПриоритетыВыполнения.Добавить();
Приоритет.Процедура = "РегистрыСведений.СведенияОФайлах.ОбработатьДанныеДляПереходаНаНовуюВерсию";
Приоритет.Порядок = "Любой";
@@ -2361,9 +2369,13 @@
Обработчик.ПроцедураЗаполненияДанныхОбновления = "Справочники.Файлы.ЗарегистрироватьДанныеКОбработкеДляПереходаНаНовуюВерсию";
Обработчик.ПроцедураПроверки = "ОбновлениеИнформационнойБазы.ДанныеОбновленыНаНовуюВерсиюПрограммы";
Обработчик.ПриоритетыВыполнения = ОбновлениеИнформационнойБазы.ПриоритетыВыполненияОбработчика();
Приоритет = Обработчик.ПриоритетыВыполнения.Добавить();
Приоритет.Процедура = "РаботаСФайлами.ПеренестиЭлектронныеПодписиИСертификатыШифрованияВРегистрыСведений";
Приоритет.Порядок = "Любой";
Если ПодсистемаЭПСуществует Тогда
Приоритет = Обработчик.ПриоритетыВыполнения.Добавить();
Приоритет.Процедура = "РаботаСФайлами.ПеренестиЭлектронныеПодписиИСертификатыШифрованияВРегистрыСведений";
Приоритет.Порядок = "Любой";
КонецЕсли;
Приоритет = Обработчик.ПриоритетыВыполнения.Добавить();
Приоритет.Процедура = "РегистрыСведений.НаличиеФайлов.ОбработатьДанныеДляПереходаНаНовуюВерсию";
Приоритет.Порядок = "Любой";
@@ -2385,9 +2397,13 @@
Обработчик.ПроцедураЗаполненияДанныхОбновления = "РегистрыСведений.СведенияОФайлах.ЗарегистрироватьДанныеКОбработкеДляПереходаНаНовуюВерсию";
Обработчик.ПроцедураПроверки = "ОбновлениеИнформационнойБазы.ДанныеОбновленыНаНовуюВерсиюПрограммы";
Обработчик.ПриоритетыВыполнения = ОбновлениеИнформационнойБазы.ПриоритетыВыполненияОбработчика();
Приоритет = Обработчик.ПриоритетыВыполнения.Добавить();
Приоритет.Процедура = "РаботаСФайлами.ПеренестиЭлектронныеПодписиИСертификатыШифрованияВРегистрыСведений";
Приоритет.Порядок = "Любой";
Если ПодсистемаЭПСуществует Тогда
Приоритет = Обработчик.ПриоритетыВыполнения.Добавить();
Приоритет.Процедура = "РаботаСФайлами.ПеренестиЭлектронныеПодписиИСертификатыШифрованияВРегистрыСведений";
Приоритет.Порядок = "Любой";
КонецЕсли;
Приоритет = Обработчик.ПриоритетыВыполнения.Добавить();
Приоритет.Процедура = "РегистрыСведений.НаличиеФайлов.ОбработатьДанныеДляПереходаНаНовуюВерсию";
Приоритет.Порядок = "Любой";
@@ -2878,7 +2894,15 @@
Если Не ЭлементДанных.ЭтоНовый()
И ЭлементДанных.ТипХраненияФайла = Перечисления.ТипыХраненияФайлов.ВТомахНаДиске Тогда
РаботаСФайламиВТомахСлужебный.УдалитьДанныеФайла(ЭлементДанных);
СвойстваФайла = РаботаСФайламиВТомахСлужебный.СвойстваФайлаВТоме();
ЗаполнитьЗначенияСвойств(СвойстваФайла, ЭлементДанных);
РаботаСФайламиВТомахСлужебный.УдалитьФайл(
РаботаСФайламиВТомахСлужебный.ПолноеИмяФайлаВТоме(СвойстваФайла));
ЭлементДанных.Том = Справочники.ТомаХраненияФайлов.ПустаяСсылка();
ЭлементДанных.ПутьКФайлу = "";
КонецЕсли;
ДвоичныеДанные = ЭлементДанных.ФайлХранилище.Получить();
SSL/src/CommonModules/РаботаСФайламиСлужебныйВызовСервера/Module.bsl
-70
View File
@@ -1895,76 +1895,6 @@
КонецПроцедуры
// Удалить из регистра сведений ФайлыВРабочемКаталоге все записи,
// кроме записей о файлах занятых текущим пользователем.
//
Процедура ОчиститьВсеСвоиКромеЗанятых() Экспорт
// Отбираем все в регистре сведений. Перебираем - находим те, что не заняты текущим пользователем -
// и все удаляем - считаем, что на диске они уже удалены.
УстановитьПривилегированныйРежим(Истина);
СписокУдалить = Новый Массив;
ТекущийПользователь = Пользователи.АвторизованныйПользователь();
Блокировка = Новый БлокировкаДанных;
ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.ФайлыВРабочемКаталоге");
ЭлементБлокировки.УстановитьЗначение("Пользователь", ТекущийПользователь);
НачатьТранзакцию();
Попытка
Блокировка.Заблокировать();
// Для каждой нашей записи находим запись в регистре сведений - оттуда берем поле Версия и Редактирует.
ЗапросВРегистр = Новый Запрос;
ЗапросВРегистр.УстановитьПараметр("Пользователь", ТекущийПользователь);
ЗапросВРегистр.Текст =
"ВЫБРАТЬ
| ФайлыВРабочемКаталоге.Файл КАК Файл,
| СведенияОФайлах.Редактирует КАК Редактирует
|ИЗ
| РегистрСведений.ФайлыВРабочемКаталоге КАК ФайлыВРабочемКаталоге
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.СведенияОФайлах КАК СведенияОФайлах
| ПО ФайлыВРабочемКаталоге.Файл = СведенияОФайлах.Файл
|ГДЕ
| ФайлыВРабочемКаталоге.Пользователь = &Пользователь
| И ФайлыВРабочемКаталоге.ВРабочемКаталогеВладельца = ЛОЖЬ";
РезультатЗапроса = ЗапросВРегистр.Выполнить();
Если НЕ РезультатЗапроса.Пустой() Тогда
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
Если Выборка.Редактирует <> ТекущийПользователь Тогда
СписокУдалить.Добавить(Выборка.Файл);
КонецЕсли;
КонецЦикла;
КонецЕсли;
Для Каждого Файл Из СписокУдалить Цикл
// Создать набор записей
НаборЗаписей = РегистрыСведений.ФайлыВРабочемКаталоге.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Файл.Установить(Файл);
НаборЗаписей.Отбор.Пользователь.Установить(ТекущийПользователь);
НаборЗаписей.Записать();
КонецЦикла;
ЗафиксироватьТранзакцию();
Исключение
ОтменитьТранзакцию();
ВызватьИсключение;
КонецПопытки;
КонецПроцедуры
// Удалить из регистра сведений ФайлыВРабочемКаталоге запись о старой версии и внести запись о новой.
// Параметры:
// СтараяВерсия - СправочникСсылка.ВерсииФайлов - старая версия.
SSL/src/CommonModules/УправлениеДоступомСлужебный/Module.bsl
+25
View File
@@ -7742,6 +7742,31 @@
Если Не ЭтоНаборЗаписей И Источник.ЭтоНовый() И ОбщегоНазначения.ИнформационнаяБазаФайловая() Тогда
Блокировка = Новый БлокировкаДанных;
Блокировка.Добавить("РегистрСведений.КлючиДоступаКОбъектам");
Блокировка.Добавить("РегистрСведений.КлючиДоступаГруппДоступа");
Блокировка.Добавить("РегистрСведений.КлючиДоступаНаборовГруппДоступа");
Блокировка.Добавить("РегистрСведений.КлючиДоступаПользователей");
Блокировка.Добавить("РегистрСведений.КлючиДоступаВнешнихПользователей");
Блокировка.Добавить("Справочник.КлючиДоступа");
ЭлементБлокировки = Блокировка.Добавить("Справочник.НаборыГруппДоступа");
ЭлементБлокировки.Режим = РежимБлокировкиДанных.Разделяемый;
ЭлементБлокировки = Блокировка.Добавить("Справочник.ПрофилиГруппДоступа");
ЭлементБлокировки.Режим = РежимБлокировкиДанных.Разделяемый;
ЭлементБлокировки = Блокировка.Добавить("Справочник.ГруппыДоступа");
ЭлементБлокировки.Режим = РежимБлокировкиДанных.Разделяемый;
ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.ТаблицыГруппДоступа");
ЭлементБлокировки.Режим = РежимБлокировкиДанных.Разделяемый;
ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.ГруппыЗначенийДоступа");
ЭлементБлокировки.Режим = РежимБлокировкиДанных.Разделяемый;
ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.ЗначенияГруппДоступа");
ЭлементБлокировки.Режим = РежимБлокировкиДанных.Разделяемый;
ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.ЗначенияГруппДоступаПоУмолчанию");
ЭлементБлокировки.Режим = РежимБлокировкиДанных.Разделяемый;
ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.НастройкиПравОбъектов");
ЭлементБлокировки.Режим = РежимБлокировкиДанных.Разделяемый;
ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.НаследованиеНастроекПравОбъектов");
ЭлементБлокировки.Режим = РежимБлокировкиДанных.Разделяемый;
ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.ПараметрыРаботыВерсийРасширений");
ЭлементБлокировки.Режим = РежимБлокировкиДанных.Разделяемый;
Блокировка.Заблокировать();
КонецЕсли;
SSL/src/CommonModules/УправлениеКонтактнойИнформацией/Module.bsl
+18 -10
View File
@@ -2279,7 +2279,7 @@
Для каждого Язык Из Метаданные.Языки Цикл
Представление = Наименования[Язык.КодЯзыка][СокрЛП(Объект.ИмяПредопределенногоВида)];
Если ЗначениеЗаполнено(Представление) Тогда
Если ТекущийЯзык() = Метаданные.ОсновнойЯзык Тогда
Если Язык = Метаданные.ОсновнойЯзык Тогда
Объект.Наименование = Представление;
Иначе
НоваяСтрока = Объект.Представления.Добавить();
@@ -2387,7 +2387,7 @@
Для каждого Язык Из Метаданные.Языки Цикл
Представление = Наименования[Язык.КодЯзыка][СокрЛП(Объект.ИмяПредопределенногоВида)];
Если ЗначениеЗаполнено(Представление) Тогда
Если ТекущийЯзык() = Метаданные.ОсновнойЯзык Тогда
Если Язык = Метаданные.ОсновнойЯзык Тогда
Объект.Наименование = Представление;
Иначе
НоваяСтрока = Объект.Представления.Добавить();
@@ -2930,7 +2930,7 @@
Позиция = ИнформацияПоКолонкам.Количество() + 1;
ВидыКонтактнойИнформации = ВидыКонтактнойИнформацияОбъекта(Справочники[МетаданныеСправочника.Имя].ПустаяСсылка());
ВидыКонтактнойИнформации = ВидыКонтактнойИнформацииОбъекта(Справочники[МетаданныеСправочника.Имя].ПустаяСсылка());
Для каждого ВидКонтактнойИнформации Из ВидыКонтактнойИнформации Цикл
ИмяКолонки = "КонтактнаяИнформация_" + СтандартныеПодсистемыСервер.ПреобразоватьСтрокуВДопустимоеНаименованиеКолонки(ВидКонтактнойИнформации.Наименование);
@@ -2950,16 +2950,15 @@
КонецПроцедуры
// Виды контактной информация объекта.
// Виды контактной информации объекта.
//
// Параметры:
// ВладелецКонтактнойИнформации - Ссылка на владельца контактной информации.
// Объект владельца контактной информации.
// ДанныеФормыСтруктура (по типу объекта владельца свойств).
// Возвращаемое значение:
// ТаблицаЗначений - виды контактной информации.
// ВладелецКонтактнойИнформации - ЛюбаяСсылка, Объект, ДанныеФормыСтруктура
//
Функция ВидыКонтактнойИнформацияОбъекта(ВладелецКонтактнойИнформации) Экспорт
// Возвращаемое значение:
// ТаблицаЗначений - виды контактной информации.
//
Функция ВидыКонтактнойИнформацииОбъекта(ВладелецКонтактнойИнформации, ТипКонтактнойИнформации = Неопределено) Экспорт
Если ТипЗнч(ВладелецКонтактнойИнформации) = Тип("ДанныеФормыСтруктура") Тогда
ТипСсылки = ТипЗнч(ВладелецКонтактнойИнформации.Ссылка)
@@ -3017,11 +3016,20 @@
| ВидыКонтактнойИнформации.Родитель = &ГруппаВидовКИ
| И ВидыКонтактнойИнформации.ПометкаУдаления = ЛОЖЬ
| И ВидыКонтактнойИнформации.Используется = ИСТИНА
| И &ОтборТипаКонтактнойИнформации
|
|УПОРЯДОЧИТЬ ПО
| РеквизитДопУпорядочивания";
Если ТипКонтактнойИнформации <> Неопределено Тогда
Запрос.Текст = СтрЗаменить(Запрос.Текст, "&ОтборТипаКонтактнойИнформации",
"ВидыКонтактнойИнформации.Тип = &ТипКонтактнойИнформации");
Запрос.УстановитьПараметр("ТипКонтактнойИнформации", ТипКонтактнойИнформации);
Иначе
Запрос.Текст = СтрЗаменить(Запрос.Текст, "&ОтборТипаКонтактнойИнформации", "Истина");
КонецЕсли;
Запрос.УстановитьПараметр("ГруппаВидовКИ", ГруппаВидовКИ);
РезультатЗапроса = Запрос.Выполнить().Выгрузить();
Возврат РезультатЗапроса;
SSL/src/CommonModules/УправлениеКонтактнойИнформациейСлужебный/Module.bsl
+7 -9
View File
@@ -172,20 +172,18 @@
Приоритет.Порядок = "Любой";
Обработчик = Обработчики.Добавить();
Обработчик.Версия = "3.1.2.85";
Обработчик.Версия = "3.1.2.154";
Обработчик.Идентификатор = Новый УникальныйИдентификатор("22f43dca-ac4f-3289-81a9-e110cd56f8b2");
Обработчик.Процедура = "Справочники.ВидыКонтактнойИнформации.ОбработатьДанныеДляПереходаНаНовуюВерсию";
Обработчик.РежимВыполнения = "Отложенно";
Обработчик.ПроцедураЗаполненияДанныхОбновления = "Справочники.ВидыКонтактнойИнформации.ЗарегистрироватьДанныеКОбработкеДляПереходаНаНовуюВерсию";
Обработчик.ОчередьОтложеннойОбработки = 1;
Обработчик.ЧитаемыеОбъекты = "Справочник.ВидыКонтактнойИнформации";
Обработчик.ИзменяемыеОбъекты = "Справочник.ВидыКонтактнойИнформации";
Обработчик.БлокируемыеОбъекты = "Справочник.ВидыКонтактнойИнформации";
Обработчик.ПриоритетыВыполнения = ОбновлениеИнформационнойБазы.ПриоритетыВыполненияОбработчика();
Обработчик.ПроцедураПроверки = "ОбновлениеИнформационнойБазы.ДанныеОбновленыНаНовуюВерсиюПрограммы";
Обработчик.Комментарий = НСтр("ru = 'Заполнение значения поля ""ВидРедактирования"" у видов контактной информации.
|До завершения обработки поля ""ВидРедактирования"" документов в ряде случаев будут отображаться некорректно.'");
Обработчик.ЧитаемыеОбъекты = "Справочник.ВидыКонтактнойИнформации";
Обработчик.ИзменяемыеОбъекты = "Справочник.ВидыКонтактнойИнформации";
Обработчик.БлокируемыеОбъекты = "Справочник.ВидыКонтактнойИнформации";
Обработчик.ПроцедураПроверки = "ОбновлениеИнформационнойБазы.ДанныеОбновленыНаНовуюВерсиюПрограммы";
Обработчик.Комментарий = НСтр("ru = 'Обновление видов контактной информации.
|До завершения обработки виды контактной информации в документах в ряде случаев будут отображаться некорректно.'");
КонецПроцедуры
SSL/src/CommonModules/УправлениеПечатьюСлужебныйКлиент/Module.bsl
-6
View File
@@ -67,7 +67,6 @@
#Область СлужебныеПроцедурыИФункции
// Продолжение процедуры УправлениеПечатьюКлиент.ВыполнитьПодключаемуюКомандуПечати.
Процедура ВыполнитьПодключаемуюКомандуПечатиЗавершение(РасширениеРаботыСФайламиПодключено, ДополнительныеПараметры)
Если Не РасширениеРаботыСФайламиПодключено Тогда
@@ -125,7 +124,6 @@
КонецПроцедуры
// Продолжение процедуры УправлениеПечатьюКлиент.ПроверитьПроведенностьДокументов.
Процедура ПроверитьПроведенностьДокументовДиалогПроведения(Параметры) Экспорт
Если УправлениеПечатьюВызовСервера.ДоступноПравоПроведения(Параметры.НепроведенныеДокументы) Тогда
@@ -148,7 +146,6 @@
КонецПроцедуры
// Продолжение процедуры УправлениеПечатьюКлиент.ПроверитьПроведенностьДокументов.
Процедура ПроверитьПроведенностьДокументовПроведениеДокументов(РезультатВопроса, ДополнительныеПараметры) Экспорт
Если РезультатВопроса <> КодВозвратаДиалога.Да Тогда
@@ -205,7 +202,6 @@
КонецПроцедуры
// Продолжение процедуры УправлениеПечатьюКлиент.ПроверитьПроведенностьДокументов.
Процедура ПроверитьПроведенностьДокументовЗавершение(РезультатВопроса, ДополнительныеПараметры) Экспорт
Если РезультатВопроса <> Неопределено И РезультатВопроса <> КодВозвратаДиалога.Пропустить Тогда
@@ -216,7 +212,6 @@
КонецПроцедуры
// Проверяет что менеджер печати является отчетом или обработкой.
Функция ЭтоОтчетИлиОбработка(МенеджерПечати)
Если Не ЗначениеЗаполнено(МенеджерПечати) Тогда
Возврат Ложь;
@@ -229,7 +224,6 @@
Возврат Вид = "ОТЧЕТ" Или Вид = "ОБРАБОТКА";
КонецФункции
// Продолжение процедуры ВыполнитьОткрытиеПечатнойФормы.
Процедура ВыполнитьОткрытиеПечатнойФормыЗавершение(ОбъектыНазначения, ДополнительныеПараметры) Экспорт
Форма = ДополнительныеПараметры.Форма;
SSL/src/CommonModules/ШаблоныСообщенийСлужебный/Module.bsl
+4 -4
View File
@@ -1720,7 +1720,7 @@
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.КонтактнаяИнформация") Тогда
Ссылка = ОбщегоНазначения.МенеджерОбъектаПоПолномуИмени(МетаданныеОбъект.ПолноеИмя()).ПустаяСсылка();
МодульУправлениеКонтактнойИнформацией = ОбщегоНазначения.ОбщийМодуль("УправлениеКонтактнойИнформацией");
ВидыКонтактнойИнформацией = МодульУправлениеКонтактнойИнформацией.ВидыКонтактнойИнформацияОбъекта(Ссылка);
ВидыКонтактнойИнформацией = МодульУправлениеКонтактнойИнформацией.ВидыКонтактнойИнформацииОбъекта(Ссылка);
Если ВидыКонтактнойИнформацией.Количество() > 0 Тогда
Для каждого ВидКонтактнойИнформацией Из ВидыКонтактнойИнформацией Цикл
ДобавитьРеквизитПоМетаданнымОбъекта(Реквизиты, ВидКонтактнойИнформацией.Ссылка, Префикс, СведенияОСпискеРеквизитов, СведенияОИсключаемыхРеквизитах);
@@ -1923,7 +1923,7 @@
ОбъектыСКонтактнойИнформацией = Новый Массив;
ОбъектыСКонтактнойИнформацией.Добавить(Предмет);
ВидыКонтактнойИнформации = МодульУправлениеКонтактнойИнформацией.ВидыКонтактнойИнформацияОбъекта(Предмет.Ссылка);
ВидыКонтактнойИнформации = МодульУправлениеКонтактнойИнформацией.ВидыКонтактнойИнформацииОбъекта(Предмет.Ссылка);
Если ВидыКонтактнойИнформации.Количество() > 0 Тогда
КонтактнаяИнформацияОбъектов = МодульУправлениеКонтактнойИнформацией.КонтактнаяИнформацияОбъектов(ОбъектыСКонтактнойИнформацией,,, ТекущаяДатаСеанса());
КонецЕсли;
@@ -2222,8 +2222,8 @@
Если Получатели.Количество() = 0 И ТипЗнч(Предмет) <> Тип("Строка") Тогда
ОбъектыСКонтактнойИнформацией = ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(Предмет);
ВидыКонтактнойИнформацияОбъекта = МодульУправлениеКонтактнойИнформацией.ВидыКонтактнойИнформацияОбъекта(Предмет);
Если ВидыКонтактнойИнформацияОбъекта.Количество() > 0 Тогда
ВидыКонтактнойИнформацииОбъекта = МодульУправлениеКонтактнойИнформацией.ВидыКонтактнойИнформацииОбъекта(Предмет);
Если ВидыКонтактнойИнформацииОбъекта.Количество() > 0 Тогда
КонтактнаяИнформацияОбъектов = МодульУправлениеКонтактнойИнформацией.КонтактнаяИнформацияОбъектов(ОбъектыСКонтактнойИнформацией, ТипКонтактнойИнформации,, ТекущаяДатаСеанса());
Если КонтактнаяИнформацияОбъектов.Количество() > 0 Тогда
Для каждого КонтактнаяИнформацияОбъекта Из КонтактнаяИнформацияОбъектов Цикл
SSL/src/CommonModules/ЭлектроннаяПодписьСлужебный/Module.bsl
+54
View File
@@ -873,6 +873,51 @@
КонецФункции
// Только для внутреннего использования.
Функция ОблачныйПарольПодтвержден(Сертификат)
Если Не ИспользоватьЭлектроннуюПодписьВМоделиСервиса() Тогда
Возврат Ложь;
КонецЕсли;
Если ТипЗнч(Сертификат) = Тип("ДвоичныеДанные") Тогда
ДанныеСертификата = Сертификат;
ИначеЕсли ТипЗнч(Сертификат) = Тип("СертификатКриптографии") Тогда
ДанныеСертификата = Сертификат.Выгрузить();
Иначе
ДанныеСертификата = ПолучитьИзВременногоХранилища(Сертификат);
КонецЕсли;
МодульСервисКриптографии = ОбщегоНазначения.ОбщийМодуль("СервисКриптографии");
СвойстваСертификата = МодульСервисКриптографии.ПолучитьСвойстваСертификата(Сертификат);
МаркерыБезопасности = МаркерыБезопасности(СвойстваСертификата.Идентификатор);
Возврат ЗначениеЗаполнено(МаркерыБезопасности.МаркерБезопасности);
КонецФункции
// Для функции ОблачныйПарольПодтвержден.
Функция МаркерыБезопасности(ИдентификаторСертификата)
Результат = Новый Структура();
Результат.Вставить("МаркерБезопасности");
УстановитьПривилегированныйРежим(Истина);
Результат.МаркерБезопасности = ПараметрыСеанса["МаркерыБезопасности"].Получить(ИдентификаторСертификата);
УстановитьПривилегированныйРежим(Ложь);
// Незаполненные значения заменим пустыми строками для передачи в сервис криптографии.
Если НЕ ЗначениеЗаполнено(Результат.МаркерБезопасности) Тогда
Результат.МаркерБезопасности = "";
КонецЕсли;
Возврат Результат;
КонецФункции
////////////////////////////////////////////////////////////////////////////////
// Общие процедуры и функции управляемых форм.
@@ -1983,6 +2028,15 @@
КраткоеПредставлениеОшибки(ИнформацияОбОшибке));
КонецПопытки;
Если Форма.БезПодтверждения
И ЗначенияРеквизитов.Программа = ПрограммаОблачногоСервиса() Тогда
Свойства = Новый Структура("ОблачныйПарольПодтвержден",
ОблачныйПарольПодтвержден(ДвоичныеДанныеСертификата));
ЗаполнитьЗначенияСвойств(Форма, Свойства);
КонецЕсли;
Форма.СертификатАдрес = ПоместитьВоВременноеХранилище(ДвоичныеДанныеСертификата, Форма.УникальныйИдентификатор);
Форма.СертификатОтпечаток = ЗначенияРеквизитов.Отпечаток;
SSL/src/CommonModules/ЭлектроннаяПодписьСлужебныйКлиент/Module.bsl
+18 -3
View File
@@ -5062,11 +5062,26 @@
КонецПроцедуры
// Продолжение процедуры ВыполнитьНаСтороне.
Процедура ВыполнитьНаСторонеПослеВыгрузкиСертификатаВМоделиСервиса(ВыгруженныеДанные, Контекст) Экспорт
Процедура ВыполнитьНаСторонеПослеВыгрузкиСертификатаВМоделиСервиса(РезультатПоиска, Контекст) Экспорт
Если Не РезультатПоиска.Выполнено Тогда
Ошибка = Новый Структура("ОписаниеОшибки",
ЭлектроннаяПодписьСлужебныйКлиентСервер.ЗаголовокОшибкиПолученияДанных(Контекст.Операция) + Символы.ПС
+ РезультатПоиска.ОписаниеОшибки.Описание);
ВыполнитьНаСторонеПослеЦикла(Ошибка, Контекст);
Возврат;
КонецЕсли;
Если Не ЗначениеЗаполнено(РезультатПоиска.Сертификат) Тогда
Ошибка = Новый Структура("ОписаниеОшибки",
ЭлектроннаяПодписьСлужебныйКлиентСервер.ЗаголовокОшибкиПолученияДанных(Контекст.Операция) + Символы.ПС
+ НСтр("ru = 'Сертификат отсутствует в облачном сервисе (возможно удален).'"));
ВыполнитьНаСторонеПослеЦикла(Ошибка, Контекст);
Возврат;
КонецЕсли;
Контекст.Вставить("СвойстваСертификата", ЭлектроннаяПодписьКлиент.СвойстваСертификата(
ВыгруженныеДанные.Сертификат));
Контекст.СвойстваСертификата.Вставить("ДвоичныеДанные", ВыгруженныеДанные.Сертификат.Сертификат);
РезультатПоиска.Сертификат));
Контекст.СвойстваСертификата.Вставить("ДвоичныеДанные", РезультатПоиска.Сертификат.Сертификат);
ВыполнитьНаСторонеЦиклЗапуск(Контекст);
SSL/src/Configuration/Configuration.mdo
+10 -9
View File
@@ -1,17 +1,17 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:Configuration xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="39188694-f35c-4edb-91fd-2cfdc2c8fb3c">
<mdclass:Configuration xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="469eeed3-2746-4b44-bfa2-9c9dd3b484fd">
<name>БиблиотекаСтандартныхПодсистем</name>
<synonym>
<key>ru</key>
<value>Библиотека стандартных подсистем, редакция 3.1</value>
</synonym>
<containedObjects classId="9cd510cd-abfc-11d4-9434-004095e12fc7" objectId="551c2aea-4595-48ce-a77c-0a1c96625b3a"/>
<containedObjects classId="9fcd25a0-4822-11d4-9414-008048da11f9" objectId="99054df9-064c-4c8a-adfa-d5bfdef3f9b5"/>
<containedObjects classId="e3687481-0a87-462c-a166-9f34594f9bba" objectId="25cc1f09-83ee-407e-95a1-2e1ed0e78a2d"/>
<containedObjects classId="9de14907-ec23-4a07-96f0-85521cb6b53b" objectId="3af28ec7-791b-4b28-a7d7-27943534c23a"/>
<containedObjects classId="51f2d5d8-ea4d-4064-8892-82951750031e" objectId="33e8ee40-f4ee-44ee-ad96-49742a5a43cf"/>
<containedObjects classId="e68182ea-4237-4383-967f-90c1e3370bc7" objectId="e162e88d-0a8a-4929-91bd-0bccb10c7497"/>
<containedObjects classId="fb282519-d103-4dd3-bc12-cb271d631dfc" objectId="15ad5637-2f63-49a0-bd04-e6c16a396323"/>
<containedObjects classId="9cd510cd-abfc-11d4-9434-004095e12fc7" objectId="a0240c7a-544a-4d61-90fd-bef2c6fa7906"/>
<containedObjects classId="9fcd25a0-4822-11d4-9414-008048da11f9" objectId="07e39231-0854-463b-ad4a-507cfcb3f392"/>
<containedObjects classId="e3687481-0a87-462c-a166-9f34594f9bba" objectId="23471ce3-7c6d-4732-ab2d-e6e7b92b111e"/>
<containedObjects classId="9de14907-ec23-4a07-96f0-85521cb6b53b" objectId="f049956a-2c80-430a-b94d-fe4baf54e802"/>
<containedObjects classId="51f2d5d8-ea4d-4064-8892-82951750031e" objectId="999c29b7-ab84-4bee-bd0d-7e049a8ec093"/>
<containedObjects classId="e68182ea-4237-4383-967f-90c1e3370bc7" objectId="06e39078-a473-412d-8656-c4898a0a168f"/>
<containedObjects classId="fb282519-d103-4dd3-bc12-cb271d631dfc" objectId="cf7566d6-d240-4d9d-9531-dd13041e7f19"/>
<defaultRunMode>ManagedApplication</defaultRunMode>
<usePurposes>PersonalComputer</usePurposes>
<scriptVariant>Russian</scriptVariant>
@@ -19,7 +19,7 @@
<defaultRoles>Role.АдминистраторСистемы</defaultRoles>
<defaultRoles>Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</defaultRoles>
<vendor>Фирма &quot;1С&quot;</vendor>
<version>3.1.2.150</version>
<version>3.1.2.157</version>
<updateCatalogAddress>http://downloads.v8.1c.ru/tmplts/</updateCatalogAddress>
<includeHelpInContents>true</includeHelpInContents>
<usedMobileApplicationFunctionalities>
@@ -103,6 +103,7 @@
<styleItems>StyleItem.НепринятаяВерсия</styleItems>
<styleItems>StyleItem.НеПринятыеКИсполнениюЗадачи</styleItems>
<styleItems>StyleItem.НеСтартованныйБизнесПроцесс</styleItems>
<styleItems>StyleItem.ОбразецНастройкиКолонтитуловЦвет</styleItems>
<styleItems>StyleItem.ОсновнойЭлементСписка</styleItems>
<styleItems>StyleItem.ОшибкаПолнотекстовыйПоискФон</styleItems>
<styleItems>StyleItem.ПользовательВыбранный</styleItems>
SSL/src/Configuration/ParentConfigurations.bin
+1 -1
View File
@@ -1 +1 @@
{6,1,1,337636b4-129b-4333-bbc0-fbb29ae744dd,1,dd5bd95b-4876-4180-8461-b7752c1384de,"3.1.2.150","Фирма ""1С""","БиблиотекаСтандартныхПодсистем",5902,1,0,39188694-f35c-4edb-91fd-2cfdc2c8fb3c,39188694-f35c-4edb-91fd-2cfdc2c8fb3c,1,0,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,1,0,9233322b-dfdb-4c66-91fe-1299292d40a5,9233322b-dfdb-4c66-91fe-1299292d40a5,1,0,7795348b-2f52-47f7-bf00-e11e5e795a43,7795348b-2f52-47f7-bf00-e11e5e795a43,1,0,0421b67e-ed26-491d-ab98-ec59002ed4ce,0421b67e-ed26-491d-ab98-ec59002ed4ce,1,0,bb47ced2-31f9-4870-8633-20b986e53ccc,bb47ced2-31f9-4870-8633-20b986e53ccc,1,0,7d8acec9-f5a9-411e-921c-446ed0dd3332,7d8acec9-f5a9-411e-921c-446ed0dd3332,1,0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,1,0,cdbd26b1-9583-46e8-adf7-8cc705639892,cdbd26b1-9583-46e8-adf7-8cc705639892,1,0,c0e38c3e-7088-4e35-9d84-2d0ab9655402,c0e38c3e-7088-4e35-9d84-2d0ab9655402,1,0,1098786f-dd24-4cce-b212-be0cb5f01735,1098786f-dd24-4cce-b212-be0cb5f01735,1,0,3c0037f3-4422-4836-b116-8c72e32bdd55,3c0037f3-4422-4836-b116-8c72e32bdd55,1,0,6f7c6c31-206b-4010-bdad-1ad2e304f154,6f7c6c31-206b-4010-bdad-1ad2e304f154,1,0,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,1,0,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,1,0,5b68d479-7880-44de-84e3-7f578b43f0dc,5b68d479-7880-44de-84e3-7f578b43f0dc,1,0,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,1,0,b4629308-42de-4ce8-8591-cf0c2399a9a2,b4629308-42de-4ce8-8591-cf0c2399a9a2,1,0,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,1,0,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,1,0,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,1,0,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1,0,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,1,0,b93b8760-6200-40ee-8bdc-875ba80a6155,b93b8760-6200-40ee-8bdc-875ba80a6155,1,0,e8b248d9-9049-456a-9c7d-7a0462cc67ab,e8b248d9-9049-456a-9c7d-7a0462cc67ab,1,0,d4562287-440d-4462-9de2-7097ccbf3764,d4562287-440d-4462-9de2-7097ccbf3764,1,0,1983fe34-c984-4659-ba41-0e94504f8989,1983fe34-c984-4659-ba41-0e94504f8989,1,0,ec797c75-02c5-4cf5-9dd4-26cd46c99519,ec797c75-02c5-4cf5-9dd4-26cd46c99519,1,0,6fccdf59-fc99-4a2b-a144-fffe438a147c,6fccdf59-fc99-4a2b-a144-fffe438a147c,1,0,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,1,0,08a413ff-bebd-42e5-8ff3-2115746a0844,08a413ff-bebd-42e5-8ff3-2115746a0844,1,0,da9b32e6-5b93-45a6-84b2-238d57541e18,da9b32e6-5b93-45a6-84b2-238d57541e18,1,0,e43d69c8-b284-47da-b236-611bc94a15b6,e43d69c8-b284-47da-b236-611bc94a15b6,1,0,31eeaa05-6c49-41fe-b840-1edbad4ccac7,31eeaa05-6c49-41fe-b840-1edbad4ccac7,1,0,842c8662-8f39-405e-9665-cbdabc116159,842c8662-8f39-405e-9665-cbdabc116159,1,0,fca4b033-02c4-4d61-9e51-87783c3cef1a,fca4b033-02c4-4d61-9e51-87783c3cef1a,1,0,396ef757-d7f6-411f-8c4c-1acb1106a009,396ef757-d7f6-411f-8c4c-1acb1106a009,1,0,839e29b1-a0d2-40fa-9f3e-46e66b943358,839e29b1-a0d2-40fa-9f3e-46e66b943358,1,0,c56d2cc7-630a-441b-b23f-ba78c34849bd,c56d2cc7-630a-441b-b23f-ba78c34849bd,1,0,9aecf4f5-46ed-4d1c-a584-cd028e467895,9aecf4f5-46ed-4d1c-a584-cd028e467895,1,0,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,1,0,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,1,0,a1f10624-22e9-4a04-b370-fd085bdd0f67,a1f10624-22e9-4a04-b370-fd085bdd0f67,1,0,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,1,0,3cffb795-2a28-4beb-92f4-5813f5994022,3cffb795-2a28-4beb-92f4-5813f5994022,1,0,3323ca68-1382-4710-a933-23fc56588935,3323ca68-1382-4710-a933-23fc56588935,1,0,d6b12775-3255-42b8-88b2-62684f873e7d,d6b12775-3255-42b8-88b2-62684f873e7d,1,0,cc23d903-ccc5-42f4-862f-5e7278c4e346,cc23d903-ccc5-42f4-862f-5e7278c4e346,1,0,98f033e0-fa40-46e0-b51a-87a066749a35,98f033e0-fa40-46e0-b51a-87a066749a35,1,0,e8b4cb2d-1180-4101-954a-4cb5464f198c,e8b4cb2d-1180-4101-954a-4cb5464f198c,1,0,a379287d-1ce8-460d-a503-910e728e28f1,a379287d-1ce8-460d-a503-910e728e28f1,1,0,f765c4ba-c677-42ac-8d0c-43bb485405b9,f765c4ba-c677-42ac-8d0c-43bb485405b9,1,0,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,1,0,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,1,0,4009cb3a-6754-481f-911b-907558cea38a,4009cb3a-6754-481f-911b-907558cea38a,1,0,653a7fd8-91c7-49aa-aa63-45da087e0d0a,653a7fd8-91c7-49aa-aa63-45da087e0d0a,1,0,d7cf3981-cf63-4a21-868b-8175a7704a8f,d7cf3981-cf63-4a21-868b-8175a7704a8f,1,0,0ae93712-74e8-41c7-8f2d-4dfc8983697d,0ae93712-74e8-41c7-8f2d-4dfc8983697d,1,0,9e4dfdfa-ec05-4c9e-89bd-fc24f60f2678,9e4dfdfa-ec05-4c9e-89bd-fc24f60f2678,1,0,64f548c8-c1fc-434e-b3ee-5be367ead1db,64f548c8-c1fc-434e-b3ee-5be367ead1db,1,0,cd592a5d-b184-4558-8a28-7079ccf28b89,cd592a5d-b184-4558-8a28-7079ccf28b89,1,0,2009c673-c1a5-45fc-8da2-a36c435085a6,2009c673-c1a5Line truncated
{6,1,1,abbf41d4-b44a-4035-ad72-72985f73d778,1,a0176e6d-acef-4971-a06b-36e1349787d1,"3.1.2.157","Фирма ""1С""","БиблиотекаСтандартныхПодсистем",5903,1,0,469eeed3-2746-4b44-bfa2-9c9dd3b484fd,469eeed3-2746-4b44-bfa2-9c9dd3b484fd,1,0,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,1,0,9233322b-dfdb-4c66-91fe-1299292d40a5,9233322b-dfdb-4c66-91fe-1299292d40a5,1,0,7795348b-2f52-47f7-bf00-e11e5e795a43,7795348b-2f52-47f7-bf00-e11e5e795a43,1,0,0421b67e-ed26-491d-ab98-ec59002ed4ce,0421b67e-ed26-491d-ab98-ec59002ed4ce,1,0,bb47ced2-31f9-4870-8633-20b986e53ccc,bb47ced2-31f9-4870-8633-20b986e53ccc,1,0,7d8acec9-f5a9-411e-921c-446ed0dd3332,7d8acec9-f5a9-411e-921c-446ed0dd3332,1,0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,1,0,cdbd26b1-9583-46e8-adf7-8cc705639892,cdbd26b1-9583-46e8-adf7-8cc705639892,1,0,c0e38c3e-7088-4e35-9d84-2d0ab9655402,c0e38c3e-7088-4e35-9d84-2d0ab9655402,1,0,1098786f-dd24-4cce-b212-be0cb5f01735,1098786f-dd24-4cce-b212-be0cb5f01735,1,0,3c0037f3-4422-4836-b116-8c72e32bdd55,3c0037f3-4422-4836-b116-8c72e32bdd55,1,0,6f7c6c31-206b-4010-bdad-1ad2e304f154,6f7c6c31-206b-4010-bdad-1ad2e304f154,1,0,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,1,0,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,1,0,5b68d479-7880-44de-84e3-7f578b43f0dc,5b68d479-7880-44de-84e3-7f578b43f0dc,1,0,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,1,0,b4629308-42de-4ce8-8591-cf0c2399a9a2,b4629308-42de-4ce8-8591-cf0c2399a9a2,1,0,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,1,0,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,1,0,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,1,0,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1,0,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,1,0,b93b8760-6200-40ee-8bdc-875ba80a6155,b93b8760-6200-40ee-8bdc-875ba80a6155,1,0,e8b248d9-9049-456a-9c7d-7a0462cc67ab,e8b248d9-9049-456a-9c7d-7a0462cc67ab,1,0,d4562287-440d-4462-9de2-7097ccbf3764,d4562287-440d-4462-9de2-7097ccbf3764,1,0,1983fe34-c984-4659-ba41-0e94504f8989,1983fe34-c984-4659-ba41-0e94504f8989,1,0,ec797c75-02c5-4cf5-9dd4-26cd46c99519,ec797c75-02c5-4cf5-9dd4-26cd46c99519,1,0,6fccdf59-fc99-4a2b-a144-fffe438a147c,6fccdf59-fc99-4a2b-a144-fffe438a147c,1,0,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,1,0,08a413ff-bebd-42e5-8ff3-2115746a0844,08a413ff-bebd-42e5-8ff3-2115746a0844,1,0,da9b32e6-5b93-45a6-84b2-238d57541e18,da9b32e6-5b93-45a6-84b2-238d57541e18,1,0,e43d69c8-b284-47da-b236-611bc94a15b6,e43d69c8-b284-47da-b236-611bc94a15b6,1,0,31eeaa05-6c49-41fe-b840-1edbad4ccac7,31eeaa05-6c49-41fe-b840-1edbad4ccac7,1,0,842c8662-8f39-405e-9665-cbdabc116159,842c8662-8f39-405e-9665-cbdabc116159,1,0,fca4b033-02c4-4d61-9e51-87783c3cef1a,fca4b033-02c4-4d61-9e51-87783c3cef1a,1,0,396ef757-d7f6-411f-8c4c-1acb1106a009,396ef757-d7f6-411f-8c4c-1acb1106a009,1,0,839e29b1-a0d2-40fa-9f3e-46e66b943358,839e29b1-a0d2-40fa-9f3e-46e66b943358,1,0,c56d2cc7-630a-441b-b23f-ba78c34849bd,c56d2cc7-630a-441b-b23f-ba78c34849bd,1,0,9aecf4f5-46ed-4d1c-a584-cd028e467895,9aecf4f5-46ed-4d1c-a584-cd028e467895,1,0,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,1,0,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,1,0,a1f10624-22e9-4a04-b370-fd085bdd0f67,a1f10624-22e9-4a04-b370-fd085bdd0f67,1,0,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,1,0,3cffb795-2a28-4beb-92f4-5813f5994022,3cffb795-2a28-4beb-92f4-5813f5994022,1,0,3323ca68-1382-4710-a933-23fc56588935,3323ca68-1382-4710-a933-23fc56588935,1,0,d6b12775-3255-42b8-88b2-62684f873e7d,d6b12775-3255-42b8-88b2-62684f873e7d,1,0,cc23d903-ccc5-42f4-862f-5e7278c4e346,cc23d903-ccc5-42f4-862f-5e7278c4e346,1,0,98f033e0-fa40-46e0-b51a-87a066749a35,98f033e0-fa40-46e0-b51a-87a066749a35,1,0,e8b4cb2d-1180-4101-954a-4cb5464f198c,e8b4cb2d-1180-4101-954a-4cb5464f198c,1,0,a379287d-1ce8-460d-a503-910e728e28f1,a379287d-1ce8-460d-a503-910e728e28f1,1,0,f765c4ba-c677-42ac-8d0c-43bb485405b9,f765c4ba-c677-42ac-8d0c-43bb485405b9,1,0,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,1,0,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,1,0,4009cb3a-6754-481f-911b-907558cea38a,4009cb3a-6754-481f-911b-907558cea38a,1,0,653a7fd8-91c7-49aa-aa63-45da087e0d0a,653a7fd8-91c7-49aa-aa63-45da087e0d0a,1,0,d7cf3981-cf63-4a21-868b-8175a7704a8f,d7cf3981-cf63-4a21-868b-8175a7704a8f,1,0,0ae93712-74e8-41c7-8f2d-4dfc8983697d,0ae93712-74e8-41c7-8f2d-4dfc8983697d,1,0,9e4dfdfa-ec05-4c9e-89bd-fc24f60f2678,9e4dfdfa-ec05-4c9e-89bd-fc24f60f2678,1,0,64f548c8-c1fc-434e-b3ee-5be367ead1db,64f548c8-c1fc-434e-b3ee-5be367ead1db,1,0,cd592a5d-b184-4558-8a28-7079ccf28b89,cd592a5d-b184-4558-8a28-7079ccf28b89,1,0,2009c673-c1a5-45fc-8da2-a36c435085a6,2009c673-c1a5Line truncated
SSL/src/DataProcessors/ВыполнениеОбменаДанными/Forms/Форма/Module.bsl
-1
View File
@@ -172,7 +172,6 @@
&НаКлиенте
Процедура УстановитьОбновление(Команда)
Закрыть();
ОбменДаннымиКлиент.УстановитьОбновлениеКонфигурации(ЗавершениеРаботыСистемы);
КонецПроцедуры
SSL/src/DataProcessors/ЗагрузкаДанныхИзФайла/Forms/ЗагрузкаДанныхИзФайла/Module.bsl
+1 -1
View File
@@ -1483,7 +1483,7 @@
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.КонтактнаяИнформация") Тогда
МодульУправлениеКонтактнойИнформацией = ОбщегоНазначения.ОбщийМодуль("УправлениеКонтактнойИнформацией");
ВидыКонтактнойИнформации = МодульУправлениеКонтактнойИнформацией.ВидыКонтактнойИнформацияОбъекта(Справочники[ИмяСправочника].ПустаяСсылка());
ВидыКонтактнойИнформации = МодульУправлениеКонтактнойИнформацией.ВидыКонтактнойИнформацииОбъекта(Справочники[ИмяСправочника].ПустаяСсылка());
КонецЕсли;
Для каждого Элемент Из СопоставитьПоКолонке Цикл
SSL/src/DataProcessors/ЗагрузкаДанныхИзФайла/ManagerModule.bsl
+1 -1
View File
@@ -1504,7 +1504,7 @@
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.КонтактнаяИнформация") Тогда
МодульУправлениеКонтактнойИнформацией = ОбщегоНазначения.ОбщийМодуль("УправлениеКонтактнойИнформацией");
ВидыКонтактнойИнформации = МодульУправлениеКонтактнойИнформацией.ВидыКонтактнойИнформацияОбъекта(Справочники[ИмяСправочника].ПустаяСсылка());
ВидыКонтактнойИнформации = МодульУправлениеКонтактнойИнформацией.ВидыКонтактнойИнформацииОбъекта(Справочники[ИмяСправочника].ПустаяСсылка());
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.Свойства") Тогда
SSL/src/DataProcessors/ЗаявлениеНаВыпускНовогоКвалифицированногоСертификата/Forms/Форма/Module.bsl
+36 -37
View File
@@ -30,7 +30,6 @@
Если ОбщегоНазначения.РазделениеВключено() Тогда
ИнтернетПоддержкаПользователейПодключена = Истина;
ПрограммаОблачногоСервиса = ПрограммаОблачногоСервиса();
КонецЕсли;
ЗаполнитьСписокПрограмм();
@@ -1229,6 +1228,8 @@
ЗаполнитьРеквизитыОрганизации();
Иначе
ОбновитьКонтактнуюИнформациюОрганизации();
КонецЕсли;
Если СотрудникТип <> Неопределено
@@ -1239,19 +1240,6 @@
Сотрудник = ОписаниеТипов.ПривестиЗначение(Неопределено);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.КонтактнаяИнформация") Тогда
МодульРаботаСАдресами = ОбщегоНазначения.ОбщийМодуль("РаботаСАдресами");
ДополнительныеПараметры = Новый Структура("НаименованиеВключаетСокращение", Истина);
ФактическийАдресСтруктура =
МодульРаботаСАдресами.СведенияОбАдресе(ФактическийАдресXML, ДополнительныеПараметры);
ЮридическийАдресСтруктура =
МодульРаботаСАдресами.СведенияОбАдресе(ЮридическийАдресXML, ДополнительныеПараметры);
КонецЕсли;
ПриИзмененииРуководителяНаСервере(Загрузка);
ПриИзмененииПартнераНаСервере(Загрузка);
ПриИзмененииВладельцаСертификатаНаСервере(Загрузка);
@@ -1386,6 +1374,8 @@
УстановитьРеквизит(Реквизиты, "КПП", Истина);
КонецЕсли;
ОбновитьКонтактнуюИнформациюОрганизации();
КонецПроцедуры
&НаСервере
@@ -1567,6 +1557,24 @@
КонецПроцедуры
&НаСервере
Процедура ОбновитьКонтактнуюИнформациюОрганизации()
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.КонтактнаяИнформация") Тогда
МодульРаботаСАдресами = ОбщегоНазначения.ОбщийМодуль("РаботаСАдресами");
ДополнительныеПараметры = Новый Структура("НаименованиеВключаетСокращение", Истина);
ФактическийАдресСтруктура =
МодульРаботаСАдресами.СведенияОбАдресе(ФактическийАдресXML, ДополнительныеПараметры);
ЮридическийАдресСтруктура =
МодульРаботаСАдресами.СведенияОбАдресе(ЮридическийАдресXML, ДополнительныеПараметры);
КонецЕсли;
КонецПроцедуры
&НаКлиентеНаСервереБезКонтекста
Функция РеквизитыОрганизации(ДляПроверки = Ложь)
@@ -1794,8 +1802,20 @@
Если РеквизитыЗаявления <> Неопределено Тогда
ДозаполнитьРеквизитыИзСведений(РеквизитыЗаявления, РеквизитыОрганизации());
ДозаполнитьРеквизитыИзСведений(РеквизитыЗаявления, РеквизитыВладельцаСертификата());
СведенияОбОрганизации = РеквизитыОрганизации();
СведенияОбОрганизации.Вставить("ТелефонXML");
СведенияОбОрганизации.Вставить("ЮридическийАдресXML");
СведенияОбОрганизации.Вставить("ФактическийАдресXML");
ДозаполнитьРеквизитыИзСведений(РеквизитыЗаявления, СведенияОбОрганизации);
ОбновитьКонтактнуюИнформациюОрганизации();
СведенияОВладельце = РеквизитыВладельцаСертификата();
СведенияОВладельце.Вставить("ЭтоИндивидуальныйПредприниматель");
СведенияОВладельце.Вставить("ГражданствоОКСМКодАльфа3");
СведенияОВладельце.Вставить("ГражданствоПредставление");
ДозаполнитьРеквизитыИзСведений(РеквизитыЗаявления, СведенияОВладельце);
РеквизитыПодписанта = РеквизитыПодписанта();
РеквизитыПодписанта.Вставить("ДокументыРуководительСсылка");
@@ -4918,27 +4938,6 @@
КонецФункции
&НаСервереБезКонтекста
Функция ПрограммаОблачногоСервиса()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПрограммыЭлектроннойПодписиИШифрования.Ссылка КАК Ссылка
|ИЗ
| Справочник.ПрограммыЭлектроннойПодписиИШифрования КАК ПрограммыЭлектроннойПодписиИШифрования
|ГДЕ
| ПрограммыЭлектроннойПодписиИШифрования.ЭтоПрограммаОблачногоСервиса";
ПрограммыОблачногоСервиса = Запрос.Выполнить().Выбрать();
Если ПрограммыОблачногоСервиса.Следующий() Тогда
Возврат ПрограммыОблачногоСервиса.Ссылка;
КонецЕсли;
Возврат Неопределено;
КонецФункции
&НаКлиентеНаСервереБезКонтекста
Функция НайтиБезУчетаРегистраИРазделителяПути(Строка, ПодстрокаПоиска)
SSL/src/DataProcessors/ПоискИУдалениеДублей/Forms/ПравилаПоиска/Module.bsl
+1 -12
View File
@@ -239,7 +239,7 @@
ЭлементыУсловногоОформления = УсловноеОформление.Элементы;
ЭлементыУсловногоОформления.Очистить();
ЦветНедоступныеДанные = ЦветСтиляИлиАвто("ЦветНедоступныеДанные", 192, 192, 192);
ЦветНедоступныеДанные = Метаданные.ЭлементыСтиля.ТекстЗапрещеннойЯчейкиЦвет.Значение;
Для Каждого ЭлементСписка Из ВсеВидыСравненияПравилПоиска Цикл
ЭлементОформления = ЭлементыУсловногоОформления.Добавить();
@@ -269,16 +269,5 @@
ЭлементОформления.Оформление.УстановитьЗначениеПараметра("ЦветТекста", ЦветНедоступныеДанные);
КонецПроцедуры
&НаСервереБезКонтекста
Функция ЦветСтиляИлиАвто(Знач Имя, Знач Красный = Неопределено, Зеленый = Неопределено, Синий = Неопределено)
ЭлементСтиля = Метаданные.ЭлементыСтиля.Найти(Имя);
Если ЭлементСтиля <> Неопределено И ЭлементСтиля.Вид = Метаданные.СвойстваОбъектов.ВидЭлементаСтиля.Цвет Тогда
Возврат ЦветаСтиля[Имя];
КонецЕсли;
Возврат ?(Красный = Неопределено, Новый Цвет, Новый Цвет(Красный, Зеленый, Синий));
КонецФункции
#КонецОбласти
SSL/src/DataProcessors/РезервноеКопированиеИБ/Forms/РезервноеКопированиеДанных/Module.bsl
+1 -1
View File
@@ -580,7 +580,7 @@
Процедура ПослеЗапускаСкрипта(Результат, Контекст) Экспорт
Если Результат.ПриложениеЗапущено Тогда
ЗавершитьРаботуСистемы(Ложь);
ПрекратитьРаботуСистемы();
Иначе
ПоказатьПредупреждение(, Результат.ОписаниеОшибки);
КонецЕсли;
SSL/src/DocumentJournals/Взаимодействия/Forms/ФормаСписка/Module.bsl
+8 -3
View File
@@ -3572,16 +3572,21 @@
Если ИмяТекущейПанелиНавигации = "СтраницаКонтакт" Тогда
ТекущиеДанные = Элементы.КонтактыПанелиНавигации.ТекущиеДанные;
Если ТекущиеДанные <> Неопределено Тогда
ПараметрыСоздания.Вставить("ЗначенияЗаполнения",Новый Структура("Контакт", ТекущиеДанные.Контакт));
ПараметрыСоздания.Вставить("ЗначенияЗаполнения", Новый Структура("Контакт", ТекущиеДанные.Контакт));
КонецЕсли;
ИначеЕсли ИмяТекущейПанелиНавигации = "СтраницаПредмет" Тогда
ТекущиеДанные = Элементы.ПредметыПанельНавигации.ТекущиеДанные;
Если ТекущиеДанные <> Неопределено Тогда
ПараметрыСоздания.Вставить("ЗначенияЗаполнения",Новый Структура("Предмет", ТекущиеДанные.Предмет));
ПараметрыСоздания.Вставить("ЗначенияЗаполнения", Новый Структура("Предмет", ТекущиеДанные.Предмет));
КонецЕсли;
ИначеЕсли ИмяТекущейПанелиНавигации = "СтраницаПапки" Тогда
ТекущиеДанные = Элементы.Папки.ТекущиеДанные;
Если ТекущиеДанные <> Неопределено Тогда
ПараметрыСоздания.Вставить("ЗначенияЗаполнения", Новый Структура("УчетнаяЗапись", ТекущиеДанные.УчетнаяЗапись));
КонецЕсли;
КонецЕсли;
ВзаимодействияКлиент.СоздатьНовоеВзаимодействие(ТипОбъекта,ПараметрыСоздания, ЭтотОбъект);
ВзаимодействияКлиент.СоздатьНовоеВзаимодействие(ТипОбъекта, ПараметрыСоздания, ЭтотОбъект);
КонецПроцедуры
SSL/src/DocumentJournals/Взаимодействия/Forms/ФормаСпискаПараметрическая/Module.bsl
+8
View File
@@ -29,7 +29,12 @@
Элементы.Участники.Заголовок = ЗаголовокУчастникиПочта;
КонецЕсли;
Если Параметры.Свойство("Отбор") Тогда
ШаблонЗаголовка = НСтр("ru = 'Взаимодействия по %1'");
Если Параметры.Отбор.Свойство("Предмет") Тогда
Если Параметры.Свойство("ДополнительныеПараметры")
@@ -46,9 +51,12 @@
Параметры.Отбор.Удалить("Предмет");
УстановитьОтборПоПредмету();
Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонЗаголовка, ОбщегоНазначения.ПредметСтрокой(ПредметДляОтбора));
ИначеЕсли Параметры.Отбор.Свойство("Контакт") Тогда
Контакт = Параметры.Отбор.Контакт;
Заголовок = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонЗаголовка, ОбщегоНазначения.ПредметСтрокой(Контакт));
Параметры.Отбор.Удалить("Контакт");
УстановитьОтборПоКонтакту();
SSL/src/Documents/Встреча/Forms/ФормаДокумента/Module.bsl
+49 -3
View File
@@ -58,7 +58,14 @@
МодульРаботаСФайлами.ПриСозданииНаСервере(ЭтотОбъект, ГиперссылкаФайлов);
КонецЕсли;
// Конец СтандартныеПодсистемы.РаботаСФайлами
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
&НаСервере
@@ -79,7 +86,14 @@
МодульУправлениеДоступом.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.УправлениеДоступом
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиентСервер = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКомандыКлиентСервер");
МодульПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
&НаКлиенте
@@ -101,7 +115,14 @@
МодульРаботаСФайламиКлиент.ПриОткрытии(ЭтотОбъект, Отказ);
КонецЕсли;
// Конец СтандартныеПодсистемы.РаботаСФайлами
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
&НаКлиенте
@@ -508,4 +529,29 @@
// Конец СтандартныеПодсистемы.Свойства
// СтандартныеПодсистемы.ПодключаемыеКоманды
&НаКлиенте
Процедура Подключаемый_ВыполнитьКоманду(Команда)
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьВыполнениеКоманды(ЭтотОбъект, Команда, Объект);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ПродолжитьВыполнениеКомандыНаСервере(ПараметрыВыполнения, ДополнительныеПараметры) Экспорт
ВыполнитьКомандуНаСервере(ПараметрыВыполнения);
КонецПроцедуры
&НаСервере
Процедура ВыполнитьКомандуНаСервере(ПараметрыВыполнения)
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, ПараметрыВыполнения, Объект);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ОбновитьКоманды()
МодульПодключаемыеКомандыКлиентСервер = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиентСервер");
МодульПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект);
КонецПроцедуры
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
#КонецОбласти
SSL/src/Documents/Встреча/Forms/ФормаСписка/Form.form
+4
View File
@@ -272,6 +272,10 @@
<id>5</id>
<horizontalAlign>Left</horizontalAlign>
</autoCommandBar>
<handlers>
<event>OnActivateRow</event>
<name>СписокПриАктивизацииСтроки</name>
</handlers>
<searchStringAddition>
<name>СписокСтрокаПоиска</name>
<id>7</id>
SSL/src/Documents/Встреча/Forms/ФормаСписка/Module.bsl
+48
View File
@@ -18,6 +18,29 @@
МодульВерсионированиеОбъектов.ПриСозданииНаСервере(ЭтотОбъект);
КонецЕсли;
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиСобытийЭлементовТаблицыФормыСписок
&НаКлиенте
Процедура СписокПриАктивизацииСтроки(Элемент)
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
#КонецОбласти
@@ -31,4 +54,29 @@
КонецПроцедуры
// СтандартныеПодсистемы.ПодключаемыеКоманды
&НаКлиенте
Процедура Подключаемый_ВыполнитьКоманду(Команда)
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьВыполнениеКоманды(ЭтотОбъект, Команда, Элементы.Список);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ПродолжитьВыполнениеКомандыНаСервере(ПараметрыВыполнения, ДополнительныеПараметры) Экспорт
ВыполнитьКомандуНаСервере(ПараметрыВыполнения);
КонецПроцедуры
&НаСервере
Процедура ВыполнитьКомандуНаСервере(ПараметрыВыполнения)
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, ПараметрыВыполнения, Элементы.Список);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ОбновитьКоманды()
МодульПодключаемыеКомандыКлиентСервер = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиентСервер");
МодульПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Элементы.Список);
КонецПроцедуры
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
#КонецОбласти
SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаДокумента/Module.bsl
+49 -3
View File
@@ -56,7 +56,14 @@
МодульРаботаСФайлами.ПриСозданииНаСервере(ЭтотОбъект, ГиперссылкаФайлов);
КонецЕсли;
// Конец СтандартныеПодсистемы.РаботаСФайлами
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
&НаСервере
@@ -77,7 +84,14 @@
МодульУправлениеДоступом.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.УправлениеДоступом
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиентСервер = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКомандыКлиентСервер");
МодульПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
&НаКлиенте
@@ -98,7 +112,14 @@
МодульРаботаСФайламиКлиент.ПриОткрытии(ЭтотОбъект, Отказ);
КонецЕсли;
// Конец СтандартныеПодсистемы.РаботаСФайлами
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
&НаКлиенте
@@ -439,4 +460,29 @@
КонецПроцедуры
// СтандартныеПодсистемы.ПодключаемыеКоманды
&НаКлиенте
Процедура Подключаемый_ВыполнитьКоманду(Команда)
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьВыполнениеКоманды(ЭтотОбъект, Команда, Объект);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ПродолжитьВыполнениеКомандыНаСервере(ПараметрыВыполнения, ДополнительныеПараметры) Экспорт
ВыполнитьКомандуНаСервере(ПараметрыВыполнения);
КонецПроцедуры
&НаСервере
Процедура ВыполнитьКомандуНаСервере(ПараметрыВыполнения)
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, ПараметрыВыполнения, Объект);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ОбновитьКоманды()
МодульПодключаемыеКомандыКлиентСервер = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиентСервер");
МодульПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект);
КонецПроцедуры
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
#КонецОбласти
SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаСписка/Form.form
+4
View File
@@ -272,6 +272,10 @@
<id>5</id>
<horizontalAlign>Left</horizontalAlign>
</autoCommandBar>
<handlers>
<event>OnActivateRow</event>
<name>СписокПриАктивизацииСтроки</name>
</handlers>
<searchStringAddition>
<name>СписокСтрокаПоиска</name>
<id>7</id>
SSL/src/Documents/ЗапланированноеВзаимодействие/Forms/ФормаСписка/Module.bsl
+48
View File
@@ -18,6 +18,29 @@
МодульВерсионированиеОбъектов.ПриСозданииНаСервере(ЭтотОбъект);
КонецЕсли;
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиСобытийЭлементовТаблицыФормыСписок
&НаКлиенте
Процедура СписокПриАктивизацииСтроки(Элемент)
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
#КонецОбласти
@@ -31,4 +54,29 @@
КонецПроцедуры
// СтандартныеПодсистемы.ПодключаемыеКоманды
&НаКлиенте
Процедура Подключаемый_ВыполнитьКоманду(Команда)
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьВыполнениеКоманды(ЭтотОбъект, Команда, Элементы.Список);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ПродолжитьВыполнениеКомандыНаСервере(ПараметрыВыполнения, ДополнительныеПараметры) Экспорт
ВыполнитьКомандуНаСервере(ПараметрыВыполнения);
КонецПроцедуры
&НаСервере
Процедура ВыполнитьКомандуНаСервере(ПараметрыВыполнения)
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, ПараметрыВыполнения, Элементы.Список);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ОбновитьКоманды()
МодульПодключаемыеКомандыКлиентСервер = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиентСервер");
МодульПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Элементы.Список);
КонецПроцедуры
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
#КонецОбласти
SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаДокумента/Form.form
+31
View File
@@ -1090,6 +1090,37 @@
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:FormGroup">
<name>ПодменюСоздатьНаОсновании</name>
<id>175</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Создать на основании</value>
</title>
<extendedTooltip>
<name>ПодменюСоздатьНаОснованииРасширеннаяПодсказка</name>
<id>176</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>Popup</type>
<extInfo xsi:type="form:PopupGroupExtInfo">
<picture xsi:type="core:PictureRef">
<picture>StdPicture.InputOnBasis</picture>
</picture>
<representation>Picture</representation>
<importance>Normal</importance>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>ФормаГлобальныеКоманды</name>
<id>157</id>
SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаДокумента/Module.bsl
+49 -3
View File
@@ -65,7 +65,14 @@
МодульРаботаСФайлами.ПриСозданииНаСервере(ЭтотОбъект, ГиперссылкаФайлов);
КонецЕсли;
// Конец СтандартныеПодсистемы.РаботаСФайлами
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
&НаСервере
@@ -86,7 +93,14 @@
МодульУправлениеДоступом.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.УправлениеДоступом
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиентСервер = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКомандыКлиентСервер");
МодульПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
&НаКлиенте
@@ -107,7 +121,14 @@
МодульРаботаСФайламиКлиент.ПриОткрытии(ЭтотОбъект, Отказ);
КонецЕсли;
// Конец СтандартныеПодсистемы.РаботаСФайлами
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
&НаСервере
@@ -451,4 +472,29 @@
КонецПроцедуры
// СтандартныеПодсистемы.ПодключаемыеКоманды
&НаКлиенте
Процедура Подключаемый_ВыполнитьКоманду(Команда)
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьВыполнениеКоманды(ЭтотОбъект, Команда, Объект);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ПродолжитьВыполнениеКомандыНаСервере(ПараметрыВыполнения, ДополнительныеПараметры) Экспорт
ВыполнитьКомандуНаСервере(ПараметрыВыполнения);
КонецПроцедуры
&НаСервере
Процедура ВыполнитьКомандуНаСервере(ПараметрыВыполнения)
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, ПараметрыВыполнения, Объект);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ОбновитьКоманды()
МодульПодключаемыеКомандыКлиентСервер = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиентСервер");
МодульПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект);
КонецПроцедуры
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
#КонецОбласти
SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаСписка/Form.form
+4
View File
@@ -273,6 +273,10 @@
<id>5</id>
<horizontalAlign>Left</horizontalAlign>
</autoCommandBar>
<handlers>
<event>OnActivateRow</event>
<name>СписокПриАктивизацииСтроки</name>
</handlers>
<searchStringAddition>
<name>СписокСтрокаПоиска</name>
<id>7</id>
SSL/src/Documents/ТелефонныйЗвонок/Forms/ФормаСписка/Module.bsl
+49
View File
@@ -18,6 +18,29 @@
МодульВерсионированиеОбъектов.ПриСозданииНаСервере(ЭтотОбъект);
КонецЕсли;
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиСобытийЭлементовТаблицыФормыСписок
&НаКлиенте
Процедура СписокПриАктивизацииСтроки(Элемент)
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
#КонецОбласти
@@ -31,5 +54,31 @@
КонецПроцедуры
// СтандартныеПодсистемы.ПодключаемыеКоманды
&НаКлиенте
Процедура Подключаемый_ВыполнитьКоманду(Команда)
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьВыполнениеКоманды(ЭтотОбъект, Команда, Элементы.Список);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ПродолжитьВыполнениеКомандыНаСервере(ПараметрыВыполнения, ДополнительныеПараметры) Экспорт
ВыполнитьКомандуНаСервере(ПараметрыВыполнения);
КонецПроцедуры
&НаСервере
Процедура ВыполнитьКомандуНаСервере(ПараметрыВыполнения)
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, ПараметрыВыполнения, Элементы.Список);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ОбновитьКоманды()
МодульПодключаемыеКомандыКлиентСервер = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиентСервер");
МодульПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Элементы.Список);
КонецПроцедуры
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
#КонецОбласти
SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаДокумента/Form.form
+291 -180
View File
@@ -129,6 +129,150 @@
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>СтраницыУказаныКонтакты</name>
<id>203</id>
<items xsi:type="form:FormGroup">
<name>СтраницаКонтактыЗаполнены</name>
<id>206</id>
<items xsi:type="form:Decoration">
<name>ДекорацияКонтактыНеЗаполнены</name>
<id>210</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ДекорацияКонтактыНеЗаполненыРасширеннаяПодсказка</name>
<id>255</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДекорацияКонтактыНеЗаполненыКонтекстноеМеню</name>
<id>211</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<width>12</width>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Страница контакты заполнены</value>
</title>
<extendedTooltip>
<name>СтраницаКонтактыЗаполненыExtendedTooltip</name>
<id>254</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>Page</type>
<extInfo xsi:type="form:PageGroupExtInfo">
<group>HorizontalIfPossible</group>
<showTitle>auto</showTitle>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>СтраницаКонтактыНеЗаполнены</name>
<id>204</id>
<items xsi:type="form:Button">
<name>УточнитьКонтакты</name>
<id>205</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>УточнитьКонтактыExtendedTooltip</name>
<id>259</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>Hyperlink</type>
<commandName>Form.Command.УточнитьКонтакты</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>PictureAndText</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Страница контакты не заполнены</value>
</title>
<extendedTooltip>
<name>СтраницаКонтактыНеЗаполненыExtendedTooltip</name>
<id>257</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>Page</type>
<extInfo xsi:type="form:PageGroupExtInfo">
<group>HorizontalIfPossible</group>
<showTitle>auto</showTitle>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Страницы указаны контакты</value>
</title>
<groupHorizontalAlign>Right</groupHorizontalAlign>
<extendedTooltip>
<name>СтраницыУказаныКонтактыExtendedTooltip</name>
<id>253</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>Pages</type>
<extInfo xsi:type="form:PagesGroupExtInfo">
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>Тема</name>
<id>29</id>
@@ -898,6 +1042,113 @@
<autoMaxCardHeight>true</autoMaxCardHeight>
<rowFilter xsi:type="core:UndefinedValue"/>
</items>
<items xsi:type="form:FormGroup">
<name>ВложенияКоманды</name>
<id>313</id>
<items xsi:type="form:Button">
<name>ОткрытьВложениеКоманда</name>
<id>315</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<skipOnInput>false</skipOnInput>
<extendedTooltip>
<name>ОткрытьВложениеКомандаРасширеннаяПодсказка</name>
<id>316</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.ОткрытьВложение</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:Button">
<name>СохранитьВложениеКоманда</name>
<id>317</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<skipOnInput>false</skipOnInput>
<extendedTooltip>
<name>СохранитьВложениеКомандаРасширеннаяПодсказка</name>
<id>318</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.СохранитьВложение</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:Button">
<name>СвойстваВложения</name>
<id>319</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>СвойстваВложенияРасширеннаяПодсказка</name>
<id>320</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.СвойстваВложения</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Вложения команды</value>
</title>
<extendedTooltip>
<name>ВложенияКомандыРасширеннаяПодсказка</name>
<id>314</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>CommandBar</type>
<extInfo xsi:type="form:CommandBarExtInfo">
<horizontalAlign>Right</horizontalAlign>
</extInfo>
</items>
<items xsi:type="form:FormField">
<name>Предмет</name>
<id>144</id>
@@ -1081,149 +1332,6 @@
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>СтраницыУказаныКонтакты</name>
<id>203</id>
<items xsi:type="form:FormGroup">
<name>СтраницаКонтактыЗаполнены</name>
<id>206</id>
<items xsi:type="form:Decoration">
<name>ДекорацияКонтактыНеЗаполнены</name>
<id>210</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ДекорацияКонтактыНеЗаполненыРасширеннаяПодсказка</name>
<id>255</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДекорацияКонтактыНеЗаполненыКонтекстноеМеню</name>
<id>211</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<width>12</width>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Страница контакты заполнены</value>
</title>
<extendedTooltip>
<name>СтраницаКонтактыЗаполненыExtendedTooltip</name>
<id>254</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>Page</type>
<extInfo xsi:type="form:PageGroupExtInfo">
<group>HorizontalIfPossible</group>
<showTitle>auto</showTitle>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>СтраницаКонтактыНеЗаполнены</name>
<id>204</id>
<items xsi:type="form:Button">
<name>УточнитьКонтакты</name>
<id>205</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>УточнитьКонтактыExtendedTooltip</name>
<id>259</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>Hyperlink</type>
<commandName>Form.Command.УточнитьКонтакты</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Страница контакты не заполнены</value>
</title>
<extendedTooltip>
<name>СтраницаКонтактыНеЗаполненыExtendedTooltip</name>
<id>257</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>Page</type>
<extInfo xsi:type="form:PageGroupExtInfo">
<group>HorizontalIfPossible</group>
<showTitle>auto</showTitle>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Страницы указаны контакты</value>
</title>
<extendedTooltip>
<name>СтраницыУказаныКонтактыExtendedTooltip</name>
<id>253</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>Pages</type>
<extInfo xsi:type="form:PagesGroupExtInfo">
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>ГруппаВажностьНомерОтправлено</name>
<id>187</id>
@@ -1520,6 +1628,34 @@
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
<locationInCommandBar>InAdditionalSubmenu</locationInCommandBar>
</items>
<items xsi:type="form:Button">
<name>Записать</name>
<id>164</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<skipOnInput>false</skipOnInput>
<extendedTooltip>
<name>ЗаписатьExtendedTooltip</name>
<id>236</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.StandardCommand.Write</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Picture</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:Button">
<name>ФормаЖурналДокументовВзаимодействияСохранитьПисьмоНаДиск</name>
@@ -1544,12 +1680,11 @@
</extendedTooltip>
<commandName>DocumentJournal.Взаимодействия.Command.СохранитьПисьмоНаДиск</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<representation>Picture</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
<locationInCommandBar>InAdditionalSubmenu</locationInCommandBar>
</items>
<items xsi:type="form:Button">
<name>ФормаПеречитать</name>
@@ -1605,33 +1740,6 @@
<representationInContextMenu>Auto</representationInContextMenu>
<locationInCommandBar>InAdditionalSubmenu</locationInCommandBar>
</items>
<items xsi:type="form:Button">
<name>Записать</name>
<id>164</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<skipOnInput>false</skipOnInput>
<extendedTooltip>
<name>ЗаписатьExtendedTooltip</name>
<id>236</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.StandardCommand.Write</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:FormGroup">
<name>ГруппаОтветитьПереслать</name>
<id>191</id>
@@ -2270,7 +2378,7 @@
<name>ОткрытьВложение</name>
<title>
<key>ru</key>
<value>Открыть</value>
<value>Открыть...</value>
</title>
<id>1</id>
<toolTip>
@@ -2320,7 +2428,7 @@
<name>ПараметрыПисьма</name>
<title>
<key>ru</key>
<value>Параметры письма</value>
<value>Параметры письма...</value>
</title>
<id>3</id>
<toolTip>
@@ -2343,7 +2451,7 @@
<name>СвязанныеВзаимодействия</name>
<title>
<key>ru</key>
<value>Связанные взаимодействия</value>
<value>Связанные взаимодействия...</value>
</title>
<id>4</id>
<toolTip>
@@ -2369,12 +2477,12 @@
<name>ИзменитьКодировку</name>
<title>
<key>ru</key>
<value>Изменить кодировку</value>
<value>Изменить кодировку...</value>
</title>
<id>5</id>
<toolTip>
<key>ru</key>
<value>Изменить кодировку</value>
<value>Изменить кодировку письма</value>
</toolTip>
<use>
<common>true</common>
@@ -2391,16 +2499,19 @@
<name>УточнитьКонтакты</name>
<title>
<key>ru</key>
<value>Уточнить контакты</value>
<value>Сохранить адреса в контакты</value>
</title>
<id>6</id>
<toolTip>
<key>ru</key>
<value>Уточнить контакты</value>
<value>Внести адресаты письма в адресную книгу</value>
</toolTip>
<use>
<common>true</common>
</use>
<picture xsi:type="core:PictureRef">
<picture>CommonPicture.Встреча</picture>
</picture>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>УточнитьКонтакты</name>
@@ -2413,7 +2524,7 @@
<name>СвойстваВложения</name>
<title>
<key>ru</key>
<value>Свойства</value>
<value>Свойства вложения...</value>
</title>
<id>7</id>
<toolTip>
SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаДокумента/Module.bsl
+46
View File
@@ -49,6 +49,13 @@
Элементы.СтраницаКомментарий.Картинка = ОбщегоНазначенияКлиентСервер.КартинкаКомментария(Объект.Комментарий);
КонецЕсли;
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
&НаКлиенте
@@ -61,6 +68,13 @@
КонецЕсли;
// Конец СтандартныеПодсистемы.Свойства
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
&НаСервере
@@ -140,6 +154,13 @@
МодульУправлениеДоступом.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.УправлениеДоступом
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиентСервер = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКомандыКлиентСервер");
МодульПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
@@ -765,4 +786,29 @@
УстановитьВидимостьПредупрежденияБезопасности();
КонецПроцедуры
// СтандартныеПодсистемы.ПодключаемыеКоманды
&НаКлиенте
Процедура Подключаемый_ВыполнитьКоманду(Команда)
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьВыполнениеКоманды(ЭтотОбъект, Команда, Объект);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ПродолжитьВыполнениеКомандыНаСервере(ПараметрыВыполнения, ДополнительныеПараметры) Экспорт
ВыполнитьКомандуНаСервере(ПараметрыВыполнения);
КонецПроцедуры
&НаСервере
Процедура ВыполнитьКомандуНаСервере(ПараметрыВыполнения)
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, ПараметрыВыполнения, Объект);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ОбновитьКоманды()
МодульПодключаемыеКомандыКлиентСервер = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиентСервер");
МодульПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект);
КонецПроцедуры
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
#КонецОбласти
SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаСписка/Form.form
+4
View File
@@ -205,6 +205,10 @@
<id>3</id>
<horizontalAlign>Left</horizontalAlign>
</autoCommandBar>
<handlers>
<event>OnActivateRow</event>
<name>СписокПриАктивизацииСтроки</name>
</handlers>
<searchStringAddition>
<name>СписокСтрокаПоиска</name>
<id>21</id>
SSL/src/Documents/ЭлектронноеПисьмоВходящее/Forms/ФормаСписка/Module.bsl
+48
View File
@@ -13,6 +13,29 @@
УстановитьУсловноеОформление();
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиСобытийЭлементовТаблицыФормыСписок
&НаКлиенте
Процедура СписокПриАктивизацииСтроки(Элемент)
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
#КонецОбласти
@@ -26,5 +49,30 @@
КонецПроцедуры
// СтандартныеПодсистемы.ПодключаемыеКоманды
&НаКлиенте
Процедура Подключаемый_ВыполнитьКоманду(Команда)
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьВыполнениеКоманды(ЭтотОбъект, Команда, Элементы.Список);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ПродолжитьВыполнениеКомандыНаСервере(ПараметрыВыполнения, ДополнительныеПараметры) Экспорт
ВыполнитьКомандуНаСервере(ПараметрыВыполнения);
КонецПроцедуры
&НаСервере
Процедура ВыполнитьКомандуНаСервере(ПараметрыВыполнения)
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, ПараметрыВыполнения, Элементы.Список);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ОбновитьКоманды()
МодульПодключаемыеКомандыКлиентСервер = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиентСервер");
МодульПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Элементы.Список);
КонецПроцедуры
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
#КонецОбласти
SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаДокумента/Form.form
+796 -381
View File
File diff suppressed because it is too large. Load diff
SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаДокумента/Module.bsl
+61 -84
View File
@@ -49,6 +49,13 @@
ОпределитьВозможностьЗаполненияПисьмаПоШаблону();
// Конец СтандартныеПодсистемы.ШаблоныСообщений
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
&НаКлиенте
@@ -61,6 +68,13 @@
КонецЕсли;
// Конец СтандартныеПодсистемы.Свойства
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
УправлениеДоступностью();
КонецПроцедуры
@@ -170,7 +184,14 @@
МодульУправлениеДоступом.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.УправлениеДоступом
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиентСервер = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКомандыКлиентСервер");
МодульПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
&НаКлиенте
@@ -760,11 +781,11 @@
Возврат;
КонецЕсли;
ДанныеВыбора = ДанныеВыбораДляЭлектронногоПисьма(Текст, 0);
ДанныеВыбора = НайтиКонтакты(Текст);
Если ДанныеВыбора.Количество() > 0 Тогда
СтандартнаяОбработка = Ложь;
Иначе
ДанныеВыбора = Неопределено
ДанныеВыбора = Неопределено;
КонецЕсли;
КонецПроцедуры
@@ -1095,14 +1116,11 @@
И (НЕ ИнформационнаяБазаФайловая
ИЛИ (Объект.ДатаКогдаОтправить <> Дата(1,1,1) И Объект.ДатаКогдаОтправить > ОбщегоНазначенияКлиент.ДатаСеанса())
ИЛИ (Объект.ДатаАктуальностиОтправки <> Дата(1,1,1) И Объект.ДатаАктуальностиОтправки < ОбщегоНазначенияКлиент.ДатаСеанса())) Тогда
Элементы.Отправить.Видимость = Ложь;
Иначе
Элементы.Отправить.Видимость = Истина;
КонецЕсли;
Элементы.ФормаЗаписатьИЗакрыть.Видимость = Не Элементы.Отправить.Видимость;
Элементы.ГруппаДатаОтправкиАктуальность.Доступность = (Объект.СтатусПисьма <> ПредопределенноеЗначение("Перечисление.СтатусыИсходящегоЭлектронногоПисьма.Отправлено"));
@@ -2241,86 +2259,20 @@
КонецПроцедуры
&НаСервереБезКонтекста
Функция ДанныеВыбораДляЭлектронногоПисьма(Текст, ИндексВСпискеПолучателей)
Функция НайтиКонтакты(Знач СтрокаПоиска)
ВозвращаемыйСписок = Новый СписокЗначений;
МассивОписанияТиповКонтактов = ВзаимодействияКлиентСервер.ОписанияКонтактов();
ТекстЗапроса =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ РАЗЛИЧНЫЕ
| СправочникКонтакт.Ссылка КАК Контакт,
| ПРЕДСТАВЛЕНИЕ(СправочникКонтакт.Ссылка) КАК Представление,
| ТаблицаКонтактнаяИнформация.АдресЭП КАК АдресЭП
|ИЗ
| Справочник.Пользователи КАК СправочникКонтакт
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Пользователи.КонтактнаяИнформация КАК ТаблицаКонтактнаяИнформация
| ПО (ТаблицаКонтактнаяИнформация.Ссылка = СправочникКонтакт.Ссылка)
| И (ТаблицаКонтактнаяИнформация.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.АдресЭлектроннойПочты) И (ТаблицаКонтактнаяИнформация.АдресЭП <> """"))
|ГДЕ
| (СправочникКонтакт.Наименование ПОДОБНО &ВведеннаяСтрока
| ИЛИ ТаблицаКонтактнаяИнформация.АдресЭП ПОДОБНО &ВведеннаяСтрока
| ИЛИ ТаблицаКонтактнаяИнформация.ДоменноеИмяСервера ПОДОБНО &ВведеннаяСтрока
| ИЛИ ТаблицаКонтактнаяИнформация.Представление ПОДОБНО &ВведеннаяСтрока)";
Для каждого ЭлементМассиваОписания Из МассивОписанияТиповКонтактов Цикл
Если ЭлементМассиваОписания.Имя = "Пользователи" Тогда
Продолжить;
Иначе
УсловиеПолейВводаПоСтроке = "";
МетаданныеОбъекта = Метаданные.НайтиПоТипу(ЭлементМассиваОписания.Тип);
СписокПолей = МетаданныеОбъекта.ВводПоСтроке;
Для Каждого Поле Из СписокПолей Цикл
Если МетаданныеОбъекта.СтандартныеРеквизиты[Поле.Имя].Тип.Типы()[0] = Тип("Строка") Тогда
УсловиеПолейВводаПоСтроке = УсловиеПолейВводаПоСтроке + " ИЛИ СправочникКонтакт." + Поле.Имя + " ПОДОБНО &ВведеннаяСтрока";
КонецЕсли;
КонецЦикла;
ТекстЗапроса = ТекстЗапроса + "
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| СправочникКонтакт.Ссылка КАК Контакт,
| СправочникКонтакт." + ЭлементМассиваОписания.ИмяРеквизитаПредставлениеКонтакта + " КАК Представление,
| ТаблицаКонтактнаяИнформация.АдресЭП КАК АдресЭП
|ИЗ
| Справочник." + ЭлементМассиваОписания.Имя + " КАК СправочникКонтакт
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник." + ЭлементМассиваОписания.Имя + ".КонтактнаяИнформация КАК ТаблицаКонтактнаяИнформация
| ПО (ТаблицаКонтактнаяИнформация.Ссылка = СправочникКонтакт.Ссылка)
| И (ТаблицаКонтактнаяИнформация.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.АдресЭлектроннойПочты) И (ТаблицаКонтактнаяИнформация.АдресЭП <> """"))
|ГДЕ
| (ТаблицаКонтактнаяИнформация.АдресЭП ПОДОБНО &ВведеннаяСтрока
| ИЛИ ТаблицаКонтактнаяИнформация.ДоменноеИмяСервера ПОДОБНО &ВведеннаяСтрока
| ИЛИ ТаблицаКонтактнаяИнформация.Представление ПОДОБНО &ВведеннаяСтрока
|" + УсловиеПолейВводаПоСтроке + ")
|";
КонецЕсли;
КонецЦикла;
Запрос = Новый Запрос(ТекстЗапроса);
Запрос.УстановитьПараметр("ВведеннаяСтрока", Текст + "%");
Результат = Запрос.Выполнить();
Если Результат.Пустой() Тогда
Возврат ВозвращаемыйСписок;
КонецЕсли;
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
Результат = Новый СписокЗначений;
ТаблицаКонтактов = Взаимодействия.НайтиКонтактыСАдресами(СтрокаПоиска);
Для каждого Выборка Из ТаблицаКонтактов Цикл
ЗначениеВыбора = Новый Структура;
ЗначениеВыбора.Вставить("Контакт", Выборка.Контакт);
ЗначениеВыбора.Вставить("Адрес", Выборка.АдресЭП);
ЗначениеВыбора.Вставить("Представление", Выборка.Представление);
ЗначениеВыбора.Вставить("ИндексВСпискеПолучателей", ИндексВСпискеПолучателей);
ВозвращаемыйСписок.Добавить(ЗначениеВыбора,
ВзаимодействияКлиентСервер.ПолучитьПредставлениеАдресата(Выборка.Представление, Выборка.АдресЭП, ""));
ЗначениеВыбора.Вставить("Адрес", Выборка.Представление);
ЗначениеВыбора.Вставить("Представление", Выборка.Наименование);
ЗначениеВыбора.Вставить("ИндексВСпискеПолучателей", 0);
Результат.Добавить(ЗначениеВыбора,
ВзаимодействияКлиентСервер.ПолучитьПредставлениеАдресата(Выборка.Наименование, Выборка.Представление, ""));
КонецЦикла;
Возврат ВозвращаемыйСписок;
Возврат Результат;
КонецФункции
@@ -2375,7 +2327,7 @@
ПараметрыОткрытия.Вставить("СписокВыбранных", СписокВыбранных);
ПараметрыОткрытия.Вставить("Предмет", Предмет);
ПараметрыОткрытия.Вставить("Письмо", Объект.Ссылка);
ПараметрыОткрытия.Вставить("ГруппаПоУмолчанию",?(ПустаяСтрока(ГруппаПодбора),НСтр("ru = 'Кому'"), ГруппаПодбора));
ПараметрыОткрытия.Вставить("ГруппаПоУмолчанию", ?(ПустаяСтрока(ГруппаПодбора), НСтр("ru = 'Кому'"), ГруппаПодбора));
// Откроем форму для редактирования списка адресатов.
ОповещениеПослеЗакрытия = Новый ОписаниеОповещения("ПослеЗаполненияАдреснойКниги", ЭтотОбъект);
@@ -3050,4 +3002,29 @@
#КонецОбласти
// СтандартныеПодсистемы.ПодключаемыеКоманды
&НаКлиенте
Процедура Подключаемый_ВыполнитьКоманду(Команда)
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьВыполнениеКоманды(ЭтотОбъект, Команда, Объект);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ПродолжитьВыполнениеКомандыНаСервере(ПараметрыВыполнения, ДополнительныеПараметры) Экспорт
ВыполнитьКомандуНаСервере(ПараметрыВыполнения);
КонецПроцедуры
&НаСервере
Процедура ВыполнитьКомандуНаСервере(ПараметрыВыполнения)
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, ПараметрыВыполнения, Объект);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ОбновитьКоманды()
МодульПодключаемыеКомандыКлиентСервер = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиентСервер");
МодульПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Объект);
КонецПроцедуры
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
#КонецОбласти
SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаСписка/Form.form
+4
View File
@@ -344,6 +344,10 @@
<id>5</id>
<horizontalAlign>Left</horizontalAlign>
</autoCommandBar>
<handlers>
<event>OnActivateRow</event>
<name>СписокПриАктивизацииСтроки</name>
</handlers>
<searchStringAddition>
<name>СписокСтрокаПоиска</name>
<id>7</id>
SSL/src/Documents/ЭлектронноеПисьмоИсходящее/Forms/ФормаСписка/Module.bsl
+48
View File
@@ -13,6 +13,29 @@
УстановитьУсловноеОформление();
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ПриСозданииНаСервере(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиСобытийЭлементовТаблицыФормыСписок
&НаКлиенте
Процедура СписокПриАктивизацииСтроки(Элемент)
// СтандартныеПодсистемы.ПодключаемыеКоманды
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПодключаемыеКоманды") Тогда
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьОбновлениеКоманд(ЭтотОбъект);
КонецЕсли;
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
КонецПроцедуры
#КонецОбласти
@@ -26,4 +49,29 @@
КонецПроцедуры
// СтандартныеПодсистемы.ПодключаемыеКоманды
&НаКлиенте
Процедура Подключаемый_ВыполнитьКоманду(Команда)
МодульПодключаемыеКомандыКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиент");
МодульПодключаемыеКомандыКлиент.НачатьВыполнениеКоманды(ЭтотОбъект, Команда, Элементы.Список);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ПродолжитьВыполнениеКомандыНаСервере(ПараметрыВыполнения, ДополнительныеПараметры) Экспорт
ВыполнитьКомандуНаСервере(ПараметрыВыполнения);
КонецПроцедуры
&НаСервере
Процедура ВыполнитьКомандуНаСервере(ПараметрыВыполнения)
МодульПодключаемыеКоманды = ОбщегоНазначения.ОбщийМодуль("ПодключаемыеКоманды");
МодульПодключаемыеКоманды.ВыполнитьКоманду(ЭтотОбъект, ПараметрыВыполнения, Элементы.Список);
КонецПроцедуры
&НаКлиенте
Процедура Подключаемый_ОбновитьКоманды()
МодульПодключаемыеКомандыКлиентСервер = ОбщегоНазначенияКлиент.ОбщийМодуль("ПодключаемыеКомандыКлиентСервер");
МодульПодключаемыеКомандыКлиентСервер.ОбновитьКоманды(ЭтотОбъект, Элементы.Список);
КонецПроцедуры
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
#КонецОбласти
SSL/src/InformationRegisters/НастройкиВариантовОтчетов/ManagerModule.bsl
+90 -40
View File
@@ -439,6 +439,95 @@
КонецФункции
////////////////////////////////////////////////////////////////////////////////
// Настройка доступности вариантов отчетов по умолчанию.
Процедура УстановитьДоступностьВариантовОтчетовПоУмолчанию() Экспорт
Запрос = Новый Запрос(ТекстЗапросаНастроекДоступностиВариантовОтчетовПоУмолчанию());
Данные = Запрос.Выполнить().Выбрать();
МетаданныеРегистра = Метаданные.РегистрыСведений.НастройкиВариантовОтчетов;
КодОсновногоЯзыка = ОбщегоНазначения.КодОсновногоЯзыка();
Пока Данные.Следующий() Цикл
Попытка
ПеренестиНастройкиДоступностиВариантаОтчета(Данные);
Исключение
ШаблонКомментария = НСтр("ru = 'Не удалось установить доступность варианта отчета ""%1"" по умолчанию
|по причине: %2'");
Комментарий = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
ШаблонКомментария,
Данные.Вариант,
ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
ЗаписьЖурналаРегистрации(
НСтр("ru = 'Варианты отчетов.Установка настроек доступности по умолчанию'", КодОсновногоЯзыка),,
УровеньЖурналаРегистрации.Предупреждение,
МетаданныеРегистра,,
Комментарий);
КонецПопытки;
КонецЦикла;
КонецПроцедуры
Функция ТекстЗапросаНастроекДоступностиВариантовОтчетовПоУмолчанию()
Возврат "ВЫБРАТЬ РАЗРЕШЕННЫЕ РАЗЛИЧНЫЕ
| Отчеты.Ссылка КАК Вариант,
| ЗНАЧЕНИЕ(Справочник.ИдентификаторыОбъектовМетаданных.ПустаяСсылка) КАК Подсистема,
| НЕОПРЕДЕЛЕНО КАК Пользователь,
| ВЫБОР
| КОГДА Отчеты.ВидимостьПоУмолчаниюПереопределена
| ИЛИ ЕСТЬNULL(ОтчетыКонфигурации.ВидимостьПоУмолчанию, ОтчетыРасширений.ВидимостьПоУмолчанию) ЕСТЬ NULL
| ТОГДА Отчеты.ВидимостьПоУмолчанию
| ИНАЧЕ ЕСТЬNULL(ОтчетыКонфигурации.ВидимостьПоУмолчанию, ОтчетыРасширений.ВидимостьПоУмолчанию)
| КОНЕЦ КАК Видимость,
| ЛОЖЬ КАК БыстрыйДоступ
|ПОМЕСТИТЬ Настройки
|ИЗ
| Справочник.ВариантыОтчетов КАК Отчеты
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ВариантыОтчетов.Размещение КАК РазмещениеОтчетов
| ПО РазмещениеОтчетов.Ссылка = Отчеты.Ссылка
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ПредопределенныеВариантыОтчетов КАК ОтчетыКонфигурации
| ПО ОтчетыКонфигурации.Ссылка = Отчеты.ПредопределенныйВариант
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ПредопределенныеВариантыОтчетов.Размещение КАК РазмещениеОтчетовКонфигурации
| ПО РазмещениеОтчетовКонфигурации.Ссылка = Отчеты.ПредопределенныйВариант
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ПредопределенныеВариантыОтчетовРасширений КАК ОтчетыРасширений
| ПО ОтчетыРасширений.Ссылка = Отчеты.ПредопределенныйВариант
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ПредопределенныеВариантыОтчетовРасширений.Размещение КАК РазмещениеОтчетовРасширений
| ПО РазмещениеОтчетовРасширений.Ссылка = Отчеты.ПредопределенныйВариант
|ГДЕ
| ЕСТЬNULL(РазмещениеОтчетов.Использование, ИСТИНА)
| И НЕ ЕСТЬNULL(РазмещениеОтчетов.Подсистема,
| ЕСТЬNULL(РазмещениеОтчетовКонфигурации.Подсистема, РазмещениеОтчетовРасширений.Подсистема)) ЕСТЬ NULL
|;
|
|ВЫБРАТЬ
| Настройки.Вариант,
| Настройки.Подсистема,
| Настройки.Пользователь,
| Настройки.Видимость,
| Настройки.БыстрыйДоступ
|ИЗ
| Настройки КАК Настройки
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.НастройкиВариантовОтчетов КАК НастройкиСуществующие
| ПО НастройкиСуществующие.Вариант = Настройки.Вариант
| И НастройкиСуществующие.Подсистема = Настройки.Подсистема
|ГДЕ
| Настройки.Видимость
| И НастройкиСуществующие.Вариант ЕСТЬ NULL";
КонецФункции
////////////////////////////////////////////////////////////////////////////////
// Обработчики оповещения пользователей варианта отчета.
@@ -627,46 +716,7 @@
//
Процедура ЗарегистрироватьДанныеКОбработкеДляПереходаНаНовуюВерсию(Параметры) Экспорт
Запрос = Новый Запрос(
"ВЫБРАТЬ РАЗРЕШЕННЫЕ РАЗЛИЧНЫЕ
| Отчеты.Ссылка КАК Вариант,
| ЗНАЧЕНИЕ(Справочник.ИдентификаторыОбъектовМетаданных.ПустаяСсылка) КАК Подсистема,
| НЕОПРЕДЕЛЕНО КАК Пользователь,
| ВЫБОР
| КОГДА Отчеты.ВидимостьПоУмолчаниюПереопределена
| ИЛИ ЕСТЬNULL(ОтчетыКонфигурации.ВидимостьПоУмолчанию, ОтчетыРасширений.ВидимостьПоУмолчанию) ЕСТЬ NULL
| ТОГДА Отчеты.ВидимостьПоУмолчанию
| ИНАЧЕ ЕСТЬNULL(ОтчетыКонфигурации.ВидимостьПоУмолчанию, ОтчетыРасширений.ВидимостьПоУмолчанию)
| КОНЕЦ КАК Видимость
|ПОМЕСТИТЬ Настройки
|ИЗ
| Справочник.ВариантыОтчетов КАК Отчеты
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ВариантыОтчетов.Размещение КАК РазмещениеОтчетов
| ПО РазмещениеОтчетов.Ссылка = Отчеты.Ссылка
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ПредопределенныеВариантыОтчетов КАК ОтчетыКонфигурации
| ПО ОтчетыКонфигурации.Ссылка = Отчеты.ПредопределенныйВариант
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ПредопределенныеВариантыОтчетов.Размещение КАК РазмещениеОтчетовКонфигурации
| ПО РазмещениеОтчетовКонфигурации.Ссылка = Отчеты.ПредопределенныйВариант
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ПредопределенныеВариантыОтчетовРасширений КАК ОтчетыРасширений
| ПО ОтчетыРасширений.Ссылка = Отчеты.ПредопределенныйВариант
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ПредопределенныеВариантыОтчетовРасширений.Размещение КАК РазмещениеОтчетовРасширений
| ПО РазмещениеОтчетовРасширений.Ссылка = Отчеты.ПредопределенныйВариант
|ГДЕ
| ЕСТЬNULL(РазмещениеОтчетов.Использование, ИСТИНА)
| И НЕ ЕСТЬNULL(РазмещениеОтчетов.Подсистема,
| ЕСТЬNULL(РазмещениеОтчетовКонфигурации.Подсистема, РазмещениеОтчетовРасширений.Подсистема)) ЕСТЬ NULL
|;
|
|ВЫБРАТЬ
| Настройки.Вариант
|ИЗ
| Настройки КАК Настройки
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.НастройкиВариантовОтчетов КАК НастройкиСуществующие
| ПО НастройкиСуществующие.Вариант = Настройки.Вариант
| И НастройкиСуществующие.Подсистема = Настройки.Подсистема
|ГДЕ
| Настройки.Видимость
| И НастройкиСуществующие.Вариант ЕСТЬ NULL");
Запрос = Новый Запрос(ТекстЗапросаНастроекДоступностиВариантовОтчетовПоУмолчанию());
Ссылки = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Вариант");
SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/Forms/ОбновлениеДоступаНаУровнеЗаписей/Form.form
+13
View File
@@ -3380,6 +3380,19 @@
<common>true</common>
</edit>
</attributes>
<attributes>
<name>КрасныйЦвет</name>
<id>12</id>
<valueType>
<types>Color</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<formCommands>
<name>РучноеУправление</name>
<title>
SSL/src/InformationRegisters/ОбновлениеКлючейДоступаКДанным/Forms/ОбновлениеДоступаНаУровнеЗаписей/Module.bsl
+3 -1
View File
@@ -56,6 +56,8 @@
Элементы.ГруппаКоличествоПотоковОбновленияДоступа2.Видимость = Ложь;
КонецЕсли;
КрасныйЦвет = ЦветаСтиля.ЦветОсобогоТекста;
КонецПроцедуры
&НаКлиенте
@@ -395,7 +397,7 @@
Если ЗначениеЗаполнено(Состояние.ПоследнееЗавершениеОбновленияДоступа) Тогда
ФорматЧастей = Новый Соответствие;
ЖирныйШрифт = Новый Шрифт(Элементы.ПоследнееЗавершениеОбновленияДоступа.Шрифт,,, Истина);
КрасныйЦвет = Новый Цвет(255, 0, 0);
Если Состояние.ОбновлениеОтмененоНештатно Тогда
Если Состояние.ПоследнееЗавершениеСегодня Тогда
Шаблон = НСтр("ru = '<1>отменено нештатно</1> после запуска в %1'");
SSL/src/Reports/СведенияОПользователях/ObjectModule.bsl
+25 -29
View File
@@ -167,45 +167,41 @@
Запрос.Текст =
"ВЫБРАТЬ
| ПользователиКонтактнаяИнформация.Ссылка КАК Ссылка,
| ПользователиКонтактнаяИнформация.Вид,
| ПользователиКонтактнаяИнформация.Представление
| ПользователиКонтактнаяИнформация.Вид КАК Вид,
| ПользователиКонтактнаяИнформация.Представление КАК Представление
|ИЗ
| Справочник.Пользователи.КонтактнаяИнформация КАК ПользователиКонтактнаяИнформация
|ГДЕ
| ПользователиКонтактнаяИнформация.Вид В (&ВидыКонтактнойИнформации)
| ПользователиКонтактнаяИнформация.Вид В(&ВидыКонтактнойИнформации)
|
|УПОРЯДОЧИТЬ ПО
| ПользователиКонтактнаяИнформация.Ссылка,
| ПользователиКонтактнаяИнформация.Тип.Порядок,
| ПользователиКонтактнаяИнформация.Вид";
| ПользователиКонтактнаяИнформация.Вид
|ИТОГИ ПО
| Ссылка";
Выборка = Запрос.Выполнить().Выбрать();
ВыборкаПоПользователям = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
ТекущаяСсылка = Неопределено;
Телефоны = "";
ЭлектронныеАдреса = "";
Пока Выборка.Следующий() Цикл
Если ТекущаяСсылка <> Выборка.Ссылка Тогда
Если ТекущаяСсылка <> Неопределено Тогда
Если ЗначениеЗаполнено(Телефоны) Или ЗначениеЗаполнено(ЭлектронныеАдреса) Тогда
НоваяСтрока = Контакты.Добавить();
НоваяСтрока.Ссылка = ТекущаяСсылка;
НоваяСтрока.Телефон = Телефоны;
НоваяСтрока.ЭлектронныйАдрес = ЭлектронныеАдреса;
КонецЕсли;
Пока ВыборкаПоПользователям.Следующий() Цикл
Телефоны = "";
ЭлектронныеАдреса = "";
Выборка = ВыборкаПоПользователям.Выбрать();
Пока Выборка.Следующий() Цикл
Если Выборка.Вид = Справочники["ВидыКонтактнойИнформации"].ТелефонПользователя Тогда
Телефоны = Телефоны + ?(ЗначениеЗаполнено(Телефоны), ", ", "");
Телефоны = Телефоны + Выборка.Представление;
КонецЕсли;
Телефоны = "";
ЭлектронныеАдреса = "";
ТекущаяСсылка = Выборка.Ссылка;
КонецЕсли;
Если Выборка.Вид = Справочники["ВидыКонтактнойИнформации"].ТелефонПользователя Тогда
Телефоны = Телефоны + ?(ЗначениеЗаполнено(Телефоны), ", ", "");
Телефоны = Телефоны + Выборка.Представление;
КонецЕсли;
Если Выборка.Вид = Справочники["ВидыКонтактнойИнформации"].EmailПользователя Тогда
ЭлектронныеАдреса = ЭлектронныеАдреса + ?(ЗначениеЗаполнено(ЭлектронныеАдреса), ", ", "");
ЭлектронныеАдреса = ЭлектронныеАдреса + Выборка.Представление;
Если Выборка.Вид = Справочники["ВидыКонтактнойИнформации"].EmailПользователя Тогда
ЭлектронныеАдреса = ЭлектронныеАдреса + ?(ЗначениеЗаполнено(ЭлектронныеАдреса), ", ", "");
ЭлектронныеАдреса = ЭлектронныеАдреса + Выборка.Представление;
КонецЕсли;
КонецЦикла;
Если ЗначениеЗаполнено(Телефоны) Или ЗначениеЗаполнено(ЭлектронныеАдреса) Тогда
НоваяСтрока = Контакты.Добавить();
НоваяСтрока.Ссылка = ВыборкаПоПользователям.Ссылка;
НоваяСтрока.Телефон = Телефоны;
НоваяСтрока.ЭлектронныйАдрес = ЭлектронныеАдреса;
КонецЕсли;
КонецЦикла;
SSL/src/Roles/АдминистраторСистемы/Rights.rights
+87 -87
View File
@@ -1135,93 +1135,6 @@
<value>true</value>
</right>
</object>
<object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right>
<name>Administration</name>
<value>true</value>
</right>
<right>
<name>DataAdministration</name>
<value>true</value>
</right>
<right>
<name>UpdateDataBaseConfiguration</name>
<value>true</value>
</right>
<right>
<name>ExclusiveMode</name>
<value>true</value>
</right>
<right>
<name>ActiveUsers</name>
<value>true</value>
</right>
<right>
<name>EventLog</name>
<value>true</value>
</right>
<right>
<name>ThinClient</name>
<value>true</value>
</right>
<right>
<name>WebClient</name>
<value>true</value>
</right>
<right>
<name>ThickClient</name>
<value>true</value>
</right>
<right>
<name>ExternalConnection</name>
<value>true</value>
</right>
<right>
<name>Automation</name>
<value>true</value>
</right>
<right>
<name>TechnicalSpecialistMode</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeNormal</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeEmbeddedWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeFullscreenWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeKiosk</name>
<value>true</value>
</right>
<right>
<name>AnalyticsSystemClient</name>
<value>true</value>
</right>
<right>
<name>SaveUserData</name>
<value>true</value>
</right>
<right>
<name>ConfigurationExtensionsAdministration</name>
<value>true</value>
</right>
<right>
<name>Output</name>
<value>true</value>
</right>
</object>
<object>
<name>Catalog.СценарииОбменовДанными</name>
<right>
@@ -1485,6 +1398,93 @@
<value>true</value>
</right>
</object>
<object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right>
<name>Administration</name>
<value>true</value>
</right>
<right>
<name>DataAdministration</name>
<value>true</value>
</right>
<right>
<name>UpdateDataBaseConfiguration</name>
<value>true</value>
</right>
<right>
<name>ExclusiveMode</name>
<value>true</value>
</right>
<right>
<name>ActiveUsers</name>
<value>true</value>
</right>
<right>
<name>EventLog</name>
<value>true</value>
</right>
<right>
<name>ThinClient</name>
<value>true</value>
</right>
<right>
<name>WebClient</name>
<value>true</value>
</right>
<right>
<name>ThickClient</name>
<value>true</value>
</right>
<right>
<name>ExternalConnection</name>
<value>true</value>
</right>
<right>
<name>Automation</name>
<value>true</value>
</right>
<right>
<name>TechnicalSpecialistMode</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeNormal</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeEmbeddedWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeFullscreenWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeKiosk</name>
<value>true</value>
</right>
<right>
<name>AnalyticsSystemClient</name>
<value>true</value>
</right>
<right>
<name>SaveUserData</name>
<value>true</value>
</right>
<right>
<name>ConfigurationExtensionsAdministration</name>
<value>true</value>
</right>
<right>
<name>Output</name>
<value>true</value>
</right>
</object>
<object>
<name>InformationRegister.НастройкиТранспортаОбменаОбластейДанных</name>
<right>
SSL/src/Roles/ДобавлениеИзменениеРассылокОтчетов/Rights.rights
+7 -7
View File
@@ -14,6 +14,13 @@
<value>true</value>
</right>
</object>
<object>
<name>Catalog.РассылкиОтчетов.Command.СобытияРассылки</name>
<right>
<name>View</name>
<value>true</value>
</right>
</object>
<object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right>
@@ -45,13 +52,6 @@
<value>true</value>
</right>
</object>
<object>
<name>Catalog.РассылкиОтчетов.Command.СобытияРассылки</name>
<right>
<name>View</name>
<value>true</value>
</right>
</object>
<object>
<name>Catalog.РассылкиОтчетов.Command.ВыполнитьСейчас</name>
<right>
SSL/src/Roles/НастройкаИОценкаПроизводительности/Rights.rights
+19
View File
@@ -152,6 +152,25 @@
<value>true</value>
</right>
</object>
<object>
<name>Constant.ДатаПоследнейВыгрузкиЗамеровПроизводительностиUTC</name>
<right>
<name>Read</name>
<value>true</value>
</right>
<right>
<name>Update</name>
<value>true</value>
</right>
<right>
<name>View</name>
<value>true</value>
</right>
<right>
<name>Edit</name>
<value>true</value>
</right>
</object>
<object>
<name>Constant.КоличествоЗамеровВПакетеЭкспорта</name>
<right>
SSL/src/Roles/ПолныеПрава/Rights.rights
+39 -39
View File
@@ -1658,45 +1658,6 @@
<value>false</value>
</right>
</object>
<object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right>
<name>Administration</name>
<value>false</value>
</right>
<right>
<name>UpdateDataBaseConfiguration</name>
<value>false</value>
</right>
<right>
<name>ThickClient</name>
<value>false</value>
</right>
<right>
<name>ExternalConnection</name>
<value>false</value>
</right>
<right>
<name>Automation</name>
<value>false</value>
</right>
<right>
<name>TechnicalSpecialistMode</name>
<value>false</value>
</right>
<right>
<name>ConfigurationExtensionsAdministration</name>
<value>false</value>
</right>
<right>
<name>InteractiveOpenExtDataProcessors</name>
<value>false</value>
</right>
<right>
<name>InteractiveOpenExtReports</name>
<value>false</value>
</right>
</object>
<object>
<name>Task.ЗадачаИсполнителя</name>
<right>
@@ -2058,6 +2019,45 @@
<value>false</value>
</right>
</object>
<object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right>
<name>Administration</name>
<value>false</value>
</right>
<right>
<name>UpdateDataBaseConfiguration</name>
<value>false</value>
</right>
<right>
<name>ThickClient</name>
<value>false</value>
</right>
<right>
<name>ExternalConnection</name>
<value>false</value>
</right>
<right>
<name>Automation</name>
<value>false</value>
</right>
<right>
<name>TechnicalSpecialistMode</name>
<value>false</value>
</right>
<right>
<name>ConfigurationExtensionsAdministration</name>
<value>false</value>
</right>
<right>
<name>InteractiveOpenExtDataProcessors</name>
<value>false</value>
</right>
<right>
<name>InteractiveOpenExtReports</name>
<value>false</value>
</right>
</object>
<object>
<name>InformationRegister.НастройкиТранспортаОбменаОбластейДанных</name>
<right>
SSL/src/StyleItems/ОбразецНастройкиКолонтитуловЦвет/ОбразецНастройкиКолонтитуловЦвет.mdo
+15
View File
@@ -0,0 +1,15 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:StyleItem xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="9f9e6146-17ce-4296-a89f-33dfe4d0468d">
<name>ОбразецНастройкиКолонтитуловЦвет</name>
<synonym>
<key>ru</key>
<value>Образец настройки колонтитулов цвет</value>
</synonym>
<value xsi:type="core:ColorValue">
<value xsi:type="core:ColorDef">
<red>128</red>
<green>128</green>
<blue>128</blue>
</value>
</value>
</mdclass:StyleItem>
SSL/src/Subsystems/Администрирование/CommandInterface.cmi
+9
View File
@@ -119,6 +119,10 @@
<command>CommonCommand.ВремяТекущегоСеанса</command>
<visible/>
</visibilityFragments>
<visibilityFragments>
<command>Catalog.ПрофилиКлючевыхОпераций.StandardCommand.OpenList</command>
<visible/>
</visibilityFragments>
<visibilityFragments>
<command>Catalog.ПравилаПроверкиУчета.StandardCommand.OpenList</command>
<visible/>
@@ -143,6 +147,10 @@
<command>DataProcessor.НастройкаСтандартногоИнтерфейсаOData.Command.НастройкиСтандартногоИнтерфейсаOData</command>
<visible/>
</visibilityFragments>
<visibilityFragments>
<command>Catalog.ВнешниеКомпоненты.StandardCommand.OpenList</command>
<visible/>
</visibilityFragments>
<visibilityFragments>
<command>CommonCommand.АвтономнаяРаботаВМоделиСервиса</command>
<visible>
@@ -486,6 +494,7 @@
<commands>InformationRegister.АдресныеОбъекты.Command.ОчиститьАдресныйКлассификатор</commands>
<commands>InformationRegister.АдресныеОбъекты.Command.ПодключитьИнтернетПоддержку</commands>
<commands>DataProcessor.НастройкаСтандартногоИнтерфейсаOData.Command.НастройкиСтандартногоИнтерфейсаOData</commands>
<commands>Catalog.ВнешниеКомпоненты.StandardCommand.OpenList</commands>
</orderFragments>
<orderFragments>
<group>NavigationPanelSeeAlso</group>
SSL/src/Subsystems/Администрирование/Администрирование.mdo
+1
View File
@@ -102,4 +102,5 @@
<content>InformationRegister.АдресныеОбъекты</content>
<content>CommonForm.УстановленныеИсправления</content>
<content>DataProcessor.НастройкаСтандартногоИнтерфейсаOData</content>
<content>Catalog.ВнешниеКомпоненты</content>
</mdclass:Subsystem>
SSL/src/Subsystems/СтандартныеПодсистемы/Subsystems/ВариантыОтчетов/ВариантыОтчетов.mdo
+1
View File
@@ -81,5 +81,6 @@
<content>StyleItem.ГруппаВариантовОтчетовОбычнаяШрифт</content>
<content>StyleItem.РазделВариантовОтчетовШрифт</content>
<content>StyleItem.ФонРезультатовПоиска</content>
<content>StyleItem.ОбразецНастройкиКолонтитуловЦвет</content>
<parentSubsystem>Subsystem.СтандартныеПодсистемы</parentSubsystem>
</mdclass:Subsystem>