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

3_0_1_231

Browse Source
This commit is contained in:
Компания 1С committed 2018-08-09 15:04:00 +03:00
1 parent 8c1f18d668
commit 27fe290aea
47 files changed
+2172 -1763
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

SSL/src/Catalogs/Валюты/ObjectModule.bsl
+3 -1
View File
@@ -91,10 +91,11 @@
Если Результат.Статус = "Ошибка" Тогда
ВызватьИсключение Результат.КраткоеПредставлениеОшибки;
КонецЕсли;
КонецЕсли;
Если ДополнительныеСвойства.Свойство("ЗапланироватьКопированиеКурсовВалюты") Тогда
Если ОбщегоНазначения.РазделениеВключено()
И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаВМоделиСервиса.ВалютыВМоделиСервиса") Тогда
МодульКурсыВалютСлужебныйВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль("КурсыВалютСлужебныйВМоделиСервиса");
МодульКурсыВалютСлужебныйВМоделиСервиса.ЗапланироватьКопированиеКурсовВалюты(ЭтотОбъект);
КонецЕсли;
@@ -116,6 +117,7 @@
ДополнительныеСвойства.Вставить("ОбновитьКурсы");
КонецЕсли;
ДополнительныеСвойства.Вставить("ЭтоНовый");
ДополнительныеСвойства.Вставить("ЗапланироватьКопированиеКурсовВалюты");
Иначе
ПредыдущиеЗначения = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Ссылка, "Код,СпособУстановкиКурса,ОсновнаяВалюта,Наценка,ФормулаРасчетаКурса");
Если (ПредыдущиеЗначения.СпособУстановкиКурса <> СпособУстановкиКурса)
SSL/src/Catalogs/ДополнительныеОтчетыИОбработки/Forms/ФормаСписка/Module.bsl
+2
View File
@@ -89,8 +89,10 @@
КонецЕсли;
ПрофилиИспользуются = Не ИспользуютсяПрофилиБезопасности;
Если ПравоДоступа("ИнтерактивнаяПометкаУдаления", Метаданные.Справочники.ДополнительныеОтчетыИОбработки) Тогда
Элементы.ИзменитьПометкуУдаленияБезПрофилей.Видимость = Не ПрофилиИспользуются;
Элементы.ИзменитьПометкуУдаленияБезПрофилейМеню.Видимость = Не ПрофилиИспользуются;
КонецЕсли;
Элементы.ИзменитьПометкуУдаленияСПрофилями.Видимость = ПрофилиИспользуются;
Элементы.ИзменитьПометкуУдаленияСПрофилямиМеню.Видимость = ПрофилиИспользуются;
SSL/src/Catalogs/ШаблоныСообщений/Forms/ЗаполнитьПроизвольныеПараметры/Module.bsl
+7
View File
@@ -10,6 +10,13 @@
Предмет = Параметры.Предмет;
ДобавитьЭлементыФормыПараметровШаблона(Параметры.Шаблон);
Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда
Элементы.Переместить(Элементы.ГруппаКоманднаяПанельФормы, Элементы.ФормаКоманднаяПанель);
Элементы.ГруппаКоманднаяПанельФормы.Вид = ВидГруппыФормы.ГруппаКнопок;
КонецЕсли;
КонецПроцедуры
#КонецОбласти
SSL/src/Catalogs/ШаблоныСообщений/Forms/ПроизвольныйПараметр/Module.bsl
+9
View File
@@ -33,6 +33,15 @@
ПредставлениеПараметра = Параметры.ПредставлениеПараметра;
ТипПараметра = Параметры.ОписаниеТипа;
Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда
Элементы.Переместить(Элементы.ГруппаКоманднаяПанельФормы, Элементы.ФормаКоманднаяПанель);
Элементы.ГруппаКоманднаяПанельФормы.Вид = ВидГруппыФормы.ГруппаКнопок;
Элементы.ФормаОтмена.Видимость = Ложь;
КонецЕсли;
КонецПроцедуры
&НаСервереБезКонтекста
SSL/src/Catalogs/ШаблоныСообщений/Forms/СформироватьСообщение/Form.form
+6 -2
View File
@@ -41,9 +41,11 @@
<items xsi:type="form:FormGroup">
<name>ГруппаСписокВыбора</name>
<id>34</id>
<displayImportance>VeryHigh</displayImportance>
<items xsi:type="form:Table">
<name>Шаблоны</name>
<id>39</id>
<displayImportance>VeryHigh</displayImportance>
<title>
<key>ru</key>
<value>Шаблоны</value>
@@ -233,12 +235,14 @@
<initialListView>Auto</initialListView>
<horizontalStretch>true</horizontalStretch>
<verticalStretch>true</verticalStretch>
<currentRowUse>SelectionPresentation</currentRowUse>
<autoMaxCardHeight>true</autoMaxCardHeight>
<rowFilter xsi:type="core:UndefinedValue"/>
</items>
<items xsi:type="form:FormGroup">
<name>СтраницыПредпросмотра</name>
<id>60</id>
<displayImportance>VeryHigh</displayImportance>
<items xsi:type="form:FormGroup">
<name>СтраницаОбычныйТекст</name>
<id>66</id>
@@ -619,7 +623,7 @@
<name>ПредпросмотрФорматированныйДокумент</name>
<title>
<key>ru</key>
<value>Предпросмотр форматированный документ</value>
<value>Предварительный просмотр</value>
</title>
<id>2</id>
<valueType>
@@ -826,7 +830,7 @@
<name>ПредпросмотрОбычныйТекст</name>
<title>
<key>ru</key>
<value>Предпросмотр обычный текст</value>
<value>Предварительный просмотр</value>
</title>
<id>6</id>
<valueType>
SSL/src/Catalogs/ШаблоныСообщений/Forms/СформироватьСообщение/Module.bsl
+9
View File
@@ -40,6 +40,15 @@
ЗаполнитьСписокДоступныхШаблонов();
Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ПредпросмотрОбычныйТекст", "ПоложениеЗаголовка", ПоложениеЗаголовкаЭлементаФормы.Авто);
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ПредпросмотрФорматированныйДокумент", "ПоложениеЗаголовка", ПоложениеЗаголовкаЭлементаФормы.Авто);
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаСформировать", "Картинка", БиблиотекаКартинок.ЗаписатьИЗакрыть);
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаСформировать", "Отображение", ОтображениеКнопки.Картинка);
КонецЕсли;
КонецПроцедуры
&НаКлиенте
SSL/src/Catalogs/ШаблоныСообщений/Forms/ФормаЭлемента/Form.form
+1
View File
@@ -215,6 +215,7 @@
<items xsi:type="form:FormGroup">
<name>Страницы</name>
<id>40</id>
<displayImportance>VeryHigh</displayImportance>
<items xsi:type="form:FormGroup">
<name>СообщениеЭлектронноеПисьмоHTML</name>
<id>42</id>
SSL/src/Catalogs/ШаблоныСообщений/Forms/ФормаЭлемента/Module.bsl
+6
View File
@@ -61,6 +61,12 @@
Элементы.Назначение.Видимость = Ложь;
КонецЕсли;
Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппаПараметры", "ОтображатьЗаголовок", Истина);
КонецЕсли;
КонецПроцедуры
&НаСервере
SSL/src/CommonCommands/ПолучитьНастройкиСинхронизацииДляДругойПрограммы/CommandModule.bsl
+1 -1
View File
@@ -29,7 +29,7 @@
&НаСервере
Процедура ПолучитьНастройкиОбменаДаннымиДляВторойИнформационнойБазыНаСервере(Отказ, АдресВременногоХранилища, УзелИнформационнойБазы)
ПомощникСозданияОбменаДанными = Обработки.ПомощникСозданияОбменаДанными.Создать();
ПомощникСозданияОбменаДанными = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными().Создать();
ПомощникСозданияОбменаДанными.Инициализация(УзелИнформационнойБазы);
ПомощникСозданияОбменаДанными.ВыполнитьВыгрузкуПараметровМастераВоВременноеХранилище(Отказ, АдресВременногоХранилища);
SSL/src/CommonForms/СинхронизацияДанных/Module.bsl
+15 -9
View File
@@ -650,13 +650,13 @@
&НаСервереБезКонтекста
Процедура ПриНачалеПолученияСпискаПриложенийНаСервере(ПараметрыОбработчика, ПродолжитьОжидание)
Если Не ОбщегоНазначения.ПодсистемаСуществует("ТехнологияСервиса.РаботаВМоделиСервиса.ОбменДаннымиВМоделиСервиса") Тогда
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
Если МодульПомощникНастройки = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли;
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
ПараметрыПомощника = Новый Структура("Режим", "НастроенныеОбмены");
МодульПомощникНастройки.ПриНачалеПолученияСпискаПриложений(ПараметрыПомощника,
@@ -667,8 +667,12 @@
&НаСервереБезКонтекста
Процедура ПриОжиданииПолученияСпискаПриложенийНаСервере(ПараметрыОбработчика, ПродолжитьОжидание)
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
Если МодульПомощникНастройки = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли;
МодульПомощникНастройки.ПриОжиданииПолученияСпискаПриложений(
ПараметрыОбработчика, ПродолжитьОжидание);
@@ -678,18 +682,20 @@
&НаСервере
Процедура ПриЗавершенииПолученияСпискаПриложенийНаСервере()
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
ПриложенияМоделиСервиса.Очистить();
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
Если Не МодульПомощникНастройки = Неопределено Тогда
СтатусЗавершения = Неопределено;
МодульПомощникНастройки.ПриЗавершенииПолученияСпискаПриложений(
ПараметрыОбработчикаПолученияСпискаПриложений, СтатусЗавершения);
ПриложенияМоделиСервиса.Очистить();
Если Не СтатусЗавершения.Отказ Тогда
ТаблицаПриложений = СтатусЗавершения.Результат;
ПриложенияМоделиСервиса.Загрузить(СтатусЗавершения.Результат.Скопировать(, "Корреспондент, ОбластьДанных, НаименованиеПриложения"));
КонецЕсли;
КонецЕсли;
ОбновитьСписокПриложений();
SSL/src/CommonModules/АдресныйКлассификаторПовтИсп/Module.bsl
+3 -6
View File
@@ -12,8 +12,8 @@
УстановитьПривилегированныйРежим(Ложь);
Если Авторизация = Неопределено Тогда
ИмяПользователя = Неопределено;
ПарольПользователя = Неопределено;
ИмяПользователя = "неавторизованный";
ПарольПользователя = "";
Иначе
ИмяПользователя = Авторизация.Логин;
ПарольПользователя = Авторизация.Пароль;
@@ -91,12 +91,9 @@
Результат = Новый Соответствие;
// Веб-сервис 1С
Если НЕ ОбщегоНазначения.РазделениеВключено() Тогда
СервисРезультат = АдресныйКлассификаторСлужебный.ВерсияПоставщикаДанных();
КлассификаторДоступен = (СервисРезультат.Данные = Истина);
Иначе
КлассификаторДоступен = Ложь;
КонецЕсли;
Результат.Вставить("КлассификаторДоступен", КлассификаторДоступен);
ИспользоватьЗагруженные = Ложь;
SSL/src/CommonModules/АдресныйКлассификаторСлужебный/Module.bsl
+531 -317
View File
File diff suppressed because it is too large. Load diff
SSL/src/CommonModules/ОбменДаннымиСервер/Module.bsl
+42 -7
View File
@@ -879,7 +879,7 @@
//
Процедура ПриНачалеСохраненияНастроекСинхронизации(НастройкиСинхронизации, ПараметрыОбработчика, ПродолжитьОжидание = Истина) Экспорт
Обработки.ПомощникСозданияОбменаДанными.ПриНачалеСохраненияНастроекСинхронизации(НастройкиСинхронизации,
МодульПомощникСозданияОбменаДанными().ПриНачалеСохраненияНастроекСинхронизации(НастройкиСинхронизации,
ПараметрыОбработчика,
ПродолжитьОжидание);
@@ -901,7 +901,7 @@
//
Процедура ПриОжиданииСохраненияНастроекСинхронизации(ПараметрыОбработчика, ПродолжитьОжидание) Экспорт
Обработки.ПомощникСозданияОбменаДанными.ПриОжиданииСохраненияНастроекСинхронизации(ПараметрыОбработчика,
МодульПомощникСозданияОбменаДанными().ПриОжиданииСохраненияНастроекСинхронизации(ПараметрыОбработчика,
ПродолжитьОжидание);
КонецПроцедуры
@@ -925,7 +925,7 @@
//
Процедура ПриЗавершенииСохраненияНастроекСинхронизации(ПараметрыОбработчика, СтатусЗавершения) Экспорт
Обработки.ПомощникСозданияОбменаДанными.ПриЗавершенииСохраненияНастроекСинхронизации(ПараметрыОбработчика,
МодульПомощникСозданияОбменаДанными().ПриЗавершенииСохраненияНастроекСинхронизации(ПараметрыОбработчика,
СтатусЗавершения);
КонецПроцедуры
@@ -3209,6 +3209,38 @@
#Область СлужебныеПроцедурыИФункции
Функция МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете() Экспорт
Если ОбщегоНазначения.ПодсистемаСуществует("ТехнологияСервиса.РаботаВМоделиСервиса.ОбменДаннымиВМоделиСервиса") Тогда
Возврат ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
КонецЕсли;
Возврат Неопределено;
КонецФункции
Функция МодульПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса() Экспорт
Если ОбщегоНазначения.ПодсистемаСуществует("ТехнологияСервиса.РаботаВМоделиСервиса.ОбменДаннымиВМоделиСервиса") Тогда
Возврат ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса");
КонецЕсли;
Возврат Неопределено;
КонецФункции
Функция МодульПомощникСозданияОбменаДанными() Экспорт
Возврат ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникСозданияОбменаДанными");
КонецФункции
Функция МодульПомощникИнтерактивногоОбменаДанными() Экспорт
Возврат ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникИнтерактивногоОбменаДанными");
КонецФункции
Функция ПолученоСообщениеСДаннымиДляСопоставления(УзелОбмена) Экспорт
Запрос = Новый Запрос(
@@ -10407,7 +10439,7 @@
ВызватьИсключение Сообщение;
КонецЕсли;
ПомощникСозданияОбменаДанными = Обработки.ПомощникСозданияОбменаДанными.Создать();
ПомощникСозданияОбменаДанными = МодульПомощникСозданияОбменаДанными().Создать();
ПомощникСозданияОбменаДанными.УзелИнформационнойБазы = УзелИнформационнойБазы;
ПомощникСозданияОбменаДанными.ВнешнееСоединениеОбновитьНастройкиОбменаДанными(ПолучитьЗначенияНастройкиОтборов(ЗначенияПоУмолчаниюНаУзле));
@@ -10853,8 +10885,7 @@
// Начиная с версии БСП 2.4.2(?).
Результат.Вставить("УзелСуществует", Ложь);
// Начиная с версии БСП 3.0.1.1.
Результат.Вставить("ВерсияФорматаНастроекОбменаДанными",
Обработки.ПомощникСозданияОбменаДанными.ВерсияФорматаНастроекОбменаДанными());
Результат.Вставить("ВерсияФорматаНастроекОбменаДанными", МодульПомощникСозданияОбменаДанными().ВерсияФорматаНастроекОбменаДанными());
Результат.Вставить("ИспользоватьПрефиксыДляНастройкиОбмена", Истина);
Результат.Вставить("ФорматОбмена", "");
Результат.Вставить("ИмяПланаОбмена", ИмяПланаОбмена);
@@ -12496,7 +12527,11 @@
Возврат;
КонецЕсли;
КоличествоНерассмотренныхПроблем = КоличествоНерассмотренныхПроблем();
ПланыОбменаБСП = ОбменДаннымиПовтИсп.ПланыОбменаБСП();
ТаблицаМонитора = ТаблицаМонитораОбменаДанными(ПланыОбменаБСП);
КоличествоНерассмотренныхПроблем = КоличествоНерассмотренныхПроблем(
ТаблицаМонитора.ВыгрузитьКолонку("УзелИнформационнойБазы"));
// Процедура вызывается только при наличии подсистемы "Текущие дела", поэтому здесь
// не делается проверка существования подсистемы.
SSL/src/CommonModules/ОбновлениеИнформационнойБазыБСП/Module.bsl
+1 -1
View File
@@ -32,7 +32,7 @@
Процедура ПриДобавленииПодсистемы(Описание) Экспорт
Описание.Имя = "СтандартныеПодсистемы";
Описание.Версия = "3.0.1.225";
Описание.Версия = "3.0.1.231";
Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно";
Описание.ПараллельноеОтложенноеОбновлениеСВерсии = "2.3.3.0";
SSL/src/CommonModules/ОбщегоНазначения/Module.bsl
+2 -2
View File
@@ -4556,12 +4556,12 @@
//
// Пример:
// Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ОбновлениеКонфигурации") Тогда
// МодульОбновлениеКонфигурации = ОбщегоНазначения.ОбщийМодель("ОбновлениеКонфигурации");
// МодульОбновлениеКонфигурации = ОбщегоНазначения.ОбщийМодуль("ОбновлениеКонфигурации");
// МодульОбновлениеКонфигурации.<Имя метода>();
// КонецЕсли;
//
// Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПолнотекстовыйПоиск") Тогда
// МодульПолнотекстовыйПоискСервер = ОбщегоНазначения.ОбщийМодель("ПолнотекстовыйПоискСервер");
// МодульПолнотекстовыйПоискСервер = ОбщегоНазначения.ОбщийМодуль("ПолнотекстовыйПоискСервер");
// МодульПолнотекстовыйПоискСервер.<Имя метода>();
// КонецЕсли;
//
SSL/src/CommonModules/ОбщегоНазначенияКлиент/Module.bsl
+2 -2
View File
@@ -594,12 +594,12 @@
//
// Пример:
// Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ОбновлениеКонфигурации") Тогда
// МодульОбновлениеКонфигурацииКлиент = ОбщегоНазначенияКлиент.ОбщийМодель("ОбновлениеКонфигурацииКлиент");
// МодульОбновлениеКонфигурацииКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ОбновлениеКонфигурацииКлиент");
// МодульОбновлениеКонфигурацииКлиент.<Имя метода>();
// КонецЕсли;
//
// Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПолнотекстовыйПоиск") Тогда
// МодульПолнотекстовыйПоискКлиент = ОбщегоНазначенияКлиент.ОбщийМодель("ПолнотекстовыйПоискКлиент");
// МодульПолнотекстовыйПоискКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПолнотекстовыйПоискКлиент");
// МодульПолнотекстовыйПоискКлиент.<Имя метода>();
// КонецЕсли;
//
SSL/src/CommonModules/ОрганизацииСервер/Module.bsl
+1 -1
View File
@@ -111,7 +111,7 @@
// * СвидетельствоСерияНомер - Строка - серия и номер свидетельства.
// * СтавкаНалогаНаПрибыльМестный - Число - местная ставка налога на прибыль.
// * СтавкаНалогаНаПрибыльСубъектРФ - Число - ставка налога на прибыль субъекта РФ.
// * СтавкаНалогаНаПрибыльФБ - Число - ставка налога на прибыль фед бюдж.
// * СтавкаНалогаНаПрибыльФБ - Число - ставка налога на прибыль федерального бюджета.
// * СтавкаНалогаУСН - Число - ставка налога УСН.
// * ЭтоФизическоеЛицо - Булево - признак что это физическое лицо.
// * ЭтоЮридическоеЛицо - Булево - признак что это юридическое лицо.
SSL/src/CommonModules/ОтчетОДвиженияхДокументаПереопределяемый/Module.bsl
+7 -14
View File
@@ -1,15 +1,15 @@
#Область ПрограммныйИнтерфейс
// Позволяет дополнить базовую коллекцию дополнительными регистрами.
// Позволяет дополнить регистры с движениями документа дополнительными регистрами.
//
// Параметры:
// Документ - ДокументСсылка - документ коллекцию движений которого необходимо дополнить.
// СоответствиеРегистров - Соответствие - соответствие с данными:
// РегистрыСДвижениями - Соответствие - соответствие с данными:
// * Ключ - ОбъектМетаданных - регистр как объект метаданных.
// * Значение - Строка - имя поля регистратора.
//
Процедура ПриОпределенииРегистровСДвижениями(Документ, СоответствиеРегистров) Экспорт
Процедура ПриОпределенииРегистровСДвижениями(Документ, РегистрыСДвижениями) Экспорт
@@ -30,20 +30,13 @@
КонецПроцедуры
// Позволяет подготовить наборы данных СКД в соответствии с требованиями отличающимися от стандартных.
// Позволяет дополнить или переопределить коллекцию наборов данных для вывода движений документа.
//
// Параметры:
// Документ - ДокументСсылка - документ коллекцию движений которого необходимо дополнить.
// ОсновнаяИнформация - Структура - структура с ключами:
// * ИмяРегистра - Строка - имя регистра.
// * ВидРегистра - Строка - вид регистра (Накопления, Расчета, Бухгалтерии, Сведений).
// * ЛокализацияВидРегистра - Строка - локализация вида регистра (Накопления, Расчета, Бухгалтерии, Сведений).
// * ПредставлениеРегистра - Строка - пользовательское представление регистра.
// * ПолеРегистратора - Строка - имя поля регистратора (по умолчанию "Регистратор")
// * ДополнительнаяНумерация - Булево - признак дополнительной нумерации.
// * ДвижениеДокумента - ОбъектМетаданных - регистр как объект метаданных.
// Документ - ДокументСсылка - документ, коллекцию движений которого необходимо дополнить.
// НаборыДанных - Массив - сведения о наборах данных (тип элемента Структура).
//
Процедура ПриПодготовкеНабораДанных(Документ, ОсновнаяИнформация) Экспорт
Процедура ПриПодготовкеНабораДанных(Документ, НаборыДанных) Экспорт
SSL/src/CommonModules/РаботаСАдресами/Module.bsl
+56 -7
View File
@@ -76,9 +76,15 @@
// Адреса - Массив - XDTO объекты или строки XML соответствующие XDTO пакету Адрес.
// ДополнительныеПараметры - Структура - Параметры контактной информации:
// * БезПредставлений - Булево - Если Истина, то поле представления адреса будет отсутствовать.
// * КодыКЛАДР - Булево - Если Истина, то возвращает структуру с кодами КЛАДР по всем частям адреса.
// * КодыКЛАДР - Булево - Если Истина, то возвращается структура КодыКЛАДР. По умолчанию, Ложь.
// Получение кодов может инициировать http запрос к веб-сервису 1С orgaddress.
// * КодыАдреса - Булево - Если Истина, то возвращается структура с кодами адреса(идентификаторы, ОКТМО, ОКАТО и др).
// Подробнее см. в возвращаемом значении структуры Идентификаторы и ДополнительныеКоды. По умолчанию, Истина.
// Получение идентификаторов может инициировать http запрос к веб-сервису 1С orgaddress.
// * ПолныеНаименованияСокращений - Булево - Если Истина, то возвращает полное наименование адресных объектов.
// * НаименованиеВключаетСокращение - Булево - Если Истина, то поля содержат сокращениям в наименованиях адресных объектов.
// * ПроверитьАдрес - Булево - Если Истина, то адрес будет проверен на соответствие ФИАС.
// Проверка адреса может инициировать http запрос к веб-сервису 1С orgaddress.
// Возвращаемое значение:
// Массив - Содержит массив структур, содержимое структуры см. описание функции СведенияОбАдресе.
//
@@ -94,9 +100,14 @@
// ДополнительныеПараметры - Структура - для уточнения возвращаемого значения:
// * БезПредставлений - Булево - Если Истина, то поле Представление будет отсутствовать. По умолчанию, Ложь.
// * КодыКЛАДР - Булево - Если Истина, то возвращается структура КодыКЛАДР. По умолчанию, Ложь.
// Получение кодов может инициировать http запрос к веб-сервису 1С orgaddress.
// * КодыАдреса - Булево - Если Истина, то возвращается структура с кодами адреса(идентификаторы, ОКТМО, ОКАТО и др).
// Подробнее см. в возвращаемом значении структуры Идентификаторы и ДополнительныеКоды. По умолчанию, Истина.
// Получение идентификаторов может инициировать http запрос к веб-сервису 1С orgaddress.
// * ПолныеНаименованияСокращений - Булево - Если Истина, то возвращается полное наименование адресных объектов.
// * НаименованиеВключаетСокращение - Булево - Если Истина, то поля содержат сокращениям в наименованиях адресных объектов.
// * ПроверитьАдрес - Булево - Если Истина, то адрес будет проверен на соответствие ФИАС.
// Проверка адреса может инициировать http запрос к веб-сервису 1С orgaddress.
//
// Возвращаемое значение:
// Структура - сведения об адресе:
@@ -142,8 +153,11 @@
// * ИдентификаторАдресногоОбъекта - УникальныйИдентификатор - Идентификационный код последнего адресного объекта
// в иерархи адреса. Например, для адреса: Москва г., Дмитровское ш., д.9 это
// будет идентификатор улицы.
// Поле отсутствует, если дополнительный параметр КодыАдреса равен Ложь.
// * ИдентификаторДома - УникальныйИдентификатор - Идентификационный код дома(строения) адресного объекта.
// * Идентификаторы - Структура - Идентификаторы адресных объектов адреса.
// Поле отсутствует, если дополнительный параметр КодыАдреса равен Ложь.
// * Идентификаторы - Структура - Идентификаторы адресных объектов адреса, если установлен параметр КодыАдреса.
// Поле отсутствует, если дополнительный параметр КодыАдреса равен Ложь.
// ** РегионИдентификатор - УникальныйИдентификатор - идентификатор региона.
// ** РайонИдентификатор - УникальныйИдентификатор - идентификатор района.
// ** МуниципальныйРайонИдентификатор - УникальныйИдентификатор - идентификатор муниципального района.
@@ -153,13 +167,14 @@
// ** ТерриторияИдентификатор - УникальныйИдентификатор - идентификатор территории.
// ** ТерриторияИдентификатор - УникальныйИдентификатор - идентификатор территории.
// ** УлицаИдентификатор - УникальныйИдентификатор - идентификатор улица.
// * КодыКЛАДР - Структура - Коды КЛАДР, если установлен параметр КодыКЛАДР.
// * КодыКЛАДР - Структура - Коды КЛАДР, если установлен параметр КодыКЛАДР в Истина.
// ** Регион - Строка - Код КЛАДР региона.
// ** Район - Строка - Код КЛАДР район.
// ** Город - Строка - Код КЛАДР города.
// ** НаселенныйПункт - Строка - Код КЛАДР населенного пункта.
// ** Улица - Строка - Код КЛАДР улица.
// * ДополнительныеКоды - Структура - Коды ОКТМО, ОКТМО, ОКАТО, КодИФНСФЛ, КодИФНСЮЛ, КодУчасткаИФНСФЛ, КодУчасткаИФНСЮЛ.
// Поле отсутствует, если дополнительный параметр КодыАдреса равен Ложь.
// * РезультатПроверкиАдреса - Строка - "Успех", если адрес корректный, "Ошибка" - при наличии ошибок проверки,
// "Отказ", если не удалось проверить адрес, т.к. не доступен классификатор.
// Пустая строка, если в параметре ДополнительныеПараметры.ПроверитьАдрес не
@@ -1274,7 +1289,6 @@
СоответствиеПолей.Вставить("Представление", "value");
СоответствиеПолей.Вставить("Комментарий", "comment");
СоответствиеПолей.Вставить("НаименованиеСтраны", "country");
СоответствиеПолей.Вставить("Представление", "value");
СоответствиеПолей.Вставить("Страна", "country");
СоответствиеПолей.Вставить("Индекс", "ZIPCode");
СоответствиеПолей.Вставить("ОКТМО", "oktmo");
@@ -1289,7 +1303,6 @@
СоответствиеПолей.Вставить("НаселенныйПунктСокращение", "localityType");
СоответствиеПолей.Вставить("Улица", "street");
СоответствиеПолей.Вставить("УлицаСокращение", "streetType");
СоответствиеПолей.Вставить("МуниципальноеПредставление", "value");
СоответствиеПолей.Вставить("КодРегиона", "areaCode");
СоответствиеПолей.Вставить("МуниципальныйРайон", "munDistrict");
СоответствиеПолей.Вставить("МуниципальныйРайонСокращение", "munDistrictType");
@@ -1300,7 +1313,7 @@
СоответствиеПолей.Вставить("Территория", "territory");
СоответствиеПолей.Вставить("ТерриторияСокращение", "territoryType");
СоответствиеПолей.Вставить("ИдентификаторАдресногоОбъекта", "id");
СоответствиеПолей.Вставить("ИдентификаторДома", "id");
СоответствиеПолей.Вставить("ИдентификаторДома", "houseId");
СоответствиеПолей.Вставить("Дом", "HouseNumber");
СоответствиеПолей.Вставить("ТипДома", "HouseType");
@@ -1313,10 +1326,25 @@
КонецЕсли;
КонецЦикла;
Если КонтактнаяИнформация.Свойство("Здание")
И ТипЗнч(КонтактнаяИнформация.Здание) = Тип("Структура")
И КонтактнаяИнформация.Здание.Свойство("Номер") Тогда
ОписаниеКонтактнойИнформации.HouseNumber = ?(КонтактнаяИнформация.Здание.Свойство("Номер"), КонтактнаяИнформация.Здание.Номер, "");
ОписаниеКонтактнойИнформации.HouseType = ?(КонтактнаяИнформация.Здание.Свойство("ТипЗдания"), КонтактнаяИнформация.Здание.ТипЗдания, НСтр("ru='Дом'"));
КонецЕсли;
Если КонтактнаяИнформация.Свойство("Корпус")И ЗначениеЗаполнено(КонтактнаяИнформация.Корпус) Тогда
ТипКорпуса = ?(КонтактнаяИнформация.Свойство("ТипКорпуса"), КонтактнаяИнформация.ТипКорпуса, НСтр("ru='Корпус'"));
ОписаниеКонтактнойИнформации.buildings.Добавить(УправлениеКонтактнойИнформациейКлиентСервер.ЗначениеСтроенияИлиПомещения(КонтактнаяИнформация.Корпус, ТипКорпуса));
ИначеЕсли КонтактнаяИнформация.Свойство("Корпуса")И ТипЗнч(КонтактнаяИнформация.Корпуса) = Тип("Массив") Тогда
Для каждого Корпус Из КонтактнаяИнформация.Корпуса Цикл
ОписаниеКонтактнойИнформации.buildings.Добавить(
УправлениеКонтактнойИнформациейКлиентСервер.ЗначениеСтроенияИлиПомещения(Корпус.Тип, Корпус.Номер));
КонецЦикла;
КонецЕсли;
@@ -1325,6 +1353,12 @@
ТипКвартиры = ?(КонтактнаяИнформация.Свойство("ТипКвартиры"), КонтактнаяИнформация.ТипКвартиры, НСтр("ru='Квартира'"));
ОписаниеКонтактнойИнформации.apartments.Добавить(УправлениеКонтактнойИнформациейКлиентСервер.ЗначениеСтроенияИлиПомещения(КонтактнаяИнформация.Квартира, ТипКвартиры));
ИначеЕсли КонтактнаяИнформация.Свойство("Помещения")И ТипЗнч(КонтактнаяИнформация.Помещения) = Тип("Структура") Тогда
Для каждого Помещение Из КонтактнаяИнформация.Помещения Цикл
ОписаниеКонтактнойИнформации.apartments.Добавить(
УправлениеКонтактнойИнформациейКлиентСервер.ЗначениеСтроенияИлиПомещения(Помещение.Тип, Помещение.Номер));
КонецЦикла;
КонецЕсли;
Возврат ОписаниеКонтактнойИнформации;
@@ -1531,9 +1565,12 @@
Параметры.Вставить("ПолноеНаименованиеСокращений", Ложь);
Параметры.Вставить("ПроверитьАдрес", Ложь);
Параметры.Вставить("ВключатьСтрануВПредставление", Ложь);
Параметры.Вставить("КодыАдреса", Истина);
Если ТипЗнч(ДополнительныеПараметры) = Тип("Структура") Тогда
ЗаполнитьЗначенияСвойств(Параметры, ДополнительныеПараметры);
КонецЕсли;
СоответствиеСокращений = Новый Соответствие;
@@ -1548,7 +1585,7 @@
Адрес = УправлениеКонтактнойИнформациейСлужебный.СтрокаJSONВСтруктуру(АдресСтрокой);
Если ПустаяСтрока(Адрес.ID) Тогда
Если Параметры.КодыАдреса И ПустаяСтрока(Адрес.ID) Тогда
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.АдресныйКлассификатор") Тогда
МодульАдресныйКлассификаторСлужебный = ОбщегоНазначения.ОбщийМодуль("АдресныйКлассификаторСлужебный");
@@ -1587,8 +1624,10 @@
СоответствиеУровней.Вставить("territory", Новый Структура("Имя, Уровень", "Территория", 65));
СоответствиеУровней.Вставить("street", Новый Структура("Имя, Уровень", "Улица", 7));
Если Параметры.КодыАдреса Тогда
Идентификаторы = Новый Структура();
Результат.Вставить("Идентификаторы", Идентификаторы);
КонецЕсли;
ИдентификаторАдресногоОбъекта = "";
МаксимальныйУровеньИдентификатора = 0;
@@ -1604,7 +1643,9 @@
Результат.Вставить(ЧастьАдреса.Значение.Имя + "Сокращение", Сокращение);
СоответствиеСокращений.Вставить(ЧастьАдреса.Значение.Уровень, Сокращение);
Если Параметры.КодыАдреса Тогда
Идентификаторы.Вставить(ЧастьАдреса.Значение.Имя + "Идентификатор", ИдентификаторТекущегоУровня);
КонецЕсли;
УровеньИдентификатора = ?(ЧастьАдреса.Значение.Уровень < 10, ЧастьАдреса.Значение.Уровень * 10, ЧастьАдреса.Значение.Уровень);
Если ЗначениеЗаполнено(ИдентификаторТекущегоУровня) И МаксимальныйУровеньИдентификатора < УровеньИдентификатора Тогда
@@ -1613,7 +1654,9 @@
КонецЦикла;
Если Параметры.КодыАдреса Тогда
Результат.Вставить("ИдентификаторАдресногоОбъекта", ИдентификаторАдресногоОбъекта);
КонецЕсли;
// Установка полных сокращений, если определен параметр.
Если Параметры.ПолноеНаименованиеСокращений = Истина Тогда
@@ -1646,7 +1689,9 @@
Результат.Помещения.Добавить(Новый Структура("ТипПомещения, Номер", Корпус.Type, Корпус.Number));
КонецЦикла;
Если Параметры.КодыАдреса Тогда
Результат.Вставить("ИдентификаторДома", "");
КонецЕсли;
РезультатПроверкиАдреса = "";
СписокОшибок = "";
@@ -1655,11 +1700,15 @@
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.АдресныйКлассификатор") Тогда
МодульАдресныйКлассификаторСлужебный = ОбщегоНазначения.ОбщийМодуль("АдресныйКлассификаторСлужебный");
Если Параметры.КодыКЛАДР Или Параметры.КодыАдреса Тогда
ДополнительныеКоды = МодульАдресныйКлассификаторСлужебный.КодыАдресаИКодыКЛАДР(Адрес, ИдентификаторАдресногоОбъекта);
Если Параметры.КодыАдреса Тогда
Результат.Вставить("ДополнительныеКоды", ДополнительныеКоды.КодыАдреса);
КонецЕсли;
Если Параметры.КодыКЛАДР Тогда
Результат.Вставить("КодыКЛАДР", ДополнительныеКоды.КодыКЛАДР);
КонецЕсли;
КонецЕсли;
Иначе
ЗаполнитьКодыАдреса(Результат, Адрес);
КонецЕсли;
SSL/src/CommonModules/УправлениеКонтактнойИнформацией/Module.bsl
+26 -15
View File
@@ -582,8 +582,14 @@
//
// Параметры:
// КонтактнаяИнформация - Строка, Структура - Описание полей контактной информации.
// Если передается структура, то состав полей должен соответствовать
// УправлениеКонтактнойИнформациейКлиентСервер.ОписаниеНовойКонтактнойИнформации.
// Для строки внутренний формат JSON соответствующая структуре, описанной в функции
// РаботаСАдресамиКлиентСервер.ОписаниеНовойКонтактнойИнформации (для конфигурации с поддержкой специфики РФ)
// или УправлениеКонтактнойИнформациейКлиентСервер.ОписаниеНовойКонтактнойИнформации.
// Для строки c XML соответствующего XDTO пакету КонтактнаяИнформация или Адрес.
// У структуры состав полей должен соответствовать возвращаемым полям функций:
// РаботаСАдресами.ПоляАдреса или РаботаСАдресамиКлиентСервер.СтруктураКонтактнойИнформацииПоТипу,
// для конфигурации с поддержкой специфики РФ или
// УправлениеКонтактнойИнформациейКлиентСервер.СтруктураКонтактнойИнформацииПоТипу для международной конфигурации.
// ОжидаемыйВид - СправочникСсылка.ВидыКонтактнойИнформации, ПеречислениеСсылка.ТипыКонтактнойИнформации -
// Используется для определения типа, если его невозможно вычислить по полю ЗначенияПолей.
//
@@ -598,6 +604,8 @@
Возврат КонтактнаяИнформация;
КонецЕсли;
КонтактнаяИнформацияПоПолям = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияВСтруктуруJSON(КонтактнаяИнформация, ОжидаемыйВид);
Возврат УправлениеКонтактнойИнформациейСлужебный.СтруктураВСтрокуJSON(КонтактнаяИнформацияПоПолям);
@@ -607,6 +615,9 @@
//
// Параметры:
// ЗначенияПолей - Строка, Структура, Соответствие, СписокЗначений - Описание полей контактной информации.
// Для строки XML соответствующего XDTO пакету КонтактнаяИнформация или Адрес.
// Структура, Соответствие, СписокЗначений должен содержать поля в соответствии со структурой
// XDTO пакетов КонтактнаяИнформация или Адрес(для конфигурации с поддержкой специфики РФ).
// Представление - Строка - Представление контактной информации. Используется, если невозможно определить
// представление из параметра ЗначенияПолей (например, отсутствует поле Представление).
// ОжидаемыйВид - СправочникСсылка.ВидыКонтактнойИнформации, ПеречислениеСсылка.ТипыКонтактнойИнформации -
@@ -3160,12 +3171,12 @@
ТелефонаПоПолям = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияВСтруктуруJSON(КонтактнаяИнформация, Перечисления.ТипыКонтактнойИнформации.Телефон);
Результат = УправлениеКонтактнойИнформациейКлиентСервер.СтруктураПолейТелефона();
Результат.Представление = ТелефонаПоПолям.Value;
Результат.КодСтраны = ТелефонаПоПолям.CountryCode;
Результат.КодГорода = ТелефонаПоПолям.AreaCode;
Результат.НомерТелефона = ТелефонаПоПолям.Number;
Результат.Добавочный = ТелефонаПоПолям.ExtNumber;
Результат.Комментарий = ТелефонаПоПолям.Comment;
Результат.Представление = Строка(ТелефонаПоПолям.Value);
Результат.КодСтраны = Строка(ТелефонаПоПолям.CountryCode);
Результат.КодГорода = Строка(ТелефонаПоПолям.AreaCode);
Результат.НомерТелефона = Строка(ТелефонаПоПолям.Number);
Результат.Добавочный = Строка(ТелефонаПоПолям.ExtNumber);
Результат.Комментарий = Строка(ТелефонаПоПолям.Comment);
Возврат Результат;
@@ -5078,10 +5089,10 @@
ПустоеПредставление = ПустаяСтрока(СтрокаКонтактнойИнформации.Представление);
ПустоеЗначение = ПустаяСтрока(СтрокаКонтактнойИнформации.Значение);
ЗначенияПолей = Новый Структура("ЗначенияПолей", Неопределено);
ЗначенияПолей = Новый Структура("Значение", Неопределено);
ЗаполнитьЗначенияСвойств(ЗначенияПолей, СтрокаКонтактнойИнформации);
ЕстьЗначенияПолей = (ТипЗнч(ЗначенияПолей.ЗначенияПолей) = Тип("Строка"));
ПустыеЗначенияПолей = ЕстьЗначенияПолей И ПустаяСтрока(ЗначенияПолей.ЗначенияПолей);
ЕстьЗначенияПолей = (ТипЗнч(ЗначенияПолей.Значение) = Тип("Строка"));
ПустыеЗначенияПолей = ЕстьЗначенияПолей И ПустаяСтрока(ЗначенияПолей.Значение);
Если ЕстьЗначенияПолей Тогда
Если ПустоеПредставление И ПустоеЗначение И ПустыеЗначенияПолей Тогда
@@ -5099,7 +5110,7 @@
"Тип, ВключатьСтрануВПредставление, ПроверятьПоФИАС");
ФорматКонтактнойИнформации.Вставить("ФорматАдреса", "ФИАС");
СтрокаКонтактнойИнформации.Представление = УправлениеКонтактнойИнформациейСлужебный.ПредставлениеКонтактнойИнформации(
СтрокаКонтактнойИнформации.ЗначенияПолей, ФорматКонтактнойИнформации);
СтрокаКонтактнойИнформации.Значение, ФорматКонтактнойИнформации);
КонецЕсли;
@@ -5110,12 +5121,12 @@
АдресПоПолям = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияПоПредставлению(
СтрокаКонтактнойИнформации.Представление, СтрокаКонтактнойИнформации.Тип);
СтрокаКонтактнойИнформации.Значение = УправлениеКонтактнойИнформациейСлужебный.СтруктураВСтрокуJSON(АдресПоПолям);
СтрокаКонтактнойИнформации.ЗначенияПолей = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияИзJSONВXML(
СтрокаКонтактнойИнформации.Значение = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияИзJSONВXML(
СтрокаКонтактнойИнформации.Значение, СтрокаКонтактнойИнформации.Тип);
ИначеЕсли ЕстьЗначенияПолей Тогда
СтрокаКонтактнойИнформации.Значение = КонтактнаяИнформацияВJSON(СтрокаКонтактнойИнформации.ЗначенияПолей,
СтрокаКонтактнойИнформации.Значение = КонтактнаяИнформацияВJSON(СтрокаКонтактнойИнформации.Значение,
СтрокаКонтактнойИнформации.Тип);
Иначе
@@ -5128,7 +5139,7 @@
КонтактнаяИнформацияXDTO = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOПоПредставлению(
СтрокаКонтактнойИнформации.Представление, СтрокаКонтактнойИнформации.Вид);
СтрокаКонтактнойИнформации.ЗначенияПолей = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOВXML(
СтрокаКонтактнойИнформации.Значение = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOВXML(
КонтактнаяИнформацияXDTO);
КонецЕсли;
SSL/src/CommonModules/УправлениеКонтактнойИнформациейСлужебный/Module.bsl
+28 -5
View File
@@ -830,12 +830,15 @@
СтранаМира = УправлениеКонтактнойИнформацией.СтранаМираПоКодуИлиНаименованию(Адрес.Country);
КонецЕсли;
// Обработка частых сокращений в адресе
ОбработкаЧастыхСокращенийВАдресах(ДанныеАнализа);
Если Адрес.Country = НаименованиеОсновнаяСтрана Тогда
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.АдресныйКлассификатор") Тогда
МодульАдресныйКлассификаторСлужебный = ОбщегоНазначения.ОбщийМодуль("АдресныйКлассификаторСлужебный");
ВариантыАдреса = МодульАдресныйКлассификаторСлужебный.РаспознатьАдрес(ДанныеАнализа);
ВариантыАдреса = МодульАдресныйКлассификаторСлужебный.РаспознатьАдрес(ДанныеАнализа, Представление);
Если ВариантыАдреса = Неопределено Тогда
@@ -902,6 +905,24 @@
КонецФункции
Процедура ОбработкаЧастыхСокращенийВАдресах(Знач ДанныеАнализа)
СубъектРФ = Новый Соответствие();
СубъектРФ.Вставить(НСтр("ru='САНКТ-ПЕТЕРБУРГ'"), "Санкт-Петербург");
СубъектРФ.Вставить(НСтр("ru='МОСКВА'"), "Москва");
СубъектРФ.Вставить(НСтр("ru='МСК'"), "Москва");
СубъектРФ.Вставить(НСтр("ru='СПБ'"), "Санкт-Петербург");
Для каждого ЧастьАдреса Из ДанныеАнализа Цикл
Наименование = ВРег(ЧастьАдреса.Наименование);
Если СубъектРФ.Получить(Наименование ) <> Неопределено И ПустаяСтрока(ЧастьАдреса.Сокращение) Тогда
ЧастьАдреса.Наименование = СубъектРФ.Получить(Наименование );
ЧастьАдреса.Сокращение = "г";
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Процедура РаспределитьАдресПоПолямБезКлассификатора(Адрес, ДанныеАнализа)
ПредставлениеПоДаннымАнализа = Новый Массив;
@@ -2751,7 +2772,9 @@
ЭлементыАдреса = Новый Соответствие;
Если ТипЗнч(КонтактнаяИнформация) = Тип("Строка") Тогда
Если УправлениеКонтактнойИнформациейКлиентСервер.ЭтоКонтактнаяИнформацияВXML(КонтактнаяИнформация) Тогда
Если УправлениеКонтактнойИнформациейКлиентСервер.ЭтоКонтактнаяИнформацияВJSON(КонтактнаяИнформация) Тогда
Возврат СтрокаJSONВСтруктуру(КонтактнаяИнформация);
ИначеЕсли УправлениеКонтактнойИнформациейКлиентСервер.ЭтоКонтактнаяИнформацияВXML(КонтактнаяИнформация) Тогда
РезультатПреобразования = Новый Структура;
XDTOКонтактнаяИнформация = КонтактнаяИнформацияИзXML(КонтактнаяИнформация, Тип, РезультатПреобразования, Представление);
Иначе
@@ -2791,8 +2814,8 @@
Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
КонецЕсли;
Результат.Value = XDTOКонтактнаяИнформация.Представление;
Результат.Comment = XDTOКонтактнаяИнформация.Комментарий;
Результат.Value = Строка(XDTOКонтактнаяИнформация.Представление);
Результат.Comment = Строка(XDTOКонтактнаяИнформация.Комментарий);
Если Тип <> Перечисления.ТипыКонтактнойИнформации.Адрес И Тип <> Перечисления.ТипыКонтактнойИнформации.Телефон Тогда
Возврат Результат;
@@ -2811,7 +2834,7 @@
Если XDTOТип = ФабрикаXDTO.Тип(ПространствоИмен, "Адрес") Тогда
Результат.Вставить("Country", Состав.Страна);
Результат.Вставить("Country", Строка(Состав.Страна));
Страна = Справочники.СтраныМира.НайтиПоНаименованию(Состав.Страна, Истина);
НаименованиеСтраны = Страна.Наименование;
Результат.Вставить("CountryCode", СокрЛП(Страна.Код));
SSL/src/CommonModules/УправлениеКонтактнойИнформациейСлужебныйПовтИсп/Module.bsl
+15 -8
View File
@@ -10,17 +10,24 @@
//
Функция СведенияОДоступностиАдресногоКлассификатора() Экспорт
ЕстьКлассификатор = ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.АдресныйКлассификатор");
Если ЕстьКлассификатор И НЕ ОбщегоНазначения.РазделениеВключено() Тогда
МодульАдресныйКлассификаторСлужебный = ОбщегоНазначения.ОбщийМодуль("АдресныйКлассификаторСлужебный");
Возврат МодульАдресныйКлассификаторСлужебный.СведенияОДоступностиАдресныхСведений();
КонецЕсли;
Результат = Новый Структура;
Результат.Вставить("КлассификаторДоступен", Ложь);
Результат.Вставить("ИспользоватьЗагруженные", Ложь);
ЕстьКлассификатор = ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.АдресныйКлассификатор");
Если Не ЕстьКлассификатор Тогда
Возврат Результат;
КонецЕсли;
МодульАдресныйКлассификаторСлужебный = ОбщегоНазначения.ОбщийМодуль("АдресныйКлассификаторСлужебный");
СведенияОДоступностиАдресныхСведений = МодульАдресныйКлассификаторСлужебный.СведенияОДоступностиАдресныхСведений();
Результат.Вставить("ИспользоватьЗагруженные", СведенияОДоступностиАдресныхСведений.Получить("ИспользоватьЗагруженные"));
Если Не ОбщегоНазначения.РазделениеВключено() Тогда
Результат.Вставить("КлассификаторДоступен", СведенияОДоступностиАдресныхСведений.Получить("КлассификаторДоступен"));
КонецЕсли;
Возврат Результат;
КонецФункции
SSL/src/Configuration/Configuration.mdo
+9 -9
View File
@@ -1,17 +1,17 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:Configuration xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="4392f910-9a86-4326-8b43-9ffe578cc2d3">
<mdclass:Configuration xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="8b523cc9-b443-4704-a73a-0229a7132b59">
<name>БиблиотекаСтандартныхПодсистем</name>
<synonym>
<key>ru</key>
<value>Библиотека стандартных подсистем, редакция 3.0</value>
</synonym>
<containedObjects classId="9cd510cd-abfc-11d4-9434-004095e12fc7" objectId="963eb1b4-5043-4955-b746-f90f8021d5cb"/>
<containedObjects classId="9fcd25a0-4822-11d4-9414-008048da11f9" objectId="a8712819-1046-47de-ba29-c8e9060cab2c"/>
<containedObjects classId="e3687481-0a87-462c-a166-9f34594f9bba" objectId="d65b45ac-80c5-4191-8ebd-4149982197a0"/>
<containedObjects classId="9de14907-ec23-4a07-96f0-85521cb6b53b" objectId="f25148b5-3a8f-484e-8faa-65111b6e6358"/>
<containedObjects classId="51f2d5d8-ea4d-4064-8892-82951750031e" objectId="ca729cad-6e8f-4a00-a1a6-39f830a6c95b"/>
<containedObjects classId="e68182ea-4237-4383-967f-90c1e3370bc7" objectId="5d211a66-b84f-450a-b593-20d3a4d6ed96"/>
<containedObjects classId="fb282519-d103-4dd3-bc12-cb271d631dfc" objectId="fc1ccb1f-466d-4450-9f79-4353bd4def28"/>
<containedObjects classId="9cd510cd-abfc-11d4-9434-004095e12fc7" objectId="ca1011d3-bdb0-42ed-a4b8-25a9a808d94f"/>
<containedObjects classId="9fcd25a0-4822-11d4-9414-008048da11f9" objectId="e461f107-afda-445e-a130-3467f4506e73"/>
<containedObjects classId="e3687481-0a87-462c-a166-9f34594f9bba" objectId="e8ac1d7c-80c7-4ecd-9b6f-43311cfb48ef"/>
<containedObjects classId="9de14907-ec23-4a07-96f0-85521cb6b53b" objectId="79af1aad-92fd-4b4e-b288-f770f4c4ada9"/>
<containedObjects classId="51f2d5d8-ea4d-4064-8892-82951750031e" objectId="b42f3f11-2bef-4d8f-a1f5-b8ffcfc33f50"/>
<containedObjects classId="e68182ea-4237-4383-967f-90c1e3370bc7" objectId="77970f5a-37f9-4f5b-a0a0-3fce475bc0a9"/>
<containedObjects classId="fb282519-d103-4dd3-bc12-cb271d631dfc" objectId="8fc273a5-d6bb-4382-ad62-f9c758aa2380"/>
<defaultRunMode>ManagedApplication</defaultRunMode>
<usePurposes>PersonalComputer</usePurposes>
<scriptVariant>Russian</scriptVariant>
@@ -19,7 +19,7 @@
<defaultRoles>Role.АдминистраторСистемы</defaultRoles>
<defaultRoles>Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</defaultRoles>
<vendor>Фирма &quot;1С&quot;</vendor>
<version>3.0.1.225</version>
<version>3.0.1.231</version>
<updateCatalogAddress>http://downloads.v8.1c.ru/tmplts/</updateCatalogAddress>
<includeHelpInContents>true</includeHelpInContents>
<usedMobileApplicationFunctionalities>
SSL/src/Configuration/ParentConfigurations.bin
+1 -1
View File
@@ -1 +1 @@
{6,1,1,adb28dbc-3ea8-4915-95e3-36e222f83d35,1,62fdb880-8c1c-422b-9f31-81a7dd11c7dd,"3.0.1.225","Фирма ""1С""","БиблиотекаСтандартныхПодсистем",5842,1,0,4392f910-9a86-4326-8b43-9ffe578cc2d3,4392f910-9a86-4326-8b43-9ffe578cc2d3,1,0,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,1,0,9233322b-dfdb-4c66-91fe-1299292d40a5,9233322b-dfdb-4c66-91fe-1299292d40a5,1,0,7795348b-2f52-47f7-bf00-e11e5e795a43,7795348b-2f52-47f7-bf00-e11e5e795a43,1,0,0421b67e-ed26-491d-ab98-ec59002ed4ce,0421b67e-ed26-491d-ab98-ec59002ed4ce,1,0,bb47ced2-31f9-4870-8633-20b986e53ccc,bb47ced2-31f9-4870-8633-20b986e53ccc,1,0,7d8acec9-f5a9-411e-921c-446ed0dd3332,7d8acec9-f5a9-411e-921c-446ed0dd3332,1,0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,1,0,cdbd26b1-9583-46e8-adf7-8cc705639892,cdbd26b1-9583-46e8-adf7-8cc705639892,1,0,c0e38c3e-7088-4e35-9d84-2d0ab9655402,c0e38c3e-7088-4e35-9d84-2d0ab9655402,1,0,1098786f-dd24-4cce-b212-be0cb5f01735,1098786f-dd24-4cce-b212-be0cb5f01735,1,0,3c0037f3-4422-4836-b116-8c72e32bdd55,3c0037f3-4422-4836-b116-8c72e32bdd55,1,0,6f7c6c31-206b-4010-bdad-1ad2e304f154,6f7c6c31-206b-4010-bdad-1ad2e304f154,1,0,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,1,0,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,1,0,5b68d479-7880-44de-84e3-7f578b43f0dc,5b68d479-7880-44de-84e3-7f578b43f0dc,1,0,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,1,0,b4629308-42de-4ce8-8591-cf0c2399a9a2,b4629308-42de-4ce8-8591-cf0c2399a9a2,1,0,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,1,0,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,1,0,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,1,0,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1,0,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,1,0,b93b8760-6200-40ee-8bdc-875ba80a6155,b93b8760-6200-40ee-8bdc-875ba80a6155,1,0,c27472ee-879a-4746-9d21-122738ec80b7,c27472ee-879a-4746-9d21-122738ec80b7,1,0,e8b248d9-9049-456a-9c7d-7a0462cc67ab,e8b248d9-9049-456a-9c7d-7a0462cc67ab,1,0,d4562287-440d-4462-9de2-7097ccbf3764,d4562287-440d-4462-9de2-7097ccbf3764,1,0,ec797c75-02c5-4cf5-9dd4-26cd46c99519,ec797c75-02c5-4cf5-9dd4-26cd46c99519,1,0,6fccdf59-fc99-4a2b-a144-fffe438a147c,6fccdf59-fc99-4a2b-a144-fffe438a147c,1,0,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,1,0,08a413ff-bebd-42e5-8ff3-2115746a0844,08a413ff-bebd-42e5-8ff3-2115746a0844,1,0,da9b32e6-5b93-45a6-84b2-238d57541e18,da9b32e6-5b93-45a6-84b2-238d57541e18,1,0,e43d69c8-b284-47da-b236-611bc94a15b6,e43d69c8-b284-47da-b236-611bc94a15b6,1,0,31eeaa05-6c49-41fe-b840-1edbad4ccac7,31eeaa05-6c49-41fe-b840-1edbad4ccac7,1,0,842c8662-8f39-405e-9665-cbdabc116159,842c8662-8f39-405e-9665-cbdabc116159,1,0,fca4b033-02c4-4d61-9e51-87783c3cef1a,fca4b033-02c4-4d61-9e51-87783c3cef1a,1,0,396ef757-d7f6-411f-8c4c-1acb1106a009,396ef757-d7f6-411f-8c4c-1acb1106a009,1,0,839e29b1-a0d2-40fa-9f3e-46e66b943358,839e29b1-a0d2-40fa-9f3e-46e66b943358,1,0,c56d2cc7-630a-441b-b23f-ba78c34849bd,c56d2cc7-630a-441b-b23f-ba78c34849bd,1,0,9aecf4f5-46ed-4d1c-a584-cd028e467895,9aecf4f5-46ed-4d1c-a584-cd028e467895,1,0,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,1,0,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,1,0,a1f10624-22e9-4a04-b370-fd085bdd0f67,a1f10624-22e9-4a04-b370-fd085bdd0f67,1,0,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,1,0,3cffb795-2a28-4beb-92f4-5813f5994022,3cffb795-2a28-4beb-92f4-5813f5994022,1,0,3323ca68-1382-4710-a933-23fc56588935,3323ca68-1382-4710-a933-23fc56588935,1,0,d6b12775-3255-42b8-88b2-62684f873e7d,d6b12775-3255-42b8-88b2-62684f873e7d,1,0,cc23d903-ccc5-42f4-862f-5e7278c4e346,cc23d903-ccc5-42f4-862f-5e7278c4e346,1,0,98f033e0-fa40-46e0-b51a-87a066749a35,98f033e0-fa40-46e0-b51a-87a066749a35,1,0,e8b4cb2d-1180-4101-954a-4cb5464f198c,e8b4cb2d-1180-4101-954a-4cb5464f198c,1,0,a379287d-1ce8-460d-a503-910e728e28f1,a379287d-1ce8-460d-a503-910e728e28f1,1,0,f765c4ba-c677-42ac-8d0c-43bb485405b9,f765c4ba-c677-42ac-8d0c-43bb485405b9,1,0,83192b3e-e7a9-4595-8887-24cda84457a9,83192b3e-e7a9-4595-8887-24cda84457a9,1,0,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,1,0,c8a4c5da-bc88-4f6e-9787-1c22c2f41be7,c8a4c5da-bc88-4f6e-9787-1c22c2f41be7,1,0,08eeb8f1-944f-4450-83f6-ef20aaab7d86,08eeb8f1-944f-4450-83f6-ef20aaab7d86,1,0,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,1,0,8d77dd4a-e646-4105-8dcf-8ce8fc3da0b4,8d77dd4a-e646-4105-8dcf-8ce8fc3da0b4,1,0,2fd12dba-5311-4f31-949c-f6b15decc0cc,2fd12dba-5311-4f31-949c-f6b15decc0cc,1,0,d7cf3981-cf63-4a21-868b-8175a7704a8f,d7cf3981-cf63-4a21-868b-8175a7704a8f,1,0,35895e12-52b6-49a1-acdf-6d828a948af0,35895e12-52b6-49a1-acdf-6d828a948af0,1,0,0ae93712-74e8-41c7-8f2d-4dfc8983697d,0ae93712-74e8Line truncated
{6,1,1,5c7784cd-4426-4a63-a0d6-528aa7488e7a,1,f6ca036b-93cd-4ed0-834b-37fb452505ed,"3.0.1.231","Фирма ""1С""","БиблиотекаСтандартныхПодсистем",5842,1,0,8b523cc9-b443-4704-a73a-0229a7132b59,8b523cc9-b443-4704-a73a-0229a7132b59,1,0,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,1,0,9233322b-dfdb-4c66-91fe-1299292d40a5,9233322b-dfdb-4c66-91fe-1299292d40a5,1,0,7795348b-2f52-47f7-bf00-e11e5e795a43,7795348b-2f52-47f7-bf00-e11e5e795a43,1,0,0421b67e-ed26-491d-ab98-ec59002ed4ce,0421b67e-ed26-491d-ab98-ec59002ed4ce,1,0,bb47ced2-31f9-4870-8633-20b986e53ccc,bb47ced2-31f9-4870-8633-20b986e53ccc,1,0,7d8acec9-f5a9-411e-921c-446ed0dd3332,7d8acec9-f5a9-411e-921c-446ed0dd3332,1,0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,1,0,cdbd26b1-9583-46e8-adf7-8cc705639892,cdbd26b1-9583-46e8-adf7-8cc705639892,1,0,c0e38c3e-7088-4e35-9d84-2d0ab9655402,c0e38c3e-7088-4e35-9d84-2d0ab9655402,1,0,1098786f-dd24-4cce-b212-be0cb5f01735,1098786f-dd24-4cce-b212-be0cb5f01735,1,0,3c0037f3-4422-4836-b116-8c72e32bdd55,3c0037f3-4422-4836-b116-8c72e32bdd55,1,0,6f7c6c31-206b-4010-bdad-1ad2e304f154,6f7c6c31-206b-4010-bdad-1ad2e304f154,1,0,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,1,0,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,1,0,5b68d479-7880-44de-84e3-7f578b43f0dc,5b68d479-7880-44de-84e3-7f578b43f0dc,1,0,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,1,0,b4629308-42de-4ce8-8591-cf0c2399a9a2,b4629308-42de-4ce8-8591-cf0c2399a9a2,1,0,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,1,0,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,1,0,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,1,0,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1,0,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,1,0,b93b8760-6200-40ee-8bdc-875ba80a6155,b93b8760-6200-40ee-8bdc-875ba80a6155,1,0,c27472ee-879a-4746-9d21-122738ec80b7,c27472ee-879a-4746-9d21-122738ec80b7,1,0,e8b248d9-9049-456a-9c7d-7a0462cc67ab,e8b248d9-9049-456a-9c7d-7a0462cc67ab,1,0,d4562287-440d-4462-9de2-7097ccbf3764,d4562287-440d-4462-9de2-7097ccbf3764,1,0,ec797c75-02c5-4cf5-9dd4-26cd46c99519,ec797c75-02c5-4cf5-9dd4-26cd46c99519,1,0,6fccdf59-fc99-4a2b-a144-fffe438a147c,6fccdf59-fc99-4a2b-a144-fffe438a147c,1,0,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,1,0,08a413ff-bebd-42e5-8ff3-2115746a0844,08a413ff-bebd-42e5-8ff3-2115746a0844,1,0,da9b32e6-5b93-45a6-84b2-238d57541e18,da9b32e6-5b93-45a6-84b2-238d57541e18,1,0,e43d69c8-b284-47da-b236-611bc94a15b6,e43d69c8-b284-47da-b236-611bc94a15b6,1,0,31eeaa05-6c49-41fe-b840-1edbad4ccac7,31eeaa05-6c49-41fe-b840-1edbad4ccac7,1,0,842c8662-8f39-405e-9665-cbdabc116159,842c8662-8f39-405e-9665-cbdabc116159,1,0,fca4b033-02c4-4d61-9e51-87783c3cef1a,fca4b033-02c4-4d61-9e51-87783c3cef1a,1,0,396ef757-d7f6-411f-8c4c-1acb1106a009,396ef757-d7f6-411f-8c4c-1acb1106a009,1,0,839e29b1-a0d2-40fa-9f3e-46e66b943358,839e29b1-a0d2-40fa-9f3e-46e66b943358,1,0,c56d2cc7-630a-441b-b23f-ba78c34849bd,c56d2cc7-630a-441b-b23f-ba78c34849bd,1,0,9aecf4f5-46ed-4d1c-a584-cd028e467895,9aecf4f5-46ed-4d1c-a584-cd028e467895,1,0,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,1,0,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,1,0,a1f10624-22e9-4a04-b370-fd085bdd0f67,a1f10624-22e9-4a04-b370-fd085bdd0f67,1,0,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,1,0,3cffb795-2a28-4beb-92f4-5813f5994022,3cffb795-2a28-4beb-92f4-5813f5994022,1,0,3323ca68-1382-4710-a933-23fc56588935,3323ca68-1382-4710-a933-23fc56588935,1,0,d6b12775-3255-42b8-88b2-62684f873e7d,d6b12775-3255-42b8-88b2-62684f873e7d,1,0,cc23d903-ccc5-42f4-862f-5e7278c4e346,cc23d903-ccc5-42f4-862f-5e7278c4e346,1,0,98f033e0-fa40-46e0-b51a-87a066749a35,98f033e0-fa40-46e0-b51a-87a066749a35,1,0,e8b4cb2d-1180-4101-954a-4cb5464f198c,e8b4cb2d-1180-4101-954a-4cb5464f198c,1,0,a379287d-1ce8-460d-a503-910e728e28f1,a379287d-1ce8-460d-a503-910e728e28f1,1,0,f765c4ba-c677-42ac-8d0c-43bb485405b9,f765c4ba-c677-42ac-8d0c-43bb485405b9,1,0,83192b3e-e7a9-4595-8887-24cda84457a9,83192b3e-e7a9-4595-8887-24cda84457a9,1,0,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,1,0,c8a4c5da-bc88-4f6e-9787-1c22c2f41be7,c8a4c5da-bc88-4f6e-9787-1c22c2f41be7,1,0,08eeb8f1-944f-4450-83f6-ef20aaab7d86,08eeb8f1-944f-4450-83f6-ef20aaab7d86,1,0,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,1,0,8d77dd4a-e646-4105-8dcf-8ce8fc3da0b4,8d77dd4a-e646-4105-8dcf-8ce8fc3da0b4,1,0,2fd12dba-5311-4f31-949c-f6b15decc0cc,2fd12dba-5311-4f31-949c-f6b15decc0cc,1,0,d7cf3981-cf63-4a21-868b-8175a7704a8f,d7cf3981-cf63-4a21-868b-8175a7704a8f,1,0,35895e12-52b6-49a1-acdf-6d828a948af0,35895e12-52b6-49a1-acdf-6d828a948af0,1,0,0ae93712-74e8-41c7-8f2d-4dfc8983697d,0ae93712-74e8Line truncated
SSL/src/DataProcessors/ВыполнениеОбменаДанными/Forms/Форма/Module.bsl
+18 -8
View File
@@ -824,13 +824,17 @@
&НаСервере
Процедура ПриНачалеВыгрузкиДанныхНаСервере(ПродолжитьОжидание)
МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса();
Если МодульПомощникИнтерактивногоОбмена = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли;
НастройкиВыгрузки = Новый Структура;
НастройкиВыгрузки.Вставить("Корреспондент", УзелИнформационнойБазы);
НастройкиВыгрузки.Вставить("ОбластьДанныхКорреспондента", ОбластьДанныхКорреспондента);
МодульПомощникИнтерактивногоОбмена = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса");
ПараметрыОбработчикаВыгрузкиДанных = Неопределено;
МодульПомощникИнтерактивногоОбмена.ПриНачалеВыгрузкиДанных(НастройкиВыгрузки,
ПараметрыОбработчикаВыгрузкиДанных, ПродолжитьОжидание);
@@ -840,10 +844,12 @@
&НаСервереБезКонтекста
Процедура ПриОжиданииВыгрузкиДанныхНаСервере(ПараметрыОбработчика, ПродолжитьОжидание)
МодульПомощникИнтерактивногоОбмена = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса");
МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса();
Если МодульПомощникИнтерактивногоОбмена = Неопределено Тогда
ПродолжитьОжидание = Ложь;
КонецЕсли;
МодульПомощникИнтерактивногоОбмена.ПриОжиданииВыгрузкиДанных(ПараметрыОбработчика, ПродолжитьОжидание);
КонецПроцедуры
@@ -851,10 +857,14 @@
&НаСервереБезКонтекста
Процедура ПриЗавершенииВыгрузкиДанныхНаСервере(ПараметрыОбработчика, ДанныеВыгружены, СообщениеОбОшибке)
СтатусЗавершения = Неопределено;
МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса();
МодульПомощникИнтерактивногоОбмена = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса");
Если МодульПомощникИнтерактивногоОбмена = Неопределено Тогда
ДанныеВыгружены = Ложь;
Возврат;
КонецЕсли;
СтатусЗавершения = Неопределено;
МодульПомощникИнтерактивногоОбмена.ПриЗавершенииВыгрузкиДанных(ПараметрыОбработчика, СтатусЗавершения);
ПараметрыОбработчика = Неопределено;
SSL/src/DataProcessors/ПанельАдминистрированияБСП/Forms/ИнтернетПоддержкаИСервисы/Module.bsl
+10
View File
@@ -29,6 +29,12 @@
Иначе
ВидимостьГруппыНастройки = Ложь;
КонецЕсли;
МодульАдресныйКлассификаторСлужебный = ОбщегоНазначения.ОбщийМодуль("АдресныйКлассификаторСлужебный");
СведенияОДоступностиАдресныхСведений = МодульАдресныйКлассификаторСлужебный.СведенияОДоступностиАдресныхСведений();
АдресныйКлассификаторСодержитЗагруженныеСведения = СведенияОДоступностиАдресныхСведений.Получить("ИспользоватьЗагруженные") = Истина;
Элементы.РегистрСведенийАдресныеОбъектыОчиститьАдресныйКлассификатор.Доступность = АдресныйКлассификаторСодержитЗагруженныеСведения;
Иначе
ВидимостьГруппыКоманды = Ложь;
КонецЕсли;
@@ -174,6 +180,10 @@
Элементы.ГруппаАдресныйКлассификаторПраваяКолонка.Видимость = Истина;
КонецЕсли;
Если ИмяСобытия = "ОчищенАдресныйКлассификатор" Или ИмяСобытия = "ЗагруженАдресныйКлассификатор" Тогда
Элементы.РегистрСведенийАдресныеОбъектыОчиститьАдресныйКлассификатор.Доступность = (Параметр = Истина);
КонецЕсли;
Если ОбрабатыватьНастройкиБИП Тогда
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("ИнтернетПоддержкаПользователей.БазоваяФункциональностьБИП") Тогда
МодульИнтернетПоддержкаПользователейКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ИнтернетПоддержкаПользователейКлиент");
SSL/src/DataProcessors/ПомощникИнтерактивногоОбменаДанными/Forms/ВыгрузкаДанныхДляСопоставления/Module.bsl
+42 -21
View File
@@ -150,7 +150,9 @@
НастройкиПодключения.Вставить("ИмяПланаОбмена", ОбменДаннымиПовтИсп.ПолучитьИмяПланаОбмена(УзелОбмена));
Обработки.ПомощникСозданияОбменаДанными.ПриНачалеПроверкиПодключения(
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
МодульПомощникНастройки.ПриНачалеПроверкиПодключения(
НастройкиПодключения, ПараметрыОбработчикаПроверкиПодключения, ПродолжитьОжидание);
КонецПроцедуры
@@ -158,16 +160,20 @@
&НаСервереБезКонтекста
Процедура ПриОжиданииПроверкиПодключенияНаСервере(ПараметрыОбработчика, ПродолжитьОжидание)
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
ПродолжитьОжидание = Ложь;
Обработки.ПомощникСозданияОбменаДанными.ПриОжиданииПроверкиПодключения(ПараметрыОбработчика, ПродолжитьОжидание);
МодульПомощникНастройки.ПриОжиданииПроверкиПодключения(ПараметрыОбработчика, ПродолжитьОжидание);
КонецПроцедуры
&НаСервере
Процедура ПриЗавершенииПроверкиПодключенияНаСервере()
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
СтатусЗавершения = Неопределено;
Обработки.ПомощникСозданияОбменаДанными.ПриЗавершенииПроверкиПодключения(
МодульПомощникНастройки.ПриЗавершенииПроверкиПодключения(
ПараметрыОбработчикаПроверкиПодключения, СтатусЗавершения);
Если СтатусЗавершения.Отказ Тогда
@@ -237,10 +243,12 @@
&НаСервере
Процедура ПриНачалеРегистрацииИзмененийНаСервере(ПродолжитьОжидание)
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
НастройкиРегистрации = Новый Структура;
НастройкиРегистрации.Вставить("УзелОбмена", УзелОбмена);
Обработки.ПомощникСозданияОбменаДанными.ПриНачалеРегистрацииДанныхДляНачальнойВыгрузки(
МодульПомощникНастройки.ПриНачалеРегистрацииДанныхДляНачальнойВыгрузки(
НастройкиРегистрации, ПараметрыОбработчикаРегистрацииДанныхДляНачальнойВыгрузки, ПродолжитьОжидание);
КонецПроцедуры
@@ -248,8 +256,10 @@
&НаСервереБезКонтекста
Процедура ПриОжиданииРегистрацииИзмененийНаСервере(ПараметрыОбработчика, ПродолжитьОжидание)
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
ПродолжитьОжидание = Ложь;
Обработки.ПомощникСозданияОбменаДанными.ПриОжиданииРегистрацииДанныхДляНачальнойВыгрузки(
МодульПомощникНастройки.ПриОжиданииРегистрацииДанныхДляНачальнойВыгрузки(
ПараметрыОбработчика, ПродолжитьОжидание);
КонецПроцедуры
@@ -257,8 +267,10 @@
&НаСервере
Процедура ПриЗавершенииРегистрацииИзмененийНаСервере()
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
СтатусЗавершения = Неопределено;
Обработки.ПомощникСозданияОбменаДанными.ПриЗавершенииРегистрацииДанныхДляНачальнойВыгрузки(
МодульПомощникНастройки.ПриЗавершенииРегистрацииДанныхДляНачальнойВыгрузки(
ПараметрыОбработчикаРегистрацииДанныхДляНачальнойВыгрузки, СтатусЗавершения);
Если СтатусЗавершения.Отказ Тогда
@@ -374,8 +386,7 @@
НастройкиВыгрузки.Вставить("Корреспондент", УзелОбмена);
НастройкиВыгрузки.Вставить("ОбластьДанныхКорреспондента", ОбластьДанныхКорреспондента);
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса");
МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса();
Иначе
НастройкиВыгрузки.Вставить("УзелОбмена", УзелОбмена);
НастройкиВыгрузки.Вставить("ВидТранспорта", ВидТранспорта);
@@ -385,10 +396,15 @@
НастройкиВыгрузки.Вставить("WSПароль", WSПароль);
КонецЕсли;
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникИнтерактивногоОбменаДанными");
МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДанными();
КонецЕсли;
МодульПомощникНастройки.ПриНачалеВыгрузкиДанныхДляСопоставления(
Если МодульПомощникИнтерактивногоОбмена = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли;
МодульПомощникИнтерактивногоОбмена.ПриНачалеВыгрузкиДанныхДляСопоставления(
НастройкиВыгрузки, ПараметрыОбработчикаВыгрузкиДанныхДляСопоставления, ПродолжитьОжидание);
КонецПроцедуры
@@ -396,29 +412,34 @@
&НаСервереБезКонтекста
Процедура ПриОжиданииВыгрузкиДанныхДляСопоставленияНаСервере(ПараметрыОбработчика, ПродолжитьОжидание)
Если ОбщегоНазначения.ПодсистемаСуществует("ТехнологияСервиса.РаботаВМоделиСервиса.ОбменДаннымиВМоделиСервиса") Тогда
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса");
МодульПомощникНастройки.ПриОжиданииВыгрузкиДанныхДляСопоставления(ПараметрыОбработчика, ПродолжитьОжидание);
Иначе
МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса();
Если МодульПомощникИнтерактивногоОбмена = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли;
МодульПомощникИнтерактивногоОбмена.ПриОжиданииВыгрузкиДанныхДляСопоставления(ПараметрыОбработчика, ПродолжитьОжидание);
КонецПроцедуры
&НаСервере
Процедура ПриЗавершенииВыгрузкиДанныхДляСопоставленияНаСервере()
СтатусЗавершения = Неопределено;
Если ЭтоОбменСПриложениемВСервисе Тогда
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса");
МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса();
Иначе
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникИнтерактивногоОбменаДанными");
МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДанными();
КонецЕсли;
МодульПомощникНастройки.ПриЗавершенииВыгрузкиДанныхДляСопоставления(
Если МодульПомощникИнтерактивногоОбмена = Неопределено Тогда
ВыгрузкаДанныхВыполнена = Ложь;
Возврат;
КонецЕсли;
СтатусЗавершения = Неопределено;
МодульПомощникИнтерактивногоОбмена.ПриЗавершенииВыгрузкиДанныхДляСопоставления(
ПараметрыОбработчикаВыгрузкиДанныхДляСопоставления, СтатусЗавершения);
Если СтатусЗавершения.Отказ Тогда
SSL/src/DataProcessors/ПомощникИнтерактивногоОбменаДанными/Forms/Форма/Module.bsl
+34 -39
View File
@@ -956,7 +956,7 @@
КонецЕсли;
Отказ = Ложь;
ВыполнитьЗагрузкуДанныхНаСервере(Отказ, КлючиСтрок);
ОбновитьИнформациюСопоставленияПоСтрокеНаСервере(Отказ, КлючиСтрок, Истина);
Если Отказ Тогда
НСтрока = НСтр("ru = 'При загрузке данных возникли ошибки.
@@ -1069,35 +1069,15 @@
#Область ПроцедурыИФункцииСервер
&НаСервере
Процедура ОбновитьИнформациюСопоставленияПоСтрокеНаСервере(Отказ, КлючиСтрок)
Процедура ОбновитьИнформациюСопоставленияПоСтрокеНаСервере(Отказ, КлючиСтрок, ВыполнитьЗагрузкуДанных = Ложь)
ИндексыСтрок = ПолучитьИндексыСтрокТаблицыИнформацииСтатистики(КлючиСтрок);
ОбработкаОбъект = РеквизитФормыВЗначение("Объект");
// Получаем статистическую информацию по сопоставлению.
ОбработкаОбъект.ПолучитьСтатистикуСопоставленияОбъектовПоСтроке(Отказ, ИндексыСтрок);
ЗначениеВРеквизитФормы(ОбработкаОбъект, "Объект");
ИнформацияСтатистики(ОбработкаОбъект.ТаблицаИнформацииСтатистики());
ВсеДанныеСопоставлены = Обработки.ПомощникИнтерактивногоОбменаДанными.ВсеДанныеСопоставлены(ОбработкаОбъект.ТаблицаИнформацииСтатистики());
ЕстьНеСопоставленнаяНСИ = НЕ ВсеДанныеСопоставлены И Обработки.ПомощникИнтерактивногоОбменаДанными.ЕстьНеСопоставленнаяНСИ(ОбработкаОбъект.ТаблицаИнформацииСтатистики());
УстановитьВидимостьГруппыДополнительнойИнформации();
КонецПроцедуры
&НаСервере
Процедура ВыполнитьЗагрузкуДанныхНаСервере(Отказ, КлючиСтрок)
ИндексыСтрок = ПолучитьИндексыСтрокТаблицыИнформацииСтатистики(КлючиСтрок);
ОбработкаОбъект = РеквизитФормыВЗначение("Объект");
// выполняем загрузку данных
Если ВыполнитьЗагрузкуДанных Тогда
ОбработкаОбъект.ВыполнитьЗагрузкуДанных(Отказ, ИндексыСтрок);
КонецЕсли;
// Получаем статистическую информацию по сопоставлению.
ОбработкаОбъект.ПолучитьСтатистикуСопоставленияОбъектовПоСтроке(Отказ, ИндексыСтрок);
@@ -1106,8 +1086,10 @@
ИнформацияСтатистики(ОбработкаОбъект.ТаблицаИнформацииСтатистики());
ВсеДанныеСопоставлены = Обработки.ПомощникИнтерактивногоОбменаДанными.ВсеДанныеСопоставлены(ОбработкаОбъект.ТаблицаИнформацииСтатистики());
ЕстьНеСопоставленнаяНСИ = НЕ ВсеДанныеСопоставлены И Обработки.ПомощникИнтерактивногоОбменаДанными.ЕстьНеСопоставленнаяНСИ(ОбработкаОбъект.ТаблицаИнформацииСтатистики());
МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДанными();
ВсеДанныеСопоставлены = МодульПомощникИнтерактивногоОбмена.ВсеДанныеСопоставлены(ОбработкаОбъект.ТаблицаИнформацииСтатистики());
ЕстьНеСопоставленнаяНСИ = Не ВсеДанныеСопоставлены И МодульПомощникИнтерактивногоОбмена.ЕстьНеСопоставленнаяНСИ(ОбработкаОбъект.ТаблицаИнформацииСтатистики());
УстановитьВидимостьГруппыДополнительнойИнформации();
@@ -2603,7 +2585,9 @@
ПодготовитьСтруктуруДополненияВыгрузки(НастройкиРегистрации.ДополнениеВыгрузки);
ПараметрыОбработчикаРегистрацииДанных = Неопределено;
Обработки.ПомощникИнтерактивногоОбменаДанными.ПриНачалеРегистрацииДанных(НастройкиРегистрации,
МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДанными();
МодульПомощникИнтерактивногоОбмена.ПриНачалеРегистрацииДанных(НастройкиРегистрации,
ПараметрыОбработчикаРегистрацииДанных, ПродолжитьОжидание);
КонецПроцедуры
@@ -2611,8 +2595,8 @@
&НаСервереБезКонтекста
Процедура ПриОжиданииРегистрацииДанныхНаСервере(ПараметрыОбработчика, ПродолжитьОжидание)
ПродолжитьОжидание = Ложь;
Обработки.ПомощникИнтерактивногоОбменаДанными.ПриОжиданииРегистрацииДанных(ПараметрыОбработчика, ПродолжитьОжидание);
МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДанными();
МодульПомощникИнтерактивногоОбмена.ПриОжиданииРегистрацииДанных(ПараметрыОбработчика, ПродолжитьОжидание);
КонецПроцедуры
@@ -2621,8 +2605,8 @@
СтатусЗавершения = Неопределено;
Обработки.ПомощникИнтерактивногоОбменаДанными.ПриЗавершенииРегистрацииДанных(
ПараметрыОбработчика, СтатусЗавершения);
МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДанными();
МодульПомощникИнтерактивногоОбмена.ПриЗавершенииРегистрацииДанных(ПараметрыОбработчика, СтатусЗавершения);
ПараметрыОбработчика = Неопределено;
Если СтатусЗавершения.Отказ Тогда
@@ -2759,6 +2743,13 @@
&НаСервере
Процедура ПриНачалеВыгрузкиДанныхНаСервере(ПродолжитьОжидание)
МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса();
Если МодульПомощникИнтерактивногоОбмена = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли;
НастройкиВыгрузки = Новый Структура;
НастройкиВыгрузки.Вставить("Корреспондент", Объект.УзелИнформационнойБазы);
НастройкиВыгрузки.Вставить("ОбластьДанныхКорреспондента", ОбластьДанныхКорреспондента);
@@ -2766,9 +2757,6 @@
ПодготовитьСтруктуруДополненияВыгрузки(НастройкиВыгрузки.ДополнениеВыгрузки);
МодульПомощникИнтерактивногоОбмена = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса");
ПараметрыОбработчикаВыгрузкиДанных = Неопределено;
МодульПомощникИнтерактивногоОбмена.ПриНачалеВыгрузкиДанных(НастройкиВыгрузки,
ПараметрыОбработчикаВыгрузкиДанных, ПродолжитьОжидание);
@@ -2778,10 +2766,13 @@
&НаСервереБезКонтекста
Процедура ПриОжиданииВыгрузкиДанныхНаСервере(ПараметрыОбработчика, ПродолжитьОжидание)
МодульПомощникИнтерактивногоОбмена = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса");
МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса();
Если МодульПомощникИнтерактивногоОбмена = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли;
МодульПомощникИнтерактивногоОбмена.ПриОжиданииВыгрузкиДанных(ПараметрыОбработчика, ПродолжитьОжидание);
КонецПроцедуры
@@ -2789,10 +2780,14 @@
&НаСервереБезКонтекста
Процедура ПриЗавершенииВыгрузкиДанныхНаСервере(ПараметрыОбработчика, ДанныеВыгружены, СообщениеОбОшибке)
СтатусЗавершения = Неопределено;
МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса();
МодульПомощникИнтерактивногоОбмена = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса");
Если МодульПомощникИнтерактивногоОбмена = Неопределено Тогда
ДанныеВыгружены = Ложь;
Возврат;
КонецЕсли;
СтатусЗавершения = Неопределено;
МодульПомощникИнтерактивногоОбмена.ПриЗавершенииВыгрузкиДанных(ПараметрыОбработчика, СтатусЗавершения);
ПараметрыОбработчика = Неопределено;
SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/Forms/ЗагрузкаНастроекXDTO/Module.bsl
+9 -5
View File
@@ -113,28 +113,32 @@
&НаСервере
Процедура ПриНачалеЗагрузкиНастроекXDTOНаСервере(ПродолжитьОжидание)
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
НастройкиЗагрузки = Новый Структура;
НастройкиЗагрузки.Вставить("УзелОбмена", УзелОбмена);
Обработки.ПомощникСозданияОбменаДанными.ПриНачалеЗагрузкиНастроекXDTO(
НастройкиЗагрузки, ПараметрыОбработчика, ПродолжитьОжидание);
МодульПомощникНастройки.ПриНачалеЗагрузкиНастроекXDTO(НастройкиЗагрузки, ПараметрыОбработчика, ПродолжитьОжидание);
КонецПроцедуры
&НаСервереБезКонтекста
Процедура ПриОжиданииЗагрузкиНастроекXDTOНаСервере(ПараметрыОбработчика, ПродолжитьОжидание)
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
ПродолжитьОжидание = Ложь;
Обработки.ПомощникСозданияОбменаДанными.ПриОжиданииЗагрузкиНастроекXDTO(ПараметрыОбработчика, ПродолжитьОжидание);
МодульПомощникНастройки.ПриОжиданииЗагрузкиНастроекXDTO(ПараметрыОбработчика, ПродолжитьОжидание);
КонецПроцедуры
&НаСервереБезКонтекста
Процедура ПриЗавершенииЗагрузкиНастроекXDTOНаСервере(ПараметрыОбработчика, НастройкиЗагружены, ПолученыДанныеДляСопоставления, СообщениеОбОшибке)
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
СтатусЗавершения = Неопределено;
Обработки.ПомощникСозданияОбменаДанными.ПриЗавершенииЗагрузкиНастроекXDTO(
ПараметрыОбработчика, СтатусЗавершения);
МодульПомощникНастройки.ПриЗавершенииЗагрузкиНастроекXDTO(ПараметрыОбработчика, СтатусЗавершения);
Если СтатусЗавершения.Отказ Тогда
НастройкиЗагружены = Ложь;
SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/Forms/НастройкаПодключения/Module.bsl
+74 -42
View File
@@ -355,13 +355,13 @@
&НаСервере
Процедура ПриНачалеПолученияСпискаПриложенийДляПодключенияНаСервере(ПродолжитьОжидание)
Если Не ОбщегоНазначения.ПодсистемаСуществует("ТехнологияСервиса.РаботаВМоделиСервиса.ОбменДаннымиВМоделиСервиса") Тогда
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
Если МодульПомощникНастройки = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли;
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
ПараметрыПомощника = Новый Структура;
ПараметрыПомощника.Вставить("Режим", "НеНастроенныеОбмены");
ПараметрыПомощника.Вставить("ИмяПланаОбмена", ИмяПланаОбмена);
@@ -375,13 +375,13 @@
&НаСервереБезКонтекста
Процедура ПриОжиданииПолученияСпискаПриложенийДляПодключенияНаСервере(ПараметрыОбработчика, ПродолжитьОжидание)
Если Не ОбщегоНазначения.ПодсистемаСуществует("ТехнологияСервиса.РаботаВМоделиСервиса.ОбменДаннымиВМоделиСервиса") Тогда
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
Если МодульПомощникНастройки = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли;
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
МодульПомощникНастройки.ПриОжиданииПолученияСпискаПриложений(
ПараметрыОбработчика, ПродолжитьОжидание);
@@ -390,13 +390,13 @@
&НаСервере
Процедура ПриЗавершенииПолученияСпискаПриложенийДляПодключенияНаСервере(Отказ = Ложь)
Если Не ОбщегоНазначения.ПодсистемаСуществует("ТехнологияСервиса.РаботаВМоделиСервиса.ОбменДаннымиВМоделиСервиса") Тогда
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
Если МодульПомощникНастройки = Неопределено Тогда
Отказ = Истина;
Возврат;
КонецЕсли;
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
СтатусЗавершения = Неопределено;
МодульПомощникНастройки.ПриЗавершенииПолученияСпискаПриложений(
ПараметрыОбработчикаПолученияСпискаПриложений, СтатусЗавершения);
@@ -640,11 +640,13 @@
&НаСервере
Процедура ПриНачалеПроверкиПодключенияНаСервере(ВидТранспорта, ПродолжитьОжидание)
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
СтруктураНастроек = Новый Структура;
ЗаполнитьСтруктуруПараметровПодключенияПомощника(СтруктураНастроек);
СтруктураНастроек.ВидТранспортаСообщенийОбмена = Перечисления.ВидыТранспортаСообщенийОбмена[ВидТранспорта];
Обработки.ПомощникСозданияОбменаДанными.ПриНачалеПроверкиПодключения(
МодульПомощникНастройки.ПриНачалеПроверкиПодключения(
СтруктураНастроек, ПараметрыОбработчикаПроверкиПодключения, ПродолжитьОжидание);
КонецПроцедуры
@@ -652,17 +654,20 @@
&НаСервереБезКонтекста
Процедура ПриОжиданииПроверкиПодключенияНаСервере(ПараметрыОбработчика, ПродолжитьОжидание)
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
ПродолжитьОжидание = Ложь;
Обработки.ПомощникСозданияОбменаДанными.ПриОжиданииПроверкиПодключения(ПараметрыОбработчика, ПродолжитьОжидание);
МодульПомощникНастройки.ПриОжиданииПроверкиПодключения(ПараметрыОбработчика, ПродолжитьОжидание);
КонецПроцедуры
&НаСервере
Процедура ПриЗавершенииПроверкиПодключенияНаСервере(ПроверкаПодключенияВыполнена, СообщениеОбОшибке = "")
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
СтатусЗавершения = Неопределено;
Обработки.ПомощникСозданияОбменаДанными.ПриЗавершенииПроверкиПодключения(
ПараметрыОбработчикаПроверкиПодключения, СтатусЗавершения);
МодульПомощникНастройки.ПриЗавершенииПроверкиПодключения(ПараметрыОбработчикаПроверкиПодключения, СтатусЗавершения);
Если СтатусЗавершения.Отказ Тогда
ПроверкаПодключенияВыполнена = Ложь;
@@ -688,14 +693,18 @@
&НаСервере
Процедура ПриНачалеПроверкиПодключенияВМоделиСервисаНаСервере(ПродолжитьОжидание)
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
Если МодульПомощникНастройки = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли;
НастройкиПодключения = Новый Структура;
НастройкиПодключения.Вставить("ИмяПланаОбмена", ИмяПланаОбмена);
НастройкиПодключения.Вставить("НаименованиеКорреспондента", НаименованиеКорреспондента);
НастройкиПодключения.Вставить("ОбластьДанныхКорреспондента", ОбластьДанныхКорреспондента);
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
ПараметрыОбработчикаПроверкиПодключения = Неопределено;
МодульПомощникНастройки.ПриНачалеПолученияОбщихДанныхУзловКорреспондента(НастройкиПодключения,
ПараметрыОбработчикаПроверкиПодключения, ПродолжитьОжидание);
@@ -705,8 +714,12 @@
&НаСервереБезКонтекста
Процедура ПриОжиданииПроверкиПодключенияВМоделиСервисаНаСервере(ПараметрыОбработчика, ПродолжитьОжидание)
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
Если МодульПомощникНастройки = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли;
ПродолжитьОжидание = Ложь;
МодульПомощникНастройки.ПриОжиданииПолученияОбщихДанныхУзловКорреспондента(ПараметрыОбработчика, ПродолжитьОжидание);
@@ -716,11 +729,14 @@
&НаСервере
Процедура ПриЗавершенииПроверкиПодключенияВМоделиСервисаНаСервере(ПроверкаПодключенияВыполнена, СообщениеОбОшибке = "")
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
Если МодульПомощникНастройки = Неопределено Тогда
ПроверкаПодключенияВыполнена = Ложь;
Возврат;
КонецЕсли;
СтатусЗавершения = Неопределено;
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
МодульПомощникНастройки.ПриЗавершенииПолученияОбщихДанныхУзловКорреспондента(
ПараметрыОбработчикаПроверкиПодключения, СтатусЗавершения);
ПараметрыОбработчикаПроверкиПодключения = Неопределено;
@@ -873,8 +889,6 @@
Если ЭтоОбменСПриложениемВСервисе Тогда
МодульОбменДаннымиВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль("ОбменДаннымиВМоделиСервиса");
НастройкиПодключения = Новый Структура;
НастройкиПодключения.Вставить("ИмяПланаОбмена", ИмяПланаОбменаКорреспондента);
НастройкиПодключения.Вставить("ИмяПланаОбменаКорреспондента", ИмяПланаОбмена);
@@ -905,18 +919,22 @@
НастройкиПодключения.НастройкиXDTOКорреспондента.ПоддерживаемыеВерсии.Добавить(ВерсияФорматаОбмена);
КонецЕсли;
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
Иначе
// Настройки подключения в формате структуры реквизитов помощника создания обмена данными.
НастройкиПодключения = Новый Структура;
ЗаполнитьСтруктуруПараметровПодключенияПомощника(НастройкиПодключения);
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникСозданияОбменаДанными");
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
КонецЕсли;
Если МодульПомощникНастройки = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли;
ПараметрыОбработчикаСохраненияНастроекПодключения = Неопределено;
МодульПомощникНастройки.ПриНачалеСохраненияНастроекПодключения(НастройкиПодключения,
ПараметрыОбработчикаСохраненияНастроекПодключения, ПродолжитьОжидание);
@@ -927,10 +945,14 @@
Процедура ПриОжиданииСохраненияНастроекПодключенияНаСервере(МодельСервиса, ПараметрыОбработчика, ПродолжитьОжидание)
Если МодельСервиса Тогда
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
Иначе
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникСозданияОбменаДанными");
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
КонецЕсли;
Если МодульПомощникНастройки = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли;
ПродолжитьОжидание = Ложь;
@@ -945,10 +967,14 @@
СтатусЗавершения = Неопределено;
Если МодельСервиса Тогда
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
Иначе
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникСозданияОбменаДанными");
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
КонецЕсли;
Если МодульПомощникНастройки = Неопределено Тогда
НастройкиПодключенияСохранены = Ложь;
Возврат;
КонецЕсли;
МодульПомощникНастройки.ПриЗавершенииСохраненияНастроекПодключения(
@@ -1036,7 +1062,7 @@
СтруктураНастроекПомощника.Вставить("ИдентификаторИнформационнойБазыПриемника", ИдентификаторИнформационнойБазыПриемника);
СтруктураНастроекПомощника.Вставить("ВерсияФорматаФайлаНастроекОбменаДанными",
Обработки.ПомощникСозданияОбменаДанными.ВерсияФорматаНастроекОбменаДанными());
ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными().ВерсияФорматаНастроекОбменаДанными());
СтруктураНастроекПомощника.Вставить("ВерсияФорматаОбмена", ВерсияФорматаОбмена);
СтруктураНастроекПомощника.Вставить("ПоддерживаемыеОбъектыФормата", ПоддерживаемыеОбъектыФорматаКорреспондента);
@@ -1285,18 +1311,20 @@
&НаСервере
Процедура ЗаполнитьНастройкиПодключенияИзXMLНаСервере(АдресВХранилище, Отказ, СообщениеОбОшибке = "")
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
ВременныйФайл = ПолучитьИмяВременногоФайла("xml");
ДанныеФайла = ПолучитьИзВременногоХранилища(АдресВХранилище);
ДанныеФайла.Записать(ВременныйФайл);
Попытка
НастройкиПодключения = Обработки.ПомощникСозданияОбменаДанными.Создать();
НастройкиПодключения = МодульПомощникНастройки.Создать();
НастройкиПодключения.ИмяПланаОбмена = ИмяПланаОбмена;
НастройкиПодключения.ВариантНастройкиОбмена = ИдентификаторНастройки;
НастройкиПодключения.ВариантРаботыМастера = "ПродолжитьНастройкуОбменаДанными";
Обработки.ПомощникСозданияОбменаДанными.ЗаполнитьНастройкиПодключенияИзXML(
МодульПомощникНастройки.ЗаполнитьНастройкиПодключенияИзXML(
НастройкиПодключения, ВременныйФайл, Истина);
Исключение
Отказ = Истина;
@@ -1318,13 +1346,15 @@
&НаСервере
Процедура ЗаполнитьНастройкиXDTOКорреспондентаИзXMLНаСервере(АдресВХранилище, Отказ, СообщениеОбОшибке = "")
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
ВременныйФайл = ПолучитьИмяВременногоФайла("xml");
ДанныеФайла = ПолучитьИзВременногоХранилища(АдресВХранилище);
ДанныеФайла.Записать(ВременныйФайл);
Попытка
НастройкиXDTOКорреспондента = Обработки.ПомощникСозданияОбменаДанными.НастройкиXDTOКорреспондентаИзXML(
НастройкиXDTOКорреспондента = МодульПомощникНастройки.НастройкиXDTOКорреспондентаИзXML(
ВременныйФайл, Истина, ПланыОбмена[ИмяПланаОбмена].ПустаяСсылка());
Исключение
Отказ = Истина;
@@ -1649,12 +1679,14 @@
УзелОбмена = ОбменДаннымиСервер.ГлавныйУзел();
// Заполнение параметров из настроек подключения в константе.
ПомощникСозданияОбмена = Обработки.ПомощникСозданияОбменаДанными.Создать();
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
ПомощникСозданияОбмена = МодульПомощникНастройки.Создать();
ПомощникСозданияОбмена.ИмяПланаОбмена = ИмяПланаОбмена;
ПомощникСозданияОбмена.ВариантНастройкиОбмена = ИдентификаторНастройки;
ПомощникСозданияОбмена.ВариантРаботыМастера = "ПродолжитьНастройкуОбменаДанными";
Обработки.ПомощникСозданияОбменаДанными.ЗаполнитьНастройкиПодключенияИзКонстанты(ПомощникСозданияОбмена);
МодульПомощникНастройки.ЗаполнитьНастройкиПодключенияИзКонстанты(ПомощникСозданияОбмена);
ПрочитатьСтруктуруПараметровПодключенияПомощника(ПомощникСозданияОбмена);
ДоступноИзменениеНаименования = Ложь;
SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/Forms/НастройкаСинхронизации/Module.bsl
+1 -1
View File
@@ -238,7 +238,7 @@
&НаСервереБезКонтекста
Функция ПредопределенноеРасписаниеКаждыйЧас()
Возврат Обработки.ПомощникСозданияОбменаДанными.ПредопределенноеРасписаниеКаждыйЧас();
Возврат ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными().ПредопределенноеРасписаниеКаждыйЧас();
КонецФункции
SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/Forms/НоваяСинхронизацияДанных/Module.bsl
+3 -1
View File
@@ -54,8 +54,10 @@
КомандыСозданияОбмена.Очистить();
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
ТаблицаНастройки = Неопределено;
Обработки.ПомощникСозданияОбменаДанными.ПриПолученииДоступныхНастроекСинхронизацииДанных(ТаблицаНастройки, Истина);
МодульПомощникНастройки.ПриПолученииДоступныхНастроекСинхронизацииДанных(ТаблицаНастройки, Истина);
НаименованияКонфигураций = Новый Соответствие;
Для Каждого СтрокаНастройки Из ТаблицаНастройки Цикл
SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/Forms/УдалениеНастройкиСинхронизации/Module.bsl
+25 -10
View File
@@ -150,17 +150,22 @@
НастройкиУдаления.Вставить("ИмяПланаОбмена", ИмяПланаОбмена);
НастройкиУдаления.Вставить("ОбластьДанныхКорреспондента", ОбластьДанныхКорреспондента);
МодульПомощникУдаленияНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
МодульПомощникУдаленияНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
Иначе
НастройкиУдаления.Вставить("УзелОбмена", УзелОбмена);
НастройкиУдаления.Вставить("УдалитьНастройкуВКорреспонденте", УдалитьНастройкуВКорреспонденте);
МодульПомощникУдаленияНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникСозданияОбменаДанными");
МодульПомощникУдаленияНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
КонецЕсли;
Если МодульПомощникУдаленияНастройки = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли;
МодульПомощникУдаленияНастройки.ПриНачалеУдаленияНастройкиСинхронизации(НастройкиУдаления,
ПараметрыОбработчикаУдаленияНастройкиСинхронизации, ПродолжитьОжидание);
@@ -169,14 +174,18 @@
&НаСервереБезКонтекста
Процедура ПриОжиданииУдаленияНастройкиСинхронизацииНаСервере(ЭтоОбменСПриложениемВСервисе, ПараметрыОбработчика, ПродолжитьОжидание)
ПродолжитьОжидание = Ложь;
Если ЭтоОбменСПриложениемВСервисе Тогда
МодульПомощникУдаленияНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
МодульПомощникУдаленияНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
Иначе
МодульПомощникУдаленияНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникСозданияОбменаДанными");
МодульПомощникУдаленияНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
КонецЕсли;
Если МодульПомощникУдаленияНастройки = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли;
ПродолжитьОжидание = Ложь;
МодульПомощникУдаленияНастройки.ПриОжиданииУдаленияНастройкиСинхронизации(ПараметрыОбработчика, ПродолжитьОжидание);
КонецПроцедуры
@@ -184,14 +193,20 @@
&НаСервере
Процедура ПриЗавершенииУдаленияНастройкиСинхронизацииНаСервере(НастройкаУдалена, НастройкаУдаленаВКорреспонденте, СообщениеОбОшибке)
СтатусЗавершения = Неопределено;
Если ЭтоОбменСПриложениемВСервисе Тогда
МодульПомощникУдаленияНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
МодульПомощникУдаленияНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
Иначе
МодульПомощникУдаленияНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникСозданияОбменаДанными");
МодульПомощникУдаленияНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
КонецЕсли;
Если МодульПомощникУдаленияНастройки = Неопределено Тогда
НастройкаУдалена = Ложь;
НастройкаУдаленаВКорреспонденте = Ложь;
Возврат;
КонецЕсли;
СтатусЗавершения = Неопределено;
МодульПомощникУдаленияНастройки.ПриЗавершенииУдаленияНастройкиСинхронизации(
ПараметрыОбработчикаУдаленияНастройкиСинхронизации, СтатусЗавершения);
SSL/src/DataProcessors/ПомощникСозданияОбменаДанными/ObjectModule.bsl
+4 -2
View File
@@ -315,8 +315,9 @@
// Получаем имя временного файла в локальной ФС на сервере.
ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xml");
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
Попытка
Обработки.ПомощникСозданияОбменаДанными.НастройкиПодключенияВXML(ЭтотОбъект, ИмяВременногоФайла);
МодульПомощникНастройки.НастройкиПодключенияВXML(ЭтотОбъект, ИмяВременногоФайла);
Исключение
СообщитьИнформациюОбОшибке(ИнформацияОбОшибке(), Отказ);
УдалитьВременныйФайл(ИмяВременногоФайла);
@@ -665,8 +666,9 @@
Возврат;
КонецЕсли;
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
Попытка
Обработки.ПомощникСозданияОбменаДанными.ЗаполнитьНастройкиПодключенияИзXML(ЭтотОбъект, СтрокаXML);
МодульПомощникНастройки.ЗаполнитьНастройкиПодключенияИзXML(ЭтотОбъект, СтрокаXML);
Исключение
СообщитьИнформациюОбОшибке(ИнформацияОбОшибке(), Отказ);
КонецПопытки;
SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВводАдреса/Form.form
+4
View File
@@ -3257,6 +3257,10 @@
<id>-1</id>
<horizontalAlign>Right</horizontalAlign>
</autoCommandBar>
<handlers>
<event>ChoiceProcessing</event>
<name>ОбработкаВыбора</name>
</handlers>
<handlers>
<event>NotificationProcessing</event>
<name>ОбработкаОповещения</name>
SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВводАдреса/Module.bsl
+25 -1
View File
@@ -837,6 +837,23 @@
КонецФункции
&НаКлиенте
Процедура ОбработкаВыбора(ВыбранноеЗначение, ИсточникВыбора)
Если ТипЗнч(ВыбранноеЗначение) = Тип("Структура") И ВыбранноеЗначение.Отказ Тогда
Если ЗначениеЗаполнено(ВыбранноеЗначение.КраткоеПредставлениеОшибки) Тогда
КраткоеПредставлениеОшибки = ВыбранноеЗначение.КраткоеПредставлениеОшибки;
Иначе
КраткоеПредставлениеОшибки = НСтр("ru = 'Выбор из списка недоступен, т.к в адресном классификаторе отсутствует информация о адресных сведениях.'");
КонецЕсли;
ПоказатьПредупреждение(, КраткоеПредставлениеОшибки);
СтандартнаяОбработка = Ложь;
КонецЕсли;
КонецПроцедуры
#КонецОбласти
#Область ОбработчикиКомандФормы
@@ -2597,6 +2614,7 @@
НаселенныйПунктДетально.ifnsULCode = ВыбранноеЗначение.КодИФНСЮЛ;
НаселенныйПунктДетально.ifnsFLAreaCode = ВыбранноеЗначение.КодУчасткаИФНСФЛ;
НаселенныйПунктДетально.ifnsULAreaCode = ВыбранноеЗначение.КодУчасткаИФНСЮЛ;
НаселенныйПунктДетально.codeKLADR = ВыбранноеЗначение.КодКЛАДР;
Если ВыбранноеЗначение.Свойство("Дом") Тогда
НаселенныйПунктДетально.HouseNumber = ВыбранноеЗначение.Дом.НомерВладения;
@@ -2914,6 +2932,13 @@
Иначе
ЗначенияПолей = Параметры.ЗначенияПолей;
КонецЕсли;
Если ПустаяСтрока(ЗначенияПолей) И ЗначениеЗаполнено(Параметры.Представление) Тогда
ЗначенияПолей = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияПоПредставлению(Параметры.Представление,
Перечисления.ТипыКонтактнойИнформации.Адрес);
Модифицированность = Истина;
КонецЕсли;
Возврат ЗначенияПолей;
КонецФункции
@@ -3119,5 +3144,4 @@
КонецПроцедуры
#КонецОбласти
SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/ВыборАдресаПоУровню/Module.bsl
+6
View File
@@ -159,6 +159,12 @@
ЗаполнитьЗначенияСвойств(Результат, Данные);
Иначе
Результат.Отказ = Истина;
Результат.Уровень = Уровень;
Если Уровень = 7 Тогда
Результат.КраткоеПредставлениеОшибки = НСтр("ru = 'Данные о улицах для введенного адреса отсутствуют'");
Иначе
Результат.КраткоеПредставлениеОшибки = НСтр("ru = 'Поле не содержит адресных сведений для выбора.'");
КонецЕсли;
КонецЕсли;
ОповеститьОВыборе(Результат);
SSL/src/DataProcessors/РасширенныйВводКонтактнойИнформации/Forms/НаселенныйПунктАдреса/Module.bsl
+9
View File
@@ -194,7 +194,14 @@
&НаКлиенте
Процедура НаселенныйПунктОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
Если ВыбранноеЗначение.Отказ Или ПустаяСтрока(ВыбранноеЗначение.Представление) Тогда
ПоказатьПредупреждение(, НСтр("ru = 'Выбор из списка недоступен, т.к в адресном классификаторе отсутствует информация о адресных сведениях.'"));
СтандартнаяОбработка = Ложь;
Возврат;
КонецЕсли;
ОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка);
КонецПроцедуры
&НаКлиенте
@@ -424,6 +431,8 @@
Если ТипЗнч(ВыбранноеЗначение) = Тип("Структура")
И ВыбранноеЗначение.Свойство("Идентификатор")
И ПустаяСтрока(ВыбранноеЗначение.Идентификатор) Тогда
ТекстПредупреждения = НСтр("ru = 'Выбор из списка недоступен, т.к в адресном классификаторе отсутствует информация о адресных сведениях.'");
ПоказатьПредупреждение(, ТекстПредупреждения);
СтандартнаяОбработка = Ложь;
Возврат;
КонецЕсли;
SSL/src/InformationRegisters/АдресныеОбъекты/Forms/ЗагрузкаАдресногоКлассификатора/Module.bsl
+3 -4
View File
@@ -672,11 +672,12 @@
&НаКлиенте
Процедура ЗавершениеЗагрузки()
Оповестить("ЗагруженАдресныйКлассификатор", , ЭтотОбъект);
// Для сброса признака АдресныйКлассификаторУстарел в параметрах работы клиента.
ОбновитьПовторноИспользуемыеЗначения();
ПодтверждениеЗакрытияФормы = Истина;
Оповестить("ЗагруженАдресныйКлассификатор", Истина, ЭтотОбъект);
ПодтверждениеЗакрытияФормы = Истина;
Если РежимРаботы = "ОБНОВЛЕНИЕ" Тогда
Закрыть(Истина);
КонецЕсли;
@@ -686,8 +687,6 @@
Элементы.Закрыть.КнопкаПоУмолчанию = Истина;
ТекущийЭлемент = Элементы.Закрыть;
Возврат;
КонецПроцедуры
&НаСервереБезКонтекста
SSL/src/InformationRegisters/АдресныеОбъекты/Forms/ОчисткаАдресногоКлассификатора/Module.bsl
+10 -3
View File
@@ -236,8 +236,9 @@
Если Задание.Статус = "Выполнено" Тогда
Элементы.ШагиОчистки.ТекущаяСтраница = Элементы.УспешноеЗавершение;
ТекстОписанияОчистки = НСтр("ru = 'Адресный классификатор успешно очищен.'");
ОбновитьПовторноИспользуемыеЗначения();
Оповестить("ОчищенАдресныйКлассификатор", , ЭтотОбъект);
Оповестить("ОчищенАдресныйКлассификатор", КлассификаторСодержитЗагруженныеАдресныеСведения(), ЭтотОбъект);
Элементы.Закрыть.КнопкаПоУмолчанию = Истина;
ТекущийЭлемент = Элементы.Закрыть;
@@ -262,6 +263,14 @@
КонецПроцедуры
&НаСервереБезКонтекста
Функция КлассификаторСодержитЗагруженныеАдресныеСведения()
ИспользоватьЗагруженные = АдресныйКлассификаторСлужебный.СведенияОДоступностиАдресныхСведений().Получить("ИспользоватьЗагруженные");
Возврат ИспользоватьЗагруженные = Истина;
КонецФункции
&НаСервереБезКонтекста
Функция ПрочитатьПрогресс(ИдентификаторЗадания)
Возврат ДлительныеОперации.ПрочитатьПрогресс(ИдентификаторЗадания);
@@ -291,7 +300,6 @@
КонецЕсли;
КонецПроцедуры
&НаСервереБезКонтекста
Процедура ОтменитьФоновоеЗадание(Знач Идентификатор)
@@ -301,7 +309,6 @@
КонецПроцедуры
&НаСервере
Процедура ОпределитьЗагруженныеРегионы()
SSL/src/Reports/ДвиженияДокумента/ObjectModule.bsl
+974 -1081
View File
File diff suppressed because it is too large. Load diff
SSL/src/Roles/АдминистраторСистемы/Rights.rights
+87 -87
View File
@@ -1630,93 +1630,6 @@
<value>true</value>
</right>
</object>
<object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right>
<name>Administration</name>
<value>true</value>
</right>
<right>
<name>DataAdministration</name>
<value>true</value>
</right>
<right>
<name>UpdateDataBaseConfiguration</name>
<value>true</value>
</right>
<right>
<name>ExclusiveMode</name>
<value>true</value>
</right>
<right>
<name>ActiveUsers</name>
<value>true</value>
</right>
<right>
<name>EventLog</name>
<value>true</value>
</right>
<right>
<name>ThinClient</name>
<value>true</value>
</right>
<right>
<name>WebClient</name>
<value>true</value>
</right>
<right>
<name>ThickClient</name>
<value>true</value>
</right>
<right>
<name>ExternalConnection</name>
<value>true</value>
</right>
<right>
<name>Automation</name>
<value>true</value>
</right>
<right>
<name>TechnicalSpecialistMode</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeNormal</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeEmbeddedWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeFullscreenWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeKiosk</name>
<value>true</value>
</right>
<right>
<name>AnalyticsSystemClient</name>
<value>true</value>
</right>
<right>
<name>SaveUserData</name>
<value>true</value>
</right>
<right>
<name>ConfigurationExtensionsAdministration</name>
<value>true</value>
</right>
<right>
<name>Output</name>
<value>true</value>
</right>
</object>
<object>
<name>CommonForm.ПараметрыПроксиСервера</name>
<right>
@@ -3421,6 +3334,93 @@
<value>true</value>
</right>
</object>
<object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right>
<name>Administration</name>
<value>true</value>
</right>
<right>
<name>DataAdministration</name>
<value>true</value>
</right>
<right>
<name>UpdateDataBaseConfiguration</name>
<value>true</value>
</right>
<right>
<name>ExclusiveMode</name>
<value>true</value>
</right>
<right>
<name>ActiveUsers</name>
<value>true</value>
</right>
<right>
<name>EventLog</name>
<value>true</value>
</right>
<right>
<name>ThinClient</name>
<value>true</value>
</right>
<right>
<name>WebClient</name>
<value>true</value>
</right>
<right>
<name>ThickClient</name>
<value>true</value>
</right>
<right>
<name>ExternalConnection</name>
<value>true</value>
</right>
<right>
<name>Automation</name>
<value>true</value>
</right>
<right>
<name>TechnicalSpecialistMode</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeNormal</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeEmbeddedWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeFullscreenWorkplace</name>
<value>true</value>
</right>
<right>
<name>MainWindowModeKiosk</name>
<value>true</value>
</right>
<right>
<name>AnalyticsSystemClient</name>
<value>true</value>
</right>
<right>
<name>SaveUserData</name>
<value>true</value>
</right>
<right>
<name>ConfigurationExtensionsAdministration</name>
<value>true</value>
</right>
<right>
<name>Output</name>
<value>true</value>
</right>
</object>
<object>
<name>Constant.ПрефиксОбластиДанных</name>
<right>
SSL/src/Roles/ДобавлениеИзменениеРассылокОтчетов/Rights.rights
+7 -7
View File
@@ -21,6 +21,13 @@
<value>true</value>
</right>
</object>
<object>
<name>Catalog.РассылкиОтчетов.Command.ВыполнитьСейчас</name>
<right>
<name>View</name>
<value>true</value>
</right>
</object>
<object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right>
@@ -52,13 +59,6 @@
<value>true</value>
</right>
</object>
<object>
<name>Catalog.РассылкиОтчетов.Command.ВыполнитьСейчас</name>
<right>
<name>View</name>
<value>true</value>
</right>
</object>
<object>
<name>Catalog.РассылкиОтчетов</name>
<right>
SSL/src/Roles/ПолныеПрава/Rights.rights
+39 -39
View File
@@ -2208,45 +2208,6 @@
<value>false</value>
</right>
</object>
<object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right>
<name>Administration</name>
<value>false</value>
</right>
<right>
<name>UpdateDataBaseConfiguration</name>
<value>false</value>
</right>
<right>
<name>ThickClient</name>
<value>false</value>
</right>
<right>
<name>ExternalConnection</name>
<value>false</value>
</right>
<right>
<name>Automation</name>
<value>false</value>
</right>
<right>
<name>TechnicalSpecialistMode</name>
<value>false</value>
</right>
<right>
<name>ConfigurationExtensionsAdministration</name>
<value>false</value>
</right>
<right>
<name>InteractiveOpenExtDataProcessors</name>
<value>false</value>
</right>
<right>
<name>InteractiveOpenExtReports</name>
<value>false</value>
</right>
</object>
<object>
<name>CommonForm.ПараметрыПроксиСервера</name>
<right>
@@ -4508,6 +4469,45 @@
<value>false</value>
</right>
</object>
<object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right>
<name>Administration</name>
<value>false</value>
</right>
<right>
<name>UpdateDataBaseConfiguration</name>
<value>false</value>
</right>
<right>
<name>ThickClient</name>
<value>false</value>
</right>
<right>
<name>ExternalConnection</name>
<value>false</value>
</right>
<right>
<name>Automation</name>
<value>false</value>
</right>
<right>
<name>TechnicalSpecialistMode</name>
<value>false</value>
</right>
<right>
<name>ConfigurationExtensionsAdministration</name>
<value>false</value>
</right>
<right>
<name>InteractiveOpenExtDataProcessors</name>
<value>false</value>
</right>
<right>
<name>InteractiveOpenExtReports</name>
<value>false</value>
</right>
</object>
<object>
<name>Constant.ПрефиксОбластиДанных</name>
<right>
SSL/src/WebServices/Exchange/Module.bsl
+1 -1
View File
@@ -104,7 +104,7 @@
УстановитьПривилегированныйРежим(Истина);
// Получаем обработку помощника настройки обмена во второй базе.
ПомощникСозданияОбменаДанными = Обработки.ПомощникСозданияОбменаДанными.Создать();
ПомощникСозданияОбменаДанными = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными().Создать();
ПомощникСозданияОбменаДанными.ИмяПланаОбмена = ИмяПланаОбмена;
Отказ = Ложь;
SSL/src/WebServices/Exchange_2_0_1_6/Module.bsl
+1 -1
View File
@@ -101,7 +101,7 @@
УстановитьПривилегированныйРежим(Истина);
// Получаем обработку помощника настройки обмена во второй базе.
ПомощникСозданияОбменаДанными = Обработки.ПомощникСозданияОбменаДанными.Создать();
ПомощникСозданияОбменаДанными = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными().Создать();
ПомощникСозданияОбменаДанными.ИмяПланаОбмена = ИмяПланаОбмена;
Отказ = Ложь;
SSL/src/WebServices/Exchange_3_0_1_1/Module.bsl
+3 -2
View File
@@ -87,11 +87,12 @@
НастройкиПодключения = Параметры.НастройкиПодключения;
СтрокаПараметровXML = Параметры.СтрокаПараметровXML;
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
Попытка
Обработки.ПомощникСозданияОбменаДанными.ЗаполнитьНастройкиПодключенияИзXML(
МодульПомощникНастройки.ЗаполнитьНастройкиПодключенияИзXML(
НастройкиПодключения, Параметры.СтрокаПараметровXML);
Обработки.ПомощникСозданияОбменаДанными.ВыполнитьДействияПоНастройкеОбменаДанными(
МодульПомощникНастройки.ВыполнитьДействияПоНастройкеОбменаДанными(
НастройкиПодключения);
Исключение
СообщениеОбОшибке = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());