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

2_4_2_164

Browse Source
This commit is contained in:
Компания 1С committed 2017-11-23 00:19:00 +03:00
1 parent 5a5e75c7ad
commit ea835989f1
341 files changed
+5216 -71819
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

SSL/src/Catalogs/Валюты/Forms/ФормаСписка/Module.bsl
+8 -4
View File
@@ -8,6 +8,8 @@
Возврат;
КонецЕсли;
Элементы.Валюты.РежимВыбора = Параметры.РежимВыбора;
ДатаКурса = НачалоДня(ТекущаяДатаСеанса());
Список.КомпоновщикНастроек.Настройки.ДополнительныеСвойства.Вставить("ДатаКурса", ДатаКурса);
@@ -23,16 +25,18 @@
Элементы.ФормаЗагрузитьКурсыВалют.Видимость = Ложь;
КонецЕсли;
ДоступнаЗагрузкаКурсов = Метаданные.Обработки.Найти("ЗагрузкаКурсовВалют") <> Неопределено;
ДоступноИзменениеВалют = ПравоДоступа("Изменение", Метаданные.РегистрыСведений.КурсыВалют);
ДоступнаЗагрузкаКурсов = Метаданные.Обработки.Найти("ЗагрузкаКурсовВалют") <> Неопределено И ДоступноИзменениеВалют;
Элементы.ФормаПодборИзКлассификатора.Видимость = ДоступнаЗагрузкаКурсов;
Элементы.ФормаЗагрузитьКурсыВалют.Видимость = ДоступнаЗагрузкаКурсов;
Если Не ДоступнаЗагрузкаКурсов Тогда
Элементы.СоздатьВалюту.Заголовок = НСтр("ru = 'Создать'");
Если ДоступноИзменениеВалют Тогда
Элементы.СоздатьВалюту.Заголовок = НСтр("ru = 'Создать'");
КонецЕсли;
Элементы.Создать.Вид = ВидГруппыФормы.ГруппаКнопок;
КонецЕсли;
Элементы.ФормаЗагрузитьКурсыВалют.Видимость = ДоступнаЗагрузкаКурсов;
КонецПроцедуры
&НаКлиенте
SSL/src/Catalogs/Валюты/Forms/ФормаЭлемента/Module.bsl
+1
View File
@@ -122,6 +122,7 @@
ОписаниеОповещения = Новый ОписаниеОповещения("ПриИзмененииПараметровПрописиВалюты", ЭтотОбъект);
Если ЕстьФормаПрописей Тогда
ПараметрыОткрытия = Новый Структура;
ПараметрыОткрытия.Вставить("ТолькоПросмотр", ТолькоПросмотр);
ПараметрыОткрытия.Вставить("ПараметрыПрописи", Объект.ПараметрыПрописи);
ИмяФормыРедактированияПрописей = "Обработка.ЗагрузкаКурсовВалют.Форма.ПараметрыПрописиВалюты";
ОткрытьФорму(ИмяФормыРедактированияПрописей, ПараметрыОткрытия, ЭтотОбъект, , , , ОписаниеОповещения);
SSL/src/Catalogs/ВерсииФайлов/Forms/ФормаСписка/Module.bsl
+11 -2
View File
@@ -44,8 +44,8 @@
Процедура СписокВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ДанныеФайла = РаботаСФайламиСлужебныйВызовСервера.ДанныеФайлаДляОткрытия(ВыбраннаяСтрока.Владелец, ВыбраннаяСтрока, УникальныйИдентификатор);
РаботаСФайламиСлужебныйКлиент.ОткрытьВерсиюФайла(Неопределено, ДанныеФайла, УникальныйИдентификатор);
ДанныеФайла = РаботаСФайламиСлужебныйВызовСервера.ДанныеФайлаДляОткрытия(ВладелецФайла(ВыбраннаяСтрока), ВыбраннаяСтрока, УникальныйИдентификатор);
РаботаСФайламиСлужебныйКлиент.ОткрытьВерсиюФайла(Неопределено, ДанныеФайла, УникальныйИдентификатор);
КонецПроцедуры
@@ -68,3 +68,12 @@
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
&НаСервереБезКонтекста
Функция ВладелецФайла(ВыбраннаяСтрока)
Возврат ВыбраннаяСтрока.Владелец;
КонецФункции
#КонецОбласти
SSL/src/Catalogs/ВидыКонтактнойИнформации/Forms/ФормаЭлемента/Form.form
+17
View File
@@ -1077,6 +1077,23 @@
</edit>
<savedData>true</savedData>
</attributes>
<attributes>
<name>ДоступныДополнительныеНастройкиАдреса</name>
<title>
<key>ru</key>
<value>Доступны дополнительные настройки адреса</value>
</title>
<id>3</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
+23 -14
View File
@@ -37,11 +37,11 @@
Элементы.ХранитьИсториюИзменений.Доступность = Ложь;
КонецЕсли;
Если Объект.Тип <> Перечисления.ТипыКонтактнойИнформации.Адрес
ИЛИ СсылкаРодителя.Пустая()
ИЛИ СсылкаРодителя.Уровень() > 0 Тогда
Элементы.ГруппаХранитьИсториюИзменений.Видимость = Ложь;
Иначе
Элементы.ГруппаХранитьИсториюИзменений.Видимость = Ложь;
Если Объект.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес
ИЛИ НЕ СсылкаРодителя.Пустая()
ИЛИ СсылкаРодителя.Уровень() = 0 Тогда
ТабличнаяЧасть = Неопределено;
Если СтрНачинаетсяС(СсылкаРодителя.ИмяПредопределенныхДанных, "Справочник") Тогда
ИмяОбъекта = Сред(СсылкаРодителя.ИмяПредопределенныхДанных, 11);
@@ -68,6 +68,9 @@
Иначе
Элементы.ДополнительныеНастройкиАдреса.Видимость = Ложь;
КонецЕсли;
ДоступныДополнительныеНастройкиАдреса = (Метаданные.Обработки.Найти("РасширенныйВводКонтактнойИнформации") <> Неопределено
И Метаданные.Обработки["РасширенныйВводКонтактнойИнформации"].Формы.Найти("НастройкиАдреса") <> Неопределено);
КонецПроцедуры
@@ -192,7 +195,7 @@
Если Объект.Тип = ПредопределенноеЗначение("Перечисление.ТипыКонтактнойИнформации.Адрес") Тогда
Элементы.Проверки.ТекущаяСтраница = Элементы.Проверки.ПодчиненныеЭлементы.Адрес;
Элементы.РедактированиеТолькоВДиалоге.Доступность = Объект.МожноИзменятьСпособРедактирования;
Элементы.ДополнительныеНастройкиАдреса.Видимость = Истина;
Элементы.ДополнительныеНастройкиАдреса.Видимость = ДоступныДополнительныеНастройкиАдреса;
Иначе
Элементы.ДополнительныеНастройкиАдреса.Видимость = Ложь;
Если Объект.Тип = ПредопределенноеЗначение("Перечисление.ТипыКонтактнойИнформации.АдресЭлектроннойПочты") Тогда
@@ -219,16 +222,22 @@
&НаКлиенте
Процедура ИзменитьРеквизитыПриИзмененииТипа()
Если Объект.Тип = ПредопределенноеЗначение("Перечисление.ТипыКонтактнойИнформации.Адрес") Тогда
ИначеЕсли Объект.Тип = ПредопределенноеЗначение("Перечисление.ТипыКонтактнойИнформации.АдресЭлектроннойПочты") Тогда
Объект.РедактированиеТолькоВДиалоге = Ложь;
ИначеЕсли Объект.Тип = ПредопределенноеЗначение("Перечисление.ТипыКонтактнойИнформации.Телефон")
Или Объект.Тип = ПредопределенноеЗначение("Перечисление.ТипыКонтактнойИнформации.Факс") Тогда
// Нет изменений
Элементы.ХранитьИсториюИзменений.Доступность = Истина;
Иначе
Объект.РедактированиеТолькоВДиалоге = Ложь;
Объект.ХранитьИсториюИзменений = Ложь;
Элементы.ХранитьИсториюИзменений.Доступность = Ложь;
Если Объект.Тип = ПредопределенноеЗначение("Перечисление.ТипыКонтактнойИнформации.АдресЭлектроннойПочты") Тогда
Объект.РедактированиеТолькоВДиалоге = Ложь;
ИначеЕсли Объект.Тип = ПредопределенноеЗначение("Перечисление.ТипыКонтактнойИнформации.Телефон")
Или Объект.Тип = ПредопределенноеЗначение("Перечисление.ТипыКонтактнойИнформации.Факс") Тогда
// Нет изменений
Иначе
Объект.РедактированиеТолькоВДиалоге = Ложь;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
SSL/src/Catalogs/ВнешниеПользователи/Forms/ФормаЭлемента/Module.bsl
+4 -31
View File
@@ -124,11 +124,11 @@
Если Не ПользователиСлужебныйПовтИсп.Настройки().ОбщиеНастройкиВхода Тогда
Элементы.ГруппаИзменитьОграничение.Видимость = Ложь;
Элементы.ПотребоватьСменуПароляПриВходе.Видимость = Ложь;
Иначе
Элементы.ПотребоватьСменуПароляПриВходе.РасширеннаяПодсказка.Заголовок = ПодсказкаПотребоватьСменуПароляПриВходе();
КонецЕсли;
Элементы.ПотребоватьСменуПароляПриВходе.РасширеннаяПодсказка.Заголовок =
ПользователиСлужебный.ПодсказкаПотребоватьСменуПароляПриВходе(Истина);
КонецПроцедуры
&НаКлиенте
@@ -966,34 +966,6 @@
КонецПроцедуры
&НаСервере
Функция ПодсказкаПотребоватьСменуПароляПриВходе()
ЭтоПолноправныйПользователь = Пользователи.ЭтоПолноправныйПользователь(, Ложь);
Подсказка = Новый Массив;
Подсказка.Добавить(НСтр("ru = 'Требования к длине и сложности пароля задаются отдельно.'"));
Подсказка.Добавить(Символы.ПС);
Подсказка.Добавить(НСтр("ru = 'См.'"));
Подсказка.Добавить(" ");
Ссылка = НСтр("ru = 'Настройки входа внешних пользователей'");
Если ЭтоПолноправныйПользователь Тогда
Ссылка = Новый ФорматированнаяСтрока(Ссылка,,,, "НастройкиВходаПользователей");
КонецЕсли;
Подсказка.Добавить(Ссылка);
Если ЭтоПолноправныйПользователь
И Метаданные.Подсистемы.Найти("Администрирование") <> Неопределено Тогда
Подсказка.Добавить(" ");
Подсказка.Добавить(НСтр("ru = 'в разделе Администрирование,
|пункт Настройки прав и пользователей.'"));
Иначе
Подсказка.Добавить(".");
КонецЕсли;
Возврат Новый ФорматированнаяСтрока(Подсказка);
КонецФункции
////////////////////////////////////////////////////////////////////////////////
// Поддержка дополнительных реквизитов.
@@ -1351,6 +1323,7 @@
Элементы.ПользовательИБАутентификацияOpenID.ТолькоПросмотр = Не УровеньДоступа.НастройкиДляВхода;
Элементы.УстановитьРолиНепосредственно.ТолькоПросмотр = Не УровеньДоступа.НастройкиДляВхода;
Элементы.ПотребоватьСменуПароляПриВходе.ТолькоПросмотр = Не УровеньДоступа.УправлениеСписком;
Элементы.ПользовательИБЗапрещеноИзменятьПароль.ТолькоПросмотр = Не УровеньДоступа.УправлениеСписком;
Элементы.СменитьПароль.Доступность =
SSL/src/Catalogs/ГруппыДоступа/ManagerModule.bsl
+521 -6
View File
@@ -59,11 +59,12 @@
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ГруппыДоступа.Ссылка
| ГруппыДоступа.Ссылка КАК Ссылка
|ИЗ
| Справочник.ГруппыДоступа КАК ГруппыДоступа
|ГДЕ
| ГруппыДоступа.Профиль.ПометкаУдаления
| ГруппыДоступа.Профиль <> ЗНАЧЕНИЕ(Справочник.ПрофилиГруппДоступа.Администратор)
| И ГруппыДоступа.Профиль.ПометкаУдаления
| И НЕ ГруппыДоступа.ПометкаУдаления
| И НЕ ГруппыДоступа.Предопределенный";
@@ -72,7 +73,11 @@
Пока Выборка.Следующий() Цикл
ГруппаДоступаОбъект = Выборка.Ссылка.ПолучитьОбъект();
ГруппаДоступаОбъект.ПометкаУдаления = Истина;
ГруппаДоступаОбъект.Записать();
ОбновлениеИнформационнойБазы.ЗаписатьОбъект(ГруппаДоступаОбъект);
РегистрыСведений.ТаблицыГруппДоступа.ОбновитьДанныеРегистра(Выборка.Ссылка);
РегистрыСведений.ЗначенияГруппДоступа.ОбновитьДанныеРегистра(Выборка.Ссылка);
ПользователиДляОбновления = ПользователиДляОбновленияРолей(Неопределено, ГруппаДоступаОбъект);
УправлениеДоступом.ОбновитьРолиПользователей(ПользователиДляОбновления);
ЕстьИзменения = Истина;
КонецЦикла;
@@ -181,11 +186,15 @@
КонецЕсли;
Если ГруппаДоступа.Модифицированность() Тогда
ЗаблокироватьДанныеДляРедактирования(ГруппаДоступа.Ссылка, ГруппаДоступа.ВерсияДанных);
Если Не ОбновлениеИнформационнойБазы.ВыполняетсяОбновлениеИнформационнойБазы() Тогда
ЗаблокироватьДанныеДляРедактирования(ГруппаДоступа.Ссылка, ГруппаДоступа.ВерсияДанных);
КонецЕсли;
ГруппаДоступа.ДополнительныеСвойства.Вставить("НеОбновлятьРолиПользователей");
ГруппаДоступа.Записать();
ОбновлениеИнформационнойБазы.ЗаписатьОбъект(ГруппаДоступа);
ГруппаДоступаОбновлена = Истина;
РазблокироватьДанныеДляРедактирования(ГруппаДоступа.Ссылка);
Если Не ОбновлениеИнформационнойБазы.ВыполняетсяОбновлениеИнформационнойБазы() Тогда
РазблокироватьДанныеДляРедактирования(ГруппаДоступа.Ссылка);
КонецЕсли;
КонецЕсли;
КонецЦикла;
@@ -235,6 +244,232 @@
КонецФункции
Функция ИзменилисьВидыИлиЗначенияДоступа(СтарыеЗначения, ТекущийОбъект) Экспорт
Если СтарыеЗначения.Ссылка <> ТекущийОбъект.Ссылка Тогда
Возврат Истина;
КонецЕсли;
ВидыДоступа = СтарыеЗначения.ВидыДоступа.Выгрузить();
ЗначенияДоступа = СтарыеЗначения.ЗначенияДоступа.Выгрузить();
Если ВидыДоступа.Количество() <> ТекущийОбъект.ВидыДоступа.Количество()
Или ЗначенияДоступа.Количество() <> ТекущийОбъект.ЗначенияДоступа.Количество() Тогда
Возврат Истина;
КонецЕсли;
Отбор = Новый Структура("ВидДоступа, ВсеРазрешены");
Для Каждого Строка Из ТекущийОбъект.ВидыДоступа Цикл
ЗаполнитьЗначенияСвойств(Отбор, Строка);
Если ВидыДоступа.НайтиСтроки(Отбор).Количество() = 0 Тогда
Возврат Истина;
КонецЕсли;
КонецЦикла;
Отбор = Новый Структура("ВидДоступа, ЗначениеДоступа");
Для Каждого Строка Из ТекущийОбъект.ЗначенияДоступа Цикл
ЗаполнитьЗначенияСвойств(Отбор, Строка);
Если ЗначенияДоступа.НайтиСтроки(Отбор).Количество() = 0 Тогда
Возврат Истина;
КонецЕсли;
КонецЦикла;
Возврат Ложь;
КонецФункции
Функция ПользователиДляОбновленияРолей(СтарыеЗначения, ЭлементДанных) Экспорт
Если СтарыеЗначения = Неопределено Тогда
СтарыеЗначения = Новый Структура("Ссылка, Профиль, ПометкаУдаления")
КонецЕсли;
// Обновление ролей для добавленных, оставшихся и удаленных пользователей.
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("НовыеУчастники", ?(ТипЗнч(ЭлементДанных) <> Тип("УдалениеОбъекта"),
ЭлементДанных.Пользователи.ВыгрузитьКолонку("Пользователь"), Новый Массив));
Запрос.УстановитьПараметр("СтарыеУчастники", ?(ЭлементДанных.Ссылка = СтарыеЗначения.Ссылка,
СтарыеЗначения.Пользователи.Выгрузить().ВыгрузитьКолонку("Пользователь"), Новый Массив));
Если ТипЗнч(ЭлементДанных) = Тип("УдалениеОбъекта")
Или ЭлементДанных.Профиль <> СтарыеЗначения.Профиль
Или ЭлементДанных.ПометкаУдаления <> СтарыеЗначения.ПометкаУдаления Тогда
// Выбор всех новых и старых участников группы доступа.
Запрос.Текст =
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| СоставыГруппПользователей.Пользователь КАК Пользователь
|ИЗ
| РегистрСведений.СоставыГруппПользователей КАК СоставыГруппПользователей
|ГДЕ
| (СоставыГруппПользователей.ГруппаПользователей В (&СтарыеУчастники)
| ИЛИ СоставыГруппПользователей.ГруппаПользователей В (&НовыеУчастники))";
Иначе
// Выбор изменений участников группы доступа.
Запрос.Текст =
"ВЫБРАТЬ
| Данные.Пользователь КАК Пользователь
|ИЗ
| (ВЫБРАТЬ РАЗЛИЧНЫЕ
| СоставыГруппПользователей.Пользователь КАК Пользователь,
| -1 КАК ВидИзмененияСтроки
| ИЗ
| РегистрСведений.СоставыГруппПользователей КАК СоставыГруппПользователей
| ГДЕ
| СоставыГруппПользователей.ГруппаПользователей В(&СтарыеУчастники)
|
| ОБЪЕДИНИТЬ ВСЕ
|
| ВЫБРАТЬ РАЗЛИЧНЫЕ
| СоставыГруппПользователей.Пользователь,
| 1
| ИЗ
| РегистрСведений.СоставыГруппПользователей КАК СоставыГруппПользователей
| ГДЕ
| СоставыГруппПользователей.ГруппаПользователей В(&НовыеУчастники)) КАК Данные
|
|СГРУППИРОВАТЬ ПО
| Данные.Пользователь
|
|ИМЕЮЩИЕ
| СУММА(Данные.ВидИзмененияСтроки) <> 0";
КонецЕсли;
Возврат Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Пользователь");
КонецФункции
Функция ПользователиДляОбновленияРолейПоПрофилю(Профили) Экспорт
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Профили", Профили);
Запрос.Текст =
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| СоставыГруппПользователей.Пользователь КАК Пользователь
|ИЗ
| РегистрСведений.СоставыГруппПользователей КАК СоставыГруппПользователей
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ГруппыДоступа.Пользователи КАК ГруппыДоступаПользователи
| ПО СоставыГруппПользователей.ГруппаПользователей = ГруппыДоступаПользователи.Пользователь
| И (ГруппыДоступаПользователи.Ссылка.Профиль В (&Профили))";
Возврат Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Пользователь");
КонецФункции
Функция ГруппыДоступаПрофиля(Профили) Экспорт
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Профили", Профили);
Запрос.Текст =
"ВЫБРАТЬ
| ГруппыДоступа.Ссылка КАК Ссылка
|ИЗ
| Справочник.ГруппыДоступа КАК ГруппыДоступа
|ГДЕ
| ГруппыДоступа.Профиль В(&Профили)
| И НЕ ГруппыДоступа.ЭтоГруппа";
РезультатЗапроса = Запрос.Выполнить();
Возврат Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка");
КонецФункции
Процедура ЗарегистрироватьСсылки(ВидСсылок, ДобавляемыеСсылки) Экспорт
Если ОбщегоНазначения.РазделениеВключено() Тогда
Возврат;
КонецЕсли;
СвойстваВидаСсылок = СвойстваВидаСсылок(ВидСсылок);
УстановитьПривилегированныйРежим(Истина);
Ссылки = СтандартныеПодсистемыСервер.ПараметрРаботыПрограммы(
СвойстваВидаСсылок.ИмяПараметраРаботыПрограммы);
УстановитьПривилегированныйРежим(Ложь);
Если ТипЗнч(Ссылки) <> Тип("Массив") Тогда
Ссылки = Новый Массив;
КонецЕсли;
ЕстьИзменения = Ложь;
Если ДобавляемыеСсылки = Null Тогда
Если Ссылки.Количество() > 0 Тогда
Ссылки = Новый Массив;
ЕстьИзменения = Истина;
КонецЕсли;
ИначеЕсли Ссылки.Количество() = 1
И Ссылки[0] = Неопределено Тогда
Возврат; // Ранее было добавлено более 300 ссылок.
Иначе
Если ТипЗнч(ДобавляемыеСсылки) <> Тип("Массив") Тогда
ДобавляемыеСсылки = ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(ДобавляемыеСсылки);
КонецЕсли;
Для Каждого ДобавляемаяСсылка Из ДобавляемыеСсылки Цикл
Если Ссылки.Найти(ДобавляемаяСсылка) <> Неопределено Тогда
Продолжить;
КонецЕсли;
Ссылки.Добавить(ДобавляемаяСсылка);
ЕстьИзменения = Истина;
КонецЦикла;
Если Ссылки.Количество() > 300 Тогда
Ссылки = Новый Массив;
Ссылки.Добавить(Неопределено);
ЕстьИзменения = Истина;
КонецЕсли;
КонецЕсли;
Если Не ЕстьИзменения Тогда
Возврат;
КонецЕсли;
УстановитьПривилегированныйРежим(Истина);
СтандартныеПодсистемыСервер.УстановитьПараметрРаботыПрограммы(
СвойстваВидаСсылок.ИмяПараметраРаботыПрограммы, Ссылки);
УстановитьПривилегированныйРежим(Ложь);
КонецПроцедуры
Функция ЗарегистрированныеСсылки(ВидСсылок) Экспорт
Если ОбщегоНазначения.РазделениеВключено() Тогда
Возврат Новый Массив;
КонецЕсли;
СвойстваВидаСсылок = СвойстваВидаСсылок(ВидСсылок);
УстановитьПривилегированныйРежим(Истина);
Ссылки = СтандартныеПодсистемыСервер.ПараметрРаботыПрограммы(
СвойстваВидаСсылок.ИмяПараметраРаботыПрограммы);
УстановитьПривилегированныйРежим(Ложь);
Если ТипЗнч(Ссылки) <> Тип("Массив") Тогда
Ссылки = Новый Массив;
КонецЕсли;
Если Ссылки.Количество() = 1
И Ссылки[0] = Неопределено Тогда
Возврат Ссылки;
КонецЕсли;
ПроверенныеСсылки = Новый Массив;
Для Каждого Ссылка Из Ссылки Цикл
Если СвойстваВидаСсылок.ДопустимыеТипы.СодержитТип(ТипЗнч(Ссылка)) Тогда
ПроверенныеСсылки.Добавить(Ссылка);
КонецЕсли;
КонецЦикла;
Возврат ПроверенныеСсылки;
КонецФункции
////////////////////////////////////////////////////////////////////////////////
// Процедуры и функции для поддержки обмена данными в РИБ.
@@ -297,6 +532,174 @@
КонецПроцедуры
// Только для внутреннего использования.
Процедура ЗарегистрироватьГруппуДоступаИзмененнуюПриЗагрузке(ЭлементДанных) Экспорт
СтарыеЗначения = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(ЭлементДанных.Ссылка,
"Ссылка, Профиль, ПометкаУдаления, Пользователи, ВидыДоступа, ЗначенияДоступа");
ТребуетсяРегистрация = Ложь;
ГруппаДоступа = ЭлементДанных.Ссылка;
Если ТипЗнч(ЭлементДанных) = Тип("УдалениеОбъекта") Тогда
ТребуетсяРегистрация = Истина;
ИначеЕсли СтарыеЗначения.Ссылка <> ЭлементДанных.Ссылка Тогда
ТребуетсяРегистрация = Истина;
ГруппаДоступа = ПользователиСлужебный.СсылкаОбъекта(ЭлементДанных);
ИначеЕсли ЭлементДанных.ПометкаУдаления <> СтарыеЗначения.ПометкаУдаления
Или ЭлементДанных.Профиль <> СтарыеЗначения.Профиль Тогда
ТребуетсяРегистрация = Истина;
Иначе
НаличиеУчастников = ЭлементДанных.Пользователи.Количество() <> 0;
СтароеНаличиеУчастников = Не СтарыеЗначения.Пользователи.Пустой();
Если НаличиеУчастников <> СтароеНаличиеУчастников
Или ИзменилисьВидыИлиЗначенияДоступа(СтарыеЗначения, ЭлементДанных) Тогда
ТребуетсяРегистрация = Истина;
КонецЕсли;
КонецЕсли;
Если ТребуетсяРегистрация Тогда
ЗарегистрироватьСсылки("ГруппыДоступа", ГруппаДоступа);
КонецЕсли;
ПользователиДляОбновления = ПользователиДляОбновленияРолей(СтарыеЗначения, ЭлементДанных);
ЗарегистрироватьСсылки("Пользователи", ПользователиДляОбновления);
КонецПроцедуры
// Только для внутреннего использования.
Процедура ОбновитьВспомогательныеДанныеГруппДоступаИзмененныхПриЗагрузке() Экспорт
Если ОбщегоНазначения.РазделениеВключено() Тогда
// Изменения групп доступа в АРМ заблокированы и не загружаются в область данных.
Возврат;
КонецЕсли;
ИзмененныеГруппыДоступа = ЗарегистрированныеСсылки("ГруппыДоступа");
Если ИзмененныеГруппыДоступа.Количество() = 0 Тогда
Возврат;
КонецЕсли;
Если ИзмененныеГруппыДоступа.Количество() = 1
И ИзмененныеГруппыДоступа[0] = Неопределено Тогда
РегистрыСведений.ТаблицыГруппДоступа.ОбновитьДанныеРегистра();
РегистрыСведений.ЗначенияГруппДоступа.ОбновитьДанныеРегистра();
Иначе
РегистрыСведений.ТаблицыГруппДоступа.ОбновитьДанныеРегистра(ИзмененныеГруппыДоступа);
РегистрыСведений.ЗначенияГруппДоступа.ОбновитьДанныеРегистра(ИзмененныеГруппыДоступа);
КонецЕсли;
ЗарегистрироватьСсылки("ГруппыДоступа", Null);
КонецПроцедуры
// Только для внутреннего использования.
Процедура ЗарегистрироватьПользователейГруппыПользователейИзмененнойПриЗагрузке(ЭлементДанных) Экспорт
СтарыеЗначения = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(ЭлементДанных.Ссылка,
"Ссылка, ПометкаУдаления, Состав");
ИмяРеквизита = ?(ТипЗнч(ЭлементДанных.Ссылка) = Тип("СправочникСсылка.ГруппыВнешнихПользователей"),
"ВнешнийПользователь", "Пользователь");
Если СтарыеЗначения.Ссылка = ЭлементДанных.Ссылка Тогда
СтарыеПользователи = СтарыеЗначения.Состав.Выгрузить().ВыгрузитьКолонку(ИмяРеквизита);
Иначе
СтарыеПользователи = Новый Массив;
КонецЕсли;
Если ТипЗнч(ЭлементДанных) = Тип("УдалениеОбъекта") Тогда
ПользователиДляОбновления = СтарыеПользователи;
Иначе
НовыеПользователи = ЭлементДанных.Состав.ВыгрузитьКолонку(ИмяРеквизита);
Если СтарыеЗначения.Ссылка <> ЭлементДанных.Ссылка Тогда
ПользователиДляОбновления = НовыеПользователи;
Иначе
ПользователиДляОбновления = Новый Массив;
Все = ЭлементДанных.ПометкаУдаления <> СтарыеЗначения.ПометкаУдаления;
Для Каждого Пользователь Из СтарыеПользователи Цикл
Если Все Или НовыеПользователи.Найти(Пользователь) = Неопределено Тогда
ПользователиДляОбновления.Добавить(Пользователь);
КонецЕсли;
КонецЦикла;
Для Каждого Пользователь Из НовыеПользователи Цикл
Если Все Или СтарыеПользователи.Найти(Пользователь) = Неопределено Тогда
ПользователиДляОбновления.Добавить(Пользователь);
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЕсли;
ЗарегистрироватьСсылки("Пользователи", ПользователиДляОбновления);
КонецПроцедуры
// Только для внутреннего использования.
Процедура ЗарегистрироватьПользователяИзмененногоПриЗагрузке(ЭлементДанных) Экспорт
СтарыеЗначения = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(ЭлементДанных.Ссылка,
"Ссылка, ПометкаУдаления, Недействителен");
ТребуетсяРегистрация = Ложь;
Пользователь = ЭлементДанных.Ссылка;
Если ТипЗнч(ЭлементДанных) = Тип("УдалениеОбъекта") Тогда
ТребуетсяРегистрация = Истина;
ИначеЕсли СтарыеЗначения.Ссылка <> ЭлементДанных.Ссылка Тогда
ТребуетсяРегистрация = Истина;
Пользователь = ПользователиСлужебный.СсылкаОбъекта(ЭлементДанных);
ИначеЕсли ЭлементДанных.Недействителен <> СтарыеЗначения.Недействителен
Или ЭлементДанных.ПометкаУдаления <> СтарыеЗначения.ПометкаУдаления Тогда
ТребуетсяРегистрация = Истина;
КонецЕсли;
Если Не ТребуетсяРегистрация Тогда
Возврат;
КонецЕсли;
ЗарегистрироватьСсылки("Пользователи", Пользователь);
КонецПроцедуры
// Только для внутреннего использования.
Процедура ОбновитьРолиПользователейИзмененныхПриЗагрузке() Экспорт
Если ОбщегоНазначения.РазделениеВключено() Тогда
// Изменения профилей в АРМ заблокированы и не загружаются в область данных.
Возврат;
КонецЕсли;
ИзмененныеПользователи = ЗарегистрированныеСсылки("Пользователи");
Если ИзмененныеПользователи.Количество() = 0 Тогда
Возврат;
КонецЕсли;
Если ИзмененныеПользователи.Количество() = 1
И ИзмененныеПользователи[0] = Неопределено Тогда
УправлениеДоступом.ОбновитьРолиПользователей();
Иначе
УправлениеДоступом.ОбновитьРолиПользователей(ИзмененныеПользователи);
КонецЕсли;
ЗарегистрироватьСсылки("Пользователи", Null);
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// Обновление информационной базы.
@@ -310,6 +713,118 @@
КонецПроцедуры
Процедура ЗарегистрироватьДанныеКОбработкеДляПереходаНаНовуюВерсию(Параметры) Экспорт
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ГруппыДоступа.Ссылка КАК Ссылка
|ИЗ
| Справочник.ГруппыДоступа КАК ГруппыДоступа";
ОбновлениеИнформационнойБазы.ОтметитьКОбработке(Параметры,
Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка"));
КонецПроцедуры
Процедура ОбработатьДанныеДляПереходаНаНовуюВерсию(Параметры) Экспорт
ОбработкаЗавершена = Истина;
Выборка = ОбновлениеИнформационнойБазы.ВыбратьСсылкиДляОбработки(Параметры.Очередь, "Справочник.ГруппыДоступа");
ОбъектовОбработано = 0;
ПроблемныхОбъектов = 0;
Пока Выборка.Следующий() Цикл
Попытка
РегистрыСведений.ТаблицыГруппДоступа.ОбновитьДанныеРегистра(Выборка.Ссылка);
Исключение
ПроблемныхОбъектов = ПроблемныхОбъектов + 1;
ИнформацияОбОшибке = ИнформацияОбОшибке();
ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Не удалось обновить таблицы группы доступа ""%1"" по причине:
|%2'"),
Строка(Выборка.Ссылка),
ПодробноеПредставлениеОшибки(ИнформацияОбОшибке));
ЗаписьЖурналаРегистрации(ОбновлениеИнформационнойБазы.СобытиеЖурналаРегистрации(),
УровеньЖурналаРегистрации.Предупреждение, , , ТекстСообщения);
Продолжить;
КонецПопытки;
Попытка
РегистрыСведений.ЗначенияГруппДоступа.ОбновитьДанныеРегистра(Выборка.Ссылка);
Исключение
ПроблемныхОбъектов = ПроблемныхОбъектов + 1;
ИнформацияОбОшибке = ИнформацияОбОшибке();
ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Не удалось обновить значения доступа группы доступа ""%1"" по причине:
|%2'"),
Строка(Выборка.Ссылка),
ПодробноеПредставлениеОшибки(ИнформацияОбОшибке));
ЗаписьЖурналаРегистрации(ОбновлениеИнформационнойБазы.СобытиеЖурналаРегистрации(),
УровеньЖурналаРегистрации.Предупреждение, , , ТекстСообщения);
Продолжить;
КонецПопытки;
ОбновлениеИнформационнойБазы.ОтметитьВыполнениеОбработки(Выборка.Ссылка);
ОбъектовОбработано = ОбъектовОбработано + 1;
КонецЦикла;
Если Не ОбновлениеИнформационнойБазы.ОбработкаДанныхЗавершена(Параметры.Очередь, "Справочник.ГруппыДоступа") Тогда
ОбработкаЗавершена = Ложь;
КонецЕсли;
Если ОбъектовОбработано = 0 И ПроблемныхОбъектов <> 0 Тогда
ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Процедуре Справочники.ГруппыДоступа.ОбработатьДанныеДляПереходаНаНовуюВерсию не удалось
|обновить вспомогательные данные некоторых групп доступа (пропущены): %1'"),
ПроблемныхОбъектов);
ВызватьИсключение ТекстСообщения;
Иначе
ЗаписьЖурналаРегистрации(ОбновлениеИнформационнойБазы.СобытиеЖурналаРегистрации(),
УровеньЖурналаРегистрации.Информация,
Метаданные.НайтиПоПолномуИмени("Справочник.ГруппыДоступа"),,
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Процедура Справочники.ГруппыДоступа.ОбработатьДанныеДляПереходаНаНовуюВерсию
|обработала очередную порцию групп доступа: %1'"),
ОбъектовОбработано));
КонецЕсли;
Параметры.ОбработкаЗавершена = ОбработкаЗавершена;
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// Вспомогательные процедуры и функции.
// Для функции ЗарегистрированныеСсылки и процедуры ЗарегистрироватьСсылки.
Функция СвойстваВидаСсылок(ВидСсылок)
Если ВидСсылок = "Профили" Тогда
ДопустимыеТипы = Новый ОписаниеТипов("СправочникСсылка.ПрофилиГруппДоступа");
ИмяПараметраРаботыПрограммы = "СтандартныеПодсистемы.УправлениеДоступом.ПрофилиИзмененныеПриЗагрузке";
ИначеЕсли ВидСсылок = "ГруппыДоступа" Тогда
ДопустимыеТипы = Новый ОписаниеТипов("СправочникСсылка.ГруппыДоступа");
ИмяПараметраРаботыПрограммы = "СтандартныеПодсистемы.УправлениеДоступом.ГруппыДоступаИзмененныеПриЗагрузке";
ИначеЕсли ВидСсылок = "Пользователи" Тогда
ДопустимыеТипы = Новый ОписаниеТипов("СправочникСсылка.Пользователи,СправочникСсылка.ВнешниеПользователи");
ИмяПараметраРаботыПрограммы = "СтандартныеПодсистемы.УправлениеДоступом.ПользователиИзмененныеПриЗагрузке";
Иначе
ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Недопустимое значение ""%1"" параметра ВидСсылок функции СвойстваВидаСсылок.'"),
ВидСсылок);
КонецЕсли;
Возврат Новый Структура("ДопустимыеТипы, ИмяПараметраРаботыПрограммы", ДопустимыеТипы, ИмяПараметраРаботыПрограммы);
КонецФункции
#КонецОбласти
#КонецЕсли
SSL/src/Catalogs/ГруппыДоступа/ObjectModule.bsl
+50 -114
View File
@@ -2,14 +2,8 @@
#Область ОписаниеПеременных
Перем СтарыйПрофиль; // Профиль группы доступа до изменения
// для использования в обработчике события ПриЗаписи.
Перем СтараяПометкаУдаления; // Пометка удаления группы доступа до изменения
// для использования в обработчике события ПриЗаписи.
Перем СтарыеУчастники; // Участники группы доступа до изменения
// для использования в обработчике события ПриЗаписи.
Перем СтарыеЗначения; // Значения некоторых реквизитов и табличных частей группы доступа
// до ее изменения для использования в обработчике события ПриЗаписи.
#КонецОбласти
@@ -28,20 +22,8 @@
СтандартныеПодсистемыСервер.ПроверитьДинамическоеОбновлениеВерсииПрограммы();
РегистрыСведений.ПраваРолей.ПроверитьДанныеРегистра();
Если НЕ ДополнительныеСвойства.Свойство("НеОбновлятьРолиПользователей") Тогда
Если ЗначениеЗаполнено(Ссылка) Тогда
СтараяТаблицаПользователи = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Ссылка, "Пользователи");
СтарыеУчастники = СтараяТаблицаПользователи.Выгрузить().ВыгрузитьКолонку("Пользователь");
Иначе
СтарыеУчастники = Новый Массив;
КонецЕсли;
КонецЕсли;
СтарыеЗначения = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(
Ссылка, "Профиль, ПометкаУдаления");
СтарыйПрофиль = СтарыеЗначения.Профиль;
СтараяПометкаУдаления = СтарыеЗначения.ПометкаУдаления;
СтарыеЗначения = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Ссылка,
"Ссылка, Профиль, ПометкаУдаления, Пользователи, ВидыДоступа, ЗначенияДоступа");
Если Ссылка = Справочники.ГруппыДоступа.Администраторы Тогда
@@ -83,11 +65,11 @@
|у предопределенной группы доступа Администраторы.'");
КонецЕсли;
Если НЕ ЭтоГруппа Тогда
Если Не ЭтоГруппа Тогда
// Автоматическая установка реквизитов для персональной группы доступа.
Если ЗначениеЗаполнено(Пользователь) Тогда
Родитель = Справочники.ГруппыДоступа.РодительПерсональныхГруппДоступа();
Родитель = Справочники.ГруппыДоступа.РодительПерсональныхГруппДоступа();
Иначе
Пользователь = Неопределено;
Если Родитель = Справочники.ГруппыДоступа.РодительПерсональныхГруппДоступа(Истина) Тогда
@@ -97,7 +79,7 @@
// При снятии пометки удаления с группы доступа выполняется
// снятие пометки удаления с профиля этой группы доступа.
Если НЕ ПометкаУдаления И СтараяПометкаУдаления = Истина Тогда
Если Не ПометкаУдаления И СтарыеЗначения.ПометкаУдаления = Истина Тогда
ПометкаУдаленияПрофиля = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Профиль, "ПометкаУдаления");
ПометкаУдаленияПрофиля = ?(ПометкаУдаленияПрофиля = Неопределено, Ложь, ПометкаУдаленияПрофиля);
Если ПометкаУдаленияПрофиля Тогда
@@ -126,35 +108,30 @@
Возврат;
КонецЕсли;
Если НЕ ДополнительныеСвойства.Свойство("НеОбновлятьРолиПользователей") Тогда
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаВМоделиСервиса") Тогда
МодульРаботаВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль("РаботаВМоделиСервиса");
СеансЗапущенБезРазделителей = МодульРаботаВМоделиСервиса.СеансЗапущенБезРазделителей();
Иначе
СеансЗапущенБезРазделителей = Истина;
КонецЕсли;
Если ОбщегоНазначения.РазделениеВключено()
И Ссылка = Справочники.ГруппыДоступа.Администраторы
И НЕ СеансЗапущенБезРазделителей
И ДополнительныеСвойства.Свойство("ПарольПользователяСервиса") Тогда
ПарольПользователяСервиса = ДополнительныеСвойства.ПарольПользователяСервиса;
Иначе
ПарольПользователяСервиса = Неопределено;
КонецЕсли;
ОбновитьРолиПользователейПриИзмененииГруппыДоступа(ПарольПользователяСервиса);
Если Не ДополнительныеСвойства.Свойство("НеОбновлятьРолиПользователей") Тогда
ОбновитьРолиПользователейПриИзмененииГруппыДоступа();
КонецЕсли;
Если Профиль <> СтарыйПрофиль
ИЛИ ПометкаУдаления <> СтараяПометкаУдаления Тогда
НаличиеУчастников = Пользователи.Количество() <> 0;
СтароеНаличиеУчастников = СтарыеЗначения.Ссылка = Ссылка И Не СтарыеЗначения.Пользователи.Пустой();
Если Профиль <> СтарыеЗначения.Профиль
Или ПометкаУдаления <> СтарыеЗначения.ПометкаУдаления
Или НаличиеУчастников <> СтароеНаличиеУчастников Тогда
РегистрыСведений.ТаблицыГруппДоступа.ОбновитьДанныеРегистра(Ссылка);
КонецЕсли;
РегистрыСведений.ЗначенияГруппДоступа.ОбновитьДанныеРегистра(Ссылка);
Если Справочники.ГруппыДоступа.ИзменилисьВидыИлиЗначенияДоступа(СтарыеЗначения, ЭтотОбъект)
Или ПометкаУдаления <> СтарыеЗначения.ПометкаУдаления
Или НаличиеУчастников <> СтароеНаличиеУчастников Тогда
РегистрыСведений.ЗначенияГруппДоступа.ОбновитьДанныеРегистра(Ссылка);
КонецЕсли;
Справочники.ПрофилиГруппДоступа.ОбновитьВспомогательныеДанныеПрофилейИзмененныхПриЗагрузке();
Справочники.ГруппыДоступа.ОбновитьВспомогательныеДанныеГруппДоступаИзмененныхПриЗагрузке();
Справочники.ГруппыДоступа.ОбновитьРолиПользователейИзмененныхПриЗагрузке();
КонецПроцедуры
@@ -167,79 +144,38 @@
КонецПроцедуры
////////////////////////////////////////////////////////////////////////////////
// Вспомогательные процедуры и функции.
#КонецОбласти
Процедура ОбновитьРолиПользователейПриИзмененииГруппыДоступа(ПарольПользователяСервиса)
#Область СлужебныеПроцедурыИФункции
Процедура ОбновитьРолиПользователейПриИзмененииГруппыДоступа()
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаВМоделиСервиса") Тогда
МодульРаботаВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль("РаботаВМоделиСервиса");
СеансЗапущенБезРазделителей = МодульРаботаВМоделиСервиса.СеансЗапущенБезРазделителей();
Иначе
СеансЗапущенБезРазделителей = Истина;
КонецЕсли;
Если ОбщегоНазначения.РазделениеВключено()
И Ссылка = Справочники.ГруппыДоступа.Администраторы
И Не СеансЗапущенБезРазделителей
И ДополнительныеСвойства.Свойство("ПарольПользователяСервиса") Тогда
ПарольПользователяСервиса = ДополнительныеСвойства.ПарольПользователяСервиса;
Иначе
ПарольПользователяСервиса = Неопределено;
КонецЕсли;
УстановитьПривилегированныйРежим(Истина);
// Обновление ролей для добавленных, оставшихся и удаленных пользователей.
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ГруппаДоступа", Ссылка);
Запрос.УстановитьПараметр("СтарыеУчастники", СтарыеУчастники);
Если Профиль <> СтарыйПрофиль
ИЛИ ПометкаУдаления <> СтараяПометкаУдаления Тогда
// Выбор всех новых и старых участников группы доступа.
Запрос.Текст =
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| Данные.Пользователь
|ИЗ
| (ВЫБРАТЬ РАЗЛИЧНЫЕ
| СоставыГруппПользователей.Пользователь КАК Пользователь
| ИЗ
| РегистрСведений.СоставыГруппПользователей КАК СоставыГруппПользователей
| ГДЕ
| СоставыГруппПользователей.ГруппаПользователей В(&СтарыеУчастники)
|
| ОБЪЕДИНИТЬ ВСЕ
|
| ВЫБРАТЬ
| СоставыГруппПользователей.Пользователь
| ИЗ
| Справочник.ГруппыДоступа.Пользователи КАК ГруппыДоступаПользователи
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.СоставыГруппПользователей КАК СоставыГруппПользователей
| ПО ГруппыДоступаПользователи.Пользователь = СоставыГруппПользователей.ГруппаПользователей
| И (ГруппыДоступаПользователи.Ссылка = &ГруппаДоступа)) КАК Данные";
Иначе
// Выбор изменений участников группы доступа.
Запрос.Текст =
"ВЫБРАТЬ
| Данные.Пользователь
|ИЗ
| (ВЫБРАТЬ РАЗЛИЧНЫЕ
| СоставыГруппПользователей.Пользователь КАК Пользователь,
| -1 КАК ВидИзмененияСтроки
| ИЗ
| РегистрСведений.СоставыГруппПользователей КАК СоставыГруппПользователей
| ГДЕ
| СоставыГруппПользователей.ГруппаПользователей В(&СтарыеУчастники)
|
| ОБЪЕДИНИТЬ ВСЕ
|
| ВЫБРАТЬ РАЗЛИЧНЫЕ
| СоставыГруппПользователей.Пользователь,
| 1
| ИЗ
| Справочник.ГруппыДоступа.Пользователи КАК ГруппыДоступаПользователи
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.СоставыГруппПользователей КАК СоставыГруппПользователей
| ПО ГруппыДоступаПользователи.Пользователь = СоставыГруппПользователей.ГруппаПользователей
| И (ГруппыДоступаПользователи.Ссылка = &ГруппаДоступа)) КАК Данные
|
|СГРУППИРОВАТЬ ПО
| Данные.Пользователь
|
|ИМЕЮЩИЕ
| СУММА(Данные.ВидИзмененияСтроки) <> 0";
КонецЕсли;
ПользователиДляОбновления = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Пользователь");
ПользователиДляОбновления =
Справочники.ГруппыДоступа.ПользователиДляОбновленияРолей(СтарыеЗначения, ЭтотОбъект);
Если Ссылка = Справочники.ГруппыДоступа.Администраторы Тогда
// Добавление пользователей, связанных с пользователямиИБ, имеющих роль ПолныеПрава.
Для каждого ПользовательИБ Из ПользователиИнформационнойБазы.ПолучитьПользователей() Цикл
Для Каждого ПользовательИБ Из ПользователиИнформационнойБазы.ПолучитьПользователей() Цикл
Если ПользовательИБ.Роли.Содержит(Метаданные.Роли.ПолныеПрава) Тогда
НайденныйПользователь = Справочники.Пользователи.НайтиПоРеквизиту(
@@ -266,4 +202,4 @@
#КонецОбласти
#КонецЕсли
#КонецЕсли
SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Form.form
+4
View File
@@ -203,6 +203,10 @@
<horizontalAlign>Left</horizontalAlign>
<autoFill>true</autoFill>
</autoCommandBar>
<handlers>
<event>BeforeAddRow</event>
<name>СписокПередНачаломДобавления</name>
</handlers>
<searchStringAddition>
<name>СписокSearchString</name>
<id>48</id>
SSL/src/Catalogs/Заметки/Forms/ЗаметкиПоПредмету/Module.bsl
+13
View File
@@ -48,6 +48,19 @@
#КонецОбласти
#Область ОбработчикиСобытийТаблицыСписок
&НаКлиенте
Процедура СписокПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа, Параметр)
Если Не Копирование Тогда
Отказ = Истина;
ПараметрыФормы = Новый Структура("Предмет", Предмет);
ОткрытьФорму("Справочник.Заметки.ФормаОбъекта", ПараметрыФормы);
КонецЕсли;
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
&НаСервере
SSL/src/Catalogs/ИдентификаторыОбъектовМетаданных/ManagerModule.bsl
+6 -10
View File
@@ -560,19 +560,15 @@
ЗаменитьДублиПодчиненногоУзлаНайденныеПриЗагрузке(ТолькоПроверка, ЕстьТекущиеИзменения);
КонецЕсли;
Если Не ОбъектыРасширений
Или Не ОбщегоНазначения.ЭтоПодчиненныйУзелРИБ() Тогда
ОбновитьДанные(ЕстьТекущиеИзменения, ЕстьУдаленные, ТолькоПроверка,
ЕстьКритичныеИзменения, СписокКритичныхИзменений, ОбъектыРасширений);
ОбновитьДанные(ЕстьТекущиеИзменения, ЕстьУдаленные, ТолькоПроверка,
ЕстьКритичныеИзменения, СписокКритичныхИзменений, ОбъектыРасширений);
Если ЕстьТекущиеИзменения Тогда
ЕстьИзменения = Истина;
КонецЕсли;
Если ЕстьТекущиеИзменения Тогда
ЕстьИзменения = Истина;
КонецЕсли;
Если Не ОбъектыРасширений Тогда
СтандартныеПодсистемыСервер.УстановитьПараметрРаботыПрограммы(
СтандартныеПодсистемыСервер.ОбновитьПараметрРаботыПрограммы(
"СтандартныеПодсистемы.ИдентификаторыОбъектовМетаданных", Истина);
КонецЕсли;
@@ -3064,7 +3060,7 @@
Блокировка = Новый БлокировкаДанных;
ЭлементБлокировки = Блокировка.Добавить("Справочник.ИдентификаторыОбъектовМетаданных");
Для Каждого ЗаменяемаяСсылка Из ЗаменяемыеСсылки Цикл
ЭлементБлокировки.УстановитьЗначение(ЗаменяемаяСсылка);
ЭлементБлокировки.УстановитьЗначение("Ссылка", ЗаменяемаяСсылка);
КонецЦикла;
НачатьТранзакцию();
Попытка
SSL/src/Catalogs/КлассификаторБанков/Help/ru.html
-1
View File
@@ -27,7 +27,6 @@
<div style="MARGIN-LEFT: 0px">Банки в списке сгруппированы по регионам, при входе в список видны только регионы банков. Выберите нужный регион для просмотра банков этого региона. </div>
</li><li>
<div style="MARGIN-LEFT: 0px">Также можно внутри регионов ввести свою группировку. Для этого нажмите <strong>Создать группу</strong>, введите наименование группы и перетащите в группу нужные банки с помощью мыши. </div></li></ul><h3 style="MARGIN-LEFT: 0px">Загрузка классификатора банков</h3>
<p style="MARGIN-LEFT: 0px">Программа поставляется с загруженным классификатором банков.</p>
<ul><li>
<div style="MARGIN-LEFT: 0px">После запуска программы производится проверка актуальности классификатора банков и в случае неактуальности (если классификатор не обновлялся в течение тридцати дней) выводится сообщение с предложением обновить классификатор банков. Перейдите по ссылке <strong>Обновить классификатор банков</strong>.</div>
</li><li>
SSL/src/Catalogs/Пользователи/Forms/ФормаЭлемента/Module.bsl
+3 -31
View File
@@ -159,11 +159,11 @@
Если Не ПользователиСлужебныйПовтИсп.Настройки().ОбщиеНастройкиВхода Тогда
Элементы.ГруппаИзменитьОграничение.Видимость = Ложь;
Элементы.ПотребоватьСменуПароляПриВходе.Видимость = Ложь;
Иначе
Элементы.ПотребоватьСменуПароляПриВходе.РасширеннаяПодсказка.Заголовок = ПодсказкаПотребоватьСменуПароляПриВходе();
КонецЕсли;
Элементы.ПотребоватьСменуПароляПриВходе.РасширеннаяПодсказка.Заголовок =
ПользователиСлужебный.ПодсказкаПотребоватьСменуПароляПриВходе(Ложь);
КонецПроцедуры
&НаКлиенте
@@ -1503,34 +1503,6 @@
КонецПроцедуры
&НаСервере
Функция ПодсказкаПотребоватьСменуПароляПриВходе()
ЭтоПолноправныйПользователь = Пользователи.ЭтоПолноправныйПользователь(, Ложь);
Подсказка = Новый Массив;
Подсказка.Добавить(НСтр("ru = 'Требования к длине и сложности пароля задаются отдельно.'"));
Подсказка.Добавить(Символы.ПС);
Подсказка.Добавить(НСтр("ru = 'См.'"));
Подсказка.Добавить(" ");
Ссылка = НСтр("ru = 'Настройки входа пользователей'");
Если ЭтоПолноправныйПользователь Тогда
Ссылка = Новый ФорматированнаяСтрока(Ссылка,,,, "НастройкиВходаПользователей");
КонецЕсли;
Подсказка.Добавить(Ссылка);
Если ЭтоПолноправныйПользователь
И Метаданные.Подсистемы.Найти("Администрирование") <> Неопределено Тогда
Подсказка.Добавить(" ");
Подсказка.Добавить(НСтр("ru = 'в разделе Администрирование,
|пункт Настройки прав и пользователей.'"));
Иначе
Подсказка.Добавить(".");
КонецЕсли;
Возврат Новый ФорматированнаяСтрока(Подсказка);
КонецФункции
////////////////////////////////////////////////////////////////////////////////
// Поддержка контактной информации.
SSL/src/Catalogs/ПрофилиГруппДоступа/ManagerModule.bsl
+137 -93
View File
@@ -206,7 +206,7 @@
Если СтрокаТекущегоПрофиля = Неопределено Тогда
// Создание нового поставляемого профиля.
Если ОбновитьПрофильГруппДоступа(СвойстваПрофиля) Тогда
Если ОбновитьПрофильГруппДоступа(СвойстваПрофиля, Истина) Тогда
ЕстьИзменения = Истина;
КонецЕсли;
Профиль = ПоставляемыйПрофильПоИдентификатору(СвойстваПрофиля.Идентификатор);
@@ -247,24 +247,33 @@
Продолжить;
КонецЕсли;
ПрофильОбъект.ПометкаУдаления = Истина;
ПрофильОбъект.Записать();
ОбновлениеИнформационнойБазы.ЗаписатьОбъект(ПрофильОбъект);
ОбновленныеПрофили.Добавить(ПрофильОбъект.Ссылка);
ЕстьИзменения = Истина;
КонецЦикла;
// Обновление ролей пользователей.
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| СоставыГруппПользователей.Пользователь
|ИЗ
| РегистрСведений.СоставыГруппПользователей КАК СоставыГруппПользователей
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ГруппыДоступа.Пользователи КАК ГруппыДоступаПользователи
| ПО СоставыГруппПользователей.ГруппаПользователей = ГруппыДоступаПользователи.Пользователь
| И (ГруппыДоступаПользователи.Ссылка.Профиль В (&Профили))";
Запрос.УстановитьПараметр("Профили", ОбновленныеПрофили);
ПользователиДляОбновления = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Пользователь");
ОбновитьВспомогательныеДанныеПрофилей(ОбновленныеПрофили, ЕстьИзменения);
УправлениеДоступом.ОбновитьРолиПользователей(ПользователиДляОбновления);
КонецПроцедуры
Процедура ОбновитьВспомогательныеДанныеПрофилей(Профили = Неопределено, ЕстьИзменения = Ложь) Экспорт
Если Профили = Неопределено Тогда
РегистрыСведений.ТаблицыГруппДоступа.ОбновитьДанныеРегистра( , , ЕстьИзменения);
РегистрыСведений.ЗначенияГруппДоступа.ОбновитьДанныеРегистра( , ЕстьИзменения);
УправлениеДоступомСлужебный.ОбновитьРолиПользователей( , , ЕстьИзменения);
ИначеЕсли Профили.Количество() > 0 Тогда
ГруппыДоступаПрофилей = Справочники.ГруппыДоступа.ГруппыДоступаПрофиля(Профили);
РегистрыСведений.ТаблицыГруппДоступа.ОбновитьДанныеРегистра(ГруппыДоступаПрофилей, , ЕстьИзменения);
РегистрыСведений.ЗначенияГруппДоступа.ОбновитьДанныеРегистра(ГруппыДоступаПрофилей, ЕстьИзменения);
// Обновление ролей пользователей.
ПользователиДляОбновления =
Справочники.ГруппыДоступа.ПользователиДляОбновленияРолейПоПрофилю(Профили);
УправлениеДоступомСлужебный.ОбновитьРолиПользователей(ПользователиДляОбновления, , ЕстьИзменения);
КонецЕсли;
КонецПроцедуры
@@ -674,6 +683,51 @@
КонецФункции
Функция ИзменилисьВидыИлиЗначенияДоступаИлиНазначение(СтарыеЗначения, ТекущийОбъект) Экспорт
Если СтарыеЗначения.Ссылка <> ТекущийОбъект.Ссылка Тогда
Возврат Истина;
КонецЕсли;
ВидыДоступа = СтарыеЗначения.ВидыДоступа.Выгрузить();
ЗначенияДоступа = СтарыеЗначения.ЗначенияДоступа.Выгрузить();
Назначение = СтарыеЗначения.Назначение.Выгрузить();
Если ВидыДоступа.Количество() <> ТекущийОбъект.ВидыДоступа.Количество()
Или ЗначенияДоступа.Количество() <> ТекущийОбъект.ЗначенияДоступа.Количество()
Или Назначение.Количество() <> ТекущийОбъект.Назначение.Количество() Тогда
Возврат Истина;
КонецЕсли;
Отбор = Новый Структура("ВидДоступа, Предустановленный, ВсеРазрешены");
Для Каждого Строка Из ТекущийОбъект.ВидыДоступа Цикл
ЗаполнитьЗначенияСвойств(Отбор, Строка);
Если ВидыДоступа.НайтиСтроки(Отбор).Количество() = 0 Тогда
Возврат Истина;
КонецЕсли;
КонецЦикла;
Отбор = Новый Структура("ВидДоступа, ЗначениеДоступа");
Для Каждого Строка Из ТекущийОбъект.ЗначенияДоступа Цикл
ЗаполнитьЗначенияСвойств(Отбор, Строка);
Если ЗначенияДоступа.НайтиСтроки(Отбор).Количество() = 0 Тогда
Возврат Истина;
КонецЕсли;
КонецЦикла;
Отбор = Новый Структура("ТипПользователей");
Для Каждого Строка Из ТекущийОбъект.Назначение Цикл
ЗаполнитьЗначенияСвойств(Отбор, Строка);
Если Назначение.НайтиСтроки(Отбор).Количество() = 0 Тогда
Возврат Истина;
КонецЕсли;
КонецЦикла;
Возврат Ложь;
КонецФункции
////////////////////////////////////////////////////////////////////////////////
// Процедуры и функции для поддержки обмена данными в РИБ.
@@ -691,47 +745,10 @@
| Справочник.ПрофилиГруппДоступа.Роли КАК РолиПрофилей
|ГДЕ
| РолиПрофилей.Ссылка = &Профиль
| И ТИПЗНАЧЕНИЯ(РолиПрофилей.Роль) = ТИП(Справочник.ИдентификаторыОбъектовМетаданных)
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ РАЗЛИЧНЫЕ
| РолиПрофилей.Роль КАК Роль
|ИЗ
| Справочник.ПрофилиГруппДоступа.Роли КАК РолиПрофилей
|ГДЕ
| РолиПрофилей.Ссылка = &Профиль
| И ТИПЗНАЧЕНИЯ(РолиПрофилей.Роль) = ТИП(Справочник.ИдентификаторыОбъектовРасширений)";
РезультатыЗапроса = Запрос.ВыполнитьПакет();
// Регистрация профилей для групп доступа которых нужно обновить регистр сведений ТаблицыГруппДоступа.
РолиИзменены = Ложь;
СтарыеРоли = РезультатыЗапроса[0].Выгрузить();
Если СтарыеРоли.Количество() <> ЭлементДанных.Роли.Количество() Тогда
РолиИзменены = Истина;
Иначе
Для Каждого Роль Из ЭлементДанных.Роли Цикл
Если СтарыеРоли.Найти(Роль, "Роль") = Неопределено Тогда
РолиИзменены = Истина;
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
Если РолиИзменены Тогда
ПрофилиСИзмененнымСоставомРолейПриЗагрузке = ПрофилиСИзмененнымСоставомРолейПриЗагрузке();
Если ПрофилиСИзмененнымСоставомРолейПриЗагрузке.Найти(ЭлементДанных.Ссылка) = Неопределено Тогда
ПрофилиСИзмененнымСоставомРолейПриЗагрузке.Добавить(ЭлементДанных.Ссылка);
УстановитьПривилегированныйРежим(Истина);
СтандартныеПодсистемыСервер.УстановитьПараметрРаботыПрограммы(
"СтандартныеПодсистемы.УправлениеДоступом.ПрофилиСИзмененнымСоставомРолейПриЗагрузке",
ПрофилиСИзмененнымСоставомРолейПриЗагрузке);
УстановитьПривилегированныйРежим(Ложь);
КонецЕсли;
КонецЕсли;
// Добавление ролей расширений к новому состав ролей конфигурации.
Выборка = РезультатыЗапроса[1].Выбрать();
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
ЭлементДанных.Роли.Добавить().Роль = Выборка.Роль;
КонецЦикла;
@@ -782,37 +799,73 @@
КонецПроцедуры
// Только для внутреннего использования.
Процедура ОбновитьТаблицыГруппДоступаПрофилейСИзмененнымСоставомРолейПриЗагрузке() Экспорт
Процедура ЗарегистрироватьПрофильИзмененныйПриЗагрузке(ЭлементДанных) Экспорт
// Регистрация профилей, для групп доступа которых нужно обновить регистры сведений
// ТаблицыГруппДоступа, ЗначенияГруппДоступа и ЗначенияГруппДоступаПоУмолчанию и роли пользователей.
СтарыеЗначения = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(ЭлементДанных.Ссылка,
"Ссылка, ПометкаУдаления, Роли, Назначение, ВидыДоступа, ЗначенияДоступа");
ТребуетсяРегистрация = Ложь;
Профиль = ЭлементДанных.Ссылка;
Если ТипЗнч(ЭлементДанных) = Тип("УдалениеОбъекта") Тогда
ТребуетсяРегистрация = Истина;
ИначеЕсли СтарыеЗначения.Ссылка <> ЭлементДанных.Ссылка Тогда
ТребуетсяРегистрация = Истина;
Профиль = ПользователиСлужебный.СсылкаОбъекта(ЭлементДанных);
ИначеЕсли СтарыеЗначения.ПометкаУдаления <> ЭлементДанных.ПометкаУдаления
Или ИзменилисьВидыИлиЗначенияДоступаИлиНазначение(СтарыеЗначения, ЭлементДанных) Тогда
ТребуетсяРегистрация = Истина;
Иначе
СтарыеРоли = СтарыеЗначения.Роли.Выгрузить();
Если СтарыеРоли.Количество() <> ЭлементДанных.Роли.Количество() Тогда
ТребуетсяРегистрация = Истина;
Иначе
Для Каждого Строка Из ЭлементДанных.Роли Цикл
Если СтарыеРоли.Найти(Строка.Роль, "Роль") = Неопределено Тогда
ТребуетсяРегистрация = Истина;
Прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЕсли;
Если Не ТребуетсяРегистрация Тогда
Возврат;
КонецЕсли;
Справочники.ГруппыДоступа.ЗарегистрироватьСсылки("Профили", Профиль);
КонецПроцедуры
// Только для внутреннего использования.
Процедура ОбновитьВспомогательныеДанныеПрофилейИзмененныхПриЗагрузке() Экспорт
Если ОбщегоНазначения.РазделениеВключено() Тогда
// Изменения профилей в АРМ заблокированы и не загружаются в область данных.
Возврат;
КонецЕсли;
ПрофилиСИзмененнымСоставомРолейПриЗагрузке = ПрофилиСИзмененнымСоставомРолейПриЗагрузке();
Если ПрофилиСИзмененнымСоставомРолейПриЗагрузке.Количество() = 0 Тогда
ИзмененныеПрофили = Справочники.ГруппыДоступа.ЗарегистрированныеСсылки("Профили");
Если ИзмененныеПрофили.Количество() = 0 Тогда
Возврат;
КонецЕсли;
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Профиль", ПрофилиСИзмененнымСоставомРолейПриЗагрузке);
Запрос.Текст =
"ВЫБРАТЬ
| ГруппыДоступа.Ссылка КАК Ссылка
|ИЗ
| Справочник.ГруппыДоступа КАК ГруппыДоступа
|ГДЕ
| ГруппыДоступа.Профиль В(&Профиль)";
Если ИзмененныеПрофили.Количество() = 1
И ИзмененныеПрофили[0] = Неопределено Тогда
ОбновитьВспомогательныеДанныеПрофилей();
Иначе
ОбновитьВспомогательныеДанныеПрофилей(ИзмененныеПрофили);
КонецЕсли;
ГруппыДоступаПрофилей = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка");
РегистрыСведений.ТаблицыГруппДоступа.ОбновитьДанныеРегистра(ГруппыДоступаПрофилей);
УстановитьПривилегированныйРежим(Истина);
СтандартныеПодсистемыСервер.УстановитьПараметрРаботыПрограммы(
"СтандартныеПодсистемы.УправлениеДоступом.ПрофилиСИзмененнымСоставомРолейПриЗагрузке",
Неопределено);
УстановитьПривилегированныйРежим(Ложь);
Справочники.ГруппыДоступа.ЗарегистрироватьСсылки("Профили", Null);
КонецПроцедуры
@@ -1045,6 +1098,7 @@
КонецЕсли;
Для Каждого Тип Из Типы Цикл
Если ТипЗнч(Тип) <> Тип("Тип")
Или Не ОбщегоНазначения.ЭтоСсылка(Тип)
Или Не Метаданные.ОпределяемыеТипы.Пользователь.Тип.СодержитТип(Тип)
Или Тип <> Тип("СправочникСсылка.Пользователи")
И Не Метаданные.ОпределяемыеТипы.ВнешнийПользователь.Тип.СодержитТип(Тип) Тогда
@@ -1376,8 +1430,9 @@
КонецЕсли;
Если ПрофильИзменен Тогда
ЗаблокироватьДанныеДляРедактирования(ПрофильОбъект.Ссылка, ПрофильОбъект.ВерсияДанных);
Если Не ОбновлениеИнформационнойБазы.ВыполняетсяОбновлениеИнформационнойБазы() Тогда
ЗаблокироватьДанныеДляРедактирования(ПрофильОбъект.Ссылка, ПрофильОбъект.ВерсияДанных);
КонецЕсли;
ПрофильОбъект.Наименование = СвойстваПрофиля.Наименование;
ПрофильОбъект.Роли.Очистить();
@@ -1421,8 +1476,12 @@
Если НеОбновлятьРолиПользователей Тогда
ПрофильОбъект.ДополнительныеСвойства.Вставить("НеОбновлятьРолиПользователей");
КонецЕсли;
ПрофильОбъект.Записать();
РазблокироватьДанныеДляРедактирования(ПрофильОбъект.Ссылка);
ОбновлениеИнформационнойБазы.ЗаписатьОбъект(ПрофильОбъект);
Если Не ОбновлениеИнформационнойБазы.ВыполняетсяОбновлениеИнформационнойБазы() Тогда
РазблокироватьДанныеДляРедактирования(ПрофильОбъект.Ссылка);
КонецЕсли;
КонецЕсли;
Возврат ПрофильИзменен;
@@ -1465,21 +1524,6 @@
КонецФункции
Функция ПрофилиСИзмененнымСоставомРолейПриЗагрузке()
УстановитьПривилегированныйРежим(Истина);
ПрофилиСИзмененнымСоставомРолейПриЗагрузке = СтандартныеПодсистемыСервер.ПараметрРаботыПрограммы(
"СтандартныеПодсистемы.УправлениеДоступом.ПрофилиСИзмененнымСоставомРолейПриЗагрузке");
Если ТипЗнч(ПрофилиСИзмененнымСоставомРолейПриЗагрузке) <> Тип("Массив") Тогда
ПрофилиСИзмененнымСоставомРолейПриЗагрузке = Новый Массив;
КонецЕсли;
Возврат ПрофилиСИзмененнымСоставомРолейПриЗагрузке;
КонецФункции
#КонецОбласти
#КонецЕсли
SSL/src/Catalogs/ПрофилиГруппДоступа/ObjectModule.bsl
+31 -56
View File
@@ -2,11 +2,8 @@
#Область ОписаниеПеременных
Перем СтарыеРолиПрофиля; // Роли профиля до изменения для использования
// в обработчике события ПриЗаписи.
Перем СтараяПометкаУдаления; // Пометка удаления профиля групп доступа до изменения
// для использования в обработчике события ПриЗаписи.
Перем СтарыеЗначения; // Значения некоторых реквизитов и табличных частей профиля
// до его изменения для использования в обработчике события ПриЗаписи.
#КонецОбласти
@@ -25,20 +22,10 @@
СтандартныеПодсистемыСервер.ПроверитьДинамическоеОбновлениеВерсииПрограммы();
РегистрыСведений.ПраваРолей.ПроверитьДанныеРегистра();
// Получение старых ролей профиля.
РезультатЗапроса = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Ссылка, "Роли");
Если ТипЗнч(РезультатЗапроса) = Тип("РезультатЗапроса") Тогда
СтарыеРолиПрофиля = РезультатЗапроса.Выгрузить();
Иначе
СтарыеРолиПрофиля = Роли.Выгрузить(Новый Массив);
КонецЕсли;
СтарыеЗначения = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Ссылка,
"Ссылка, ПометкаУдаления, Роли, Назначение, ВидыДоступа, ЗначенияДоступа");
СтараяПометкаУдаления = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(
Ссылка, "ПометкаУдаления");
Если Ссылка = Справочники.ПрофилиГруппДоступа.Администратор Тогда
Пользователь = Неопределено;
Иначе
Если Ссылка <> Справочники.ПрофилиГруппДоступа.Администратор Тогда
// Проверка ролей.
НомерСтроки = Роли.Количество() - 1;
РолиАдминистратора = Новый Массив;
@@ -105,10 +92,8 @@
ПроверитьОднозначностьПоставляемыхДанных();
ОбъектыМетаданных = ОбновитьРолиПользователейПриИзмененииРолейПрофиля();
// При установке пометки удаления нужно установить пометку удаления у групп доступа профиля.
Если ПометкаУдаления И СтараяПометкаУдаления = Ложь Тогда
Если ПометкаУдаления И СтарыеЗначения.ПометкаУдаления = Ложь Тогда
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Профиль", Ссылка);
Запрос.Текст =
@@ -132,31 +117,26 @@
Справочники.ГруппыДоступа.ОбновитьГруппыДоступаПрофиля(Ссылка, Истина);
КонецЕсли;
// Обновление таблиц и значений групп доступа.
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Профиль", Ссылка);
Запрос.Текст =
"ВЫБРАТЬ
| ГруппыДоступа.Ссылка КАК Ссылка
|ИЗ
| Справочник.ГруппыДоступа КАК ГруппыДоступа
|ГДЕ
| ГруппыДоступа.Профиль = &Профиль
| И (НЕ ГруппыДоступа.ЭтоГруппа)";
РезультатЗапроса = Запрос.Выполнить();
ИзмененияСоставаТаблицПриИзмененииРолей = ОбновитьРолиПользователейПриИзмененииРолейПрофиля();
Если Не РезультатЗапроса.Пустой() Тогда
ГруппыДоступаПрофиля = Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка");
РегистрыСведений.ЗначенияГруппДоступа.ОбновитьДанныеРегистра(ГруппыДоступаПрофиля);
Если ОбъектыМетаданных.Количество() > 0 Тогда
РегистрыСведений.ТаблицыГруппДоступа.ОбновитьДанныеРегистра(
ГруппыДоступаПрофиля, ОбъектыМетаданных);
КонецЕсли;
Если ИзмененияСоставаТаблицПриИзмененииРолей.Количество() > 0 Тогда
ГруппыДоступаПрофиля = Справочники.ГруппыДоступа.ГруппыДоступаПрофиля(Ссылка);
РегистрыСведений.ТаблицыГруппДоступа.ОбновитьДанныеРегистра(ГруппыДоступаПрофиля,
ИзмененияСоставаТаблицПриИзмененииРолей);
КонецЕсли;
Справочники.ПрофилиГруппДоступа.ОбновитьТаблицыГруппДоступаПрофилейСИзмененнымСоставомРолейПриЗагрузке();
Если Справочники.ПрофилиГруппДоступа.ИзменилисьВидыИлиЗначенияДоступаИлиНазначение(СтарыеЗначения, ЭтотОбъект)
Или ПометкаУдаления <> СтарыеЗначения.ПометкаУдаления Тогда
Если ГруппыДоступаПрофиля = Неопределено Тогда
ГруппыДоступаПрофиля = Справочники.ГруппыДоступа.ГруппыДоступаПрофиля(Ссылка);
КонецЕсли;
РегистрыСведений.ЗначенияГруппДоступа.ОбновитьДанныеРегистра(ГруппыДоступаПрофиля);
КонецЕсли;
Справочники.ПрофилиГруппДоступа.ОбновитьВспомогательныеДанныеПрофилейИзмененныхПриЗагрузке();
Справочники.ГруппыДоступа.ОбновитьВспомогательныеДанныеГруппДоступаИзмененныхПриЗагрузке();
Справочники.ГруппыДоступа.ОбновитьРолиПользователейИзмененныхПриЗагрузке();
КонецПроцедуры
@@ -189,6 +169,10 @@
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
////////////////////////////////////////////////////////////////////////////////
// Вспомогательные процедуры и функции.
@@ -196,7 +180,9 @@
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Профиль", Ссылка);
Запрос.УстановитьПараметр("СтарыеРолиПрофиля", СтарыеРолиПрофиля);
Запрос.УстановитьПараметр("СтарыеРолиПрофиля", ?(Ссылка = СтарыеЗначения.Ссылка,
СтарыеЗначения.Роли.Выгрузить(), Роли.Выгрузить(Новый Массив)));
Запрос.Текст =
"ВЫБРАТЬ
| СтарыеРолиПрофиля.Роль
@@ -313,18 +299,7 @@
Если НЕ ДополнительныеСвойства.Свойство("НеОбновлятьРолиПользователей")
И НЕ РезультатыЗапросов[1].Пустой() Тогда
Запрос.Текст =
"ВЫБРАТЬ РАЗЛИЧНЫЕ
| СоставыГруппПользователей.Пользователь
|ИЗ
| РегистрСведений.СоставыГруппПользователей КАК СоставыГруппПользователей
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.ГруппыДоступа.Пользователи КАК ГруппыДоступаПользователи
| ПО СоставыГруппПользователей.ГруппаПользователей = ГруппыДоступаПользователи.Пользователь
| И (ГруппыДоступаПользователи.Ссылка.Профиль = &Профиль)";
ПользователиДляОбновленияРолей =
Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Пользователь");
ПользователиДляОбновленияРолей = Справочники.ГруппыДоступа.ПользователиДляОбновленияРолейПоПрофилю(Ссылка);
УправлениеДоступом.ОбновитьРолиПользователей(ПользователиДляОбновленияРолей);
КонецЕсли;
SSL/src/Catalogs/Файлы/Forms/Файлы/Module.bsl
+20 -13
View File
@@ -348,14 +348,7 @@
&НаКлиенте
Процедура ДобавитьФайл(Команда)
ПараметрыВыполнения = Новый Структура;
ПараметрыВыполнения.Вставить("ОбработчикРезультата", Неопределено);
ПараметрыВыполнения.Вставить("ВладелецФайла", Элементы.Папки.ТекущаяСтрока);
ПараметрыВыполнения.Вставить("ФормаВладелец", ЭтотОбъект);
ПараметрыВыполнения.Вставить("НеОткрыватьКарточкуПослеСозданияИзФайла", Истина);
ПараметрыВыполнения.Вставить("ЭтоФайл", Истина);
РаботаСФайламиСлужебныйКлиент.ДобавитьПослеВыбораРежимаСоздания(2, ПараметрыВыполнения);
РаботаСФайламиСлужебныйКлиент.ДобавитьФайлИзФайловойСистемы(Элементы.Папки.ТекущаяСтрока, ЭтотОбъект);
КонецПроцедуры
@@ -1436,13 +1429,27 @@
ТекущиеДанные = Элементы.Список.ТекущиеДанные;
Если ТекущиеДанные <> Неопределено И РасширенияПоддерживающиеПредпросмотр.НайтиПоЗначению(ТекущиеДанные.Расширение) <> Неопределено Тогда
ДанныеФайла = РаботаСФайламиСлужебныйВызовСервера.ДанныеФайлаДляОткрытия(ТекущиеДанные.Ссылка, Неопределено, УникальныйИдентификатор);
АдресДанныхФайла = ДанныеФайла.НавигационнаяСсылкаТекущейВерсии;
Попытка
ДанныеФайла = РаботаСФайламиСлужебныйВызовСервера.ДанныеФайлаДляОткрытия(ТекущиеДанные.Ссылка, Неопределено, УникальныйИдентификатор);
АдресДанныхФайла = ДанныеФайла.СсылкаНаДвоичныеДанныеФайла;
Исключение
// Если файла не существует, то будет вызвано исключение.
АдресДанныхФайла = Неопределено;
ТекстНевыбраннойКартинки = НСтр("ru = 'Предварительный просмотр недоступен по причине:'") + Символы.ПС + КраткоеПредставлениеОшибки(ИнформацияОбОшибке());
КонецПопытки;
Иначе
АдресДанныхФайла = Неопределено;
Элементы.АдресДанныхФайла.ТекстНевыбраннойКартинки = НСтр("ru = 'Нет данных для предварительного просмотра'");
АдресДанныхФайла = Неопределено;
ТекстНевыбраннойКартинки = НСтр("ru = 'Нет данных для предварительного просмотра'");
КонецЕсли;
Если НЕ ЗначениеЗаполнено(АдресДанныхФайла) Тогда
Элементы.АдресДанныхФайла.ТекстНевыбраннойКартинки = ТекстНевыбраннойКартинки;
КонецЕсли;
КонецПроцедуры
&НаСервере
SSL/src/Catalogs/Файлы/Forms/ФормаВыбора/Form.form
+17
View File
@@ -1322,6 +1322,23 @@
<getInvisibleFieldPresentations>true</getInvisibleFieldPresentations>
</extInfo>
</attributes>
<attributes>
<name>РежимВыбораШаблона</name>
<title>
<key>ru</key>
<value>Режим выбора шаблона</value>
</title>
<id>3</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
+19 -5
View File
@@ -22,6 +22,8 @@
Иначе
Если Параметры.ВыборШаблона Тогда
РежимВыбораШаблона = Параметры.ВыборШаблона;
ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(
Папки, "Ссылка", Справочники.ПапкиФайлов.Шаблоны,
ВидСравненияКомпоновкиДанных.ВИерархии, , Истина);
@@ -61,6 +63,8 @@
КонецЕсли;
КонецЕсли;
Элементы.Список.Обновить();
КонецЕсли;
Если ВРег(ИмяСобытия) = ВРег("Запись_НаборКонстант")
@@ -87,13 +91,23 @@
&НаКлиенте
Процедура ДобавитьФайл(Команда)
ЗначениеПараметраКД = Список.Параметры.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("Владелец"));
Если ЗначениеПараметраКД = Неопределено Тогда
ВладелецФайла = Неопределено;
Если РежимВыбораШаблона Тогда
РаботаСФайламиСлужебныйКлиент.ДобавитьФайлИзФайловойСистемы(Элементы.Папки.ТекущаяСтрока, ЭтотОбъект);
Иначе
ВладелецФайла = ЗначениеПараметраКД.Значение;
ЗначениеПараметраКД = Список.Параметры.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("Владелец"));
Если ЗначениеПараметраКД = Неопределено Тогда
ВладелецФайла = Неопределено;
Иначе
ВладелецФайла = ЗначениеПараметраКД.Значение;
КонецЕсли;
РаботаСФайламиСлужебныйКлиент.ДобавитьФайл(Неопределено, ВладелецФайла, ЭтотОбъект);
КонецЕсли;
РаботаСФайламиСлужебныйКлиент.ДобавитьФайл(Неопределено, ВладелецФайла, ЭтотОбъект);
КонецПроцедуры
#КонецОбласти
SSL/src/Catalogs/Файлы/Forms/ФормаЭлемента/Module.bsl
+8 -1
View File
@@ -286,7 +286,14 @@
Процедура СтандартнаяЗаписатьИЗакрыть(Команда)
Если ОбработатьКомандуЗаписиФайла() Тогда
Закрыть();
Результат = Новый Структура();
Результат.Вставить("ТекстОшибки", "");
Результат.Вставить("ФайлДобавлен", Истина);
Результат.Вставить("ФайлСсылка", ЭтотОбъект.Объект.Ссылка);
Закрыть(Результат);
КонецЕсли;
КонецПроцедуры
SSL/src/Catalogs/ШаблоныСообщений/Forms/СформироватьСообщение/Module.bsl
+6 -2
View File
@@ -3,10 +3,14 @@
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Предмет = Параметры.Предмет;
Предмет = Параметры.Предмет;
ВидСообщения = Параметры.ВидСообщения;
РежимВыбора = Параметры.РежимВыбора;
Если ЗначениеЗаполнено(Предмет) Тогда
ПолноеИмяТипаОснования = Предмет.Метаданные().ПолноеИмя();
КонецЕсли;
Если ВидСообщения = "СообщениеSMS" Тогда
ПредназначенДляSMS = Истина;
ПредназначенДляЭлектронныхПисем = Ложь;
@@ -174,7 +178,7 @@
Результат = ПолучитьИзВременногоХранилища(АдресРезультата);
Если ПараметрыОтправки.ДополнительныеПараметры.ОтправитьСразу Тогда
ПослеФормированияИОтправкиСообщения(Результат, ПараметрыОтправки.ДополнительныеПараметры);
ПослеФормированияИОтправкиСообщения(Результат, ПараметрыОтправки);
Иначе
Если РежимВыбора Тогда
Закрыть(Результат);
SSL/src/Catalogs/ШаблоныСообщений/Forms/ФормаЭлемента/Module.bsl
+12 -5
View File
@@ -766,15 +766,22 @@
ИначеЕсли Параметры.ПараметрыВыбора.Количество() > 0 Тогда
Если Параметры.ПараметрыВыбора.Свойство("Назначение") Тогда
НазначениеШаблона = НастройкиШаблоновСообщений.ПредметыШаблонов.Найти(Параметры.ПараметрыВыбора.Назначение, "Представление");
ИмяВНазначение = ?(Параметры.ПараметрыВыбора.Свойство("Назначение"), Параметры.ПараметрыВыбора.Назначение, "");
Если Параметры.ПараметрыВыбора.Свойство("ПолноеИмяТипаПараметраВводаНаОсновании") Тогда
ИмяВНазначение = Параметры.ПараметрыВыбора.ПолноеИмяТипаПараметраВводаНаОсновании;
КонецЕсли;
Если ЗначениеЗаполнено(ИмяВНазначение) Тогда
НазначениеШаблона = НастройкиШаблоновСообщений.ПредметыШаблонов.Найти(ИмяВНазначение, "Представление");
Если НазначениеШаблона = Неопределено Тогда
НазначениеШаблона = НастройкиШаблоновСообщений.ПредметыШаблонов.Найти(Параметры.ПараметрыВыбора.Назначение, "Имя");
НазначениеШаблона = НастройкиШаблоновСообщений.ПредметыШаблонов.Найти(ИмяВНазначение, "Имя");
КонецЕсли;
Если НазначениеШаблона <> Неопределено Тогда
Объект.ПолноеИмяТипаПараметраВводаНаОсновании = НазначениеШаблона.Имя;
Объект.Назначение = НазначениеШаблона.Представление;
Объект.ПредназначенДляВводаНаОсновании = Истина;
Объект.Назначение = НазначениеШаблона.Представление;
Объект.ПредназначенДляВводаНаОсновании = Истина;
Элементы.ГруппаНазначение.Видимость = Ложь;
КонецЕсли;
КонецЕсли;
SSL/src/ChartsOfCharacteristicTypes/ДополнительныеРеквизитыИСведения/Forms/ФормаЭлемента/Module.bsl
+3 -2
View File
@@ -683,8 +683,9 @@
+ "."
+ Сред(ИмяПредопределенныхДанных, ПозицияЗаменяемогоСимвола + 1);
Менеджер = ОбщегоНазначения.МенеджерОбъектаПоПолномуИмени(ПолноеИмяОбъекта);
СсылкаОбъекта = Менеджер.ПустаяСсылка();
НаборыОбъекта = УправлениеСвойствамиСлужебный.ПолучитьНаборыСвойствОбъекта(СсылкаОбъекта);
НовыйОбъект = Менеджер.СоздатьЭлемент();
НаборыОбъекта = УправлениеСвойствамиСлужебный.ПолучитьНаборыСвойствОбъекта(НовыйОбъект);
ПараметрыОтбора = Новый Структура;
ПараметрыОтбора.Вставить("ОбщийНабор", Истина);
SSL/src/CommonAttributes/ОбластьДанныхВспомогательныеДанные/ОбластьДанныхВспомогательныеДанные.mdo
-4
View File
@@ -44,10 +44,6 @@
<metadata>InformationRegister.ОчередьИзвлеченияТекста</metadata>
<use>Use</use>
</content>
<content>
<metadata>InformationRegister.СостоянияКонтрагентов</metadata>
<use>Use</use>
</content>
<content>
<metadata>Constant.ПрефиксОбластиДанных</metadata>
<use>Use</use>
SSL/src/CommonAttributes/ОбластьДанныхОсновныеДанные/ОбластьДанныхОсновныеДанные.mdo
-12
View File
@@ -120,10 +120,6 @@
<metadata>Constant.ПрофильБезопасностиИнформационнойБазы</metadata>
<use>DontUse</use>
</content>
<content>
<metadata>Constant.ИспользоватьПроверкуКонтрагентов</metadata>
<use>DontUse</use>
</content>
<content>
<metadata>InformationRegister.УдалитьЗамерыВремениТехнологические</metadata>
<use>DontUse</use>
@@ -340,10 +336,6 @@
<metadata>Catalog.ПроизводственныеКалендари</metadata>
<use>DontUse</use>
</content>
<content>
<metadata>InformationRegister.СостоянияКонтрагентов</metadata>
<use>DontUse</use>
</content>
<content>
<metadata>ScheduledJob.ОбновлениеАгрегатов</metadata>
<use>DontUse</use>
@@ -572,10 +564,6 @@
<metadata>Constant.ХранитьФайлыВТомахНаДиске</metadata>
<use>DontUse</use>
</content>
<content>
<metadata>ScheduledJob.ПроверкаКонтрагентов</metadata>
<use>DontUse</use>
</content>
<content>
<metadata>Constant.ИспользоватьСервисСклоненияMorpher</metadata>
<use>DontUse</use>
SSL/src/CommonCommands/НастройкиПроверкиКонтрагентов/CommandModule.bsl
-10
View File
@@ -1,10 +0,0 @@
#Область ОбработчикиСобытий
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
ПроверкаКонтрагентовКлиент.ОткрытьНастройкиСервиса();
КонецПроцедуры
#КонецОбласти
SSL/src/CommonCommands/НастройкиПроверкиКонтрагентов/НастройкиПроверкиКонтрагентов.mdo
-10
View File
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonCommand xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="36b080d5-a870-46fa-bf8d-0a06e3a9719f">
<name>НастройкиПроверкиКонтрагентов</name>
<synonym>
<key>ru</key>
<value>Настройки проверки контрагентов</value>
</synonym>
<group>ActionsPanelTools</group>
<representation>Auto</representation>
</mdclass:CommonCommand>
SSL/src/CommonCommands/ПереходКНастройкамДоступаКВебСервису/CommandModule.bsl
-13
View File
@@ -1,13 +0,0 @@
#Область ОбработчикиСобытий
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПолучениеФайловИзИнтернета") Тогда
МодульПолучениеФайловИзИнтернетаКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПолучениеФайловИзИнтернетаКлиент");
МодульПолучениеФайловИзИнтернетаКлиент.ОткрытьФормуПараметровПроксиСервера();
КонецЕсли;
КонецПроцедуры
#КонецОбласти
SSL/src/CommonCommands/ПереходКНастройкамДоступаКВебСервису/ПереходКНастройкамДоступаКВебСервису.mdo
-10
View File
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonCommand xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="f38069e7-6d69-4be9-8463-bc7a33158a1a">
<name>ПереходКНастройкамДоступаКВебСервису</name>
<synonym>
<key>ru</key>
<value>Переход к настройкам доступа к веб сервису</value>
</synonym>
<group>ActionsPanelTools</group>
<representation>Auto</representation>
</mdclass:CommonCommand>
SSL/src/CommonCommands/ПроверитьДоступКСервису/CommandModule.bsl
-9
View File
@@ -1,9 +0,0 @@
#Область ОбработчикиСобытий
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
ПроверкаКонтрагентовКлиент.ПроверитьДоступКСервису();
КонецПроцедуры
#КонецОбласти
SSL/src/CommonCommands/ПроверитьДоступКСервису/ПроверитьДоступКСервису.mdo
-10
View File
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonCommand xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="c2e3f050-7465-4e5b-bc28-988a4d6bc1c2">
<name>ПроверитьДоступКСервису</name>
<synonym>
<key>ru</key>
<value>Проверить доступ к сервису</value>
</synonym>
<group>NavigationPanelOrdinary</group>
<representation>Auto</representation>
</mdclass:CommonCommand>
SSL/src/CommonForms/ВключениеПроверкиКонтрагентов/Form.form
-533
View File
@@ -1,533 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:form="http://g5.1c.ru/v8/dt/form">
<title>
<key>ru</key>
<value>Проверка контрагентов</value>
</title>
<items xsi:type="form:FormGroup">
<name>ИнформацияОНеобходимостиОбратитьсяКАдминистратору</name>
<id>72</id>
<items xsi:type="form:Decoration">
<name>ИнформацияОСервисе</name>
<id>89</id>
<title>
<key>ru</key>
<value>В программе имеется возможность использовать веб-сервис ФНС для автоматической проверки регистрации контрагентов в ЕГРН (требуется доступ в Интернет).</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ИнформацияОСервисеРасширеннаяПодсказка</name>
<id>91</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ИнформацияОСервисеКонтекстноеМеню</name>
<id>90</id>
<autoFill>true</autoFill>
</contextMenu>
<formatted>true</formatted>
<type>Label</type>
<height>2</height>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>РежимыМедленнойРаботы</name>
<id>104</id>
<items xsi:type="form:FormGroup">
<name>НедостаточноПамяти</name>
<id>106</id>
<items xsi:type="form:Decoration">
<name>ТекстПроМедленноеОткрытие</name>
<id>101</id>
<title>
<key>ru</key>
<value>Включение автоматической проверки может замедлить открытие документов.
Рекомендуется увеличить количество памяти до 4 Гб или использовать ручную проверку по кнопке в подменю Еще.
&lt;link e1cib/app/Обработка.ИнструкцияПоИспользованиюПроверкиКонтрагента>Подробнее о проверке&lt;/></value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ТекстПроМедленноеОткрытиеРасширеннаяПодсказка</name>
<id>103</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ТекстПроМедленноеОткрытиеКонтекстноеМеню</name>
<id>102</id>
<autoFill>true</autoFill>
</contextMenu>
<formatted>true</formatted>
<type>Label</type>
<height>4</height>
<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>НедостаточноПамятиРасширеннаяПодсказка</name>
<id>107</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>Vertical</group>
<showTitle>auto</showTitle>
<scrollOnCompress>false</scrollOnCompress>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>МедленноеСоединение</name>
<id>108</id>
<items xsi:type="form:Decoration">
<name>ТекстПроМедленноеСоединение</name>
<id>110</id>
<title>
<key>ru</key>
<value>Включение автоматической проверки может замедлить открытие документов.
Рекомендуется увеличить скорость интернета или использовать ручную проверку по кнопке в подменю Еще.
&lt;link e1cib/app/Обработка.ИнструкцияПоИспользованиюПроверкиКонтрагента>Подробн&lt;/>&lt;link e1cib/app/Обработка.ИнструкцияПоИспользованиюПроверкиКонтрагента>ее о проверке&lt;/></value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ТекстПроМедленноеСоединениеРасширеннаяПодсказка</name>
<id>112</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ТекстПроМедленноеСоединениеКонтекстноеМеню</name>
<id>111</id>
<autoFill>true</autoFill>
</contextMenu>
<formatted>true</formatted>
<type>Label</type>
<height>3</height>
<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>МедленноеСоединениеРасширеннаяПодсказка</name>
<id>109</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>Vertical</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>РежимыМедленнойРаботыРасширеннаяПодсказка</name>
<id>105</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:Decoration">
<name>ТестовыйРежим</name>
<id>92</id>
<title>
<key>ru</key>
<value>&lt;Предупреждение про тестовый режим работы сервиса></value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ТестовыйРежимРасширеннаяПодсказка</name>
<id>94</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ТестовыйРежимКонтекстноеМеню</name>
<id>93</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxHeight>true</autoMaxHeight>
<horizontalStretch>true</horizontalStretch>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
<backColor xsi:type="core:ColorRef">
<color>Style.ЦветФонаТестовогоРежимаСервисаФНС</color>
</backColor>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Для включения автоматической проверки обратитесь к администратору</value>
</title>
<extendedTooltip>
<name>ИнформацияОНеобходимостиОбратитьсяКАдминистраторуРасширеннаяПодсказка</name>
<id>73</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>Vertical</group>
<behavior>Auto</behavior>
<representation>NormalSeparation</representation>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<showTitle>auto</showTitle>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>Кнопки</name>
<id>65</id>
<items xsi:type="form:Button">
<name>ВключитьСервисСейчас</name>
<id>49</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ВключитьСервисСейчасРасширеннаяПодсказка</name>
<id>50</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>67</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>РучнаяПроверкаРасширеннаяПодсказка</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.РучнаяПроверка</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>53</id>
<title>
<key>ru</key>
<value>Напомнить позже</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>НапомнитьПозжеРасширеннаяПодсказка</name>
<id>54</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>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:Button">
<name>БольшеНеПоказывать</name>
<id>113</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>БольшеНеПоказыватьРасширеннаяПодсказка</name>
<id>114</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>66</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>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
<horizontalAlign>Left</horizontalAlign>
</autoCommandBar>
<handlers>
<event>OnCreateAtServer</event>
<name>ПриСозданииНаСервере</name>
</handlers>
<width>70</width>
<windowOpeningMode>LockOwner</windowOpeningMode>
<saveWindowSettings>true</saveWindowSettings>
<autoUrl>true</autoUrl>
<group>Vertical</group>
<autoFillCheck>true</autoFillCheck>
<allowFormCustomize>true</allowFormCustomize>
<enabled>true</enabled>
<showTitle>auto</showTitle>
<showCloseButton>true</showCloseButton>
<attributes>
<name>ЕстьПравоНаРедактированиеНастроекСервиса</name>
<title>
<key>ru</key>
<value>Есть право на редактирование настроек сервиса</value>
</title>
<id>3</id>
<valueType>
<types>Boolean</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<formCommands>
<name>ВключитьСервисСейчас</name>
<title>
<key>ru</key>
<value>Автоматическая проверка</value>
</title>
<id>1</id>
<toolTip>
<key>ru</key>
<value>Включить автоматическую проверку</value>
</toolTip>
<use>
<common>true</common>
</use>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>ВключитьСервисСейчас</name>
</handler>
</action>
<currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
<name>РучнаяПроверка</name>
<title>
<key>ru</key>
<value>Ручная проверка</value>
</title>
<id>3</id>
<toolTip>
<key>ru</key>
<value>Ручная проверка</value>
</toolTip>
<use>
<common>true</common>
</use>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>РучнаяПроверка</name>
</handler>
</action>
<currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
<name>НапомнитьПозже</name>
<title>
<key>ru</key>
<value>Напомнить позже</value>
</title>
<id>2</id>
<toolTip>
<key>ru</key>
<value>Напомнить позже</value>
</toolTip>
<use>
<common>true</common>
</use>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>НапомнитьПозже</name>
</handler>
</action>
<currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
<name>БольшеНеПоказывать</name>
<title>
<key>ru</key>
<value>Больше не показывать</value>
</title>
<id>4</id>
<toolTip>
<key>ru</key>
<value>Больше не показывать</value>
</toolTip>
<use>
<common>true</common>
</use>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>БольшеНеПоказывать</name>
</handler>
</action>
<currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<commandInterface>
<navigationPanel/>
<commandBar/>
</commandInterface>
</form:Form>
SSL/src/CommonForms/ВключениеПроверкиКонтрагентов/Module.bsl
-130
View File
@@ -1,130 +0,0 @@
#Область ОбработчикиСобытийФормы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
// Пропускаем инициализацию, чтобы гарантировать получение формы при передаче параметра "АвтоТест".
Если Параметры.Свойство("АвтоТест") Тогда
Возврат;
КонецЕсли;
ЕстьПравоНаРедактированиеНастроекСервиса = ПроверкаКонтрагентов.ЕстьПравоНаРедактированиеНастроек();
ПроверкаКонтрагентов.СохранитьДатуПоследнегоОтображенияПредложенияПодключиться();
УправлениеЭУ();
КонецПроцедуры
&НаКлиенте
Процедура НапомнитьПозже(Команда)
Закрыть();
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиКомандФормы
&НаКлиенте
Процедура ВключитьСервисСейчас(Команда)
ПроверкаКонтрагентовВызовСервера.ПриВключенииВыключенииПроверки(Истина);
Закрыть();
КонецПроцедуры
&НаКлиенте
Процедура РучнаяПроверка(Команда)
ПроверкаКонтрагентовВызовСервера.ЗапомнитьЧтоБольшеНеНужноПоказыватьПредложениеИспользоватьСервис();
Закрыть();
КонецПроцедуры
&НаКлиенте
Процедура БольшеНеПоказывать(Команда)
ПроверкаКонтрагентовВызовСервера.ЗапомнитьЧтоБольшеНеНужноПоказыватьПредложениеИспользоватьСервис();
Закрыть();
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
&НаСервере
Процедура УправлениеЭУ()
ЭтоМедленныйРежимРаботы = ПроверкаКонтрагентов.ЭтоМедленныйРежимРаботы();
// В зависимости от наличия административных прав будут доступны разные элементы управления.
Элементы.ИнформацияОНеобходимостиОбратитьсяКАдминистратору.ОтображатьЗаголовок =
НЕ ЕстьПравоНаРедактированиеНастроекСервиса;
СтандартныеПодсистемыСервер.УстановитьОтображениеЗаголовковГрупп(ЭтотОбъект);
// Управление кнопками. Видимость.
Элементы.ВключитьСервисСейчас.Видимость = ЕстьПравоНаРедактированиеНастроекСервиса;
Элементы.РучнаяПроверка.Видимость = ЕстьПравоНаРедактированиеНастроекСервиса;
Элементы.БольшеНеПоказывать.Видимость = НЕ ЕстьПравоНаРедактированиеНастроекСервиса;
// Управление кнопками. Кнопка по умолчанию.
Если ЕстьПравоНаРедактированиеНастроекСервиса Тогда
Если ЭтоМедленныйРежимРаботы Тогда
Элементы.РучнаяПроверка.КнопкаПоУмолчанию = Истина;
Иначе
Элементы.ВключитьСервисСейчас.КнопкаПоУмолчанию = Истина;
КонецЕсли;
Иначе
Элементы.НапомнитьПозже.КнопкаПоУмолчанию = Истина;
КонецЕсли;
// Настройка в зависимости от медленности компьютера.
Элементы.РежимыМедленнойРаботы.Видимость = ЭтоМедленныйРежимРаботы;
Если ЭтоМедленныйРежимРаботы Тогда
УправлениеНадписьюДляМедленногоРежима();
Иначе
ПрисоединитьСсылкуНаИнструкцию(Элементы.ИнформацияОСервисе);
КонецЕсли;
// Сообщаем про тестовый режим.
ПроверкаКонтрагентов.УстановитьВидимостьИЗаголовокПредупрежденияПроТестовыйРежим(Элементы.ТестовыйРежим);
КонецПроцедуры
&НаСервере
Процедура УправлениеНадписьюДляМедленногоРежима()
СтрокаСоединенияИБ = ПараметрыСеанса.ПараметрыКлиентаНаСервере.Получить("СтрокаСоединенияИнформационнойБазы");
ИБФайловая = СтрНайти(ВРег(СтрокаСоединенияИБ), "FILE=") = 1;
Если ИБФайловая Тогда
Элементы.РежимыМедленнойРаботы.ТекущаяСтраница = Элементы.НедостаточноПамяти;
Иначе
Элементы.РежимыМедленнойРаботы.ТекущаяСтраница = Элементы.МедленноеСоединение;
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ПрисоединитьСсылкуНаИнструкцию(Элемент)
ПутьКИнструкции = Новый ФорматированнаяСтрока(
НСтр("ru = 'Подробнее о проверке'"),
,
,
,
ПроверкаКонтрагентовКлиентСервер.ПутьКИнструкции());
Элемент.Заголовок = Новый ФорматированнаяСтрока(
Элемент.Заголовок,
Символы.ПС,
ПутьКИнструкции);
Элемент.Высота = Элемент.Высота + 1;
КонецПроцедуры
#КонецОбласти
SSL/src/CommonForms/ВключениеПроверкиКонтрагентов/ВключениеПроверкиКонтрагентов.mdo
-11
View File
@@ -1,11 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonForm xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="d67a1377-f69f-48d9-824d-2ede2594e630">
<name>ВключениеПроверкиКонтрагентов</name>
<synonym>
<key>ru</key>
<value>Включение проверки контрагентов</value>
</synonym>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
<useStandardCommands>true</useStandardCommands>
</mdclass:CommonForm>
SSL/src/CommonForms/ЗаполнениеРеквизитовКонтрагента/Form.form
-1013
View File
File diff suppressed because it is too large. Load diff
SSL/src/CommonForms/ЗаполнениеРеквизитовКонтрагента/Help/ru.html
-10
View File
@@ -1,10 +0,0 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><meta content="text/html; charset=utf-8" http-equiv="Content-Type"></meta><link rel="stylesheet" type="text/css" href="v8help://service_book/service_style"></link><meta name="GENERATOR" content="MSHTML 11.00.9600.18427"></meta></head><body>
<h1>Заполнение реквизитов контрагента </h1>
<p></p>
<p class="Usual">Форма предназначена для автоматического заполнения реквизитов контрагента на основании данных Единого государственного реестра юридических лиц (ЕГРЮЛ).</p>
<p class="Usual">Для поиска в ЕГРЮЛ необходимо указать одно или несколько слов из наименования контрагента или его ИНН и нажать <strong>"Найти"</strong>. </p>
<p class="Usual">Для более точного поиска по наименованию можно задать регион местонахождения контрагента, а также ввести город или улицу (одно или несколько слов) из юридического адреса.</p>
<p class="Usual"><strong>Внимание!</strong> Для поиска необходимо вводить целые слова, поиск по части слов не производится.</p>
<p class="Usual">Реквизиты найденных контрагентов, подходящих под условия поиска, выводятся в таблицу.</p>
<p class="Usual">Заполнение реквизитов контрагента производится по двойному щелчку мышью на нужной строке таблицы или по кнопке <strong>"Выбрать"</strong>.</p>
<p class="Usual">Для автоматического заполнения реквизитов необходим доступ в интернет и действующий договор ИТС.</p></body></html>
SSL/src/CommonForms/ЗаполнениеРеквизитовКонтрагента/Module.bsl
-293
View File
@@ -1,293 +0,0 @@
#Область ОбработчикиСобытийФормы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Свойство("АвтоТест") Тогда
Возврат;
КонецЕсли;
Если НЕ ОбщегоНазначения.ПодсистемаСуществует("ИнтернетПоддержкаПользователей") Тогда
ТекстИсключения = НСтр("ru='Заполнение реквизитов в данной конфигурации невозможно.'");
ВызватьИсключение ТекстИсключения;
КонецЕсли;
СтрокаПоиска = Параметры.СтрокаПоиска;
Если НЕ ПустаяСтрока(Параметры.Заголовок) Тогда
Заголовок = Параметры.Заголовок;
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.АдресныйКлассификатор") Тогда
МодульАдресныйКлассификатор = ОбщегоНазначения.ОбщийМодуль("АдресныйКлассификатор");
ТаблицаРегионов = МодульАдресныйКлассификатор.СубъектыРФ();
Элементы.Регион.СписокВыбора.Очистить();
Для каждого СтрокаТаблицы Из ТаблицаРегионов Цикл
Элементы.Регион.СписокВыбора.Добавить(
Формат(СтрокаТаблицы.КодСубъектаРФ, "ЧЦ=2; ЧДЦ=; ЧВН="),
СтрокаТаблицы.Наименование + " " + СтрокаТаблицы.Сокращение);
КонецЦикла;
Элементы.Регион.СписокВыбора.СортироватьПоПредставлению();
КонецЕсли;
Элементы.Регион.СписокВыбора.Вставить(0, "", НСтр("ru='Все регионы'"));
Регион = "";
УправлениеФормой(ЭтотОбъект);
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
Если ЗначениеЗаполнено(СтрокаПоиска) Тогда
ПодключитьОбработчикОжидания("ВыполнитьПоискКонтрагентов", 0.1, Истина);
КонецЕсли;
КонецПроцедуры
&НаСервере
Процедура ПриЗагрузкеДанныхИзНастроекНаСервере(Настройки)
Регион = Настройки["Регион"];
Если Элементы.Регион.СписокВыбора.НайтиПоЗначению(Регион) = Неопределено Тогда
Регион = "";
КонецЕсли;
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиСобытийЭлементовШапкиФормы
&НаКлиенте
Процедура СтрокаПоискаПриИзменении(Элемент)
Если ЭтоИНН(СтрокаПоиска) Тогда
Адрес = "";
ВыполнитьПоискКонтрагентов();
КонецЕсли;
УправлениеФормой(ЭтотОбъект);
КонецПроцедуры
&НаКлиенте
Процедура РегионПриИзменении(Элемент)
Если Элементы.Регион.СписокВыбора.НайтиПоЗначению(Регион) = Неопределено Тогда
Регион = "";
КонецЕсли;
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиСобытийЭлементовТаблицыФормыКонтрагенты
&НаКлиенте
Процедура КонтрагентыВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ВыполнитьВыборКонтрагента();
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиКомандФормы
&НаКлиенте
Процедура НайтиКонтрагентов(Команда)
ВыполнитьПоискКонтрагентов();
КонецПроцедуры
&НаКлиенте
Процедура ВыбратьКонтрагента(Команда)
ВыполнитьВыборКонтрагента();
КонецПроцедуры
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
&НаКлиентеНаСервереБезКонтекста
Функция ЭтоИНН(СтрокаПоиска)
Результат = ЗначениеЗаполнено(СтрокаПоиска)
И (СтрДлина(СтрокаПоиска) = 10 ИЛИ СтрДлина(СтрокаПоиска) = 12)
И СтроковыеФункцииКлиентСервер.ТолькоЦифрыВСтроке(СтрокаПоиска);
Возврат Результат;
КонецФункции
&НаКлиенте
Процедура ВыполнитьПоискКонтрагентов() Экспорт
ОписаниеОшибки = "";
НайтиРеквизитыНаСервере(ОписаниеОшибки);
// Обработка ошибок
Если ЗначениеЗаполнено(ОписаниеОшибки) Тогда
Если ОписаниеОшибки = "НеУказаныПараметрыАутентификации" Тогда
ТекстВопроса = НСтр("ru='Для автоматического заполнения реквизитов контрагентов
|необходимо подключиться к интернет-поддержке пользователей.
|Подключиться сейчас?'");
ОписаниеОповещения = Новый ОписаниеОповещения("ПодключитьИнтернетПоддержку", ЭтотОбъект);
ПоказатьВопрос(ОписаниеОповещения, ТекстВопроса, РежимДиалогаВопрос.ДаНет);
ИначеЕсли ОписаниеОшибки = "НеУказанПароль" Тогда
ТекстВопроса = НСтр("ru='Необходимо указать пароль к Интернет-поддержке пользователей
|и установить флажок ""Запомнить пароль"".
|Указать сейчас?'");
ОписаниеОповещения = Новый ОписаниеОповещения("ПодключитьИнтернетПоддержку", ЭтотОбъект);
ПоказатьВопрос(ОписаниеОповещения, ТекстВопроса, РежимДиалогаВопрос.ДаНет);
ИначеЕсли ОписаниеОшибки = "Сервис1СКонтрагентНеПодключен" Тогда
ПараметрыФормы = Новый Структура;
ПараметрыФормы.Вставить("ИдентификаторМестаВызова", "zapolnenie_rekvizitov");
ОткрытьФорму("ОбщаяФорма.Сервис1СКонтрагентНеПодключен", ПараметрыФормы, ЭтотОбъект);
Иначе
ПоказатьПредупреждение(, ОписаниеОшибки);
КонецЕсли;
ИначеЕсли КоличествоНайденных > 20 Тогда
ТекстПредупреждения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='Найдено слишком много похожих контрагентов (%1). Уточните реквизиты для поиска.'"),
КоличествоНайденных);
ПоказатьПредупреждение(, ТекстПредупреждения);
ИначеЕсли НЕ ПустаяСтрока(СтрокаПоиска) И КоличествоНайденных = 0 Тогда
ПоказатьПредупреждение(, НСтр("ru='Ничего не найдено. Уточните реквизиты для поиска.'"));
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВыполнитьВыборКонтрагента()
ТекДанные = Элементы.Контрагенты.ТекущиеДанные;
Если ТекДанные = Неопределено Тогда
Если Контрагенты.Количество() = 0 Тогда
ТекстПредупреждения = НСтр("ru='Ничего не найдено. Уточните реквизиты и нажмите ""Найти"".'");
ПоказатьПредупреждение(, ТекстПредупреждения);
КонецЕсли;
Возврат;
КонецЕсли;
Если НЕ ЗначениеЗаполнено(ТекДанные.ИНН) Тогда
ТекстПредупреждения = НСтр("ru='Выберите контрагента, у которого указан ИНН.'");
ПоказатьПредупреждение(, ТекстПредупреждения);
Возврат;
КонецЕсли;
ОповеститьОВыборе(ТекДанные.ИНН);
КонецПроцедуры
&НаСервере
Процедура НайтиРеквизитыНаСервере(ОписаниеОшибки)
Если НЕ ПроверитьЗаполнение() Тогда
Возврат;
КонецЕсли;
Информация = "";
Контрагенты.Очистить();
КоличествоНайденных = 0;
ПоискПоИНН = ЭтоИНН(СтрокаПоиска);
ПоискЮридическогоЛица = (ПоискПоИНН И СтрДлина(СтрокаПоиска) = 10)
ИЛИ НЕ ПоискПоИНН;
Если ПоискПоИНН Тогда
Если ПоискЮридическогоЛица Тогда
НайденныеРеквизиты = ДанныеЕдиныхГосРеестров.РеквизитыЮридическогоЛицаПоИНН(СтрокаПоиска);
Иначе
НайденныеРеквизиты = ДанныеЕдиныхГосРеестров.РеквизитыПредпринимателяПоИНН(СтрокаПоиска);
КонецЕсли;
Иначе
НайденныеРеквизиты = ДанныеЕдиныхГосРеестров.РеквизитыЮридическихЛицПоНаименованию(СтрокаПоиска, Регион, Адрес);
КонецЕсли;
Если ЗначениеЗаполнено(НайденныеРеквизиты.ОписаниеОшибки) Тогда
ОписаниеОшибки = НайденныеРеквизиты.ОписаниеОшибки;
Возврат;
КонецЕсли;
Если ПоискПоИНН Тогда
НоваяСтрока = Контрагенты.Добавить();
НоваяСтрока.ИНН = НайденныеРеквизиты.ИНН;
Если ПоискЮридическогоЛица Тогда
НоваяСтрока.Наименование = НайденныеРеквизиты.НаименованиеПолное;
Если НайденныеРеквизиты.ЮридическийАдрес <> Неопределено Тогда
НоваяСтрока.ЮридическийАдрес = НайденныеРеквизиты.ЮридическийАдрес.Представление;
КонецЕсли;
Если НайденныеРеквизиты.Руководитель <> Неопределено Тогда
НоваяСтрока.Руководитель = НайденныеРеквизиты.Руководитель.Представление;
КонецЕсли;
Иначе
НоваяСтрока.Наименование = НайденныеРеквизиты.Наименование;
КонецЕсли;
КоличествоНайденных = 1;
Иначе
Для каждого РеквизитыОрганизации Из НайденныеРеквизиты.РеквизитыОрганизаций Цикл
НоваяСтрока = Контрагенты.Добавить();
НоваяСтрока.ИНН = РеквизитыОрганизации.ИНН;
НоваяСтрока.Наименование = РеквизитыОрганизации.НаименованиеПолное;
Если РеквизитыОрганизации.ЮридическийАдрес <> Неопределено Тогда
НоваяСтрока.ЮридическийАдрес = РеквизитыОрганизации.ЮридическийАдрес.Представление;
КонецЕсли;
Если РеквизитыОрганизации.Руководитель <> Неопределено Тогда
НоваяСтрока.Руководитель = РеквизитыОрганизации.Руководитель.Фамилия
+ " " + РеквизитыОрганизации.Руководитель.Имя
+ " " + РеквизитыОрганизации.Руководитель.Отчество;
КонецЕсли;
КонецЦикла;
КоличествоНайденных = НайденныеРеквизиты.КоличествоНайденных;
КонецЕсли;
Если КоличествоНайденных > 20 Тогда
ТекущийЭлемент = Элементы.СтрокаПоиска;
Информация = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru='Показаны первые 20 контрагентов из %1 найденных. Уточните реквизиты для поиска.'"),
КоличествоНайденных);
ИначеЕсли КоличествоНайденных > 0 Тогда
ТекущийЭлемент = Элементы.Контрагенты;
Элементы.Контрагенты.ТекущаяСтрока = Контрагенты[0].ПолучитьИдентификатор();
Иначе
ТекущийЭлемент = Элементы.СтрокаПоиска;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПодключитьИнтернетПоддержку(Ответ, ДопПараметры) Экспорт
Если Ответ = КодВозвратаДиалога.Да
И ОбщегоНазначенияКлиент.ПодсистемаСуществует("ИнтернетПоддержкаПользователей") Тогда
ОписаниеОповещения = Новый ОписаниеОповещения("ПодключитьИнтернетПоддержкуЗавершение", ЭтотОбъект, ДопПараметры);
МодульИнтернетПоддержкаПользователейКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль(
"ИнтернетПоддержкаПользователейКлиент");
МодульИнтернетПоддержкаПользователейКлиент.ПодключитьИнтернетПоддержкуПользователей(ОписаниеОповещения, ЭтотОбъект);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПодключитьИнтернетПоддержкуЗавершение(Результат, ДопПараметры) Экспорт
Если Результат <> Неопределено Тогда
ВыполнитьПоискКонтрагентов();
КонецЕсли;
КонецПроцедуры
&НаКлиентеНаСервереБезКонтекста
Процедура УправлениеФормой(Форма)
ЭтоИНН = ЭтоИНН(Форма.СтрокаПоиска);
Форма.Элементы.Регион.Доступность = НЕ ЭтоИНН;
Форма.Элементы.Адрес.Доступность = НЕ ЭтоИНН;
КонецПроцедуры
#КонецОбласти
SSL/src/CommonForms/ЗаполнениеРеквизитовКонтрагента/ЗаполнениеРеквизитовКонтрагента.mdo
-16
View File
@@ -1,16 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonForm xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="30a87c95-4d55-4b68-877f-1055e1c1afa7">
<name>ЗаполнениеРеквизитовКонтрагента</name>
<synonym>
<key>ru</key>
<value>Заполнение реквизитов контрагента</value>
</synonym>
<help>
<pages>
<lang>ru</lang>
</pages>
</help>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
<useStandardCommands>true</useStandardCommands>
</mdclass:CommonForm>
SSL/src/CommonForms/МастерАнкетыПоРазделам/Form.form
+24
View File
@@ -159,6 +159,18 @@
<autoMaxHeight>true</autoMaxHeight>
<groupHorizontalAlign>Right</groupHorizontalAlign>
<placementArea>UserCmds</placementArea>
<backColor xsi:type="core:ColorDef">
<red>255</red>
<green>229</green>
<blue>38</blue>
</backColor>
<font xsi:type="core:FontRef">
<font>Style.NormalTextFont</font>
<bold>true</bold>
<italic>false</italic>
<underline>false</underline>
<strikeout>false</strikeout>
</font>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:Button">
@@ -888,6 +900,18 @@
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<backColor xsi:type="core:ColorDef">
<red>255</red>
<green>230</green>
<blue>43</blue>
</backColor>
<font xsi:type="core:FontRef">
<font>Style.NormalTextFont</font>
<bold>true</bold>
<italic>false</italic>
<underline>false</underline>
<strikeout>false</strikeout>
</font>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<visible>true</visible>
SSL/src/CommonForms/МастерАнкетыПоРазделам/Module.bsl
+4 -4
View File
@@ -147,10 +147,10 @@
&НаКлиенте
Процедура УправлениеДоступностьюКнопкиНавигацияРазделов()
Элементы.ПредыдущийРаздел.Доступность = (Элементы.ДеревоРазделов.ТекущаяСтрока <> 0);
Элементы.ПредыдущийРазделПодвал.Доступность = (Элементы.ДеревоРазделов.ТекущаяСтрока > 0);
Элементы.СледующийРаздел.Доступность = (ДеревоРазделов.НайтиПоИдентификатору(Элементы.ДеревоРазделов.ТекущаяСтрока + 1) <> Неопределено);
Элементы.СледующийРазделПодвал.Доступность = (ДеревоРазделов.НайтиПоИдентификатору(Элементы.ДеревоРазделов.ТекущаяСтрока + 1) <> Неопределено);
Элементы.ПредыдущийРаздел.Видимость = (Элементы.ДеревоРазделов.ТекущаяСтрока <> 0);
Элементы.ПредыдущийРазделПодвал.Видимость = (Элементы.ДеревоРазделов.ТекущаяСтрока > 0);
Элементы.СледующийРаздел.Видимость = (ДеревоРазделов.НайтиПоИдентификатору(Элементы.ДеревоРазделов.ТекущаяСтрока + 1) <> Неопределено);
Элементы.СледующийРазделПодвал.Видимость = (ДеревоРазделов.НайтиПоИдентификатору(Элементы.ДеревоРазделов.ТекущаяСтрока + 1) <> Неопределено);
КонецПроцедуры
SSL/src/CommonForms/НастройкиПроверкиКонтрагентов/Form.form
-306
View File
@@ -1,306 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:form="http://g5.1c.ru/v8/dt/form">
<title>
<key>ru</key>
<value>Настройки проверки контрагентов</value>
</title>
<items xsi:type="form:FormGroup">
<name>ПерваяГруппаНастроек</name>
<id>133</id>
<items xsi:type="form:FormGroup">
<name>ЛеваяКолонкаПервойГруппы</name>
<id>129</id>
<items xsi:type="form:FormField">
<name>ИспользоватьАвтоматическуюПроверкуКонтрагентов</name>
<id>156</id>
<title>
<key>ru</key>
<value>Автоматически проверять контрагентов по ЕГРН</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>ПроверкаКонтрагентовВключена</segments>
</dataPath>
<titleLocation>Right</titleLocation>
<toolTipRepresentation>ShowBottom</toolTipRepresentation>
<handlers>
<event>OnChange</event>
<name>ИспользоватьАвтоматическуюПроверкуКонтрагентов</name>
</handlers>
<extendedTooltip>
<name>ИспользоватьАвтоматическуюПроверкуКонтрагентовРасширеннаяПодсказка</name>
<id>158</id>
<title>
<key>ru</key>
<value>&lt;color #807a59>Включение автоматической проверки может замедлить открытие документов на медленных компьютерах. Для таких компьютеров рекомендуется использовать ручную проверку по кнопке в подменю Еще.&lt;/>
&lt;link e1cib/app/Обработка.ИнструкцияПоИспользованиюПроверкиКонтрагента>Подробнее о сервисе&lt;/></value>
</title>
<formatted>true</formatted>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ИспользоватьАвтоматическуюПроверкуКонтрагентовКонтекстноеМеню</name>
<id>157</id>
<autoFill>true</autoFill>
</contextMenu>
<type>CheckBoxField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:CheckBoxFieldExtInfo"/>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Левая колонка первой группы</value>
</title>
<horizontalStretch>false</horizontalStretch>
<extendedTooltip>
<name>ЛеваяКолонкаПервойГруппыРасширеннаяПодсказка</name>
<id>130</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>Vertical</group>
<behavior>Auto</behavior>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>ПраваяКолонкаПервойГруппы</name>
<id>131</id>
<items xsi:type="form:Button">
<name>ПроверитьДоступКСервису</name>
<id>135</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ПроверитьДоступКСервисуРасширеннаяПодсказка</name>
<id>136</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualButton</type>
<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:Decoration">
<name>ПредупреждениеПроТестовыйРежимПроверкиКонтрагента</name>
<id>121</id>
<title>
<key>ru</key>
<value>&lt;Предупреждение про тестовый режим работы сервиса></value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ПредупреждениеПроТестовыйРежимПроверкиКонтрагентаРасширеннаяПодсказка</name>
<id>123</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ПредупреждениеПроТестовыйРежимПроверкиКонтрагентаКонтекстноеМеню</name>
<id>122</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<width>43</width>
<autoMaxWidth>true</autoMaxWidth>
<height>1</height>
<autoMaxHeight>true</autoMaxHeight>
<horizontalStretch>false</horizontalStretch>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
<backColor xsi:type="core:ColorRef">
<color>Style.ЦветФонаТестовогоРежимаСервисаФНС</color>
</backColor>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Правая колонка первой группы</value>
</title>
<extendedTooltip>
<name>ПраваяКолонкаПервойГруппыРасширеннаяПодсказка</name>
<id>132</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>Vertical</group>
<behavior>Auto</behavior>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<title>
<key>ru</key>
<value>Первая группа настроек</value>
</title>
<extendedTooltip>
<name>ПерваяГруппаНастроекРасширеннаяПодсказка</name>
<id>134</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<behavior>Auto</behavior>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
<items xsi:type="form:Button">
<name>ФормаИзменитьФорму</name>
<id>151</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ФормаИзменитьФормуРасширеннаяПодсказка</name>
<id>152</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>0</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
<locationInCommandBar>InAdditionalSubmenu</locationInCommandBar>
</items>
<horizontalAlign>Left</horizontalAlign>
</autoCommandBar>
<handlers>
<event>OnCreateAtServer</event>
<name>ПриСозданииНаСервере</name>
</handlers>
<windowOpeningMode>DontBlock</windowOpeningMode>
<saveWindowSettings>true</saveWindowSettings>
<autoUrl>true</autoUrl>
<group>Vertical</group>
<autoFillCheck>true</autoFillCheck>
<enabled>true</enabled>
<showTitle>auto</showTitle>
<showCloseButton>true</showCloseButton>
<attributes>
<name>ПроверкаКонтрагентовВключена</name>
<title>
<key>ru</key>
<value>Проверять контрагентов с помощью веб-сервиса ФНС</value>
</title>
<id>2</id>
<valueType>
<types>Boolean</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<formCommands>
<name>ПроверитьДоступКСервису</name>
<title>
<key>ru</key>
<value>Проверить доступ к веб-сервису</value>
</title>
<id>1</id>
<toolTip>
<key>ru</key>
<value>Проверить доступ к сервису</value>
</toolTip>
<use>
<common>true</common>
</use>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>ПроверитьДоступКСервису</name>
</handler>
</action>
<currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<commandInterface>
<navigationPanel/>
<commandBar/>
</commandInterface>
</form:Form>
SSL/src/CommonForms/НастройкиПроверкиКонтрагентов/Module.bsl
-40
View File
@@ -1,40 +0,0 @@
#Область ОбработчикиСобытийФормы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
// Пропускаем инициализацию, чтобы гарантировать получение формы при передаче параметра "АвтоТест".
Если Параметры.Свойство("АвтоТест") Тогда
Возврат;
КонецЕсли;
ПроверкаКонтрагентовВключена = ПроверкаКонтрагентов.ПроверкаКонтрагентовВключена();
ПроверкаКонтрагентов.УстановитьВидимостьИЗаголовокПредупрежденияПроТестовыйРежим(
Элементы.ПредупреждениеПроТестовыйРежимПроверкиКонтрагента);
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиСобытийЭлементовШапкиФормы
&НаКлиенте
Процедура ИспользоватьАвтоматическуюПроверкуКонтрагентов(Элемент)
ПроверкаКонтрагентовВызовСервера.ПриВключенииВыключенииПроверки(ПроверкаКонтрагентовВключена);
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиКомандФормы
&НаКлиенте
Процедура ПроверитьДоступКСервису(Команда)
ПроверкаКонтрагентовКлиент.ПроверитьДоступКСервису();
КонецПроцедуры
#КонецОбласти
SSL/src/CommonForms/НастройкиПроверкиКонтрагентов/НастройкиПроверкиКонтрагентов.mdo
-10
View File
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonForm xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="21c1b2d3-cd96-4cdd-9ccc-ada27b127969">
<name>НастройкиПроверкиКонтрагентов</name>
<synonym>
<key>ru</key>
<value>Настройки проверки контрагентов</value>
</synonym>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</mdclass:CommonForm>
SSL/src/CommonForms/ПараметрыАдминистрированияПрограммы/Module.bsl
+1
View File
@@ -170,6 +170,7 @@
#Область СлужебныеПроцедурыИФункции
&НаСервере
Функция ПроверитьЗаполнениеНаСервере()
Возврат ПроверитьЗаполнение();
SSL/src/CommonForms/ПечатьДокументов/Module.bsl
+2 -2
View File
@@ -892,7 +892,7 @@
КонецЕсли;
ТабличныйДокумент = ПечатнаяФорма.ПолучитьОбласть(Область.Верх, , Область.Низ);
ЗаполнитьЗначенияСвойств(ТабличныйДокумент, ПечатнаяФорма,
"АвтоМасштаб,Вывод,ВысотаСтраницы,ДвусторонняяПечать,Защита,ИмяПринтера,КодЯзыка,КоличествоЭкземпляров,МасштабПечати,ОриентацияСтраницы,ПолеСверху,ПолеСлева,ПолеСнизу,ПолеСправа,РазборПоКопиям,РазмерКолонтитулаСверху,РазмерКолонтитулаСнизу,РазмерСтраницы,ТочностьПечати,ЧерноБелаяПечать,ШиринаСтраницы,ЭкземпляровНаСтранице");
УправлениеПечатью.КопируемыеСвойстваТабличногоДокумента());
Результат.Вставить(ОбъектПечати.Значение, ТабличныйДокумент);
КонецЦикла;
Возврат Результат;
@@ -1330,7 +1330,7 @@
ПечатнаяФорма = ЭтотОбъект[НастройкаПечатнойФормы.ИмяРеквизита];
ТабличныйДокумент = Новый ТабличныйДокумент;
ТабличныйДокумент.Вывести(ПечатнаяФорма);
ЗаполнитьЗначенияСвойств(ТабличныйДокумент, ПечатнаяФорма, "АвтоМасштаб,Вывод,ВысотаСтраницы,ДвусторонняяПечать,Защита,ИмяПринтера,КодЯзыка,КоличествоЭкземпляров,МасштабПечати,ОриентацияСтраницы,ПолеСверху,ПолеСлева,ПолеСнизу,ПолеСправа,РазборПоКопиям,РазмерКолонтитулаСверху,РазмерКолонтитулаСнизу,РазмерСтраницы,ТочностьПечати,ЧерноБелаяПечать,ШиринаСтраницы,ЭкземпляровНаСтранице");
ЗаполнитьЗначенияСвойств(ТабличныйДокумент, ПечатнаяФорма, УправлениеПечатью.КопируемыеСвойстваТабличногоДокумента());
ТабличныйДокумент.КоличествоЭкземпляров = НастройкаПечатнойФормы.Количество;
ТабличныеДокументы.Добавить(ТабличныйДокумент, НастройкаПечатнойФормы.Представление);
КонецЕсли;
SSL/src/CommonForms/Сервис1СКонтрагентНеПодключен/Form.form
-288
View File
@@ -1,288 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<form:Form xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:core="http://g5.1c.ru/v8/dt/mcore" xmlns:form="http://g5.1c.ru/v8/dt/form">
<title>
<key>ru</key>
<value>Сервис не подключен</value>
</title>
<items xsi:type="form:FormGroup">
<name>ГруппаКолонки</name>
<id>1</id>
<items xsi:type="form:FormGroup">
<name>ГруппаЛеваяКолонка</name>
<id>3</id>
<items xsi:type="form:Decoration">
<name>ДекорацияКартинка</name>
<id>5</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ДекорацияКартинкаРасширеннаяПодсказка</name>
<id>7</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДекорацияКартинкаКонтекстноеМеню</name>
<id>6</id>
<autoFill>true</autoFill>
</contextMenu>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:PictureDecorationExtInfo">
<picture xsi:type="core:PictureRef">
<picture>CommonPicture.Сервис1СКонтрагент</picture>
</picture>
</extInfo>
</items>
<items xsi:type="form:Decoration">
<name>Декорация1СКонтрагент</name>
<id>8</id>
<title>
<key>ru</key>
<value>1С:Контрагент</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>Декорация1СКонтрагентРасширеннаяПодсказка</name>
<id>10</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>Декорация1СКонтрагентКонтекстноеМеню</name>
<id>9</id>
<autoFill>true</autoFill>
</contextMenu>
<type>Label</type>
<autoMaxHeight>true</autoMaxHeight>
<font xsi:type="core:FontRef">
<font>Style.LargeTextFont</font>
</font>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</items>
<items xsi:type="form:Decoration">
<name>ДекорацияПодробно</name>
<id>22</id>
<title>
<key>ru</key>
<value>&lt;fontstyle -31>&lt;link https://portal.1c.ru/applications/3>Подробная информация&lt;/>&lt;/></value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ДекорацияПодробноРасширеннаяПодсказка</name>
<id>24</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДекорацияПодробноКонтекстноеМеню</name>
<id>23</id>
<autoFill>true</autoFill>
</contextMenu>
<formatted>true</formatted>
<type>Label</type>
<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>ГруппаЛеваяКолонкаРасширеннаяПодсказка</name>
<id>4</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<group>Vertical</group>
<behavior>Auto</behavior>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<items xsi:type="form:Decoration">
<name>ДекорацияОписание</name>
<id>19</id>
<title>
<key>ru</key>
<value>&lt;fontstyle -31>&lt;b>Сервис 1С:Контрагент не подключен&lt;/>&lt;/>
&lt;fontstyle -31>&lt;b>Возможности сервиса:&lt;/>&lt;/>
&lt;fontstyle -31>• Автоматическое заполнение реквизитов контрагентов по ИНН и наименованию&lt;/>
&lt;fontstyle -31>• Досье контрагента: сведения для оценки надежности контрагента&lt;/>
&lt;fontstyle -31>• Автоматическое заполнение реквизитов собственной организации, ФНС, ФСС и ПФР&lt;/>
&lt;fontstyle -31>• Оперативная проверка платежных реквизитов ФНС, ФСС и ПФР&lt;/>
&lt;fontstyle -31>Стоимость сервиса – от 400 руб. в месяц.&lt;/>
&lt;fontstyle -31>Сервис также предоставляется по &lt;/>&lt;fontstyle -31>договору&lt;/>&lt;fontstyle -31> &lt;/>&lt;fontstyle -31>ИТС уровня ПРОФ.&lt;/>
&lt;fontstyle -31>Для приобретения сервиса &lt;/>&lt;fontstyle -31>&lt;b>1С:Контрагент&lt;/>&lt;/>&lt;fontstyle -31> обратитесь к обслуживающему Вас партнеру фирмы &quot;1С&quot;. &lt;/>
&lt;fontstyle -31>Если у Вас нет обслуживающего партнера, Вы можете выбрать его из &lt;/>&lt;fontstyle -31>&lt;link http://its.1c.ru/news/redirect?utm_medium=prog&amp;utm_source=configid&amp;utm_content=contentid&amp;url=http://its.1c.ru/partners>списка партнеров в Вашем регионе&lt;/>&lt;/>&lt;fontstyle -31>.&lt;/>
</value>
</title>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>ДекорацияОписаниеРасширеннаяПодсказка</name>
<id>21</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>ДекорацияОписаниеКонтекстноеМеню</name>
<id>20</id>
<autoFill>true</autoFill>
</contextMenu>
<formatted>true</formatted>
<type>Label</type>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<handlers>
<event>URLProcessing</event>
<name>ДекорацияОписаниеОбработкаНавигационнойСсылки</name>
</handlers>
<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>ГруппаКолонкиРасширеннаяПодсказка</name>
<id>2</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<type>UsualGroup</type>
<extInfo xsi:type="form:UsualGroupExtInfo">
<behavior>Auto</behavior>
<showLeftMargin>true</showLeftMargin>
<united>true</united>
<throughAlign>Auto</throughAlign>
<currentRowUse>Auto</currentRowUse>
</extInfo>
</items>
<commandBarLocation>Bottom</commandBarLocation>
<showCommandBar>true</showCommandBar>
<autoCommandBar>
<name>ФормаКоманднаяПанель</name>
<id>-1</id>
<items xsi:type="form:Button">
<name>ФормаЗакрыть</name>
<id>17</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<defaultItem>true</defaultItem>
<extendedTooltip>
<name>ФормаЗакрытьРасширеннаяПодсказка</name>
<id>18</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.StandardCommand.Close</commandName>
<buttonImportance>Normal</buttonImportance>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<horizontalAlign>Right</horizontalAlign>
</autoCommandBar>
<handlers>
<event>OnCreateAtServer</event>
<name>ПриСозданииНаСервере</name>
</handlers>
<windowOpeningMode>LockOwner</windowOpeningMode>
<saveWindowSettings>true</saveWindowSettings>
<autoUrl>true</autoUrl>
<group>Vertical</group>
<autoFillCheck>true</autoFillCheck>
<allowFormCustomize>true</allowFormCustomize>
<enabled>true</enabled>
<showTitle>auto</showTitle>
<showCloseButton>true</showCloseButton>
<parameters>
<name>ИдентификаторМестаВызова</name>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<keyParameter>true</keyParameter>
</parameters>
<parameters>
<name>ИдентификаторКонфигурации</name>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
<keyParameter>true</keyParameter>
</parameters>
<commandInterface>
<navigationPanel/>
<commandBar/>
</commandInterface>
</form:Form>
SSL/src/CommonForms/Сервис1СКонтрагентНеПодключен/Module.bsl
-25
View File
@@ -1,25 +0,0 @@
#Область ОбработчикиСобытийФормы
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
РаботаСКонтрагентамиПереопределяемый.ЗаполнитьИдентификаторКонфигурации(Параметры.ИдентификаторКонфигурации);
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиСобытийЭлементовШапкиФормы
&НаКлиенте
Процедура ДекорацияОписаниеОбработкаНавигационнойСсылки(Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка)
НавигационнаяСсылкаФорматированнойСтроки = СтрЗаменить(НавигационнаяСсылкаФорматированнойСтроки,
"configid", Параметры.ИдентификаторКонфигурации);
НавигационнаяСсылкаФорматированнойСтроки = СтрЗаменить(НавигационнаяСсылкаФорматированнойСтроки,
"contentid", Параметры.ИдентификаторМестаВызова);
КонецПроцедуры
#КонецОбласти
SSL/src/CommonForms/Сервис1СКонтрагентНеПодключен/Сервис1СКонтрагентНеПодключен.mdo
-10
View File
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonForm xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="ef6250de-a4ef-48d8-94d6-f4029e63d7d2">
<name>Сервис1СКонтрагентНеПодключен</name>
<synonym>
<key>ru</key>
<value>Сервис 1С:Контрагент не подключен</value>
</synonym>
<usePurposes>PersonalComputer</usePurposes>
<usePurposes>MobileDevice</usePurposes>
</mdclass:CommonForm>
SSL/src/CommonForms/СинхронизацияДанных/Form.form
-1
View File
@@ -4264,7 +4264,6 @@
</handlers>
<windowOpeningMode>DontBlock</windowOpeningMode>
<saveWindowSettings>true</saveWindowSettings>
<autoUrl>true</autoUrl>
<group>Vertical</group>
<autoFillCheck>true</autoFillCheck>
<allowFormCustomize>true</allowFormCustomize>
SSL/src/CommonForms/СинхронизацияДанных/Module.bsl
+2
View File
@@ -8,6 +8,8 @@
Возврат;
КонецЕсли;
НавигационнаяСсылка = "e1cib/app/ОбщаяФорма.СинхронизацияДанных";
РольДоступнаДобавлениеИзменениеОбменовДанными = ОбменДаннымиСервер.ЕстьПраваНаАдминистрированиеОбменов();
Если Не РольДоступнаДобавлениеИзменениеОбменовДанными Тогда
Элементы.СписокСостоянияУзловИзменитьУзелИнформационнойБазы.Видимость = Ложь;
SSL/src/CommonForms/СохранениеПечатнойФормы/Form.form
+1 -1
View File
@@ -105,7 +105,7 @@
<event>StartChoice</event>
<name>ПапкаДляСохраненияФайловНачалоВыбора</name>
</handlers>
<autoMaxWidth>true</autoMaxWidth>
<width>40</width>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<choiceButton>true</choiceButton>
SSL/src/CommonForms/СтруктураПодчиненности/Module.bsl
+2 -2
View File
@@ -509,7 +509,7 @@
ЯвляетсяДокументом = ОбщегоНазначения.ЭтоДокумент(МетаданныеРеквизита);
Если ЯвляетсяДокументом Тогда
СписокРеквизитов.Добавить(ЗначениеРеквизита,Формат(ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ЗначениеРеквизита, "Дата"),"ДЛФ=DT"));
СписокРеквизитов.Добавить(ЗначениеРеквизита,Формат(ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ЗначениеРеквизита, "Дата", Истина),"ДЛФ=DT"));
Иначе
СписокРеквизитов.Добавить(ЗначениеРеквизита, Дата(1,1,1));
КонецЕсли;
@@ -573,7 +573,7 @@
ЯвляетсяДокументом = ОбщегоНазначения.ЭтоДокумент(МетаданныеЗначения);
Если ЯвляетсяДокументом Тогда
СписокРеквизитов.Добавить(ЗначениеРеквизита,Формат(ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ЗначениеРеквизита, "Дата"),"ДЛФ=DT"));
СписокРеквизитов.Добавить(ЗначениеРеквизита,Формат(ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ЗначениеРеквизита, "Дата", Истина),"ДЛФ=DT"));
Иначе
СписокРеквизитов.Добавить(ЗначениеРеквизита, Дата(1,1,1));
КонецЕсли;
SSL/src/CommonForms/ФормаНастроекОтчета/Form.form
+130
View File
@@ -5193,6 +5193,84 @@
<representation>Compact</representation>
</extInfo>
</items>
<items xsi:type="form:FormGroup">
<name>КомандыОформления_Флажки</name>
<id>1120</id>
<items xsi:type="form:Button">
<name>Оформление_УстановитьФлажки</name>
<id>1122</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>Оформление_УстановитьФлажкиРасширеннаяПодсказка</name>
<id>1123</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>1124</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>Оформление_СнятьФлажкиРасширеннаяПодсказка</name>
<id>1125</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>1121</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<extInfo xsi:type="form:ButtonGroupExtInfo">
<representation>Compact</representation>
</extInfo>
</items>
<horizontalAlign>Left</horizontalAlign>
</autoCommandBar>
<handlers>
@@ -10730,6 +10808,58 @@
<currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
<name>Оформление_УстановитьФлажки</name>
<title>
<key>ru</key>
<value>Установить флажки</value>
</title>
<id>46</id>
<toolTip>
<key>ru</key>
<value>Оформление установить флажки</value>
</toolTip>
<use>
<common>true</common>
</use>
<picture xsi:type="core:PictureRef">
<picture>StdPicture.CheckAll</picture>
</picture>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>Оформление_УстановитьФлажки</name>
</handler>
</action>
<representation>Picture</representation>
<currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<formCommands>
<name>Оформление_СнятьФлажки</name>
<title>
<key>ru</key>
<value>Снять флажки</value>
</title>
<id>47</id>
<toolTip>
<key>ru</key>
<value>Оформление снять флажки</value>
</toolTip>
<use>
<common>true</common>
</use>
<picture xsi:type="core:PictureRef">
<picture>StdPicture.UncheckAll</picture>
</picture>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>Оформление_СнятьФлажки</name>
</handler>
</action>
<representation>Picture</representation>
<currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<commandInterface>
<navigationPanel/>
<commandBar/>
SSL/src/CommonForms/ФормаНастроекОтчета/Module.bsl
+18 -7
View File
@@ -2286,6 +2286,16 @@
КонецПроцедуры
&НаКлиенте
Процедура Оформление_УстановитьФлажки(Команда)
УстановитьФлажкиИспользованиеВоВсемДереве("Оформление", Истина);
КонецПроцедуры
&НаКлиенте
Процедура Оформление_СнятьФлажки(Команда)
УстановитьФлажкиИспользованиеВоВсемДереве("Оформление", Ложь);
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиКомандФормы
@@ -3441,11 +3451,11 @@
&НаКлиенте
Процедура ИзменитьУзелВарианта(СтрокаТаблицы, ИмяСтраницы, ИспользоватьФормуВарианта)
Если СтрокаТаблицы = Неопределено Тогда
Элементы = СтруктураВарианта.ПолучитьЭлементы();
Если Элементы.Количество() = 0 Тогда
ЭлементыСтруктуры = СтруктураВарианта.ПолучитьЭлементы();
Если ЭлементыСтруктуры.Количество() = 0 Тогда
Возврат;
КонецЕсли;
СтрокаТаблицы = Элементы[0];
СтрокаТаблицы = ЭлементыСтруктуры[0];
КонецЕсли;
Если ИспользоватьФормуВарианта = Неопределено Тогда
ИспользоватьФормуВарианта = (СтрокаТаблицы.Тип = "Таблица"
@@ -3909,10 +3919,11 @@
Если ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(СтрокаДерева, "ВыводитьФлажок") <> Ложь
И ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(СтрокаДерева, "ЭтоРаздел") <> Истина Тогда
ЭлементКД = УзелКД.ПолучитьОбъектПоИдентификатору(СтрокаДерева.ИдентификаторКД);
Если ЭлементКД <> Неопределено Тогда
СтрокаДерева.Использование = Использование;
ЭлементКД.Использование = Использование;
ПослеИзмененияФлажкаИспользование(ТаблицаИмя, СтрокаДерева, ЭлементКД);
Если ЭлементКД <> Неопределено И ТипЗнч(ЭлементКД) <> Тип("КоллекцияЭлементовСтруктурыТаблицыКомпоновкиДанных")
И ТипЗнч(ЭлементКД) <> Тип("КоллекцияЭлементовСтруктурыДиаграммыКомпоновкиДанных") Тогда
СтрокаДерева.Использование = Использование;
ЭлементКД.Использование = Использование;
ПослеИзмененияФлажкаИспользование(ТаблицаИмя, СтрокаДерева, ЭлементКД);
КонецЕсли;
КонецЕсли;
SSL/src/CommonForms/ФормаОтчета/Module.bsl
+1 -1
View File
@@ -51,7 +51,7 @@
// Предварительная инициализация компоновщика (если требуется).
АдресСхемы = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(Параметры, "АдресСхемы");
Если РежимРасшифровки Тогда
Если РежимРасшифровки И ТипЗнч(Параметры.Расшифровка) = Тип("ОписаниеОбработкиРасшифровкиКомпоновкиДанных") Тогда
НовыеНастройкиКД = ПолучитьИзВременногоХранилища(Параметры.Расшифровка.Данные).Настройки;
АдресСхемы = ОбщегоНазначенияКлиентСервер.СвойствоСтруктуры(НовыеНастройкиКД.ДополнительныеСвойства, "АдресСхемы");
КонецЕсли;
SSL/src/CommonModules/АдресныйКлассификатор/Module.bsl
+13
View File
@@ -332,6 +332,19 @@
Возврат АдресныйКлассификаторСлужебный.ОпределитьИдентификаторыАдреса(Адрес);
КонецФункции
// Возвращает соответствие полных наименований адресных объектов и их сокращения.
//
// Параметры:
// НаименованияАдресныхОбъектов - Массив - Полные наименования адресных объектов. Если передан пустой массив,
// то будут возвращен полный список наименований и сокращений.
//
// Возвращаемое значение:
// Соответствие - Соответствие найденных полных наименований адресных объектов их сокращениям.
//
Функция СокращенияАдресныхОбъектов(НаименованияАдресныхОбъектов) Экспорт
Возврат АдресныйКлассификаторСлужебный.СокращенияАдресныхОбъектов(НаименованияАдресныхОбъектов);
КонецФункции
#Область УстаревшиеПроцедурыИФункции
// Устарела. Следует использовать АдресныйКлассификатор.АдресныйКлассификаторЗагружен.
SSL/src/CommonModules/АдресныйКлассификаторПовтИсп/Module.bsl
+3
View File
@@ -29,7 +29,10 @@
//
Функция СервисКлассификатора1С() Экспорт
УстановитьПривилегированныйРежим(Истина);
Авторизация = АдресныйКлассификаторСлужебный.ПараметрыАутентификацииНаСайте();
УстановитьПривилегированныйРежим(Ложь);
Если Авторизация = Неопределено Тогда
Логин = Неопределено;
Пароль = Неопределено;
SSL/src/CommonModules/АдресныйКлассификаторСлужебный/Module.bsl
+85 -33
View File
@@ -891,7 +891,7 @@
Если ТипЗнч(НаименованияАдресныхОбъектов) = Тип("Массив") И НаименованияАдресныхОбъектов.Количество() > 0 Тогда
Для каждого ПолноеНаименование Из НаименованияАдресныхОбъектов Цикл
СтрокаТаблицы = ТаблицаАдресныхСокращений.Найти(ТРег(ПолноеНаименование), "Наименование");
СтрокаТаблицы = ТаблицаАдресныхСокращений.Найти(ПерваяБукваЗаглавная(ПолноеНаименование), "Наименование");
Если СтрокаТаблицы <> Неопределено Тогда
Результат.Вставить(ВРег(СтрокаТаблицы.Наименование), СтрокаТаблицы.Сокращение);
КонецЕсли;
@@ -3150,7 +3150,8 @@
|") + "
|
|УПОРЯДОЧИТЬ ПО
| Представление " + ТекстСортировкиПорции + "
|
| Представление " + ТекстСортировкиПорции + ", АдресныйОбъект.Актуален УБЫВ
|";
КонецЕсли;
@@ -4065,6 +4066,16 @@
?(ПроверятьРайон, "Район.Идентификатор",
?(ПроверятьОкруг, "Округ.Идентификатор", "СубъектРФ.Идентификатор"))))))));
ТекстУпорядочить = "УПОРЯДОЧИТЬ ПО СубъектРФ.Актуален УБЫВ";
ТекстОпциональныхПолейУпорядочиванияЗапросаПроверкиАдреса(ТекстУпорядочить, ПроверятьОкруг, "Округ");
ТекстОпциональныхПолейУпорядочиванияЗапросаПроверкиАдреса(ТекстУпорядочить, ПроверятьРайон, "Район");
ТекстОпциональныхПолейУпорядочиванияЗапросаПроверкиАдреса(ТекстУпорядочить, ПроверятьГород, "Город");
ТекстОпциональныхПолейУпорядочиванияЗапросаПроверкиАдреса(ТекстУпорядочить, ПроверятьВнутригородскойРайон, "ВнутригородскойРайон");
ТекстОпциональныхПолейУпорядочиванияЗапросаПроверкиАдреса(ТекстУпорядочить, ПроверятьНаселенныйПункт, "НаселенныйПункт");
ТекстОпциональныхПолейУпорядочиванияЗапросаПроверкиАдреса(ТекстУпорядочить, ПроверятьУлицу, "Улица");
ТекстОпциональныхПолейУпорядочиванияЗапросаПроверкиАдреса(ТекстУпорядочить, ПроверятьДополнительный, "Дополнительный");
ТекстОпциональныхПолейУпорядочиванияЗапросаПроверкиАдреса(ТекстУпорядочить, ПроверятьПодчиненный, "Подчиненный");
Запрос.Текст = "ВЫБРАТЬ
| ИСТИНА КАК СубъектРФНайден,
| СубъектРФ.Идентификатор КАК СубъектРФИдентификатор,
@@ -4294,9 +4305,9 @@
| И СубъектРФ.КодНаселенногоПункта = 0
| И СубъектРФ.КодУлицы = 0
| И СубъектРФ.КодДополнительногоЭлемента = 0
| И СубъектРФ.КодПодчиненногоЭлемента = 0";
| И СубъектРФ.КодПодчиненногоЭлемента = 0
| " + ТекстУпорядочить;
Запрос.УстановитьПараметр("СубъектРФНаименование", СубъектРФ.Наименование);
Запрос.УстановитьПараметр("СубъектРФСокращение", СубъектРФ.Сокращение);
@@ -4323,7 +4334,7 @@
Запрос.УстановитьПараметр("ПодчиненныйНаименование", Подчиненный.Наименование);
Запрос.УстановитьПараметр("ПодчиненныйСокращение", Подчиненный.Сокращение);
РезультатЗапроса = Запрос.Выполнить();
Если РезультатЗапроса.Пустой() Тогда
// Нет региона
@@ -4342,44 +4353,44 @@
Для Каждого Запись Из ЗаписиДомов Цикл;
ЗаполнитьПочтовыйИндексИКодКЛАДРПоИерархииФИАС(ВариантАдреса, Запись);
Если ПроверятьОкруг И Не Запись.ОкругНайден Тогда
Если ПроверятьОкруг И Не Запись.ОкругНайден И Запись.ОкругАктуален = Истина Тогда
ДобавитьОшибкуПроверкиАдресаПоКлассификатору(ОшибкиПроверки, "Округ",
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Округ ""%1"" отсутствует в адресном классификаторе'"), Округ.Наименование + " " + Округ.Сокращение));
КонецЕсли;
Если ПроверятьРайон И Не Запись.РайонНайден Тогда
ДобавитьОшибкуПроверкиАдресаПоКлассификатору(ОшибкиПроверки, "СвРайМО/Район",
Если ПроверятьРайон И Не Запись.РайонНайден И Запись.РайонАктуален = Истина Тогда
ДобавитьОшибкуПроверкиАдресаПоКлассификатору(ОшибкиПроверки, "СвРайМО/Район",
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Район ""%1"" отсутствует в адресном классификаторе'"), Район.Наименование + " " + Район.Сокращение));
КонецЕсли;
Если ПроверятьГород И Не Запись.ГородНайден Тогда
ДобавитьОшибкуПроверкиАдресаПоКлассификатору(ОшибкиПроверки, "Город",
Если ПроверятьГород И Не Запись.ГородНайден И Запись.ГородАктуален = Истина Тогда
ДобавитьОшибкуПроверкиАдресаПоКлассификатору(ОшибкиПроверки, "Город",
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Город ""%1"" отсутствует в адресном классификаторе'"), Город.Наименование + " " + Город.Сокращение));
КонецЕсли;
Если ПроверятьВнутригородскойРайон И Не Запись.ВнутригородскойРайонНайден Тогда
Если ПроверятьВнутригородскойРайон И Не Запись.ВнутригородскойРайонНайден И Запись.ВнутригородскойРайонАктуален = Истина Тогда
ДобавитьОшибкуПроверкиАдресаПоКлассификатору(ОшибкиПроверки, "ВнутригРайон",
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Внутригородской район ""%1"" отсутствует в адресном классификаторе'"),
ВнутригородскойРайон.Наименование + " " + ВнутригородскойРайон.Сокращение));
КонецЕсли;
Если ПроверятьНаселенныйПункт И Не Запись.НаселенныйПунктНайден Тогда
Если ПроверятьНаселенныйПункт И Не Запись.НаселенныйПунктНайден И Запись.НаселенныйПунктАктуален = Истина Тогда
ДобавитьОшибкуПроверкиАдресаПоКлассификатору(ОшибкиПроверки, "НаселПункт",
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Населенный пункт ""%1"" отсутствует в адресном классификаторе'"),
НаселенныйПункт.Наименование + " " + НаселенныйПункт.Сокращение));
КонецЕсли;
Если ПроверятьУлицу И Запись.УлицаНайден Тогда
Если ПроверятьУлицу И Запись.УлицаНайден И Запись.УлицаАктуален = Истина Тогда
УлицаНайдена = Истина;
КонецЕсли;
Если ПроверятьДополнительный И Не Запись.ДополнительныйНайден Тогда
Если ПроверятьДополнительный И Не Запись.ДополнительныйНайден И Запись.ДополнительныйАктуален = Истина Тогда
ДобавитьОшибкуПроверкиАдресаПоКлассификатору(ОшибкиПроверки, "Дополнительный",
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Дополнительная территория ""%1""отсутствует в адресном классификаторе'"),
Дополнительный.Наименование + " " + Дополнительный.Сокращение));
КонецЕсли;
Если ПроверятьПодчиненный И Не Запись.ПодчиненныйНайден Тогда
Если ПроверятьПодчиненный И Не Запись.ПодчиненныйНайден И Запись.ПодчиненныйАктуален = Истина Тогда
ДобавитьОшибкуПроверкиАдресаПоКлассификатору(ОшибкиПроверки, "Подчиненный",
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Элемент дополнительной территории ""%1"" отсутствует в адресном классификаторе'"),
Подчиненный.Наименование + " " + Подчиненный.Сокращение));
@@ -4720,11 +4731,18 @@
КонецФункции
Процедура ТекстОпциональныхПолейУпорядочиванияЗапросаПроверкиАдреса(ТекстЗапроса, Флаг, ИмяПоля)
Если Флаг Тогда
ТекстЗапроса = ТекстЗапроса + ", " + Символы.ПС + ИмяПоля + ".Актуален УБЫВ";
КонецЕсли;
КонецПроцедуры
Функция ТекстОпциональныхПолейЗапросаПроверкиАдреса(ФлагПроверки, ИмяПоля)
Если ФлагПроверки Тогда
Вариант = "
| ВЫБОР КОГДА [Поле].Идентификатор ЕСТЬ NULL ТОГДА ЛОЖЬ ИНАЧЕ ИСТИНА КОНЕЦ КАК [Поле]Найден,
| [Поле].Актуален КАК [Поле]Актуален,
| [Поле].Идентификатор КАК [Поле]Идентификатор,
| [Поле].ПочтовыйИндекс КАК [Поле]ПочтовыйИндекс,
| [Поле].КодКЛАДР КАК [Поле]КодКЛАДР,
@@ -4739,6 +4757,7 @@
Иначе
Вариант = "
| NULL КАК [Поле]Найден,
| NULL КАК [Поле]Актуален,
| NULL КАК [Поле]Идентификатор,
| NULL КАК [Поле]ПочтовыйИндекс,
| NULL КАК [Поле]КодКЛАДР,
@@ -4812,6 +4831,7 @@
Функция ИдентификаторыАдресаПоКлассификатору(ПоляАдреса, ИскатьПоУлице, ВсеИдентификаторыАдреса = Ложь)
ТекстСоединения = "";
ТекстУпорядочить = " УПОРЯДОЧИТЬ ПО АдресныйОбъектРегион.Актуален УБЫВ";
Если ВсеИдентификаторыАдреса Тогда
ТекстВыбратьИдентификаторы = "АдресныйОбъектРегион.Идентификатор КАК ИдентификаторРегион, ";
@@ -4834,6 +4854,7 @@
| И АдресныеОбъектыОкруг.КодДополнительногоЭлемента = 0
| И АдресныеОбъектыОкруг.КодПодчиненногоЭлемента = 0";
сОкруг = "АдресныеОбъектыОкруг.КодОкруга";
ТекстУпорядочить = ТекстУпорядочить + ", АдресныеОбъектыОкруг.Актуален УБЫВ";
Если ВсеИдентификаторыАдреса Тогда
ТекстВыбратьИдентификаторы = ТекстВыбратьИдентификаторы + "АдресныеОбъектыОкруг.Идентификатор КАК ИдентификаторОкруг, ";
Иначе
@@ -4856,6 +4877,7 @@
| И АдресныеОбъектыРайон.КодДополнительногоЭлемента = 0
| И АдресныеОбъектыРайон.КодПодчиненногоЭлемента = 0";
сРайон = "АдресныеОбъектыРайон.КодРайона";
ТекстУпорядочить = ТекстУпорядочить + ", АдресныеОбъектыРайон.Актуален УБЫВ";
Если ВсеИдентификаторыАдреса Тогда
ТекстВыбратьИдентификаторы = ТекстВыбратьИдентификаторы + "АдресныеОбъектыРайон.Идентификатор КАК ИдентификаторРайон, ";
Иначе
@@ -4878,6 +4900,7 @@
| И АдресныеОбъектыГород.КодДополнительногоЭлемента = 0
| И АдресныеОбъектыГород.КодПодчиненногоЭлемента = 0";
сГород = "АдресныеОбъектыГород.КодГорода";
ТекстУпорядочить = ТекстУпорядочить + ", АдресныеОбъектыГород.Актуален УБЫВ";
Если ВсеИдентификаторыАдреса Тогда
ТекстВыбратьИдентификаторы = ТекстВыбратьИдентификаторы + "АдресныеОбъектыГород.Идентификатор КАК ИдентификаторГород, ";
Иначе
@@ -4899,6 +4922,7 @@
| И АдресныеОбъектыВнутригородскойРайон.КодДополнительногоЭлемента = 0
| И АдресныеОбъектыВнутригородскойРайон.КодПодчиненногоЭлемента = 0";
сВнутригородскойРайон = "АдресныеОбъектыВнутригородскойРайон.КодВнутригородскогоРайона";
ТекстУпорядочить = ТекстУпорядочить + ", АдресныеОбъектыВнутригородскойРайон.Актуален УБЫВ";
Если ВсеИдентификаторыАдреса Тогда
ТекстВыбратьИдентификаторы = ТекстВыбратьИдентификаторы + "АдресныеОбъектыВнутригородскойРайон.Идентификатор КАК ИдентификаторВнутригРайон, ";
Иначе
@@ -4921,6 +4945,7 @@
| И АдресныеОбъектыНаселенныйПункт.КодДополнительногоЭлемента = 0
| И АдресныеОбъектыНаселенныйПункт.КодПодчиненногоЭлемента = 0";
сНаселенногоПункта = "АдресныеОбъектыНаселенныйПункт.КодНаселенногоПункта";
ТекстУпорядочить = ТекстУпорядочить + ", АдресныеОбъектыНаселенныйПункт.Актуален УБЫВ";
Если ВсеИдентификаторыАдреса Тогда
ТекстВыбратьИдентификаторы = ТекстВыбратьИдентификаторы + "АдресныеОбъектыНаселенныйПункт.Идентификатор КАК ИдентификаторНаселенныйПункт, ";
Иначе
@@ -4940,6 +4965,7 @@
| И АдресныеОбъектыУлица.КодНаселенногоПункта = " + сНаселенногоПункта + "
| И АдресныеОбъектыУлица.КодДополнительногоЭлемента = 0
| И АдресныеОбъектыУлица.КодПодчиненногоЭлемента = 0";
ТекстУпорядочить = ТекстУпорядочить + ", АдресныеОбъектыУлица.Актуален УБЫВ";
Если ВсеИдентификаторыАдреса Тогда
ТекстВыбратьИдентификаторы = ТекстВыбратьИдентификаторы + "АдресныеОбъектыУлица.Идентификатор КАК ИдентификаторУлица, ";
Иначе
@@ -4970,7 +4996,8 @@
| И АдресныйОбъектРегион.КодУлицы = 0
| И АдресныйОбъектРегион.КодДополнительногоЭлемента = 0
| И АдресныйОбъектРегион.КодПодчиненногоЭлемента = 0
| И АдресныйОбъектРегион.Сокращение = &РегионСокращение";
| И АдресныйОбъектРегион.Сокращение = &РегионСокращение
| " + ТекстУпорядочить;
Запрос.УстановитьПараметр("Регион", ПоляАдреса["Регион"].Наименование);
Запрос.УстановитьПараметр("РегионСокращение", ПоляАдреса["Регион"].Сокращение);
@@ -5241,7 +5268,7 @@
//
Функция ПередЧтениемXDTOКонтактнаяИнформация(ТекстXML)
Если СтрНайти(ТекстXML, "Адрес") = 0 Тогда
Если СтрНайти(ТекстXML, "Адрес") = 0 Тогда
Возврат ТекстXML;
КонецЕсли;
@@ -5250,24 +5277,47 @@
КонецЕсли;
ТекстXML = СтрЗаменить(ТекстXML, "xsi:type=""АдресРФ""", "xmlns:rf=""http://www.v8.1c.ru/ssl/contactinfo_ru"" xsi:type=""rf:АдресРФ""");
ТекстXML = СтрЗаменить(ТекстXML, "СубъектРФ", "rf:СубъектРФ");
ТекстXML = СтрЗаменить(ТекстXML, "Округ", "rf:Округ");
ТекстXML = СтрЗаменить(ТекстXML, "СвРайМО", "rf:СвРайМО");
ТекстXML = СтрЗаменить(ТекстXML, "<Район>", "<rf:Район>");
ТекстXML = СтрЗаменить(ТекстXML, "<СубъектРФ", "<rf:СубъектРФ");
ТекстXML = СтрЗаменить(ТекстXML, "/СубъектРФ>", "/rf:СубъектРФ>");
ТекстXML = СтрЗаменить(ТекстXML, "<СубъектРФ/>", "<rf:СубъектРФ/>");
ТекстXML = СтрЗаменить(ТекстXML, "<Округ", "<rf:Округ");
ТекстXML = СтрЗаменить(ТекстXML, "/Округ>", "/rf:Округ>");
ТекстXML = СтрЗаменить(ТекстXML, "<Округ/>", "<rf:Округ/>");
ТекстXML = СтрЗаменить(ТекстXML, "<СвРайМО", "<rf:СвРайМО");
ТекстXML = СтрЗаменить(ТекстXML, "/СвРайМО>", "/rf:СвРайМО>");
ТекстXML = СтрЗаменить(ТекстXML, "<СвРайМО/>", "<rf:СвРайМО/>");
ТекстXML = СтрЗаменить(ТекстXML, "<Район", "<rf:Район");
ТекстXML = СтрЗаменить(ТекстXML, "/Район>", "/rf:Район>");
ТекстXML = СтрЗаменить(ТекстXML, "</Район>", "</rf:Район>");
ТекстXML = СтрЗаменить(ТекстXML, "<Район/>", "<rf:Район/>");
ТекстXML = СтрЗаменить(ТекстXML, "Город>", "rf:Город>");
ТекстXML = СтрЗаменить(ТекстXML, "<Город", "<rf:Город");
ТекстXML = СтрЗаменить(ТекстXML, "/Город>", "/rf:Город>");
ТекстXML = СтрЗаменить(ТекстXML, "<Город/>", "<rf:Город/>");
ТекстXML = СтрЗаменить(ТекстXML, "ВнутригРайон", "rf:ВнутригРайон");
ТекстXML = СтрЗаменить(ТекстXML, "НаселПункт", "rf:НаселПункт");
ТекстXML = СтрЗаменить(ТекстXML, "Улица>", "rf:Улица>");
ТекстXML = СтрЗаменить(ТекстXML, "<Улица", "<rf:Улица");
ТекстXML = СтрЗаменить(ТекстXML, "/Улица>", "/rf:Улица>");
ТекстXML = СтрЗаменить(ТекстXML, "<Улица/>", "<rf:Улица/>");
ТекстXML = СтрЗаменить(ТекстXML, "ОКТМО", "rf:ОКТМО");
ТекстXML = СтрЗаменить(ТекстXML, "ОКАТО", "rf:ОКАТО");
ТекстXML = СтрЗаменить(ТекстXML, "ДопАдрЭл", "rf:ДопАдрЭл");
ТекстXML = СтрЗаменить(ТекстXML, "<Номер", "<rf:Номер");
ТекстXML = СтрЗаменить(ТекстXML, "Местоположение>", "rf:Местоположение>");
ТекстXML = СтрЗаменить(ТекстXML, "/Номер>", "/rf:Номер>");
ТекстXML = СтрЗаменить(ТекстXML, "<Номер/>", "<rf:Номер/>");
ТекстXML = СтрЗаменить(ТекстXML, "<Местоположение", "<rf:Местоположение");
ТекстXML = СтрЗаменить(ТекстXML, "/Местоположение>", "/rf:Местоположение>");
ТекстXML = СтрЗаменить(ТекстXML, "<Местоположение/>", "<rf:Местоположение/>");
Возврат ТекстXML;
@@ -6270,6 +6320,10 @@
КонецФункции
Функция ПерваяБукваЗаглавная(Строка)
Возврат ВРег(Лев(Строка, 1)) + НРег(Сред(Строка, 2));
КонецФункции
#КонецОбласти
#Область ПереносУстаревшегоКлассификатора
@@ -7283,7 +7337,7 @@
ИЛИ ТипАдресногоОбъекта = НСтр("ru = 'ДОМОВЛАДЕНИЕ'") Тогда
ОписаниеДома.Дом = СокрЛП(КлючЗначение[1]);
ОписаниеДома.ДомЧислом = НомерДомаЧислом(КлючЗначение[1]);
ОписаниеДома.НазваниеВладения = ТРег(ТипАдресногоОбъекта);
ОписаниеДома.НазваниеВладения = ПерваяБукваЗаглавная(ТипАдресногоОбъекта);
ИначеЕсли ТипАдресногоОбъекта = "КОРПУС" Тогда
ОписаниеДома.Корпус = СокрЛП(КлючЗначение[1]);
ИначеЕсли ТипАдресногоОбъекта <> "ИНДЕКС" Тогда
@@ -7459,11 +7513,9 @@
МодульПолучениеФайловИзИнтернета = ОбщегоНазначения.ОбщийМодуль("ПолучениеФайловИзИнтернета");
Если ИсходнаяАвторизация = Неопределено Тогда
Авторизация = ПараметрыАутентификацииНаСайте();
Иначе
Авторизация = ИсходнаяАвторизация;
КонецЕсли;
УстановитьПривилегированныйРежим(Истина);
Авторизация = ПараметрыАутентификацииНаСайте();
УстановитьПривилегированныйРежим(Ложь);
Если КодыСубъектовРФ = Неопределено Тогда
ВсеРегионы = СведенияОЗагрузкеСубъектовРФ();
@@ -7496,7 +7548,7 @@
ПутьДляСохранения = ВременныйКаталог + ВРег(ФайлРегиона.ИмяФайла);
ПараметрыПолучения.Вставить("ПутьДляСохранения", ПутьДляСохранения);
ПараметрыПолучения.Вставить("Таймаут", 180);
ПараметрыПолучения.Вставить("Таймаут", 240);
ЗагруженныйФайл = МодульПолучениеФайловИзИнтернета.СкачатьФайлНаСервере(ОписаниеРегиона.Адрес, ПараметрыПолучения);
Если Не ЗагруженныйФайл.Статус Тогда
УдалитьВременныйФайл(ВременныйКаталог);
SSL/src/CommonModules/Анкетирование/Module.bsl
+4 -3
View File
@@ -1292,7 +1292,8 @@
Элемент.Заголовок = СтрокаКомплексногоВопроса.ЭлементарныйВопрос;
Элемент.АвтоМаксимальнаяШирина = Ложь;
Элемент.РастягиватьПоГоризонтали = Истина;
Элемент.Шрифт = Новый Шрифт(Элемент.Шрифт, , 8);
Если РеквизитыЭлементарногоВопроса.ТипОтвета = Перечисления.ТипыОтветовНаВопрос.Строка Тогда
Элемент = Форма.Элементы.Добавить(ИмяВопроса + "_Ответ_" + Формат(СтрокаКомплексногоВопроса.НомерСтроки, "ЧГ="),Тип("ПолеФормы"),ЭлементГруппа);
@@ -1637,7 +1638,7 @@
| ВопросыДляАнкетирования.Формулировка КАК Формулировка,
| ВопросыДляАнкетирования.ТипЗначения КАК Тип,
| ВопросыДляАнкетирования.ТипОтвета КАК ТипОтвета,
| ВопросыДляАнкетирования.ВидПереключателя КАК ВидПереключателя,
| ВопросыДляАнкетирования.ВидПереключателя КАК ВидПереключателя,
| ВопросыДляАнкетирования.МинимальноеЗначение КАК МинимальноеЗначение,
| ВопросыДляАнкетирования.МаксимальноеЗначение КАК МаксимальноеЗначение
|ИЗ
@@ -1797,7 +1798,7 @@
НоваяСтрока.СоставКомплексногоВопроса.Загрузить(ВыборкаВопросыПоРазделуАнкеты.СоставКомплексногоВопроса.Выгрузить());
НоваяСтрока.СоставКомплексногоВопроса.Сортировать("НомерСтроки Возр");
НоваяСтрока.КлючСтроки = Новый УникальныйИдентификатор;
НоваяСтрока.ПолныйКод = ПолныйКодРаздела + Строка(СчетчикВопросов);
НоваяСтрока.ПолныйКод = ПолныйКодРаздела + "." + Строка(СчетчикВопросов);
КонецЦикла;
SSL/src/CommonModules/АнкетированиеКлиентСервер/Module.bsl
+1 -1
View File
@@ -79,7 +79,7 @@
Элемент.ПолныйКод = ПолныйКод;
Если ПреобразовыватьФормулировку Тогда
Элемент.Формулировка = Элемент.ПолныйКод + Элемент.Формулировка;
Элемент.Формулировка = Элемент.ПолныйКод + ". " + Элемент.Формулировка;
КонецЕсли;
ПодчиненныеЭлементыСтрокиДерева = Элемент.ПолучитьЭлементы();
SSL/src/CommonModules/ВариантыОтчетов/Module.bsl
+16 -3
View File
@@ -134,7 +134,13 @@
//
Процедура НастроитьОтчетВМодулеМенеджера(Настройки, ОтчетМетаданные) Экспорт
НастройкиОтчета = ОписаниеОтчета(Настройки, ОтчетМетаданные);
Отчеты[ОтчетМетаданные.Имя].НастроитьВариантыОтчета(Настройки, НастройкиОтчета);
Попытка
Отчеты[ОтчетМетаданные.Имя].НастроитьВариантыОтчета(Настройки, НастройкиОтчета);
Исключение
ТекстОшибки = НСтр("ru = 'Не удалось настроить варианты отчета из модуля менеджера:'");
ТекстОшибки = ТекстОшибки + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
ЗаписатьВЖурнал(УровеньЖурналаРегистрации.Ошибка, ТекстОшибки, ОтчетМетаданные);
КонецПопытки;
КонецПроцедуры
// Возвращает настройки указанного отчета. Используется для настройки размещения и общих параметров отчета
@@ -2607,8 +2613,15 @@
Возврат Результат;
КонецЕсли;
Результат.Имя = Результат.Метаданные.Имя;
Результат.Объект = Отчеты[Результат.Имя].Создать();
Результат.Успех = Истина;
Попытка
Результат.Объект = Отчеты[Результат.Имя].Создать();
Результат.Успех = Истина;
Исключение
ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Не удалось подключить отчет %1:'"),
Результат.Метаданные);
ТекстОшибки = ТекстОшибки + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
ЗаписатьВЖурнал(УровеньЖурналаРегистрации.Ошибка, ТекстОшибки, Результат.Метаданные);
КонецПопытки;
Иначе
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ДополнительныеОтчетыИОбработки") Тогда
МодульДополнительныеОтчетыИОбработки = ОбщегоНазначения.ОбщийМодуль("ДополнительныеОтчетыИОбработки");
SSL/src/CommonModules/Взаимодействия/Module.bsl
+115 -29
View File
@@ -576,6 +576,9 @@
Приоритет = Обработчик.ПриоритетыВыполнения.Добавить();
Приоритет.Процедура = "Документы.ЭлектронноеПисьмоИсходящее.ЗаполнитьСписокКонтактовИсходящихЭлектронныхПисем";
Приоритет.Порядок = "До";
Приоритет = Обработчик.ПриоритетыВыполнения.Добавить();
Приоритет.Процедура = "Документы.ЭлектронноеПисьмоИсходящее.ОбработатьДанныеДляПереходаНаНовуюВерсию";
Приоритет.Порядок = "Любой";
Обработчик.Комментарий = НСтр("ru = 'Выполняет дозаполнение реквизита ВзаимодействиеОснование для входящих писем, у которых письмо основание в ИБ есть, но оно не указано.'");
Обработчик = Обработчики.Добавить();
@@ -594,6 +597,9 @@
Приоритет = Обработчик.ПриоритетыВыполнения.Добавить();
Приоритет.Процедура = "Документы.ЭлектронноеПисьмоИсходящее.ЗаполнитьСписокКонтактовИсходящихЭлектронныхПисем";
Приоритет.Порядок = "До";
Приоритет = Обработчик.ПриоритетыВыполнения.Добавить();
Приоритет.Процедура = "Документы.ЭлектронноеПисьмоИсходящее.ОбработатьДанныеДляПереходаНаНовуюВерсию";
Приоритет.Порядок = "Любой";
Обработчик.Комментарий = НСтр("ru = 'Выполняет дозаполнение реквизита ВзаимодействиеОснование для исходящее писем, у которых письмо основание в ИБ есть, но оно не указано.'");
Обработчик = Обработчики.Добавить();
@@ -613,6 +619,33 @@
Приоритет = Обработчик.ПриоритетыВыполнения.Добавить();
Приоритет.Процедура = "Документы.ЭлектронноеПисьмоИсходящее.ЗаполнитьВзаимодействияОснованияУПодчиненныхПисем";
Приоритет.Порядок = "После";
Приоритет = Обработчик.ПриоритетыВыполнения.Добавить();
Приоритет.Процедура = "Документы.ЭлектронноеПисьмоИсходящее.ОбработатьДанныеДляПереходаНаНовуюВерсию";
Приоритет.Порядок = "Любой";
Обработчик = Обработчики.Добавить();
Обработчик.Версия = "2.3.6.76";
Обработчик.Идентификатор = Новый УникальныйИдентификатор("35e85660-7125-4079-b5df-5a71dbb43a48");
Обработчик.Процедура = "Документы.ЭлектронноеПисьмоИсходящее.ОбработатьДанныеДляПереходаНаНовуюВерсию";
Обработчик.Комментарий =
НСтр("ru = 'Перенос данных из реквизита одного ИдентификаторСообщенияОтправкаIMAP в другой для предотвращения потери данных.
|при переходе на последующие релизы.'");
Обработчик.РежимВыполнения = "Отложенно";
Обработчик.ОчередьОтложеннойОбработки = 3;
Обработчик.ПроцедураЗаполненияДанныхОбновления = "Документы.ЭлектронноеПисьмоИсходящее.ЗарегистрироватьДанныеКОбработкеДляПереходаНаНовуюВерсию";
Обработчик.ЧитаемыеОбъекты = "Документ.ЭлектронноеПисьмоИсходящее";
Обработчик.ИзменяемыеОбъекты = "Документ.ЭлектронноеПисьмоИсходящее";
Обработчик.ПриоритетыВыполнения = ОбновлениеИнформационнойБазы.ПриоритетыВыполненияОбработчика();
Приоритет = Обработчик.ПриоритетыВыполнения.Добавить();
Приоритет.Процедура = "Документы.ЭлектронноеПисьмоИсходящее.ЗаполнитьСписокКонтактовИсходящихЭлектронныхПисем";
Приоритет.Порядок = "Любой";
Приоритет = Обработчик.ПриоритетыВыполнения.Добавить();
Приоритет.Процедура = "Документы.ЭлектронноеПисьмоВходящее.ЗаполнитьВзаимодействияОснованияУПодчиненныхПисем";
Приоритет.Порядок = "Любой";
Приоритет = Обработчик.ПриоритетыВыполнения.Добавить();
Приоритет.Процедура = "Документы.ЭлектронноеПисьмоИсходящее.ЗаполнитьВзаимодействияОснованияУПодчиненныхПисем";
Приоритет.Порядок = "Любой";
Обработчик.ПроцедураПроверки = "ОбновлениеИнформационнойБазы.ОбработкаДанныхЗавершена";
Обработчик = Обработчики.Добавить();
Обработчик.Версия = "2.4.1.1";
@@ -1990,7 +2023,14 @@
//
Процедура УстановитьПредметПоДаннымЗаполнения(Параметры,Предмет) Экспорт
Если ВзаимодействияКлиентСервер.ЯвляетсяПредметом(Параметры.Основание) Тогда
Если Параметры.Свойство("Предмет")
И ЗначениеЗаполнено(Параметры.Предмет)
И (ВзаимодействияКлиентСервер.ЯвляетсяПредметом(Параметры.Предмет)
Или ВзаимодействияКлиентСервер.ЯвляетсяВзаимодействием(Параметры.Основание)) Тогда
Предмет = Параметры.Предмет;
ИначеЕсли ВзаимодействияКлиентСервер.ЯвляетсяПредметом(Параметры.Основание) Тогда
Предмет = Параметры.Основание;
@@ -2611,7 +2651,7 @@
ИначеЕсли ПротоколПочты = "Все" Тогда
ИдентификаторПисьма = РаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(Объект.УчетнаяЗапись, ПараметрыПисьма ,Соединение, "");
ПараметрыПисьма.Вставить("ПротоколПочты","IMAP");
РаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(Объект.УчетнаяЗапись, ПараметрыПисьма ,Соединение, "IMAP");
Объект.ИдентификаторСообщенияОтправкаIMAP = РаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(Объект.УчетнаяЗапись, ПараметрыПисьма ,Соединение, "IMAP");
КонецЕсли;
Возврат ИдентификаторПисьма;
@@ -4391,6 +4431,8 @@
ТекстHTML = "<html>" + ТекстHTML + "</html>"
КонецЕсли;
ТекстHTML = СодержимоеТегаHTML(ТекстHTML, "html", Истина);
ТаблицаФайлов = ПолучитьВложенияПисьмаСНеПустымИД(Письмо);
Если ТаблицаФайлов.Количество() Тогда
@@ -4413,6 +4455,49 @@
КонецФункции
// Находит в HTML содержимое? находящееся в теге.
//
// Параметры:
// Текст - Строка - текст XML, в котором выполняется поиск.
// ИмяТега - Строка - тег, содержимое которого необходимо найти.
// ВключатьОткрывающийЗакрывающийТег - Булево - признак того, что найденное включает открывающий и закрывающий тег, по умолчанию Ложь.
// НомерПоПорядку - Число - позиция, с которой начинается поиск, по умолчанию 1.
//
// Возвращаемое значение:
// Строка - строка, из которой удалены символы перевода строки и возврата каретки.
//
Функция СодержимоеТегаHTML(Текст, ИмяТега, ВключатьОткрывающийЗакрывающийТег = Ложь, НомерПоПорядку = 1)
Результат = Неопределено;
Начало = "<" + ИмяТега;
Окончание = "</" + ИмяТега + ">";
Содержимое = Сред(
Текст,
СтрНайти(Текст, Начало, НаправлениеПоиска.СНачала, 1, НомерПоПорядку),
СтрНайти(Текст, Окончание, НаправлениеПоиска.СНачала, 1, НомерПоПорядку) + СтрДлина(Окончание) - СтрНайти(Текст, Начало, НаправлениеПоиска.СНачала, 1, НомерПоПорядку));
Если ВключатьОткрывающийЗакрывающийТег Тогда
Результат = СокрЛП(Содержимое);
Иначе
ОткрывающийТег = Лев(Содержимое, СтрНайти(Содержимое, ">"));
Содержимое = СтрЗаменить(Содержимое, ОткрывающийТег, "");
ЗакрывающийТег = Прав(Содержимое, СтрДлина(Содержимое) - СтрНайти(Содержимое, "<", НаправлениеПоиска.СКонца) + 1);
Содержимое = СтрЗаменить(Содержимое, ЗакрывающийТег, "");
Результат = СокрЛП(Содержимое);
КонецЕсли;
Возврат Результат;
КонецФункции
// Возвращает формат исходящих писем по умолчанию для пользователя,
// исходя из настроек системы и формата последнего письма, отправленного пользователем.
//
@@ -5459,22 +5544,10 @@
ОбщегоНазначения.ПриНачалеВыполненияРегламентногоЗадания(Метаданные.РегламентныеЗадания.ОтправкаSMS);
Если НЕ ПолучитьФункциональнуюОпцию("ИспользоватьПочтовыйКлиент") Тогда
Возврат;
КонецЕсли;
УстановитьПривилегированныйРежим(Истина);
Если Не ОтправкаSMS.НастройкаОтправкиSMSВыполнена() Тогда
Возврат;
КонецЕсли;
МетаданныеДокумента = Метаданные.Документы.СообщениеSMS;
ЗаписьЖурналаРегистрации(УправлениеЭлектроннойПочтой.СобытиеЖурналаРегистрации(),
УровеньЖурналаРегистрации.Информация, , ,
НСтр("ru = 'Начата регламентная отправка сообщений SMS'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()));
ТаблицаАдресатовСообщения = Новый ТаблицаЗначений;
ТаблицаАдресатовСообщения.Колонки.Добавить("НомерСтроки");
ТаблицаАдресатовСообщения.Колонки.Добавить("НомерДляОтправки");
@@ -5511,7 +5584,20 @@
| Ссылка";
Запрос.УстановитьПараметр("ТекущаяДата", ТекущаяДатаСеанса());
ВыборкаДокументы = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Результат = Запрос.Выполнить();
Если Результат.Пустой() Тогда
Возврат;
КонецЕсли;
Если Не ОтправкаSMS.НастройкаОтправкиSMSВыполнена() Тогда
ЗаписьЖурналаРегистрации(УправлениеЭлектроннойПочтой.СобытиеЖурналаРегистрации(),
УровеньЖурналаРегистрации.Ошибка, , ,
НСтр("ru = 'Не выполнены настройки отправки SMS.'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()));
Возврат;
КонецЕсли;
ВыборкаДокументы = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаДокументы.Следующий() Цикл
@@ -5590,16 +5676,8 @@
УстановитьПривилегированныйРежим(Истина);
Если Не ОтправкаSMS.НастройкаОтправкиSMSВыполнена() Тогда
Возврат;
КонецЕсли;
МетаданныеДокумента = Метаданные.Документы.СообщениеSMS;
ЗаписьЖурналаРегистрации(УправлениеЭлектроннойПочтой.СобытиеЖурналаРегистрации(),
УровеньЖурналаРегистрации.Информация, , ,
НСтр("ru = 'Начато регламентное обновление состояний сообщений SMS'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()));
ТаблицаИзменившихсяСтатусов = Новый ТаблицаЗначений;
ТаблицаИзменившихсяСтатусов.Колонки.Добавить("НомерСтроки");
ТаблицаИзменившихсяСтатусов.Колонки.Добавить("СостояниеСообщения");
@@ -5622,8 +5700,20 @@
|ИТОГИ ПО
| Ссылка";
ВыборкаДокументы = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Результат = Запрос.Выполнить();
Если Результат.Пустой() Тогда
Возврат;
КонецЕсли;
Если Не ОтправкаSMS.НастройкаОтправкиSMSВыполнена() Тогда
ЗаписьЖурналаРегистрации(УправлениеЭлектроннойПочтой.СобытиеЖурналаРегистрации(),
УровеньЖурналаРегистрации.Ошибка, , ,
НСтр("ru = 'Не выполнены настройки отправки SMS.'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()));
Возврат;
КонецЕсли;
ВыборкаДокументы = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаДокументы.Следующий() Цикл
ТаблицаИзменившихсяСтатусов.Очистить();
@@ -5681,10 +5771,6 @@
КонецЦикла;
ЗаписьЖурналаРегистрации(УправлениеЭлектроннойПочтой.СобытиеЖурналаРегистрации(),
УровеньЖурналаРегистрации.Информация, , ,
НСтр("ru = 'Закончено регламентное обновление состояний сообщений SMS'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()));
КонецПроцедуры
// Устанавливает состояние документа "Сообщение SMS" в зависимости от состояний отдельных сообщений различным контактам.
SSL/src/CommonModules/ВзаимодействияВызовСервера/Module.bsl
+10 -17
View File
@@ -6,9 +6,10 @@
// Получает представление и всю контактную информацию контакта.
//
// Параметры:
// Контакт - Ссылка - контакт для которого получается информация.
// Представление - Строка - в данный параметр будет помещено полученное представление.
// СтрокаКИ - Строка - в данный параметр будет помещено полученная контактная информация.
// Контакт - Ссылка - контакт для которого получается информация.
// Представление - Строка - в данный параметр будет помещено полученное представление.
// СтрокаКИ - Строка - в данный параметр будет помещено полученная контактная информация.
// ТипКонтактнойИнформации - Перечисления.ТипыКонтактнойИнформации - возможность установить отбор по типу получаемой контактной информации.
//
Процедура ПредставлениеИВсяКонтактнаяИнформациюКонтакта(Контакт, Представление, СтрокаКИ,ТипКонтактнойИнформации = Неопределено) Экспорт
@@ -32,21 +33,11 @@
| Справочник." + ИмяТаблицы + " КАК СправочникКонтакт
|ГДЕ
| СправочникКонтакт.Ссылка = &Контакт
|;
|
|////////////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| СправочникКонтакт.Тип КАК Тип,
| СправочникКонтакт.Представление КАК Представление
|ИЗ
| Справочник." + ИмяТаблицы + ".КонтактнаяИнформация" + " КАК СправочникКонтакт
|ГДЕ
| СправочникКонтакт.Ссылка = &Контакт" + ?(ТипКонтактнойИнформации = Неопределено,""," И СправочникКонтакт.Тип = &ТипКонтактнойИнформации");
|";
Запрос.УстановитьПараметр("Контакт", Контакт);
Запрос.УстановитьПараметр("ТипКонтактнойИнформации", ТипКонтактнойИнформации);
РезультатЗапроса = Запрос.ВыполнитьПакет();
Выборка = РезультатЗапроса[0].Выбрать();
Выборка = Запрос.Выполнить().Выбрать();
Если Не Выборка.Следующий() Тогда
Возврат;
КонецЕсли;
@@ -57,12 +48,14 @@
Представление = Представление + " (" + Выборка.НаименованиеВладельца + ")";
КонецЕсли;
Для Каждого СтрокаТаблицы Из РезультатЗапроса[1].Выгрузить() Цикл
МассивКонтактов = ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(Контакт);
ТаблицаКИ = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияОбъектов(МассивКонтактов, ТипКонтактнойИнформации, Неопределено, ТекущаяДатаСеанса());
Для Каждого СтрокаТаблицы Из ТаблицаКИ Цикл
Если СтрокаТаблицы.Тип <> Перечисления.ТипыКонтактнойИнформации.Другое Тогда
СтрокаКИ = СтрокаКИ + ?(ПустаяСтрока(СтрокаКИ), "", "; ") + СтрокаТаблицы.Представление;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
SSL/src/CommonModules/ВнешниеКомпонентыКлиент/Module.bsl
+8 -1
View File
@@ -7,7 +7,9 @@
// * Кэшировать - Булево - (по умолчанию Истина) использовать механизм кэширования компонент на клиенте.
// * ПредложитьУстановить - Булево - (по умолчанию Истина) предлагать устанавливать и обновлять компоненту.
// * ТекстПояснения - Строка - для чего нужна компонента и что не будет работать, если ее не устанавливать
// (только для веб клиента).
// * ИдентификаторыСозданияОбъектов - Массив - идентификатор создания экземпляра модуля объекта,
// используется только для компонент, у которых есть несколько идентификаторов создания объектов,
// при задании параметр Идентификатор будет использоваться только для определения компоненты.
//
// Пример:
//
@@ -21,6 +23,7 @@
Параметры.Вставить("Кэшировать" , Истина);
Параметры.Вставить("ПредложитьУстановить", Истина);
Параметры.Вставить("ТекстПояснения" , "");
Параметры.Вставить("ИдентификаторыСозданияОбъектов", Новый Массив);
Возврат Параметры;
@@ -35,6 +38,9 @@
// * Результат - Структура - результат подключения компоненты:
// ** Подключено - Булево - признак подключения.
// ** ПодключаемыйМодуль - AddIn - экземпляр объекта внешней компоненты.
// - ФиксированноеСоответствие - экземпляры объектов внешней компоненты,
// указанные в ПараметрыПодключения.ИдентификаторыСозданияОбъектов,
// Ключ - Идентификатор, Значение - экземпляр объекта.
// ** ОписаниеОшибки - Строка - краткое описание ошибки. При отмене пользователем пустая строка.
// * ДополнительныеПараметры - Структура - значение, которое было указано при создании объекта ОписаниеОповещения.
// Идентификатор - Строка - идентификатор объекта внешней компоненты.
@@ -88,6 +94,7 @@
Контекст.Вставить("Кэшировать" , Параметры.Кэшировать);
Контекст.Вставить("ПредложитьУстановить", Параметры.ПредложитьУстановить);
Контекст.Вставить("ТекстПояснения" , Параметры.ТекстПояснения);
Контекст.Вставить("ИдентификаторыСозданияОбъектов", Параметры.ИдентификаторыСозданияОбъектов);
ДлительнаяОперация = ВнешниеКомпонентыСлужебныйВызовСервера.НачатьПодготовкуКомпонентыКПодключению(
Идентификатор, Версия);
SSL/src/CommonModules/ВнешниеКомпонентыСлужебный/Module.bsl
+108 -33
View File
@@ -1,6 +1,15 @@
#Область СлужебныйПрограммныйИнтерфейс
// Проверят доступна ли загрузка внешних компонент с сайта.
//
Функция ДоступнаЗагрузкаССайта() Экспорт
Возврат ОбщегоНазначения.ПодсистемаСуществует("ИнтернетПоддержкаПользователей.ВнешниеКомпоненты")
И Не ОбщегоНазначения.РазделениеВключено();
КонецФункции
////////////////////////////////////////////////////////////////////////////////
// Обработчики событий подсистем конфигурации.
@@ -15,45 +24,75 @@
КонецПроцедуры
// Обновление всех компонент регламентным заданием.
//
Процедура ОбновитьВсеКомпонентыССайта() Экспорт
// См. ГрупповоеИзменениеОбъектовПереопределяемый.ПриОпределенииОбъектовСРедактируемымиРеквизитами.
Процедура ПриОпределенииОбъектовСРедактируемымиРеквизитами(Объекты) Экспорт
ОбщегоНазначения.ПриНачалеВыполненияРегламентногоЗадания();
Если ОбщегоНазначения.РазделениеВключено() Тогда
ВызватьИсключение НСтр("ru = 'Недопустимое использование регламентного задания:
|Нельзя использовать регламентное задание в разделенном режиме.'");
КонецЕсли;
Если Не ДоступнаЗагрузкаССайта() Тогда
ВызватьИсключение НСтр("ru = 'Недопустимое использование регламентного задания:
|Нельзя использовать регламентное задание в конфигурации
|без подсистемы Интернет Поддержки.'");
КонецЕсли;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ВнешниеКомпоненты.Идентификатор КАК Идентификатор,
| НЕОПРЕДЕЛЕНО КАК Версия,
| ВнешниеКомпоненты.Версия КАК ТекущаяВерсия,
| ВнешниеКомпоненты.Ссылка КАК Ссылка
|ИЗ
| Справочник.ВнешниеКомпоненты КАК ВнешниеКомпоненты
|ГДЕ
| ВнешниеКомпоненты.ОбновлятьССайта";
ОбновитьКомпонентыССайтаПоЗапросу(Запрос);
Объекты.Вставить(Метаданные.Справочники.ВнешниеКомпоненты.ПолноеИмя(), "РеквизитыРедактируемыеВГрупповойОбработке");
КонецПроцедуры
Функция ДоступнаЗагрузкаССайта() Экспорт
// См. ВыгрузкаЗагрузкаДанныхПереопределяемый.ПриЗаполненииТиповИсключаемыхИзВыгрузкиЗагрузки.
Процедура ПриЗаполненииТиповИсключаемыхИзВыгрузкиЗагрузки(Типы) Экспорт
Возврат ОбщегоНазначения.ПодсистемаСуществует("ИнтернетПоддержкаПользователей.ВнешниеКомпоненты")
И Не ОбщегоНазначения.РазделениеВключено();
Типы.Добавить(Метаданные.Справочники.ВнешниеКомпоненты);
КонецФункции
КонецПроцедуры
// См. СтандартныеПодсистемыСервер.ПриОтправкеДанныхГлавному.
Процедура ПриОтправкеДанныхГлавному(ЭлементДанных, ОтправкаЭлемента, Получатель) Экспорт
// Стандартная обработка не переопределяется.
Если ОтправкаЭлемента = ОтправкаЭлементаДанных.Игнорировать Тогда
Возврат;
КонецЕсли;
Если ТипЗнч(ЭлементДанных) = Тип("СправочникОбъект.ВнешниеКомпоненты") Тогда
ОтправкаЭлемента = ОтправкаЭлементаДанных.Игнорировать;
КонецЕсли;
КонецПроцедуры
// См. СтандартныеПодсистемыСервер.ПриОтправкеДанныхПодчиненному.
Процедура ПриОтправкеДанныхПодчиненному(ЭлементДанных, ОтправкаЭлемента, СозданиеНачальногоОбраза, Получатель) Экспорт
// Стандартная обработка не переопределяется.
Если ОтправкаЭлемента = ОтправкаЭлементаДанных.Игнорировать Тогда
Возврат;
КонецЕсли;
Если ТипЗнч(ЭлементДанных) = Тип("СправочникОбъект.ВнешниеКомпоненты") Тогда
ОтправкаЭлемента = ОтправкаЭлементаДанных.Игнорировать;
КонецЕсли;
КонецПроцедуры
// См. СтандартныеПодсистемыСервер.ПриПолученииДанныхОтГлавного.
Процедура ПриПолученииДанныхОтГлавного(ЭлементДанных, ПолучениеЭлемента, ОтправкаНазад, Отправитель) Экспорт
// Стандартная обработка не переопределяется.
Если ПолучениеЭлемента = ПолучениеЭлементаДанных.Игнорировать Тогда
Возврат;
КонецЕсли;
Если ТипЗнч(ЭлементДанных) = Тип("СправочникОбъект.ВнешниеКомпоненты") Тогда
ПолучениеЭлемента = ПолучениеЭлементаДанных.Игнорировать;
КонецЕсли;
КонецПроцедуры
// См. СтандартныеПодсистемыСервер.ПриПолученииДанныхОтПодчиненного.
Процедура ПриПолученииДанныхОтПодчиненного(ЭлементДанных, ПолучениеЭлемента, ОтправкаНазад, Отправитель) Экспорт
// Стандартная обработка не переопределяется.
Если ПолучениеЭлемента = ПолучениеЭлементаДанных.Игнорировать Тогда
Возврат;
КонецЕсли;
Если ТипЗнч(ЭлементДанных) = Тип("СправочникОбъект.ВнешниеКомпоненты") Тогда
ПолучениеЭлемента = ПолучениеЭлементаДанных.Игнорировать;
КонецЕсли;
КонецПроцедуры
#КонецОбласти
@@ -710,5 +749,41 @@
#КонецОбласти
////////////////////////////////////////////////////////////////////////////////
// Обработчики выполнения регламентный заданий.
// Обновление всех компонент регламентным заданием.
//
Процедура ОбновитьВсеКомпонентыССайта() Экспорт
ОбщегоНазначения.ПриНачалеВыполненияРегламентногоЗадания(Метаданные.РегламентныеЗадания.ОбновлениеВнешнихКомпонентССайта);
Если ОбщегоНазначения.РазделениеВключено() Тогда
ВызватьИсключение НСтр("ru = 'Недопустимое использование регламентного задания:
|Нельзя использовать регламентное задание в разделенном режиме.'");
КонецЕсли;
Если Не ДоступнаЗагрузкаССайта() Тогда
ВызватьИсключение НСтр("ru = 'Недопустимое использование регламентного задания:
|Нельзя использовать регламентное задание в конфигурации
|без подсистемы Интернет Поддержки.'");
КонецЕсли;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ВнешниеКомпоненты.Идентификатор КАК Идентификатор,
| НЕОПРЕДЕЛЕНО КАК Версия,
| ВнешниеКомпоненты.Версия КАК ТекущаяВерсия,
| ВнешниеКомпоненты.Ссылка КАК Ссылка
|ИЗ
| Справочник.ВнешниеКомпоненты КАК ВнешниеКомпоненты
|ГДЕ
| ВнешниеКомпоненты.ОбновлятьССайта";
ОбновитьКомпонентыССайтаПоЗапросу(Запрос);
КонецПроцедуры
#КонецОбласти
SSL/src/CommonModules/ДанныеЕдиныхГосРеестров/Module.bsl
-2285
View File
File diff suppressed because it is too large. Load diff
SSL/src/CommonModules/ДанныеЕдиныхГосРеестров/ДанныеЕдиныхГосРеестров.mdo
-11
View File
@@ -1,11 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonModule xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="ef6ccd0d-73c6-4314-9912-efa7ff27c823">
<name>ДанныеЕдиныхГосРеестров</name>
<synonym>
<key>ru</key>
<value>Данные ЕГРЮЛ / ЕГРИП</value>
</synonym>
<server>true</server>
<externalConnection>true</externalConnection>
<clientOrdinaryApplication>true</clientOrdinaryApplication>
</mdclass:CommonModule>
SSL/src/CommonModules/ДатыЗапретаИзмененияСлужебный/Module.bsl
+22 -23
View File
@@ -398,7 +398,7 @@
// Выполняется при условии:
// НЕ ИсточникРегистр И Источник.ЭтоНовый()
// ИЛИ ИсточникРегистр И НЕ Замещение
// ИЛИ НЕ ИсточникРегистр И Удаление
// ИЛИ НЕ ИсточникРегистр И Удаление.
Если ВерсияОбъекта <> "СтараяВерсия"
И ИзменениеЗапрещено(
Источник,
@@ -909,6 +909,8 @@
СвойстваРазделов = СвойстваРазделов();
ПустойРаздел = ПланыВидовХарактеристик.РазделыДатЗапретаИзменения.ПустаяСсылка();
ИменаПредопределенных =
Метаданные.ПланыВидовХарактеристик.РазделыДатЗапретаИзменения.ПолучитьИменаПредопределенных();
Блокировка = Новый БлокировкаДанных;
Блокировка.Добавить("ПланВидовХарактеристик.РазделыДатЗапретаИзменения");
@@ -935,30 +937,27 @@
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
Приставка = "Удалить";
Если Не СтрНачинаетсяС(Выборка.ИмяПредопределенныхДанных, Приставка) Тогда
ВызватьИсключение ЗаголовокОшибки + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Предопределенное имя раздела дат запрета ""%1"" должно иметь приставку ""%2"".'"),
Выборка.ИмяПредопределенныхДанных, Приставка);
КонецЕсли;
ИскомоеИмя = Сред(Выборка.ИмяПредопределенныхДанных, СтрДлина(Приставка) + 1);
СвойстваРаздела = СвойстваРазделов.Разделы.Получить(ИскомоеИмя);
Если СвойстваРаздела = Неопределено Тогда
ВызватьИсключение ЗаголовокОшибки + СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Имя раздела дат запрета ""%1"", полученное из имени предопределенного элемента ""%2"",
|не найдено в описании, указанном в процедуре ПриЗаполненииРазделовДатЗапретаИзменения
|общего модуля ДатыЗапретаИзмененияПереопределяемый.
|
|Если раздел был переименован/удален в описании, следует переименовать/удалить
|соответствующий предопределенный элемент.'"),
ИскомоеИмя, Выборка.ИмяПредопределенныхДанных);
КонецЕсли;
Объект = Выборка.Ссылка.ПолучитьОбъект();
Объект.ИмяПредопределенныхДанных = "";
Если Выборка.Ссылка <> СвойстваРаздела.Ссылка Тогда
Объект.УдалитьНоваяСсылка = СвойстваРаздела.Ссылка;
Объект.Наименование = "(" + НСтр("ru = 'не используется'") + ") " + СвойстваРаздела.Представление;
Если ИменаПредопределенных.Найти(Выборка.ИмяПредопределенныхДанных) <> Неопределено Тогда
Приставка = "Удалить";
Если Не СтрНачинаетсяС(Выборка.ИмяПредопределенныхДанных, Приставка) Тогда
Объект.ПометкаУдаления = Истина;
Иначе
ИскомоеИмя = Сред(Выборка.ИмяПредопределенныхДанных, СтрДлина(Приставка) + 1);
СвойстваРаздела = СвойстваРазделов.Разделы.Получить(ИскомоеИмя);
Если СвойстваРаздела = Неопределено Тогда
Объект.ПометкаУдаления = Истина;
ИначеЕсли Выборка.Ссылка <> СвойстваРаздела.Ссылка Тогда
Объект.УдалитьНоваяСсылка = СвойстваРаздела.Ссылка;
Объект.Наименование = "(" + НСтр("ru = 'не используется'") + ") " + СвойстваРаздела.Представление;
КонецЕсли;
КонецЕсли;
ИначеЕсли СвойстваРазделов.Разделы.Получить(Выборка.Ссылка) = Неопределено Тогда
Объект.ПометкаУдаления = Истина;
КонецЕсли;
Объект.ИмяПредопределенныхДанных = "";
ОбновлениеИнформационнойБазы.ЗаписатьДанные(Объект, Ложь);
КонецЦикла;
ЗафиксироватьТранзакцию();
SSL/src/CommonModules/ДлительныеОперации/Module.bsl
+36
View File
@@ -506,6 +506,42 @@
ОбщегоНазначения.ВыполнитьМетодОбъекта(Отчет, Параметры.ИмяМетода, ПараметрыМетода);
КонецПроцедуры
// Получает сообщения пользователю, отфильтровывает служебные сообщения о состоянии длительной операции.
//
// Параметры:
// УдалятьПолученные - Булево - Признак необходимости удаления полученных сообщений.
// ИдентификаторЗадания - УникальныйИдентификатор - идентификатор фонового задания.
//
// Возвращаемое значение:
//  Массив - ФиксированныйМассив - Массив объектов СообщениеПользователю, которые были сформированы в
// фоновом задании.
Функция СообщенияПользователю(УдалятьПолученные = Ложь, ИдентификаторЗадания = Неопределено) Экспорт
Если ЗначениеЗаполнено(ИдентификаторЗадания) Тогда
ФоновоеЗадание = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(ИдентификаторЗадания);
Если ФоновоеЗадание <> Неопределено Тогда
ВсеСообщения = ФоновоеЗадание.ПолучитьСообщенияПользователю(УдалятьПолученные);
КонецЕсли;
Иначе
ВсеСообщения = ПолучитьСообщенияПользователю(УдалятьПолученные);
КонецЕсли;
Результат = Новый Массив;
Для Каждого Сообщение Из ВсеСообщения Цикл
Если СтрНачинаетсяС(Сообщение.Текст, "{" + СообщениеПрогресса() + "}") Тогда
Если УдалятьПолученные Тогда
Сообщение.Сообщить();
КонецЕсли;
Иначе
Результат.Добавить(Сообщение);
КонецЕсли;
КонецЦикла;
Возврат Новый ФиксированныйМассив(Результат);
КонецФункции
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
SSL/src/CommonModules/ДополнительныеОтчетыИОбработки/Module.bsl
+7
View File
@@ -1177,16 +1177,23 @@
// См. ПодключаемыеКомандыПереопределяемый.ПриОпределенииКомандПодключенныхКОбъекту.
Процедура ПриОпределенииКомандПодключенныхКОбъекту(НастройкиФормы, Источники, ПодключенныеОтчетыИОбработки, Команды) Экспорт
Если Не ПравоДоступа("Чтение", Метаданные.РегистрыСведений.НазначениеДополнительныхОбработок) Тогда
Возврат;
КонецЕсли;
Если НастройкиФормы.ЭтоФормаОбъекта Тогда
ТипФормы = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипФормыОбъекта();
Иначе
ТипФормы = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипФормыСписка();
КонецЕсли;
УстанавливатьПараметрыФО = (Метаданные.ОбщиеКоманды.Найти("СозданиеСвязанныхОбъектов") <> Неопределено);
Если УстанавливатьПараметрыФО Тогда
НастройкиФормы.ФункциональныеОпции.Вставить("ДополнительныеОтчетыИОбработкиОбъектНазначения", Справочники.ИдентификаторыОбъектовМетаданных.ПустаяСсылка());
НастройкиФормы.ФункциональныеОпции.Вставить("ДополнительныеОтчетыИОбработкиТипФормы", ТипФормы);
КонецЕсли;
Если Не ПолучитьФункциональнуюОпцию("ИспользоватьДополнительныеОтчетыИОбработки") Тогда
Возврат;
КонецЕсли;
SSL/src/CommonModules/ДополнительныеОтчетыИОбработкиВБезопасномРежимеСлужебный/Module.bsl
+2 -2
View File
@@ -266,10 +266,10 @@
КонецЕсли;
Если Не ПустаяСтрока(ШагСценария.СохранениеРезультата) Тогда
Результат = Вычислить(ИсполняемыйФрагмент);
Результат = ОбщегоНазначения.ВычислитьВБезопасномРежиме(ИсполняемыйФрагмент);
СохраняемыеПараметры.Вставить(ШагСценария.СохранениеРезультата, Результат);
Иначе
Выполнить(ИсполняемыйФрагмент);
ОбщегоНазначения.ВыполнитьВБезопасномРежиме(ИсполняемыйФрагмент);
КонецЕсли;
КонецЦикла;
SSL/src/CommonModules/ДополнительныеОтчетыИОбработкиКлиент/Module.bsl
+2
View File
@@ -14,6 +14,8 @@
ОбъектыНазначения = Новый СписокЗначений;
Если ТипЗнч(ПараметрКоманды) = Тип("Массив") Тогда // назначаемая обработка
ОбъектыНазначения.ЗагрузитьЗначения(ПараметрКоманды);
ИначеЕсли ПараметрКоманды <> Неопределено Тогда
ОбъектыНазначения.Добавить(ПараметрКоманды);
КонецЕсли;
Параметры = Новый Структура("ОбъектыНазначения, Вид, ИмяРаздела, РежимОткрытияОкна");
SSL/src/CommonModules/ИнтеграцияСТехнологиейСервиса/Module.bsl
+22 -5
View File
@@ -74,6 +74,11 @@
МодульВзаимодействия.ПриЗаполненииТиповИсключаемыхИзВыгрузкиЗагрузки(Типы);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ВнешниеКомпоненты") Тогда
МодульВнешниеКомпонентыСлужебный = ОбщегоНазначения.ОбщийМодуль("ВнешниеКомпонентыСлужебный");
МодульВнешниеКомпонентыСлужебный.ПриЗаполненииТиповИсключаемыхИзВыгрузкиЗагрузки(Типы);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РегламентныеЗадания") Тогда
МодульРегламентныеЗаданияСлужебный = ОбщегоНазначения.ОбщийМодуль("РегламентныеЗаданияСлужебный");
МодульРегламентныеЗаданияСлужебный.ПриЗаполненииТиповИсключаемыхИзВыгрузкиЗагрузки(Типы);
@@ -133,11 +138,6 @@
МодульРаботаВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль("РаботаВМоделиСервиса");
МодульРаботаВМоделиСервиса.ПослеЗагрузкиДанных(Контейнер);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСКонтрагентами") Тогда
МодульПроверкаКонтрагентов = ОбщегоНазначения.ОбщийМодуль("ПроверкаКонтрагентов");
МодульПроверкаКонтрагентов.ПослеЗагрузкиДанных(Контейнер);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("РаботаВМоделиСервиса.ВалютыВМоделиСервиса") Тогда
МодульКурсыВалютСлужебныйВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль("КурсыВалютСлужебныйВМоделиСервиса");
@@ -738,6 +738,23 @@
#КонецОбласти
#Область РегламентныеЗадания
// См. РегламентныеЗаданияПереопределяемый.ПриОпределенииНастроекРегламентныхЗаданий.
Процедура ПриОпределенииНастроекРегламентныхЗаданий(Настройки) Экспорт
Если ОбщегоНазначения.ПодсистемаСуществует("ТехнологияСервиса.БазоваяФункциональность") Тогда
МодульТехнологияСервиса = ОбщегоНазначения.ОбщийМодуль("ТехнологияСервиса");
Если ОбщегоНазначенияКлиентСервер.СравнитьВерсии(МодульТехнологияСервиса.ВерсияБиблиотеки(), "1.0.13.1") >= 0 Тогда
МодульТехнологияСервисаИнтеграцияСБСП = ОбщегоНазначения.ОбщийМодуль("ТехнологияСервисаИнтеграцияСБСП");
МодульТехнологияСервисаИнтеграцияСБСП.ПриОпределенииНастроекРегламентныхЗаданий(Настройки);
КонецЕсли;
КонецЕсли;
КонецПроцедуры
#КонецОбласти
#Область УправлениеДоступом
// Вызывается при обновлении ролей пользователя информационной базы.
SSL/src/CommonModules/ИнтеграцияСтандартныхПодсистем/Module.bsl
+34 -16
View File
@@ -143,11 +143,6 @@
МодульОбменДаннымиСервер.ПриДобавленииПереименованийОбъектовМетаданных(Итог);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСКонтрагентами") Тогда
МодульПроверкаКонтрагентов = ОбщегоНазначения.ОбщийМодуль("ПроверкаКонтрагентов");
МодульПроверкаКонтрагентов.ПриДобавленииПереименованийОбъектовМетаданных(Итог);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСПочтовымиСообщениями") Тогда
МодульРаботаСПочтовымиСообщениямиСлужебный = ОбщегоНазначения.ОбщийМодуль("РаботаСПочтовымиСообщениямиСлужебный");
МодульРаботаСПочтовымиСообщениямиСлужебный.ПриДобавленииПереименованийОбъектовМетаданных(Итог);
@@ -213,6 +208,11 @@
МодульВерсионированиеОбъектов.ПриОтправкеДанныхГлавному(ЭлементДанных, ОтправкаЭлемента, Получатель);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ВнешниеКомпоненты") Тогда
МодульВнешниеКомпонентыСлужебный = ОбщегоНазначения.ОбщийМодуль("ВнешниеКомпонентыСлужебный");
МодульВнешниеКомпонентыСлужебный.ПриОтправкеДанныхГлавному(ЭлементДанных, ОтправкаЭлемента, Получатель);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ДатыЗапретаИзменения") Тогда
МодульДатыЗапретаИзмененияСлужебный = ОбщегоНазначения.ОбщийМодуль("ДатыЗапретаИзмененияСлужебный");
МодульДатыЗапретаИзмененияСлужебный.ПриОтправкеДанныхГлавному(ЭлементДанных, ОтправкаЭлемента, Получатель);
@@ -243,6 +243,11 @@
МодульВерсионированиеОбъектов.ПриОтправкеДанныхПодчиненному(ЭлементДанных, ОтправкаЭлемента, СозданиеНачальногоОбраза, Получатель);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ВнешниеКомпоненты") Тогда
МодульВнешниеКомпонентыСлужебный = ОбщегоНазначения.ОбщийМодуль("ВнешниеКомпонентыСлужебный");
МодульВнешниеКомпонентыСлужебный.ПриОтправкеДанныхПодчиненному(ЭлементДанных, ОтправкаЭлемента, СозданиеНачальногоОбраза, Получатель);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ДатыЗапретаИзменения") Тогда
МодульДатыЗапретаИзмененияСлужебный = ОбщегоНазначения.ОбщийМодуль("ДатыЗапретаИзмененияСлужебный");
МодульДатыЗапретаИзмененияСлужебный.ПриОтправкеДанныхПодчиненному(ЭлементДанных, ОтправкаЭлемента, СозданиеНачальногоОбраза, Получатель);
@@ -273,6 +278,11 @@
МодульВерсионированиеОбъектов.ПриПолученииДанныхОтГлавного(ЭлементДанных, ПолучениеЭлемента, ОтправкаНазад, Отправитель);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ВнешниеКомпоненты") Тогда
МодульВнешниеКомпонентыСлужебный = ОбщегоНазначения.ОбщийМодуль("ВнешниеКомпонентыСлужебный");
МодульВнешниеКомпонентыСлужебный.ПриПолученииДанныхОтГлавного(ЭлементДанных, ПолучениеЭлемента, ОтправкаНазад, Отправитель);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ДатыЗапретаИзменения") Тогда
МодульДатыЗапретаИзмененияСлужебный = ОбщегоНазначения.ОбщийМодуль("ДатыЗапретаИзмененияСлужебный");
МодульДатыЗапретаИзмененияСлужебный.ПриПолученииДанныхОтГлавного(ЭлементДанных, ПолучениеЭлемента, ОтправкаНазад, Отправитель);
@@ -312,6 +322,11 @@
МодульВерсионированиеОбъектов.ПриПолученииДанныхОтПодчиненного(ЭлементДанных, ПолучениеЭлемента, ОтправкаНазад, Отправитель);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ВнешниеКомпоненты") Тогда
МодульВнешниеКомпонентыСлужебный = ОбщегоНазначения.ОбщийМодуль("ВнешниеКомпонентыСлужебный");
МодульВнешниеКомпонентыСлужебный.ПриПолученииДанныхОтПодчиненного(ЭлементДанных, ПолучениеЭлемента, ОтправкаНазад, Отправитель);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ДатыЗапретаИзменения") Тогда
МодульДатыЗапретаИзмененияСлужебный = ОбщегоНазначения.ОбщийМодуль("ДатыЗапретаИзмененияСлужебный");
МодульДатыЗапретаИзмененияСлужебный.ПриПолученииДанныхОтПодчиненного(ЭлементДанных, ПолучениеЭлемента, ОтправкаНазад, Отправитель);
@@ -667,6 +682,11 @@
МодульВариантыОтчетов.ПриОпределенииОбъектовСРедактируемымиРеквизитами(Объекты);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ВнешниеКомпоненты") Тогда
МодульВнешниеКомпонентыСлужебный = ОбщегоНазначения.ОбщийМодуль("ВнешниеКомпонентыСлужебный");
МодульВнешниеКомпонентыСлужебный.ПриОпределенииОбъектовСРедактируемымиРеквизитами(Объекты);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ДополнительныеОтчетыИОбработки") Тогда
МодульДополнительныеОтчетыИОбработки = ОбщегоНазначения.ОбщийМодуль("ДополнительныеОтчетыИОбработки");
МодульДополнительныеОтчетыИОбработки.ПриОпределенииОбъектовСРедактируемымиРеквизитами(Объекты);
@@ -1063,11 +1083,6 @@
МодульФайловыеФункцииСлужебныйВМоделиСервиса.ПриДобавленииОбработчиковОбновления(Обработчики);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСКонтрагентами") Тогда
МодульПроверкаКонтрагентов = ОбщегоНазначения.ОбщийМодуль("ПроверкаКонтрагентов");
МодульПроверкаКонтрагентов.ПриДобавленииОбработчиковОбновления(Обработчики);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСПочтовымиСообщениями") Тогда
МодульРаботаСПочтовымиСообщениямиСлужебный = ОбщегоНазначения.ОбщийМодуль("РаботаСПочтовымиСообщениямиСлужебный");
МодульРаботаСПочтовымиСообщениямиСлужебный.ПриДобавленииОбработчиковОбновления(Обработчики);
@@ -1148,7 +1163,13 @@
МодульОбновлениеИнформационнойБазыСлужебныйВМоделиСервиса.ПослеОбновленияИнформационнойБазы(ПредыдущаяВерсия, ТекущаяВерсия,
ВыполненныеОбработчики, ВыводитьОписаниеОбновлений, МонопольныйРежим);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.УправлениеДоступом") Тогда
МодульУправлениеДоступомСлужебный = ОбщегоНазначения.ОбщийМодуль("УправлениеДоступомСлужебный");
МодульУправлениеДоступомСлужебный.ПослеОбновленияИнформационнойБазы(ПредыдущаяВерсия, ТекущаяВерсия,
ВыполненныеОбработчики, ВыводитьОписаниеОбновлений, МонопольныйРежим);
КонецЕсли;
КонецПроцедуры
#КонецОбласти
@@ -1844,11 +1865,6 @@
МодульОбновлениеПоставляемыеДанные.ПриОпределенииПсевдонимовОбработчиков(СоответствиеИменПсевдонимам);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаСКонтрагентами") Тогда
МодульПроверкаКонтрагентов = ОбщегоНазначения.ОбщийМодуль("ПроверкаКонтрагентов");
МодульПроверкаКонтрагентов.ПриОпределенииПсевдонимовОбработчиков(СоответствиеИменПсевдонимам);
КонецЕсли;
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаВМоделиСервиса.БазоваяФункциональностьВМоделиСервиса") Тогда
МодульРаботаВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль("РаботаВМоделиСервиса");
МодульРаботаВМоделиСервиса.ПриОпределенииПсевдонимовОбработчиков(СоответствиеИменПсевдонимам);
@@ -1979,6 +1995,8 @@
МодульВнешниеКомпонентыСлужебный.ПриОпределенииНастроекРегламентныхЗаданий(Настройки);
КонецЕсли;
ИнтеграцияСТехнологиейСервиса.ПриОпределенииНастроекРегламентныхЗаданий(Настройки);
КонецПроцедуры
#КонецОбласти
SSL/src/CommonModules/КалендарныеГрафики/Module.bsl
+2 -3
View File
@@ -718,7 +718,6 @@
Обработчик = Обработчики.Добавить();
Обработчик.НачальноеЗаполнение = Истина;
Обработчик.Процедура = "КалендарныеГрафики.ОбновитьПроизводственныеКалендари";
Обработчик.Версия = "1.0.0.1";
Обработчик.ОбщиеДанные = Истина;
Обработчик = Обработчики.Добавить();
@@ -743,14 +742,14 @@
Обработчик.ОбщиеДанные = Истина;
Обработчик = Обработчики.Добавить();
Обработчик.Версия = "2.4.1.1";
Обработчик.Версия = "2.4.2.119";
Обработчик.Процедура = "КалендарныеГрафики.ОбновитьДанныеПроизводственныхКалендарей";
Обработчик.РежимВыполнения = "Оперативно";
Обработчик.ОбщиеДанные = Истина;
Если Не ОбщегоНазначения.РазделениеВключено() Тогда
Обработчик = Обработчики.Добавить();
Обработчик.Версия = "2.4.1.1";
Обработчик.Версия = "2.4.2.119";
Обработчик.Процедура = "КалендарныеГрафики.ОбновитьДанныеЗависимыеОтПроизводственныхКалендарей";
Обработчик.ОчередьОтложеннойОбработки = 1;
Обработчик.ПроцедураЗаполненияДанныхОбновления = "КалендарныеГрафики.ЗаполнитьДанныеОбновленияДанныхЗависимыхОтПроизводственныхКалендарей";
SSL/src/CommonModules/НастройкаПорядкаЭлементовСлужебный/Module.bsl
+15 -9
View File
@@ -346,13 +346,7 @@
ТребуемыеОтборы.Добавить(Новый ПолеКомпоновкиДанных("Владелец"));
ТребуемыеОтборы.Добавить(Новый ПолеКомпоновкиДанных("Owner"));
Для Каждого Отбор Из НастройкиКомпоновкиДанных.Отбор.Элементы Цикл
Если ТребуемыеОтборы.Найти(Отбор.ЛевоеЗначение) <> Неопределено Тогда
Возврат Истина;
КонецЕсли;
КонецЦикла;
Возврат Ложь;
Возврат ЕстьТребуемыйОтбор(НастройкиКомпоновкиДанных.Отбор, ТребуемыеОтборы);
КонецФункции
@@ -362,8 +356,20 @@
ТребуемыеОтборы.Добавить(Новый ПолеКомпоновкиДанных("Родитель"));
ТребуемыеОтборы.Добавить(Новый ПолеКомпоновкиДанных("Parent"));
Для Каждого Отбор Из НастройкиКомпоновкиДанных.Отбор.Элементы Цикл
Если ТребуемыеОтборы.Найти(Отбор.ЛевоеЗначение) <> Неопределено Тогда
Возврат ЕстьТребуемыйОтбор(НастройкиКомпоновкиДанных.Отбор, ТребуемыеОтборы);
КонецФункции
Функция ЕстьТребуемыйОтбор(КоллекцияОтборов, ТребуемыеОтборы)
Для Каждого Отбор Из КоллекцияОтборов.Элементы Цикл
Если ТипЗнч(Отбор) = Тип("ГруппаЭлементовОтбораКомпоновкиДанных") Тогда
ОтборНайден = ЕстьТребуемыйОтбор(Отбор, ТребуемыеОтборы);
Иначе
ОтборНайден = ТребуемыеОтборы.Найти(Отбор.ЛевоеЗначение) <> Неопределено;
КонецЕсли;
Если ОтборНайден Тогда
Возврат Истина;
КонецЕсли;
КонецЦикла;
SSL/src/CommonModules/ОбменДаннымиXDTOСервер/Module.bsl
+8 -5
View File
@@ -289,8 +289,7 @@
КонецЕсли;
ЛитералПеревода = ?(ПустаяСтрока(КомпонентыОбмена.СтрокаСообщенияОбОшибке), "", Символы.ПС);
КомпонентыОбмена.СтрокаСообщенияОбОшибке = КомпонентыОбмена.СтрокаСообщенияОбОшибке + ЛитералПеревода + Стр;
КомпонентыОбмена.СтрокаСообщенияОбОшибке = Стр;
Если ВзвестиФлагОшибок Тогда
@@ -2311,9 +2310,10 @@
Если Не ЭтоРазделенныйОбъектМетаданных Тогда
СтрокаСообщенияОбОшибке = НСтр("ru = 'Попытка изменение неразделенных данных (%1) в разделенном режиме.'");
СтрокаСообщенияОбОшибке = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаСообщенияОбОшибке, Объект.Метаданные().ПолноеИмя());
СтрокаСообщенияОбОшибке = НСтр("ru = 'Попытка изменения неразделенных данных (%1: %2) в разделенном режиме.'");
СтрокаСообщенияОбОшибке = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаСообщенияОбОшибке,
Объект.Метаданные().ПолноеИмя(), Строка(Объект));
КомпонентыОбмена.СостояниеОбменаДанными.РезультатВыполненияОбмена = Перечисления.РезультатыВыполненияОбмена.ВыполненоСПредупреждениями;
ЗаписатьВПротоколВыполнения(КомпонентыОбмена, СтрокаСообщенияОбОшибке,, Ложь);
@@ -3873,7 +3873,9 @@
КонецЕсли;
Если НомерЭтапа = 2 И ТЧ.ИспользуетсяАлгоритмКонвертации
И ЗначениеЗаполнено(ТЧ.ТЧКонфигурации)
И ПолученныеДанные.ДополнительныеСвойства.Свойство(ТЧ.ТЧКонфигурации) Тогда
МассивСтруктурСДаннымиСтрок = ПолученныеДанные.ДополнительныеСвойства[ТЧ.ТЧКонфигурации];
КоличествоСтрокТЧКонфигурации = ПолученныеДанные[ТЧ.ТЧКонфигурации].Количество();
@@ -3906,6 +3908,7 @@
КонецЦикла;
КонецЦикла;
КонецЕсли;
КонецЦикла;
SSL/src/CommonModules/ОбменДаннымиКлиент/Module.bsl
+2 -1
View File
@@ -384,7 +384,8 @@
Возврат;
КонецЕсли;
Если Не ПараметрыРаботыКлиента.Свойство("ОткрытьПомощникСозданияОбменаДаннымиДляНастройкиПодчиненногоУзла")
Если Не ПараметрыРаботыКлиента.ЭтоГлавныйУзел
И Не ПараметрыРаботыКлиента.Свойство("ОткрытьПомощникСозданияОбменаДаннымиДляНастройкиПодчиненногоУзла")
И ПараметрыРаботыКлиента.Свойство("ПроверитьНеобходимостьОбновленияКонфигурацииПодчиненногоУзла") Тогда
ПодключитьОбработчикОжидания("ПроверитьНеобходимостьОбновленияКонфигурацииПодчиненногоУзлаПриЗапуске", 1, Истина);
SSL/src/CommonModules/ОбменДаннымиСервер/Module.bsl
+28 -25
View File
@@ -2726,15 +2726,12 @@
// См. ОбновлениеИнформационнойБазыБСП.ПриДобавленииОбработчиковОбновления.
Процедура ПриДобавленииОбработчиковОбновления(Обработчики) Экспорт
Если ПолучитьФункциональнуюОпцию("ИспользоватьСинхронизациюДанных")
Или ОбщегоНазначения.РазделениеВключено() Тогда
Обработчик = Обработчики.Добавить();
Обработчик.Версия = "*";
Обработчик.Приоритет = 1;
Обработчик.ОбщиеДанные = Истина;
Обработчик.МонопольныйРежим = Ложь;
Обработчик.Процедура = "ОбменДаннымиСервер.ВыполнитьОбновлениеПравилДляОбменаДанными";
КонецЕсли;
Обработчик = Обработчики.Добавить();
Обработчик.Версия = "*";
Обработчик.Приоритет = 1;
Обработчик.ОбщиеДанные = Истина;
Обработчик.МонопольныйРежим = Ложь;
Обработчик.Процедура = "ОбменДаннымиСервер.ВыполнитьОбновлениеПравилДляОбменаДанными";
Обработчик = Обработчики.Добавить();
Обработчик.Версия = "1.1.1.2";
@@ -2998,14 +2995,14 @@
//
Процедура ВыполнитьОбновлениеПравилДляОбменаДанными() Экспорт
Если Не Константы.ИспользоватьСинхронизациюДанных.Получить()
// Для сценария, когда в конфигурации был удален или переименован план обмена.
УдалитьНеактуальныеЗаписиВРегистреПравилДляОбменаДанными();
Если Не ПолучитьФункциональнуюОпцию("ИспользоватьСинхронизациюДанных")
И Не ОбщегоНазначения.РазделениеВключено() Тогда
Возврат;
КонецЕсли;
// Для сценария, когда в конфигурации был удален или переименован план обмена.
УдалитьНеактуальныеЗаписиВРегистреПравилДляОбменаДанными();
ПравилаОбменаЗагруженныеИзФайла = Новый Массив;
ПравилаРегистрацииЗагруженныеИзФайла = Новый Массив;
@@ -3313,7 +3310,7 @@
И ОбменДаннымиВызовСервера.ТребуетсяУстановкаОбновления();
Пока Выборка.Следующий() Цикл
ОтказПоСтрокеСценария = Ложь;
Если ЭтоПодчиненныйУзелРИБТребующийУстановкиОбновления
И ОбменДаннымиПовтИсп.ЭтоУзелРаспределеннойИнформационнойБазы(Выборка.УзелИнформационнойБазы) Тогда
// Обмен по расписанию не выполняется.
@@ -3326,13 +3323,13 @@
КоличествоЭлементовВТранзакции = КоличествоЭлементовВТранзакцииВыполняемогоДействия(Выборка.ВыполняемоеДействие);
ВыполнитьДействиеОбменаДляУзлаИнформационнойБазыПоВнешнемуСоединению(Отказ, Выборка.УзелИнформационнойБазы, Выборка.ВыполняемоеДействие, КоличествоЭлементовВТранзакции);
ВыполнитьДействиеОбменаДляУзлаИнформационнойБазыПоВнешнемуСоединению(ОтказПоСтрокеСценария, Выборка.УзелИнформационнойБазы, Выборка.ВыполняемоеДействие, КоличествоЭлементовВТранзакции);
ИначеЕсли Выборка.ОбменЧерезВебСервис Тогда
ПараметрыОбмена = ПараметрыОбмена();
ВыполнитьДействиеОбменаДляУзлаИнформационнойБазыЧерезWebСервис(Выборка.УзелИнформационнойБазы,
Выборка.ВыполняемоеДействие, ПараметрыОбмена, Отказ);
Выборка.ВыполняемоеДействие, ПараметрыОбмена, ОтказПоСтрокеСценария);
Иначе
@@ -3342,7 +3339,7 @@
// Если настройка содержит ошибки, то обмен не производим; статус "Отменено".
Если СтруктураНастроекОбмена.Отказ Тогда
Отказ = Истина;
ОтказПоСтрокеСценария = Истина;
// Фиксируем в ЖР лог по обмену данными.
ЗафиксироватьЗавершениеОбмена(СтруктураНастроекОбмена);
@@ -3365,12 +3362,14 @@
Если Не РезультатВыполненияОбменаВыполнено(СтруктураНастроекОбмена.РезультатВыполненияОбмена) Тогда
Отказ = Истина;
ОтказПоСтрокеСценария = Истина;
КонецЕсли;
КонецЕсли;
Если ОтказПоСтрокеСценария Тогда
Отказ = Истина;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
@@ -5971,7 +5970,11 @@
Файл = Новый Файл(ИмяФайла);
ИмяФайлаРезультата = ОбщегоНазначенияКлиентСервер.ПолучитьПолноеИмяФайла(КаталогВременныхФайлов(), Файл.Имя);
ВременныйКаталог = ПолучитьИмяВременногоФайла();
СоздатьКаталог(ВременныйКаталог);
ИмяФайлаРезультата = ОбщегоНазначенияКлиентСервер.ПолучитьПолноеИмяФайла(ВременныйКаталог, Файл.Имя);
ПереместитьФайл(ИмяФайла, ИмяФайлаРезультата);
Попытка
@@ -8197,7 +8200,7 @@
Функция КоличествоПроблемОбменаДанными(УзлыОбмена = Неопределено)
Возврат РегистрыСведений.РезультатыОбменаДанными.КоличествоПроблем(УзлыОбмена);
Возврат РегистрыСведений.РезультатыОбменаДанными.КоличествоПроблем(УзлыОбмена, Неопределено);
КонецФункции
@@ -12130,11 +12133,11 @@
КонецЕсли;
Для Каждого Движение Из МетаданныеДокумента.Движения Цикл
// В запросе получаем имена регистров, по которым есть хотя бы одно движение
// например,
// ВЫБРАТЬ Первые 1 «РегистрНакопления.ТоварыНаСкладах»
// В запросе получаем имена регистров, по которым есть хотя бы одно движение.
// Например,
// ВЫБРАТЬ ПЕРВЫЕ 1 "РегистрНакопления.ТоварыНаСкладах"
// ИЗ РегистрНакопления.ТоварыНаСкладах
// ГДЕ Регистратор = &Регистратор
// ГДЕ Регистратор = &Регистратор.
// Имя регистра приводим к Строка(200), см. ниже.
ТекстЗапроса = ТекстЗапроса + "
SSL/src/CommonModules/ОбменДаннымиСобытия/Module.bsl
+6 -11
View File
@@ -986,7 +986,12 @@
Исключение
ЗаписьЖурналаРегистрации(НСтр("ru = 'Обмен данными.Правила регистрации объектов'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()),
УровеньЖурналаРегистрации.Ошибка,,, ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()));
ОбработатьОшибкуПравилРегистрации(ИмяПланаОбмена);
ТекстСообщенияДляПользователя = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Ошибка в правилах регистрации объекта: %1. Подробнее см. в журнале регистрации.'"),
ИмяПланаОбмена);
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщенияДляПользователя);
Отказ = Истина;
КонецПопытки;
@@ -2856,16 +2861,6 @@
КонецФункции
Процедура ОбработатьОшибкуПравилРегистрации(ИмяПланаОбмена)
Если ОбновлениеИнформационнойБазы.ВыполняетсяОбновлениеИнформационнойБазы()
И РегистрыСведений.ПравилаДляОбменаДанными.ИспользуютсяПравилаИзФайла(ИмяПланаОбмена) Тогда
ТекстСообщения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку("ОбменДанными=%1", ИмяПланаОбмена);
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
КонецЕсли;
КонецПроцедуры
// Создает новый экземпляр объекта Структура, заполняет объект данными указанной структуры.
//
// Параметры:
SSL/src/CommonModules/ОбновлениеИнформационнойБазы/Module.bsl
+9 -17
View File
@@ -1466,17 +1466,11 @@
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
|ВЫБРАТЬ ПЕРВЫЕ 500
| &ТекстВыборкиИзмерений
|ПОМЕСТИТЬ #ВТДляОбработкиИзмерения
|ИЗ
| ВТДляОбработкиИзмеренияПолная КАК ТаблицаИзменений
|ГДЕ
| &ТекстУсловияОтбораПорции В
| (ВЫБРАТЬ ПЕРВЫЕ 500
| &ТекстВыборкиИзмерений
| ИЗ
| ВТДляОбработкиИзмеренияПолная КАК ТаблицаИзменений)
|;
|
|////////////////////////////////////////////////////////////////////////////////
@@ -1505,7 +1499,6 @@
КонецЕсли;
ТекстВыборкиИзмерений = "";
ТекстУсловияСоединенияИзмерений = "ИСТИНА";
ТекстУсловияОтбораПорции = "";
ПервоеИзмерение = Истина;
РегистрПериодический =
@@ -1519,9 +1512,6 @@
ТекстВыборкиИзмерений = ТекстВыборкиИзмерений + "
| ТаблицаИзменений." + Измерение.Имя + " КАК " + Измерение.Имя + ",";
ТекстУсловияОтбораПорции = ТекстУсловияОтбораПорции + "
| ТаблицаИзменений." + Измерение.Имя + ",";
ТекстУсловияСоединенияИзмерений = ТекстУсловияСоединенияИзмерений + "
| И ТаблицаИзменений." + Измерение.Имя + " = ВТЗаблокированоИзмерения." + Измерение.Имя + "
| ИЛИ ТаблицаИзменений." + Измерение.Имя + " = &ПустоеЗначениеИзмерения"+ Измерение.Имя + "
@@ -1534,8 +1524,6 @@
Если РегистрПериодический Тогда
ТекстВыборкиИзмерений = ТекстВыборкиИзмерений + "
| ТаблицаИзменений.Период КАК Период,";
ТекстУсловияОтбораПорции = ТекстУсловияОтбораПорции + "
| ТаблицаИзменений.Период,";
КонецЕсли;
ПервоеИзмерение = Ложь;
@@ -1543,8 +1531,6 @@
КонецЦикла;
ТекстВыборкиИзмерений = Лев(ТекстВыборкиИзмерений, СтрДлина(ТекстВыборкиИзмерений) - 1);
ТекстУсловияОтбораПорции = Лев(ТекстУсловияОтбораПорции, СтрДлина(ТекстУсловияОтбораПорции) - 1);
ТекстУсловияОтбораПорции = "("+ТекстУсловияОтбораПорции+")";
Если ПустаяСтрока(ДополнительныеПараметры.ИмяВременнойТаблицы) Тогда
ИмяВременнойТаблицы = "ВТДляОбработки" + ИмяОбъекта;
@@ -1558,7 +1544,6 @@
ТекстЗапроса = СтрЗаменить(ТекстЗапроса,"#ТаблицаОбъектаИзменения", ПолноеИмяОбъекта + ".Изменения");
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "#ВТЗаблокированоИзмерения","ВТЗаблокировано" + ИмяОбъекта);
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "#ВТДляОбработкиИзмерения",ИмяВременнойТаблицы);
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&ТекстУсловияОтбораПорции",ТекстУсловияОтбораПорции);
СоздатьВременнуюТаблицуЗаблокированныхДляЧтенияИИзмененияДанных(Очередь, ПолноеИмяОбъекта, МенеджерВременныхТаблиц);
ДобавитьПроверкуБлокировкиДополнительныхИсточниковДляНезависимогоРегистра(Очередь,
@@ -1648,6 +1633,8 @@
ПолноеИмяОбъекта = ОбрабатываемыйТип;
КонецЕсли;
ИмяОбъекта = СтрРазделить(ПолноеИмяОбъекта,".",Ложь)[1];
УсловиеОтбораДанных = "ИСТИНА";
Если ОбщегоНазначения.ЭтоОбъектСсылочногоТипа(МетаданныеОбъекта) Тогда
@@ -1656,9 +1643,12 @@
| ТаблицаИзменений.Ссылка КАК Ссылка
|ИЗ
| #ТаблицаИзменений КАК ТаблицаИзменений
| ЛЕВОЕ СОЕДИНЕНИЕ #ТаблицаОбъекта КАК #ИмяОбъекта
| ПО #ИмяОбъекта.Ссылка = ТаблицаИзменений.Ссылка
|ГДЕ
| &УсловиеОтбораУзла
| И &УсловиеОтбораДанных";
| И &УсловиеОтбораДанных
| И НЕ #ИмяОбъекта.Ссылка ЕСТЬ NULL";
Запрос.УстановитьПараметр("Ссылка", Отбор);
@@ -1739,6 +1729,8 @@
КонецЕсли;
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "#ТаблицаИзменений", ПолноеИмяОбъекта + ".Изменения");
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "#ТаблицаОбъекта", ПолноеИмяОбъекта);
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "#ИмяОбъекта", ИмяОбъекта);
ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&УсловиеОтбораДанных", УсловиеОтбораДанных);
ТекстыЗапроса.Добавить(ТекстЗапроса);
SSL/src/CommonModules/ОбновлениеИнформационнойБазыБСП/Module.bsl
+1 -1
View File
@@ -32,7 +32,7 @@
Процедура ПриДобавленииПодсистемы(Описание) Экспорт
Описание.Имя = "СтандартныеПодсистемы";
Описание.Версия = "2.4.1.84";
Описание.Версия = "2.4.2.164";
Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно";
Описание.ПараллельноеОтложенноеОбновлениеСВерсии = "2.3.3.0";
SSL/src/CommonModules/ОбновлениеИнформационнойБазыСлужебный/Module.bsl
+11 -11
View File
@@ -287,11 +287,6 @@
ОбновитьПовторноИспользуемыеЗначения();
Если ОбщегоНазначения.РазделениеВключено()
И ОбщегоНазначения.ДоступноИспользованиеРазделенныхДанных() Тогда
ПараметрыСеанса.ВыполняетсяОбновлениеИБ = Ложь;
КонецЕсли;
УстановитьПривилегированныйРежим(Истина);
ПараметрЗапускаКлиента = ПараметрыСеанса.ПараметрыКлиентаНаСервере.Получить("ПараметрЗапуска");
Если СтрНайти(НРег(ПараметрЗапускаКлиента), НРег("ЗапуститьОбновлениеИнформационнойБазы")) > 0 Тогда
@@ -300,6 +295,9 @@
УстановитьПривилегированныйРежим(Ложь);
УстановитьЗапускОбновленияИнформационнойБазы(Ложь);
Если Не ПараметрыОбновления.ПриЗапускеКлиентскогоПриложения Тогда
ПараметрыСеанса.ВыполняетсяОбновлениеИБ = Ложь;
КонецЕсли;
Возврат "Успешно";
@@ -4396,6 +4394,7 @@
ПланОбновления = Новый Массив;
ЕстьОбработчикиТолькоГлавногоУзла = Ложь;
СведенияОБлокируемыхОбъектах = НовыеСведенияОБлокируемыхОбъектах();
Для Каждого Подсистема Из ОписанияПодсистем.Порядок Цикл
ИмяКоллекции = "";
@@ -4416,7 +4415,6 @@
Итерация = 1;
СоздаватьНовуюИтерацию = Истина;
ПропуститьПроверку = Ложь;
СведенияОБлокируемыхОбъектах = НовыеСведенияОБлокируемыхОбъектах();
Для Каждого ДеревоОбработчиковВерсия Из ДеревоОбработчиковБиблиотека.Строки Цикл
ЗаполнитьБлокируемыеОбъекты(ДеревоОбработчиковВерсия, СведенияОбОбновленииИБ, СведенияОБлокируемыхОбъектах);
@@ -4856,14 +4854,16 @@
КонецЕсли;
ЕстьДанныеДляРегистрации = Истина;
// Установка признака начала выполнения обработчика.
ОписаниеПроцедуры.Статус = "Выполняется";
ОписаниеПроцедуры.Статус = "Выполняется"; // Установка признака начала выполнения обработчика.
ЗаписатьСведенияОбОбновленииИнформационнойБазы(СведенияОбОбновлении);
Прервать;
КонецЦикла;
ЗаписатьСведенияОбОбновленииИнформационнойБазы(СведенияОбОбновлении);
ЗафиксироватьТранзакцию();
Если ЕстьДанныеДляРегистрации Тогда
ЗафиксироватьТранзакцию();
Иначе
ОтменитьТранзакцию();
КонецЕсли;
Исключение
ОтменитьТранзакцию();
ВызватьИсключение;
SSL/src/CommonModules/ОбновлениеКонфигурацииКлиент/Module.bsl
+49 -8
View File
@@ -164,14 +164,30 @@
Если СтандартныеПодсистемыКлиент.ПараметрыРаботыКлиента().ЭтоБазоваяВерсияКонфигурации Тогда
Если Не ПустаяСтрока(КаталогСкрипта) Тогда
Если ПустаяСтрока(КаталогСкрипта) Тогда
ЖурналРегистрацииКлиент.ДобавитьСообщениеДляЖурналаРегистрации(СобытиеЖурналаРегистрации(),
"Предупреждение",
НСтр("ru = 'Обновление выполнено с очень старой версии программы.
|Данные журнала обновления не были загружены, но сам журнал
|можно найти в папке временных файлов %temp% -
|в папке вида 1Cv8Update.<xxxxxxxx>(цифры).'"),
,
Истина);
РезультатОбновления = Истина; // считаем обновление успешным.
Иначе
ЖурналРегистрацииКлиент.ДобавитьСообщениеДляЖурналаРегистрации(СобытиеЖурналаРегистрации(),
"Информация",
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Папка с журналом обновления расположена %1'"), КаталогСкрипта),
,
Истина);
ПрочитатьДанныеВЖурналРегистрации(РезультатОбновления, КаталогСкрипта);
КонецЕсли;
КонецЕсли;
РезультатОбновления = Неопределено;
КонецПроцедуры
#КонецОбласти
@@ -339,8 +355,22 @@
СтрокаПутиКИнформационнойБазе = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(СтрЗаменить(СтрокаПутиКИнформационнойБазе, """", "")) + "1Cv8.1CD";
АдресЭлектроннойПочты = ?(Параметры.РежимОбновления = 2 И Параметры.ВыслатьОтчетНаПочту, Параметры.АдресЭлектроннойПочты, "");
КаталогРезервнойКопии = ?(Параметры.СоздаватьРезервнуюКопию = 2, ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(Параметры.ИмяКаталогаРезервнойКопииИБ), "");
СоздаватьРезервнуюКопию = ЭтоФайловаяБаза И Параметры.СоздаватьРезервнуюКопию <> 0;
// Вызов КаталогВременныхФайлов вместо ПолучитьИмяВременногоФайла, так как каталог не должен удаляться
// автоматически при завершении клиентского приложения.
// В него сохраняются исполняемые файлы, лог выполнения и резервная копия, при определенной настройке.
КаталогВременныхФайловОбновления = КаталогВременныхФайлов() + "1Cv8Update." + Формат(ОбщегоНазначенияКлиент.ДатаСеанса(), "ДФ=ггММддЧЧммсс") + "\";
Если Параметры.СоздаватьРезервнуюКопию = 1 Тогда
КаталогРезервнойКопии = КаталогВременныхФайловОбновления;
ИначеЕсли Параметры.СоздаватьРезервнуюКопию = 2 Тогда
КаталогРезервнойКопии = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(Параметры.ИмяКаталогаРезервнойКопииИБ);
Иначе
КаталогРезервнойКопии = "";
КонецЕсли;
СоздаватьРезервнуюКопию = ЭтоФайловаяБаза И (Параметры.СоздаватьРезервнуюКопию = 1 Или Параметры.СоздаватьРезервнуюКопию = 2);
ВыполнитьОтложенныеОбработчики = Ложь;
ТекстыМакетов = ОбновлениеКонфигурацииВызовСервера.ТекстыМакетов(ИнтерактивныйРежим,
@@ -370,7 +400,7 @@
ТекстыМакетов.МакетФайлаОбновленияКонфигурации = ОбластьПараметров + ТекстыМакетов.МакетФайлаОбновленияКонфигурации;
ТекстыМакетов.Удалить("ОбластьПараметров");
Возврат СоздатьФайлыСкрипта(ТекстыМакетов, ИнтерактивныйРежим);
Возврат СоздатьФайлыСкрипта(КаталогВременныхФайловОбновления, ТекстыМакетов, ИнтерактивныйРежим);
#КонецЕсли
КонецФункции
@@ -417,9 +447,8 @@
Возврат "'" + Текст + "'";
КонецФункции
Функция СоздатьФайлыСкрипта(ТекстыМакетов, ИнтерактивныйРежим)
Функция СоздатьФайлыСкрипта(КаталогВременныхФайловОбновления, ТекстыМакетов, ИнтерактивныйРежим)
КаталогВременныхФайловОбновления = КаталогВременныхФайлов() + "1Cv8Update." + Формат(ОбщегоНазначенияКлиент.ДатаСеанса(), "ДФ=ггММддЧЧммсс") + "\";
СоздатьКаталог(КаталогВременныхФайловОбновления);
ФайлСкрипта = Новый ТекстовыйДокумент;
@@ -783,6 +812,9 @@
Процедура ПрочитатьДанныеВЖурналРегистрации(РезультатОбновления, КаталогСкрипта)
РезультатОбновления = Неопределено;
ПриОбновленииПроизошлаОшибка = Ложь;
МассивФайлов = НайтиФайлы(КаталогСкрипта, "log*.txt");
Если МассивФайлов.Количество() = 0 Тогда
@@ -810,6 +842,7 @@
ДатаСобытия = Дата(МассивДаты[2], МассивДаты[1], МассивДаты[0], МассивВремени[0], МассивВремени[1], МассивВремени[2]);
Если МассивСтроки[2] = "{ERR}" Тогда
ПредставлениеУровня = "Ошибка";
ПриОбновленииПроизошлаОшибка = Истина;
КонецЕсли;
Комментарий = СокрЛП(Сред(ТекущаяСтрока, СтрНайти(ТекущаяСтрока, "}") + 2));
@@ -831,6 +864,14 @@
КонецЦикла;
// Если обновление выполнялось с версии БСП ниже 2.3.1.6, то записей лога
// - "Обновление выполнено"
// - "Обновление не выполнено"
// может не быть, потому будем опираться на то - происходили ли ошибки в ходе обновления.
Если РезультатОбновления = Неопределено Тогда
РезультатОбновления = Не ПриОбновленииПроизошлаОшибка;
КонецЕсли;
ЗаписатьСобытияВЖурналРегистрации();
КонецПроцедуры
SSL/src/CommonModules/ОбщегоНазначения/Module.bsl
+4 -5
View File
@@ -184,12 +184,10 @@
Запрос.УстановитьПараметр("МассивСсылок", МассивСсылок);
Выборка = Запрос.Выполнить().Выбрать();
Для Каждого Ссылка Из МассивСсылок Цикл
ЗначенияРеквизитов.Вставить(Ссылка, Новый Структура(ИменаРеквизитов));
КонецЦикла;
Пока Выборка.Следующий() Цикл
ЗаполнитьЗначенияСвойств(ЗначенияРеквизитов[Выборка.Ссылка], Выборка);
Результат = Новый Структура(ИменаРеквизитов);
ЗаполнитьЗначенияСвойств(Результат, Выборка);
ЗначенияРеквизитов[Выборка.Ссылка] = Результат;
КонецЦикла;
Возврат ЗначенияРеквизитов;
@@ -621,6 +619,7 @@
УстановитьПривилегированныйРежим(Истина);
МестаИспользования = НайтиПоСсылкам(НаборСсылок);
УстановитьПривилегированныйРежим(Ложь);
МестаИспользования.Колонки.Добавить("ПредставлениеДанных", Новый ОписаниеТипов("Строка"));
МестаИспользования.Колонки.Добавить("ТипСсылки");
SSL/src/CommonModules/ОбщегоНазначенияКлиент/Module.bsl
+7 -1
View File
@@ -701,7 +701,8 @@
// * Кэшировать - Булево - (по умолчанию Истина) использовать механизм кэширования компонент на клиенте.
// * ПредложитьУстановить - Булево - (по умолчанию Истина) предлагать устанавливать и обновлять компоненту.
// * ТекстПояснения - Строка - для чего нужна компонента и что не будет работать, если ее не устанавливать
// (только для веб клиента).
// используется только для компонент, у которых есть несколько идентификаторов создания объектов,
// при задании параметр Идентификатор будет игнорироваться.
//
// Пример:
//
@@ -715,6 +716,7 @@
Параметры.Вставить("Кэшировать" , Истина);
Параметры.Вставить("ПредложитьУстановить", Истина);
Параметры.Вставить("ТекстПояснения" , "");
Параметры.Вставить("ИдентификаторыСозданияОбъектов", Новый Массив);
Возврат Параметры;
@@ -729,6 +731,9 @@
// * Результат - Структура - результат подключения компоненты:
// ** Подключено - Булево - признак подключения.
// ** ПодключаемыйМодуль - AddIn - экземпляр объекта внешней компоненты.
// - ФиксированноеСоответствие - экземпляры объектов внешней компоненты,
// указанные в ПараметрыПодключения.ИдентификаторыСозданияОбъектов,
// Ключ - Идентификатор, Значение - экземпляр объекта.
// ** ОписаниеОшибки - Строка - краткое описание ошибки. При отмене пользователем пустая строка.
// * ДополнительныеПараметры - Структура - значение, которое было указано при создании объекта ОписаниеОповещения.
// Идентификатор - Строка - идентификатор объекта внешней компоненты.
@@ -784,6 +789,7 @@
Контекст.Вставить("Кэшировать" , Параметры.Кэшировать);
Контекст.Вставить("ПредложитьУстановить", Параметры.ПредложитьУстановить);
Контекст.Вставить("ТекстПояснения" , Параметры.ТекстПояснения);
Контекст.Вставить("ИдентификаторыСозданияОбъектов", Параметры.ИдентификаторыСозданияОбъектов);
ОбщегоНазначенияСлужебныйКлиент.ПодключитьКомпоненту(Контекст);
SSL/src/CommonModules/ОбщегоНазначенияКлиентСервер/Module.bsl
+44 -4
View File
@@ -2908,7 +2908,7 @@
// В случае если распределить не удалось (сумма = 0, кол-во коэффициентов = 0,
// или суммарный вес коэффициентов = 0), тогда возвращается значение Неопределено.
//
Функция РаспределитьСуммуПропорциональноКоэффициентам(Знач РаспределяемаяСумма, Коэффициенты, Знач Точность = 2) Экспорт
Функция РаспределитьСуммуПропорциональноКоэффициентам(Знач РаспределяемаяСумма, Знач Коэффициенты, Знач Точность = 2) Экспорт
Если Коэффициенты.Количество() = 0 Или Не ЗначениеЗаполнено(РаспределяемаяСумма) Тогда
Возврат Неопределено;
@@ -2942,9 +2942,32 @@
РаспределеннаяСумма = РаспределеннаяСумма + Результат[Индекс];
КонецЦикла;
// Погрешности округления отнесем на коэффициент с максимальным весом.
Если Не РаспределеннаяСумма = РаспределяемаяСумма Тогда
Результат[ИндексМаксимальногоКоэффициента] = Результат[ИндексМаксимальногоКоэффициента] + РаспределяемаяСумма - РаспределеннаяСумма;
Дельта = РаспределяемаяСумма - РаспределеннаяСумма;
Если Дельта > 0 Тогда
// Погрешности округления отнесем на коэффициент с максимальным весом.
Если Не РаспределеннаяСумма = РаспределяемаяСумма Тогда
Результат[ИндексМаксимальногоКоэффициента] = Результат[ИндексМаксимальногоКоэффициента] + Дельта;
КонецЕсли;
ИначеЕсли Дельта < 0 Тогда
// Если распределили больше чем положено, размазываем погрешность по ближайшим максимальным весам.
ЗначениеПогрешности = 1 / Pow(10, Точность);
КоличествоЭлементовПогрешности = -Дельта / ЗначениеПогрешности;
КоэффициентыРешето = Новый Массив(Новый ФиксированныйМассив(Коэффициенты));
Для Сч = 1 По КоличествоЭлементовПогрешности Цикл
МаксимальныйКоэффициент = МаксимальноеЗначениеВМассиве(КоэффициентыРешето);
Индекс = КоэффициентыРешето.Найти(МаксимальныйКоэффициент);
Результат[Индекс] = Результат[Индекс] - ЗначениеПогрешности;
КоэффициентыРешето[Индекс] = 0;
КонецЦикла;
Иначе
// Если Дельта = 0, то все идеально.
КонецЕсли;
Возврат Результат;
@@ -3138,4 +3161,21 @@
КонецЕсли;
КонецФункции
Функция МаксимальноеЗначениеВМассиве(Массив)
МаксимальноеЗначение = 0;
Для Индекс = 0 По Массив.Количество() - 1 Цикл
Значение = Массив[Индекс];
АбсолютноеЗначение = ?(Значение > 0, Значение, -Значение);
Если МаксимальноеЗначение < АбсолютноеЗначение Тогда
МаксимальноеЗначение = АбсолютноеЗначение;
КонецЕсли;
КонецЦикла;
Возврат МаксимальноеЗначение;
КонецФункции
#КонецОбласти
SSL/src/CommonModules/ОбщегоНазначенияПереопределяемый/Module.bsl
+1 -1
View File
@@ -12,9 +12,9 @@
// будет запрашиваться, если явно не разрешить в
// персональных настройках программы.
// * МинимальнаяВерсияПлатформы - Строка - минимальная версии платформы, требуемая для запуска программы.
// Запуск программы на версии платформы ниже указанной будет невозможен.
// Например, "8.3.6.1650".
// * РекомендуемаяВерсияПлатформы - Строка - рекомендуемая версия платформы для запуска программы.
// Запуск программы на версии платформы ниже указанной будет невозможен.
// Например, "8.3.8.2137".
// * ОтключитьИдентификаторыОбъектовМетаданных - Булево - отключает заполнение справочников ИдентификаторыОбъектовМетаданных
// и ИдентификаторыОбъектовРасширений, процедуру выгрузки и загрузки в узлах РИБ.
SSL/src/CommonModules/ОбщегоНазначенияСлужебныйКлиент/Module.bsl
+24 -11
View File
@@ -70,8 +70,6 @@
|в ОбщегоНазначенияСлужебныйКлиент.УстановитьКомпоненту'"), Контекст.Местоположение);
КонецЕсли;
#Если ВебКлиент Тогда
Оповещение = Новый ОписаниеОповещения(
"УстановитьКомпонентуПослеОтветаНаВопросОбУстановке", ЭтотОбъект, Контекст);
@@ -80,12 +78,6 @@
ОткрытьФорму("ОбщаяФорма.ВопросОбУстановкеВнешнейКомпоненты",
ПараметрыФормы,,,,, Оповещение);
#Иначе
УстановитьКомпонентуНачатьУстановку(Контекст);
#КонецЕсли
КонецПроцедуры
@@ -337,10 +329,31 @@
Попытка
ПодключаемыйМодуль = Новый("AddIn." + Контекст.СимволическоеИмя + "." + Контекст.Идентификатор);
Если Контекст.ИдентификаторыСозданияОбъектов.Количество() = 0 Тогда
ПодключаемыйМодуль = Новый("AddIn." + Контекст.СимволическоеИмя + "." + Контекст.Идентификатор);
Если ПодключаемыйМодуль = Неопределено Тогда
ВызватьИсключение НСтр("ru = 'Ошибка при создании экземпляра внешней компоненты'");
КонецЕсли;
Иначе
ПодключаемыеМодули = Новый Соответствие;
Для Каждого Идентификатор Из Контекст.ИдентификаторыСозданияОбъектов Цикл
ПодключаемыйМодуль = Новый("AddIn." + Контекст.СимволическоеИмя + "." + Идентификатор);
Если ПодключаемыйМодуль = Неопределено Тогда
ВызватьИсключение НСтр("ru = 'Ошибка при создании экземпляра внешней компоненты'");
КонецЕсли;
ПодключаемыеМодули.Вставить(Идентификатор, ПодключаемыйМодуль);
КонецЦикла;
ПодключаемыйМодуль = Новый ФиксированноеСоответствие(ПодключаемыеМодули);
Если ПодключаемыйМодуль = Неопределено Тогда
ВызватьИсключение НСтр("ru = 'Ошибка при создании экземпляра внешней компоненты'");
КонецЕсли;
Исключение
SSL/src/CommonModules/ОценкаПроизводительностиКлиент/Module.bsl
+10 -6
View File
@@ -82,13 +82,17 @@
ВремяОкончания = ТекущаяУниверсальнаяДатаВМиллисекундах();
ЗавершитьЗамерВремениСлужебный(УИДЗамера, ВремяОкончания);
Замеры = ПараметрыПриложения["СтандартныеПодсистемы.ОценкаПроизводительностиЗамерВремени"]["Замеры"];
Замер = Замеры[УИДЗамера];
Если Замер <> Неопределено Тогда
ЗамерыЗавершенные = ПараметрыПриложения["СтандартныеПодсистемы.ОценкаПроизводительностиЗамерВремени"]["ЗамерыЗавершенные"];
ЗамерыЗавершенные.Вставить(УИДЗамера, Замер);
Замеры.Удалить(УИДЗамера);
ОценкаПроизводительностиЗамерВремени = ПараметрыПриложения["СтандартныеПодсистемы.ОценкаПроизводительностиЗамерВремени"];
Если ОценкаПроизводительностиЗамерВремени <> Неопределено Тогда
Замеры = ОценкаПроизводительностиЗамерВремени["Замеры"];
Замер = Замеры[УИДЗамера];
Если Замер <> Неопределено Тогда
ЗамерыЗавершенные = ПараметрыПриложения["СтандартныеПодсистемы.ОценкаПроизводительностиЗамерВремени"]["ЗамерыЗавершенные"];
ЗамерыЗавершенные.Вставить(УИДЗамера, Замер);
Замеры.Удалить(УИДЗамера);
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
SSL/src/CommonModules/ОценкаПроизводительностиСлужебный/Module.bsl
+2 -1
View File
@@ -139,7 +139,8 @@
Процедура ПервоначальноеЗаполнение() Экспорт
Если ПодсистемаСуществует("СтандартныеПодсистемы.БазоваяФункциональность") Тогда
РаботаВМоделиСервисаСуществует = ПодсистемаСуществует("СтандартныеПодсистемы.РаботаВМоделиСервиса");
Если РаботаВМоделиСервисаСуществует Тогда
МодульРаботаВМоделиСервиса = ОбщийМодуль("РаботаВМоделиСервиса");
Если МодульРаботаВМоделиСервиса.РазделениеВключено() Тогда
Возврат;
SSL/src/CommonModules/ПодключаемыеКоманды/Module.bsl
+25 -7
View File
@@ -275,7 +275,21 @@
КонецЦикла;
Менеджер = Узел[Имя];
Менеджер.ПриОпределенииНастроек(Настройки);
Попытка
Менеджер.ПриОпределенииНастроек(Настройки);
Исключение
ТекстОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Не удалось прочитать настройки объекта %1 из модуля менеджера:'"), ПолноеИмя);
ТекстОшибки = ТекстОшибки + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
ЗаписьЖурналаРегистрации(
НСтр("ru = 'Подключаемые команды'", ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка()),
УровеньЖурналаРегистрации.Ошибка,
Метаданные.НайтиПоПолномуИмени(ПолноеИмя),
ПолноеИмя,
ТекстОшибки);
Возврат Неопределено;
КонецПопытки;
Настройки.Вставить("Вид", ВидВРег);
Настройки.Вставить("ПолноеИмя", ПолноеИмя);
@@ -340,7 +354,7 @@
КонецЕсли;
КонецЦикла;
Источник.ТипСсылкиДанных = Новый ОписаниеТипов(МассивТипов);
Иначе
ИначеЕсли Не Метаданные.Обработки.Содержит(ОбъектМетаданных) И Не Метаданные.Отчеты.Содержит(ОбъектМетаданных) Тогда
Источник.ТипСсылкиДанных = Тип(Источник.Вид + "Ссылка." + ОбъектМетаданных.Имя);
КонецЕсли;
@@ -618,9 +632,9 @@
// Вид с пустой группой для команд, которые следует размещать в командной панели.
Вид = Виды.Добавить();
Вид.Имя = "КоманднаяПанель";
Вид.Имя = "КоманднаяПанель";
Вид.ИмяПодменю = "";
Вид.Порядок = 90;
Вид.Порядок = 90;
ИнтеграцияСтандартныхПодсистем.ПриОпределенииВидовПодключаемыхКоманд(Виды);
@@ -726,7 +740,11 @@
Продолжить;
КонецЕсли;
ИмяПодменюПоУмолчанию = ПрефиксГрупп + ВидКоманд.ИмяПодменю;
ИмяПодменюПоУмолчанию = "";
Если Не ПустаяСтрока(ВидКоманд.ИмяПодменю) Тогда
ИмяПодменюПоУмолчанию = ПрефиксГрупп + ВидКоманд.ИмяПодменю;
КонецЕсли;
СведенияОПодменюПоУмолчанию = БыстрыйПоискСведенийОПодменю.Получить(НРег(ИмяПодменюПоУмолчанию));
Если СведенияОПодменюПоУмолчанию = Неопределено Тогда
СведенияОПодменюПоУмолчанию = ЗарегистрироватьПодменю(Элементы, СведенияОВсехПодменю, ИмяПодменюПоУмолчанию, ВидКоманд, КоманднаяПанель);
@@ -815,11 +833,11 @@
Если Не ЭтоКоманднаяПанель Тогда
Если СведенияОПодменю.ВыведеноКоманд = 1 Тогда
// Превращение подменю в кнопку когда выведена 1 команда с коротким заголовком.
// Превращение подменю в кнопку, когда выведена 1 команда с коротким заголовком.
Если Не ЗначениеЗаполнено(КомандаФормы.Картинка) И Подменю.Вид = ВидГруппыФормы.Подменю Тогда
КомандаФормы.Картинка = Подменю.Картинка;
КонецЕсли;
Если СтрДлина(КомандаФормы.Заголовок) <= 35 Тогда
Если СтрДлина(КомандаФормы.Заголовок) <= 35 И Подменю.Отображение <> ОтображениеКнопки.Картинка Тогда
КомандаФормы.Отображение = ОтображениеКнопки.КартинкаИТекст;
Иначе
КомандаФормы.Отображение = ОтображениеКнопки.Картинка;
SSL/src/CommonModules/ПодключаемыеКомандыКлиентСервер/Module.bsl
+31 -49
View File
@@ -123,66 +123,48 @@
КонецФункции
Функция УсловияВыполняются(Условия, ЗначенияРеквизитов)
Перем Значение;
Для Каждого Условие Из Условия Цикл
ИмяРеквизита = Условие.Реквизит;
Если Не ЗначенияРеквизитов.Свойство(ИмяРеквизита, Значение) Тогда
Если Не ЗначенияРеквизитов.Свойство(ИмяРеквизита) Тогда
Продолжить;
КонецЕсли;
ПроверяемоеЗначение = Условие.Значение;
Если Условие.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно Тогда
Если Не (Значение = ПроверяемоеЗначение) Тогда
Возврат Ложь;
КонецЕсли;
ИначеЕсли Условие.ВидСравнения = ВидСравненияКомпоновкиДанных.НеРавно Тогда
Если Не (Значение <> ПроверяемоеЗначение) Тогда
Возврат Ложь;
КонецЕсли;
ИначеЕсли Условие.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке Тогда
Если Не (ПроверяемоеЗначение.Найти(Значение) <> Неопределено) Тогда
Возврат Ложь;
КонецЕсли;
ИначеЕсли Условие.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСписке Тогда
Если Не (ПроверяемоеЗначение.Найти(Значение) = Неопределено) Тогда
Возврат Ложь;
КонецЕсли;
УсловиеВыполняется = Истина;
Если Условие.ВидСравнения = ВидСравнения.Равно
Или Условие.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно Тогда
УсловиеВыполняется = ЗначенияРеквизитов[ИмяРеквизита] = Условие.Значение;
ИначеЕсли Условие.ВидСравнения = ВидСравнения.Больше
Или Условие.ВидСравнения = ВидСравненияКомпоновкиДанных.Больше Тогда
УсловиеВыполняется = ЗначенияРеквизитов[ИмяРеквизита] > Условие.Значение;
ИначеЕсли Условие.ВидСравнения = ВидСравнения.БольшеИлиРавно
Или Условие.ВидСравнения = ВидСравненияКомпоновкиДанных.БольшеИлиРавно Тогда
УсловиеВыполняется = ЗначенияРеквизитов[ИмяРеквизита] >= Условие.Значение;
ИначеЕсли Условие.ВидСравнения = ВидСравнения.Меньше
Или Условие.ВидСравнения = ВидСравненияКомпоновкиДанных.Меньше Тогда
УсловиеВыполняется = ЗначенияРеквизитов[ИмяРеквизита] < Условие.Значение;
ИначеЕсли Условие.ВидСравнения = ВидСравнения.МеньшеИлиРавно
Или Условие.ВидСравнения = ВидСравненияКомпоновкиДанных.МеньшеИлиРавно Тогда
УсловиеВыполняется = ЗначенияРеквизитов[ИмяРеквизита] <= Условие.Значение;
ИначеЕсли Условие.ВидСравнения = ВидСравнения.НеРавно
Или Условие.ВидСравнения = ВидСравненияКомпоновкиДанных.НеРавно Тогда
УсловиеВыполняется = ЗначенияРеквизитов[ИмяРеквизита] <> Условие.Значение;
ИначеЕсли Условие.ВидСравнения = ВидСравнения.ВСписке
Или Условие.ВидСравнения = ВидСравненияКомпоновкиДанных.ВСписке Тогда
УсловиеВыполняется = Условие.Значение.Найти(ЗначенияРеквизитов[ИмяРеквизита]) <> Неопределено;
ИначеЕсли Условие.ВидСравнения = ВидСравнения.НеВСписке
Или Условие.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСписке Тогда
УсловиеВыполняется = Условие.Значение.Найти(ЗначенияРеквизитов[ИмяРеквизита]) = Неопределено;
ИначеЕсли Условие.ВидСравнения = ВидСравненияКомпоновкиДанных.Заполнено Тогда
Если Не (Заполнено(Значение)) Тогда
Возврат Ложь;
КонецЕсли;
УсловиеВыполняется = ЗначениеЗаполнено(ЗначенияРеквизитов[ИмяРеквизита]);
ИначеЕсли Условие.ВидСравнения = ВидСравненияКомпоновкиДанных.НеЗаполнено Тогда
Если Не (Не Заполнено(Значение)) Тогда
Возврат Ложь;
КонецЕсли;
ИначеЕсли Условие.ВидСравнения = ВидСравненияКомпоновкиДанных.Больше Тогда
Если Не (Значение > ПроверяемоеЗначение) Тогда
Возврат Ложь;
КонецЕсли;
ИначеЕсли Условие.ВидСравнения = ВидСравненияКомпоновкиДанных.Меньше Тогда
Если Не (Значение < ПроверяемоеЗначение) Тогда
Возврат Ложь;
КонецЕсли;
ИначеЕсли Условие.ВидСравнения = ВидСравненияКомпоновкиДанных.БольшеИлиРавно Тогда
Если Не (Значение >= ПроверяемоеЗначение) Тогда
Возврат Ложь;
КонецЕсли;
ИначеЕсли Условие.ВидСравнения = ВидСравненияКомпоновкиДанных.МеньшеИлиРавно Тогда
Если Не (Значение <= ПроверяемоеЗначение) Тогда
Возврат Ложь;
КонецЕсли;
УсловиеВыполняется = Не ЗначениеЗаполнено(ЗначенияРеквизитов[ИмяРеквизита]);
КонецЕсли;
Если Не УсловиеВыполняется Тогда
Возврат Ложь;
КонецЕсли;
КонецЦикла;
Возврат Истина;
КонецФункции
Функция Заполнено(Значение, ВСлучаеНевозможностиПроверки = Истина)
Попытка
Возврат ЗначениеЗаполнено(Значение);
Исключение
Возврат ВСлучаеНевозможностиПроверки;
КонецПопытки;
КонецФункции
Процедура СкрытьПоказатьВсеПодчиненныеКнопки(ГруппаФормы, Видимость)
Для Каждого ПодчиненныйЭлемент Из ГруппаФормы.ПодчиненныеЭлементы Цикл
Если ТипЗнч(ПодчиненныйЭлемент) = Тип("ГруппаФормы") Тогда
SSL/src/CommonModules/Пользователи/Module.bsl
+2 -2
View File
@@ -1551,10 +1551,10 @@
Свойства = СвойстваПользователяИБ(Идентификатор);
Результат = Свойства <> Неопределено;
Если Результат Тогда
Свойства = НовоеОписаниеПользователяИБ();
Свойства.Роли = Новый Массив;
ПользовательИБ = Свойства.ПользовательИБ;
Иначе
Свойства = НовоеОписаниеПользователяИБ();
Свойства.Роли = Новый Массив;
ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
НСтр("ru = 'Пользователь информационной базы ""%1"" не существует.'"),
Идентификатор);
SSL/src/CommonModules/ПользователиСлужебный/Module.bsl
+42
View File
@@ -1954,6 +1954,48 @@
КонецФункции
// Для форм элементов справочников Пользователи и ВнешниеПользователи.
Функция ПодсказкаПотребоватьСменуПароляПриВходе(ДляВнешнихПользователей) Экспорт
ЭтоПолноправныйПользователь = Пользователи.ЭтоПолноправныйПользователь(, Ложь);
Подсказка = Новый Массив;
Подсказка.Добавить(НСтр("ru = 'Требования к длине и сложности пароля задаются отдельно.'"));
Подсказка.Добавить(Символы.ПС);
Если Не ЭтоПолноправныйПользователь Тогда
Подсказка.Добавить(НСтр("ru = 'За подробностями обратитесь к администратору.'"));
Возврат Новый ФорматированнаяСтрока(Подсказка);
КонецЕсли;
Подсказка.Добавить(НСтр("ru = 'См.'"));
Подсказка.Добавить(" ");
Если Не ПользователиСлужебныйПовтИсп.Настройки().ОбщиеНастройкиВхода Тогда
Подсказка.Добавить(НСтр("ru = 'Параметры информационной базы в конфигураторе в меню Администрирование.'"));
Возврат Новый ФорматированнаяСтрока(Подсказка);
КонецЕсли;
Если ДляВнешнихПользователей Тогда
Ссылка = НСтр("ru = 'Настройки входа внешних пользователей'");
Иначе
Ссылка = НСтр("ru = 'Настройки входа пользователей'");
КонецЕсли;
Подсказка.Добавить(Новый ФорматированнаяСтрока(Ссылка,,,, "НастройкиВходаПользователей"));
Если Метаданные.Подсистемы.Найти("Администрирование") <> Неопределено Тогда
Подсказка.Добавить(" ");
Подсказка.Добавить(НСтр("ru = 'в разделе Администрирование,
|пункт Настройки прав и пользователей.'"));
Иначе
Подсказка.Добавить(".");
КонецЕсли;
Возврат Новый ФорматированнаяСтрока(Подсказка);
КонецФункции
////////////////////////////////////////////////////////////////////////////////
// Процедуры и функции работы с пользователями.
SSL/src/CommonModules/ПрефиксацияОбъектовКлиентСервер/Module.bsl
+2 -2
View File
@@ -43,8 +43,8 @@
ПрефиксИнформационнойБазы = Лев(НомерОбъекта, 2);
КонецЕсли;
ПрефиксОрганизации = СтрЗаменить(ПрефиксОрганизации, "0", "");
ПрефиксИнформационнойБазы = СтрЗаменить(ПрефиксИнформационнойБазы, "0", "");
ПрефиксОрганизации = СтроковыеФункцииКлиентСервер.УдалитьПовторяющиесяСимволы(ПрефиксОрганизации, "0");
ПрефиксИнформационнойБазы = СтроковыеФункцииКлиентСервер.УдалитьПовторяющиесяСимволы(ПрефиксИнформационнойБазы, "0");
// Добавляем префикс организации.
Если Не УдалитьПрефиксОрганизации Тогда
SSL/src/CommonModules/ПроверкаКонтрагентов/Module.bsl
-5733
View File
File diff suppressed because it is too large. Load diff
SSL/src/CommonModules/ПроверкаКонтрагентов/ПроверкаКонтрагентов.mdo
-11
View File
@@ -1,11 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonModule xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="a05fdefd-c0c6-4069-bb05-3fcd22819289">
<name>ПроверкаКонтрагентов</name>
<synonym>
<key>ru</key>
<value>Проверка контрагентов (сервер)</value>
</synonym>
<server>true</server>
<externalConnection>true</externalConnection>
<clientOrdinaryApplication>true</clientOrdinaryApplication>
</mdclass:CommonModule>
SSL/src/CommonModules/ПроверкаКонтрагентовВызовСервера/Module.bsl
-275
View File
@@ -1,275 +0,0 @@
#Область ПрограммныйИнтерфейс
// Запуск фонового задания по проверке контрагента в карточке контрагента.
// Запускается при редактировании реквизитов внутри карточки контрагента.
//
// Параметры:
// ПараметрыЗапуска - Структура - Параметры запуска фонового задания. Ключи:
// "Контрагент"
// "ИНН"
// "КПП"
// "СохранятьРезультатСразуПослеПроверки"
// "АдресХранилища"
Процедура ПроверитьКонтрагентаПриИзменении(ПараметрыЗапуска) Экспорт
Попытка
Параметры = Новый Массив;
Параметры.Добавить(ПараметрыЗапуска);
ФоновыеЗадания.Выполнить("ПроверкаКонтрагентов.ПроверитьКонтрагентаФоновоеЗадание",
Параметры,, НСтр("ru = 'Проверка контрагента'"));
Исключение
// Исключение возникнет в случае запуска фонового задания с таким же ключем.
// Специальной обработки не требуется.
КодОсновногоЯзыка = ОбщегоНазначенияКлиентСервер.КодОсновногоЯзыка(); // Для записи события в журнал регистрации.
ИнформацияОбОшибке = ИнформацияОбОшибке();
ЗаписьЖурналаРегистрации(НСтр("ru = 'Проверка контрагентов.Запуск проверки при изменении реквизитов контрагентов'", КодОсновногоЯзыка),
УровеньЖурналаРегистрации.Ошибка,,,ПодробноеПредставлениеОшибки(ИнформацияОбОшибке));
КонецПопытки;
КонецПроцедуры
// Определяет, завершилось ли фоновое задание.
//
// Параметры:
// ИдентификаторЗадания - УникальныйИдентификатор - Идентификатор фонового задания по проверке контрагента.
// Возвращаемое значение:
// Булево - Истина, если фоновое задание завершилось.
//
Функция ЗаданиеВыполнено(Знач ИдентификаторЗадания) Экспорт
Возврат ДлительныеОперации.ЗаданиеВыполнено(ИдентификаторЗадания);
КонецФункции
#Область ПроцедурыПовтИсп
// Определение цветов выделения результатов проверки контрагентов.
//
// Возвращаемое значение:
// Структура - Имена ключей - это названия цветов, которые необходимо определить.
// Список ключей см ПроверкаКонтрагентовВызовСервераПовтИсп.ЦветаРезультатовПроверки().
Функция ЦветаРезультатовПроверки() Экспорт
Возврат ПроверкаКонтрагентовВызовСервераПовтИсп.ЦветаРезультатовПроверки();
КонецФункции
// Проверяет, что проверка включена и есть необходимые права.
// Возвращаемое значение:
// Булево - Истина, если есть нужные права на проверку и проверка включена.
//
Функция ИспользованиеПроверкиВозможно() Экспорт
Возврат ПроверкаКонтрагентовВызовСервераПовтИсп.ИспользованиеПроверкиВозможно();
КонецФункции
#КонецОбласти
#Область ОпределениеСостоянияКонтрагента
// На основе результата предыдущей проверки (записи в регистр) определяет,
// существует ли контрагент.
//
// Параметры:
// КонтрагентСсылка - ОпределяемыйТип.Контрагент - Проверяемый контрагент.
// ИНН - Строка - ИНН контрагента.
// КПП - Строка - КПП контрагента.
// Возвращаемое значение:
// Булево - Истина, если контрагент существует.
//
Функция КонтрагентСуществует(КонтрагентСсылка, ИНН, КПП) Экспорт
КонтрагентСуществует = Истина;
// Получаем состояние контрагента из регистра сведений.
Состояние = ТекущееСохраненноеСостояниеКонтрагента(КонтрагентСсылка, ИНН, КПП);
// По состоянию определяем, существует ли контрагент или нет.
КонтрагентСуществует = ПроверкаКонтрагентовКлиентСерверПовтИсп.ЭтоСостояниеДействующегоКонтрагента(Состояние);
Возврат КонтрагентСуществует;
КонецФункции
// Получает состояние контрагента из регистра сведений.
//
// Параметры:
// КонтрагентСсылка - ОпределяемыйТип.Контрагент - Проверяемый контрагент.
// ИНН - Строка - ИНН контрагента.
// КПП - Строка - КПП контрагента.
// Возвращаемое значение:
// ПеречислениеСсылка.СостоянияСуществованияКонтрагента - Состояние контрагента.
//
Функция ТекущееСохраненноеСостояниеКонтрагента(КонтрагентСсылка, ИНН, КПП) Экспорт
Если ЗначениеЗаполнено(КонтрагентСсылка) Тогда
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ
| СостоянияКонтрагентов.Состояние
|ИЗ
| РегистрСведений.СостоянияКонтрагентов КАК СостоянияКонтрагентов
|ГДЕ
| СостоянияКонтрагентов.Контрагент = &Контрагент
| И СостоянияКонтрагентов.ИНН = &ИНН
| И СостоянияКонтрагентов.КПП = &КПП";
Запрос.УстановитьПараметр("ИНН", ИНН);
Запрос.УстановитьПараметр("КПП", КПП);
Запрос.УстановитьПараметр("Контрагент", КонтрагентСсылка);
РезультатЗапроса = Запрос.Выполнить().Выбрать();
// Определяем состояние из регистра.
Пока РезультатЗапроса.Следующий() Цикл
Состояние = РезультатЗапроса.Состояние;
КонецЦикла;
КонецЕсли;
Возврат Состояние;
КонецФункции
// Определяет, завершилось ли фоновое задание по проверке контрагента в карточке контрагента.
//
// Параметры:
// ИдентификаторЗадания - УникальныйИдентификатор - Идентификатор фонового задания по проверке контрагента.
// Возвращаемое значение:
// Булево - Истина, если фоновое задание завершилось.
//
Функция ПроверкаКонтрагентовЗавершилась(Знач ИдентификаторЗадания) Экспорт
Если НЕ ЗначениеЗаполнено(ИдентификаторЗадания) Тогда
Возврат Истина;
КонецЕсли;
Задание = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(ИдентификаторЗадания);
Если Задание <> Неопределено
И Задание.Состояние = СостояниеФоновогоЗадания.Активно Тогда
Возврат Ложь;
КонецЕсли;
ОперацияНеВыполнена = Истина;
Если Задание = Неопределено Тогда
Возврат Истина;
Иначе
Если Задание.Состояние = СостояниеФоновогоЗадания.ЗавершеноАварийно Тогда
Возврат Истина;
ИначеЕсли Задание.Состояние = СостояниеФоновогоЗадания.Отменено Тогда
Возврат Истина;
Иначе
Возврат Истина;
КонецЕсли;
КонецЕсли;
КонецФункции
#КонецОбласти
#Область НастройкиПроверки
// Запоминает, что больше не нужно показывать предложение использовать сервис.
//
Процедура ЗапомнитьЧтоБольшеНеНужноПоказыватьПредложениеИспользоватьСервис() Экспорт
УстановитьПривилегированныйРежим(Истина);
ПроверкаКонтрагентов.ВключитьВыключитьПроверкуКонтрагентов(Ложь);
КонецПроцедуры
// Выполняет действия при включении и отключении проверки.
//
// Параметры:
// ВключитьПроверку - Булево - Истина, если проверку необходимо включить.
//
Процедура ПриВключенииВыключенииПроверки(ВключитьПроверку) Экспорт
ПроверкаКонтрагентов.ВключитьВыключитьПроверкуКонтрагентов(ВключитьПроверку);
ПроверкаКонтрагентов.ЗапуститьФоновуюПроверкуКонтрагентовПослеИзмененияНастройкиПриНеобходимости();
КонецПроцедуры
// Результат проверки параметров доступа к веб-сервису ФНС.
//
// Возвращаемое значение:
// Булево - Доступ к веб-сервису ФНС по проверке контрагентов есть.
//
Функция РезультатПроверкиПараметровДоступа() Экспорт
Если ПроверкаКонтрагентов.ЕстьДоступКВебСервисуФНС() Тогда
ТекстПредупреждения = НСтр("ru = 'Проверка доступа к веб-сервису успешно пройдена'");
Иначе
ПредупреждениеПроОтсутствиеДоступа = Новый ФорматированнаяСтрока(НСтр("ru = 'Доступ к веб-сервису отсутствует'"));
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПолучениеФайловИзИнтернета") Тогда
ПереходКНастройкамПроксиСервера = Новый ФорматированнаяСтрока(
НСтр("ru = 'Настроить параметры прокси-сервера'"),,,, "e1cib/command/ОбщаяКоманда.ПереходКНастройкамДоступаКВебСервису");
Иначе
ПереходКНастройкамПроксиСервера = "";
КонецЕсли;
Возврат Новый ФорматированнаяСтрока(
ПредупреждениеПроОтсутствиеДоступа,
Символы.ПС,
ПереходКНастройкамПроксиСервера);
КонецЕсли;
Возврат ТекстПредупреждения;
КонецФункции
#КонецОбласти
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
Функция РезультатРаботыФоновогоЗаданияПроверкиКонтрагентовВДокументе(Знач РеквизитыПроверкиКонтрагентов) Экспорт
ЗаданиеВыполнено = ПроверкаКонтрагентовЗавершилась(РеквизитыПроверкиКонтрагентов.ИдентификаторЗадания);
ЕстьДоступКВебСервисуФНС = Ложь;
ДанныеВКэшСовпадаютСФНС =
ЗаданиеВыполнено
И ПроверкаКонтрагентов.РезультатПроверкиКонтрагентовВДокументеСовпадаетСДаннымиФНС(
РеквизитыПроверкиКонтрагентов,
ЕстьДоступКВебСервисуФНС);
Результат = Новый Структура();
Результат.Вставить("ЗаданиеВыполнено", ЗаданиеВыполнено);
Результат.Вставить("ЕстьДоступКВебСервисуФНС", ЕстьДоступКВебСервисуФНС);
Результат.Вставить("ДанныеВКэшСовпадаютСФНС", ДанныеВКэшСовпадаютСФНС);
Возврат Результат;
КонецФункции
Процедура ЗапомнитьРезультатПроверкиСправочникаПослеПредварительнойПроверки(ДанныеКонтрагента, ДополнительныеПараметры) Экспорт
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаВМоделиСервиса") Тогда
МодульРаботаВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль("РаботаВМоделиСервиса");
ДанныеКонтрагента.Вставить("ОбластьДанныхВспомогательныеДанные", МодульРаботаВМоделиСервиса.ЗначениеРазделителяСеанса());
КонецЕсли;
ДанныеКонтрагентов = Новый Массив;
ДанныеКонтрагентов.Добавить(ДанныеКонтрагента);
ПроверкаКонтрагентов.ЗапомнитьРезультатыПроверкиСправочника(ДанныеКонтрагентов, ДополнительныеПараметры);
КонецПроцедуры
#КонецОбласти
SSL/src/CommonModules/ПроверкаКонтрагентовВызовСервера/ПроверкаКонтрагентовВызовСервера.mdo
-10
View File
@@ -1,10 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonModule xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="1514f388-3c36-422f-9e23-83054934e4b3">
<name>ПроверкаКонтрагентовВызовСервера</name>
<synonym>
<key>ru</key>
<value>Проверка контрагентов (вызов сервера)</value>
</synonym>
<server>true</server>
<serverCall>true</serverCall>
</mdclass:CommonModule>
SSL/src/CommonModules/ПроверкаКонтрагентовВызовСервераПовтИсп/Module.bsl
-54
View File
@@ -1,54 +0,0 @@
#Область ПрограммныйИнтерфейс
#Область УстаревшиеПроцедурыИФункции
// Определение цветов выделения результатов проверки контрагентов.
//
// Возвращаемое значение:
// Структура - Имена ключей - это названия цветов, которые необходимо определить.
// Список ключей см ПроверкаКонтрагентовВызовСервераПовтИсп.ЦветаРезультатовПроверки().
Функция ЦветаРезультатовПроверки() Экспорт
Цвета = Новый Структура();
Цвета.Вставить("ЦветТекстаКонтрагентаПрекратившегоДеятельность",
ЦветаСтиля.ЦветТекстаКонтрагентаПрекратившегоДеятельность);// серый
Цвета.Вставить("ЦветТекстаНекорректногоКонтрагента",
ЦветаСтиля.ЦветТекстаНекорректногоКонтрагента);// красный
Цвета.Вставить("ЦветТекстаКонтрагентаДействующего",
ЦветаСтиля.ЦветТекстаКонтрагентаДействующего); // зеленый
Цвета.Вставить("ЦветФонаДокументаСНекорректнымиКонтрагентамиВСпискеДокументов",
ЦветаСтиля.ЦветФонаДокументаСНекорректнымиКонтрагентамиВСпискеДокументов); // розовый
Цвета.Вставить("ЦветФонаКорректногоКонтрагентаВДокументе",
ЦветаСтиля.ЦветФонаКорректногоКонтрагентаВДокументе); // зеленый
Цвета.Вставить("ЦветФонаНекорректногоКонтрагентаВДокументе",
ЦветаСтиля.ЦветФонаНекорректногоКонтрагентаВДокументе); // красный
Цвета.Вставить("ЦветФонаФормы", ЦветаСтиля.ЦветФонаФормы); // белый
РаботаСКонтрагентамиПереопределяемый.ОпределитьЦветаРезультатовПроверки(Цвета);
Возврат Цвета;
КонецФункции
// Проверяет, что проверка включена и есть необходимые права.
// Возвращаемое значение:
// Булево - Истина, если есть нужные права на проверку и проверка включена.
//
Функция ИспользованиеПроверкиВозможно() Экспорт
Возврат ПроверкаКонтрагентов.ЕстьПравоНаИспользованиеПроверки()
И ПроверкаКонтрагентов.ПроверкаКонтрагентовВключена();
КонецФункции
#КонецОбласти
#КонецОбласти
Loaded 100 of 341 files, more files were not shown because too many files have changed in this diff. Show more