3_0_1_231

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

No files matched your search

@@ -91,10 +91,11 @@
Если Результат.Статус = "Ошибка" Тогда Если Результат.Статус = "Ошибка" Тогда
ВызватьИсключение Результат.КраткоеПредставлениеОшибки; ВызватьИсключение Результат.КраткоеПредставлениеОшибки;
КонецЕсли; КонецЕсли;
КонецЕсли;
Если ДополнительныеСвойства.Свойство("ЗапланироватьКопированиеКурсовВалюты") Тогда
Если ОбщегоНазначения.РазделениеВключено() Если ОбщегоНазначения.РазделениеВключено()
И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаВМоделиСервиса.ВалютыВМоделиСервиса") Тогда И ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.РаботаВМоделиСервиса.ВалютыВМоделиСервиса") Тогда
МодульКурсыВалютСлужебныйВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль("КурсыВалютСлужебныйВМоделиСервиса"); МодульКурсыВалютСлужебныйВМоделиСервиса = ОбщегоНазначения.ОбщийМодуль("КурсыВалютСлужебныйВМоделиСервиса");
МодульКурсыВалютСлужебныйВМоделиСервиса.ЗапланироватьКопированиеКурсовВалюты(ЭтотОбъект); МодульКурсыВалютСлужебныйВМоделиСервиса.ЗапланироватьКопированиеКурсовВалюты(ЭтотОбъект);
КонецЕсли; КонецЕсли;
@@ -116,6 +117,7 @@
ДополнительныеСвойства.Вставить("ОбновитьКурсы"); ДополнительныеСвойства.Вставить("ОбновитьКурсы");
КонецЕсли; КонецЕсли;
ДополнительныеСвойства.Вставить("ЭтоНовый"); ДополнительныеСвойства.Вставить("ЭтоНовый");
ДополнительныеСвойства.Вставить("ЗапланироватьКопированиеКурсовВалюты");
Иначе Иначе
ПредыдущиеЗначения = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Ссылка, "Код,СпособУстановкиКурса,ОсновнаяВалюта,Наценка,ФормулаРасчетаКурса"); ПредыдущиеЗначения = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Ссылка, "Код,СпособУстановкиКурса,ОсновнаяВалюта,Наценка,ФормулаРасчетаКурса");
Если (ПредыдущиеЗначения.СпособУстановкиКурса <> СпособУстановкиКурса) Если (ПредыдущиеЗначения.СпособУстановкиКурса <> СпособУстановкиКурса)
@@ -89,8 +89,10 @@
КонецЕсли; КонецЕсли;
ПрофилиИспользуются = Не ИспользуютсяПрофилиБезопасности; ПрофилиИспользуются = Не ИспользуютсяПрофилиБезопасности;
Если ПравоДоступа("ИнтерактивнаяПометкаУдаления", Метаданные.Справочники.ДополнительныеОтчетыИОбработки) Тогда
Элементы.ИзменитьПометкуУдаленияБезПрофилей.Видимость = Не ПрофилиИспользуются; Элементы.ИзменитьПометкуУдаленияБезПрофилей.Видимость = Не ПрофилиИспользуются;
Элементы.ИзменитьПометкуУдаленияБезПрофилейМеню.Видимость = Не ПрофилиИспользуются; Элементы.ИзменитьПометкуУдаленияБезПрофилейМеню.Видимость = Не ПрофилиИспользуются;
КонецЕсли;
Элементы.ИзменитьПометкуУдаленияСПрофилями.Видимость = ПрофилиИспользуются; Элементы.ИзменитьПометкуУдаленияСПрофилями.Видимость = ПрофилиИспользуются;
Элементы.ИзменитьПометкуУдаленияСПрофилямиМеню.Видимость = ПрофилиИспользуются; Элементы.ИзменитьПометкуУдаленияСПрофилямиМеню.Видимость = ПрофилиИспользуются;
@@ -10,6 +10,13 @@
Предмет = Параметры.Предмет; Предмет = Параметры.Предмет;
ДобавитьЭлементыФормыПараметровШаблона(Параметры.Шаблон); ДобавитьЭлементыФормыПараметровШаблона(Параметры.Шаблон);
Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда
Элементы.Переместить(Элементы.ГруппаКоманднаяПанельФормы, Элементы.ФормаКоманднаяПанель);
Элементы.ГруппаКоманднаяПанельФормы.Вид = ВидГруппыФормы.ГруппаКнопок;
КонецЕсли;
КонецПроцедуры КонецПроцедуры
#КонецОбласти #КонецОбласти
@@ -33,6 +33,15 @@
ПредставлениеПараметра = Параметры.ПредставлениеПараметра; ПредставлениеПараметра = Параметры.ПредставлениеПараметра;
ТипПараметра = Параметры.ОписаниеТипа; ТипПараметра = Параметры.ОписаниеТипа;
Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда
Элементы.Переместить(Элементы.ГруппаКоманднаяПанельФормы, Элементы.ФормаКоманднаяПанель);
Элементы.ГруппаКоманднаяПанельФормы.Вид = ВидГруппыФормы.ГруппаКнопок;
Элементы.ФормаОтмена.Видимость = Ложь;
КонецЕсли;
КонецПроцедуры КонецПроцедуры
&НаСервереБезКонтекста &НаСервереБезКонтекста
@@ -41,9 +41,11 @@
<items xsi:type="form:FormGroup"> <items xsi:type="form:FormGroup">
<name>ГруппаСписокВыбора</name> <name>ГруппаСписокВыбора</name>
<id>34</id> <id>34</id>
<displayImportance>VeryHigh</displayImportance>
<items xsi:type="form:Table"> <items xsi:type="form:Table">
<name>Шаблоны</name> <name>Шаблоны</name>
<id>39</id> <id>39</id>
<displayImportance>VeryHigh</displayImportance>
<title> <title>
<key>ru</key> <key>ru</key>
<value>Шаблоны</value> <value>Шаблоны</value>
@@ -233,12 +235,14 @@
<initialListView>Auto</initialListView> <initialListView>Auto</initialListView>
<horizontalStretch>true</horizontalStretch> <horizontalStretch>true</horizontalStretch>
<verticalStretch>true</verticalStretch> <verticalStretch>true</verticalStretch>
<currentRowUse>SelectionPresentation</currentRowUse>
<autoMaxCardHeight>true</autoMaxCardHeight> <autoMaxCardHeight>true</autoMaxCardHeight>
<rowFilter xsi:type="core:UndefinedValue"/> <rowFilter xsi:type="core:UndefinedValue"/>
</items> </items>
<items xsi:type="form:FormGroup"> <items xsi:type="form:FormGroup">
<name>СтраницыПредпросмотра</name> <name>СтраницыПредпросмотра</name>
<id>60</id> <id>60</id>
<displayImportance>VeryHigh</displayImportance>
<items xsi:type="form:FormGroup"> <items xsi:type="form:FormGroup">
<name>СтраницаОбычныйТекст</name> <name>СтраницаОбычныйТекст</name>
<id>66</id> <id>66</id>
@@ -619,7 +623,7 @@
<name>ПредпросмотрФорматированныйДокумент</name> <name>ПредпросмотрФорматированныйДокумент</name>
<title> <title>
<key>ru</key> <key>ru</key>
<value>Предпросмотр форматированный документ</value> <value>Предварительный просмотр</value>
</title> </title>
<id>2</id> <id>2</id>
<valueType> <valueType>
@@ -826,7 +830,7 @@
<name>ПредпросмотрОбычныйТекст</name> <name>ПредпросмотрОбычныйТекст</name>
<title> <title>
<key>ru</key> <key>ru</key>
<value>Предпросмотр обычный текст</value> <value>Предварительный просмотр</value>
</title> </title>
<id>6</id> <id>6</id>
<valueType> <valueType>
@@ -40,6 +40,15 @@
ЗаполнитьСписокДоступныхШаблонов(); ЗаполнитьСписокДоступныхШаблонов();
Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ПредпросмотрОбычныйТекст", "ПоложениеЗаголовка", ПоложениеЗаголовкаЭлементаФормы.Авто);
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ПредпросмотрФорматированныйДокумент", "ПоложениеЗаголовка", ПоложениеЗаголовкаЭлементаФормы.Авто);
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаСформировать", "Картинка", БиблиотекаКартинок.ЗаписатьИЗакрыть);
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ФормаСформировать", "Отображение", ОтображениеКнопки.Картинка);
КонецЕсли;
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
@@ -215,6 +215,7 @@
<items xsi:type="form:FormGroup"> <items xsi:type="form:FormGroup">
<name>Страницы</name> <name>Страницы</name>
<id>40</id> <id>40</id>
<displayImportance>VeryHigh</displayImportance>
<items xsi:type="form:FormGroup"> <items xsi:type="form:FormGroup">
<name>СообщениеЭлектронноеПисьмоHTML</name> <name>СообщениеЭлектронноеПисьмоHTML</name>
<id>42</id> <id>42</id>
@@ -61,6 +61,12 @@
Элементы.Назначение.Видимость = Ложь; Элементы.Назначение.Видимость = Ложь;
КонецЕсли; КонецЕсли;
Если ОбщегоНазначенияКлиентСервер.ЭтоМобильныйКлиент() Тогда
ОбщегоНазначенияКлиентСервер.УстановитьСвойствоЭлементаФормы(Элементы, "ГруппаПараметры", "ОтображатьЗаголовок", Истина);
КонецЕсли;
КонецПроцедуры КонецПроцедуры
&НаСервере &НаСервере
@@ -29,7 +29,7 @@
&НаСервере &НаСервере
Процедура ПолучитьНастройкиОбменаДаннымиДляВторойИнформационнойБазыНаСервере(Отказ, АдресВременногоХранилища, УзелИнформационнойБазы) Процедура ПолучитьНастройкиОбменаДаннымиДляВторойИнформационнойБазыНаСервере(Отказ, АдресВременногоХранилища, УзелИнформационнойБазы)
ПомощникСозданияОбменаДанными = Обработки.ПомощникСозданияОбменаДанными.Создать(); ПомощникСозданияОбменаДанными = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными().Создать();
ПомощникСозданияОбменаДанными.Инициализация(УзелИнформационнойБазы); ПомощникСозданияОбменаДанными.Инициализация(УзелИнформационнойБазы);
ПомощникСозданияОбменаДанными.ВыполнитьВыгрузкуПараметровМастераВоВременноеХранилище(Отказ, АдресВременногоХранилища); ПомощникСозданияОбменаДанными.ВыполнитьВыгрузкуПараметровМастераВоВременноеХранилище(Отказ, АдресВременногоХранилища);
@@ -650,13 +650,13 @@
&НаСервереБезКонтекста &НаСервереБезКонтекста
Процедура ПриНачалеПолученияСпискаПриложенийНаСервере(ПараметрыОбработчика, ПродолжитьОжидание) Процедура ПриНачалеПолученияСпискаПриложенийНаСервере(ПараметрыОбработчика, ПродолжитьОжидание)
Если Не ОбщегоНазначения.ПодсистемаСуществует("ТехнологияСервиса.РаботаВМоделиСервиса.ОбменДаннымиВМоделиСервиса") Тогда МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
Если МодульПомощникНастройки = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат; Возврат;
КонецЕсли; КонецЕсли;
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
ПараметрыПомощника = Новый Структура("Режим", "НастроенныеОбмены"); ПараметрыПомощника = Новый Структура("Режим", "НастроенныеОбмены");
МодульПомощникНастройки.ПриНачалеПолученияСпискаПриложений(ПараметрыПомощника, МодульПомощникНастройки.ПриНачалеПолученияСпискаПриложений(ПараметрыПомощника,
@@ -667,8 +667,12 @@
&НаСервереБезКонтекста &НаСервереБезКонтекста
Процедура ПриОжиданииПолученияСпискаПриложенийНаСервере(ПараметрыОбработчика, ПродолжитьОжидание) Процедура ПриОжиданииПолученияСпискаПриложенийНаСервере(ПараметрыОбработчика, ПродолжитьОжидание)
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль( МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
"Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
Если МодульПомощникНастройки = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли;
МодульПомощникНастройки.ПриОжиданииПолученияСпискаПриложений( МодульПомощникНастройки.ПриОжиданииПолученияСпискаПриложений(
ПараметрыОбработчика, ПродолжитьОжидание); ПараметрыОбработчика, ПродолжитьОжидание);
@@ -678,18 +682,20 @@
&НаСервере &НаСервере
Процедура ПриЗавершенииПолученияСпискаПриложенийНаСервере() Процедура ПриЗавершенииПолученияСпискаПриложенийНаСервере()
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль( ПриложенияМоделиСервиса.Очистить();
"Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
Если Не МодульПомощникНастройки = Неопределено Тогда
СтатусЗавершения = Неопределено; СтатусЗавершения = Неопределено;
МодульПомощникНастройки.ПриЗавершенииПолученияСпискаПриложений( МодульПомощникНастройки.ПриЗавершенииПолученияСпискаПриложений(
ПараметрыОбработчикаПолученияСпискаПриложений, СтатусЗавершения); ПараметрыОбработчикаПолученияСпискаПриложений, СтатусЗавершения);
ПриложенияМоделиСервиса.Очистить();
Если Не СтатусЗавершения.Отказ Тогда Если Не СтатусЗавершения.Отказ Тогда
ТаблицаПриложений = СтатусЗавершения.Результат; ТаблицаПриложений = СтатусЗавершения.Результат;
ПриложенияМоделиСервиса.Загрузить(СтатусЗавершения.Результат.Скопировать(, "Корреспондент, ОбластьДанных, НаименованиеПриложения")); ПриложенияМоделиСервиса.Загрузить(СтатусЗавершения.Результат.Скопировать(, "Корреспондент, ОбластьДанных, НаименованиеПриложения"));
КонецЕсли; КонецЕсли;
КонецЕсли;
ОбновитьСписокПриложений(); ОбновитьСписокПриложений();
@@ -12,8 +12,8 @@
УстановитьПривилегированныйРежим(Ложь); УстановитьПривилегированныйРежим(Ложь);
Если Авторизация = Неопределено Тогда Если Авторизация = Неопределено Тогда
ИмяПользователя = Неопределено; ИмяПользователя = "неавторизованный";
ПарольПользователя = Неопределено; ПарольПользователя = "";
Иначе Иначе
ИмяПользователя = Авторизация.Логин; ИмяПользователя = Авторизация.Логин;
ПарольПользователя = Авторизация.Пароль; ПарольПользователя = Авторизация.Пароль;
@@ -91,12 +91,9 @@
Результат = Новый Соответствие; Результат = Новый Соответствие;
// Веб-сервис 1С // Веб-сервис 1С
Если НЕ ОбщегоНазначения.РазделениеВключено() Тогда
СервисРезультат = АдресныйКлассификаторСлужебный.ВерсияПоставщикаДанных(); СервисРезультат = АдресныйКлассификаторСлужебный.ВерсияПоставщикаДанных();
КлассификаторДоступен = (СервисРезультат.Данные = Истина); КлассификаторДоступен = (СервисРезультат.Данные = Истина);
Иначе
КлассификаторДоступен = Ложь;
КонецЕсли;
Результат.Вставить("КлассификаторДоступен", КлассификаторДоступен); Результат.Вставить("КлассификаторДоступен", КлассификаторДоступен);
ИспользоватьЗагруженные = Ложь; ИспользоватьЗагруженные = Ложь;
@@ -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(?). // Начиная с версии БСП 2.4.2(?).
Результат.Вставить("УзелСуществует", Ложь); Результат.Вставить("УзелСуществует", Ложь);
// Начиная с версии БСП 3.0.1.1. // Начиная с версии БСП 3.0.1.1.
Результат.Вставить("ВерсияФорматаНастроекОбменаДанными", Результат.Вставить("ВерсияФорматаНастроекОбменаДанными", МодульПомощникСозданияОбменаДанными().ВерсияФорматаНастроекОбменаДанными());
Обработки.ПомощникСозданияОбменаДанными.ВерсияФорматаНастроекОбменаДанными());
Результат.Вставить("ИспользоватьПрефиксыДляНастройкиОбмена", Истина); Результат.Вставить("ИспользоватьПрефиксыДляНастройкиОбмена", Истина);
Результат.Вставить("ФорматОбмена", ""); Результат.Вставить("ФорматОбмена", "");
Результат.Вставить("ИмяПланаОбмена", ИмяПланаОбмена); Результат.Вставить("ИмяПланаОбмена", ИмяПланаОбмена);
@@ -12496,7 +12527,11 @@
Возврат; Возврат;
КонецЕсли; КонецЕсли;
КоличествоНерассмотренныхПроблем = КоличествоНерассмотренныхПроблем(); ПланыОбменаБСП = ОбменДаннымиПовтИсп.ПланыОбменаБСП();
ТаблицаМонитора = ТаблицаМонитораОбменаДанными(ПланыОбменаБСП);
КоличествоНерассмотренныхПроблем = КоличествоНерассмотренныхПроблем(
ТаблицаМонитора.ВыгрузитьКолонку("УзелИнформационнойБазы"));
// Процедура вызывается только при наличии подсистемы "Текущие дела", поэтому здесь // Процедура вызывается только при наличии подсистемы "Текущие дела", поэтому здесь
// не делается проверка существования подсистемы. // не делается проверка существования подсистемы.
@@ -32,7 +32,7 @@
Процедура ПриДобавленииПодсистемы(Описание) Экспорт Процедура ПриДобавленииПодсистемы(Описание) Экспорт
Описание.Имя = "СтандартныеПодсистемы"; Описание.Имя = "СтандартныеПодсистемы";
Описание.Версия = "3.0.1.225"; Описание.Версия = "3.0.1.231";
Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно"; Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно";
Описание.ПараллельноеОтложенноеОбновлениеСВерсии = "2.3.3.0"; Описание.ПараллельноеОтложенноеОбновлениеСВерсии = "2.3.3.0";
@@ -4556,12 +4556,12 @@
// //
// Пример: // Пример:
// Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ОбновлениеКонфигурации") Тогда // Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ОбновлениеКонфигурации") Тогда
// МодульОбновлениеКонфигурации = ОбщегоНазначения.ОбщийМодель("ОбновлениеКонфигурации"); // МодульОбновлениеКонфигурации = ОбщегоНазначения.ОбщийМодуль("ОбновлениеКонфигурации");
// МодульОбновлениеКонфигурации.<Имя метода>(); // МодульОбновлениеКонфигурации.<Имя метода>();
// КонецЕсли; // КонецЕсли;
// //
// Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПолнотекстовыйПоиск") Тогда // Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.ПолнотекстовыйПоиск") Тогда
// МодульПолнотекстовыйПоискСервер = ОбщегоНазначения.ОбщийМодель("ПолнотекстовыйПоискСервер"); // МодульПолнотекстовыйПоискСервер = ОбщегоНазначения.ОбщийМодуль("ПолнотекстовыйПоискСервер");
// МодульПолнотекстовыйПоискСервер.<Имя метода>(); // МодульПолнотекстовыйПоискСервер.<Имя метода>();
// КонецЕсли; // КонецЕсли;
// //
@@ -594,12 +594,12 @@
// //
// Пример: // Пример:
// Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ОбновлениеКонфигурации") Тогда // Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ОбновлениеКонфигурации") Тогда
// МодульОбновлениеКонфигурацииКлиент = ОбщегоНазначенияКлиент.ОбщийМодель("ОбновлениеКонфигурацииКлиент"); // МодульОбновлениеКонфигурацииКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ОбновлениеКонфигурацииКлиент");
// МодульОбновлениеКонфигурацииКлиент.<Имя метода>(); // МодульОбновлениеКонфигурацииКлиент.<Имя метода>();
// КонецЕсли; // КонецЕсли;
// //
// Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПолнотекстовыйПоиск") Тогда // Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.ПолнотекстовыйПоиск") Тогда
// МодульПолнотекстовыйПоискКлиент = ОбщегоНазначенияКлиент.ОбщийМодель("ПолнотекстовыйПоискКлиент"); // МодульПолнотекстовыйПоискКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ПолнотекстовыйПоискКлиент");
// МодульПолнотекстовыйПоискКлиент.<Имя метода>(); // МодульПолнотекстовыйПоискКлиент.<Имя метода>();
// КонецЕсли; // КонецЕсли;
// //
@@ -111,7 +111,7 @@
// * СвидетельствоСерияНомер - Строка - серия и номер свидетельства. // * СвидетельствоСерияНомер - Строка - серия и номер свидетельства.
// * СтавкаНалогаНаПрибыльМестный - Число - местная ставка налога на прибыль. // * СтавкаНалогаНаПрибыльМестный - Число - местная ставка налога на прибыль.
// * СтавкаНалогаНаПрибыльСубъектРФ - Число - ставка налога на прибыль субъекта РФ. // * СтавкаНалогаНаПрибыльСубъектРФ - Число - ставка налога на прибыль субъекта РФ.
// * СтавкаНалогаНаПрибыльФБ - Число - ставка налога на прибыль фед бюдж. // * СтавкаНалогаНаПрибыльФБ - Число - ставка налога на прибыль федерального бюджета.
// * СтавкаНалогаУСН - Число - ставка налога УСН. // * СтавкаНалогаУСН - Число - ставка налога УСН.
// * ЭтоФизическоеЛицо - Булево - признак что это физическое лицо. // * ЭтоФизическоеЛицо - Булево - признак что это физическое лицо.
// * ЭтоЮридическоеЛицо - Булево - признак что это юридическое лицо. // * ЭтоЮридическоеЛицо - Булево - признак что это юридическое лицо.
@@ -1,15 +1,15 @@
#Область ПрограммныйИнтерфейс #Область ПрограммныйИнтерфейс
// Позволяет дополнить базовую коллекцию дополнительными регистрами. // Позволяет дополнить регистры с движениями документа дополнительными регистрами.
// //
// Параметры: // Параметры:
// Документ - ДокументСсылка - документ коллекцию движений которого необходимо дополнить. // Документ - ДокументСсылка - документ коллекцию движений которого необходимо дополнить.
// СоответствиеРегистров - Соответствие - соответствие с данными: // РегистрыСДвижениями - Соответствие - соответствие с данными:
// * Ключ - ОбъектМетаданных - регистр как объект метаданных. // * Ключ - ОбъектМетаданных - регистр как объект метаданных.
// * Значение - Строка - имя поля регистратора. // * Значение - Строка - имя поля регистратора.
// //
Процедура ПриОпределенииРегистровСДвижениями(Документ, СоответствиеРегистров) Экспорт Процедура ПриОпределенииРегистровСДвижениями(Документ, РегистрыСДвижениями) Экспорт
@@ -30,20 +30,13 @@
КонецПроцедуры КонецПроцедуры
// Позволяет подготовить наборы данных СКД в соответствии с требованиями отличающимися от стандартных. // Позволяет дополнить или переопределить коллекцию наборов данных для вывода движений документа.
// //
// Параметры: // Параметры:
// Документ - ДокументСсылка - документ коллекцию движений которого необходимо дополнить. // Документ - ДокументСсылка - документ, коллекцию движений которого необходимо дополнить.
// ОсновнаяИнформация - Структура - структура с ключами: // НаборыДанных - Массив - сведения о наборах данных (тип элемента Структура).
// * ИмяРегистра - Строка - имя регистра.
// * ВидРегистра - Строка - вид регистра (Накопления, Расчета, Бухгалтерии, Сведений).
// * ЛокализацияВидРегистра - Строка - локализация вида регистра (Накопления, Расчета, Бухгалтерии, Сведений).
// * ПредставлениеРегистра - Строка - пользовательское представление регистра.
// * ПолеРегистратора - Строка - имя поля регистратора (по умолчанию "Регистратор")
// * ДополнительнаяНумерация - Булево - признак дополнительной нумерации.
// * ДвижениеДокумента - ОбъектМетаданных - регистр как объект метаданных.
// //
Процедура ПриПодготовкеНабораДанных(Документ, ОсновнаяИнформация) Экспорт Процедура ПриПодготовкеНабораДанных(Документ, НаборыДанных) Экспорт
@@ -76,9 +76,15 @@
// Адреса - Массив - XDTO объекты или строки XML соответствующие XDTO пакету Адрес. // Адреса - Массив - 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 это // в иерархи адреса. Например, для адреса: Москва г., Дмитровское ш., д.9 это
// будет идентификатор улицы. // будет идентификатор улицы.
// Поле отсутствует, если дополнительный параметр КодыАдреса равен Ложь.
// * ИдентификаторДома - УникальныйИдентификатор - Идентификационный код дома(строения) адресного объекта. // * ИдентификаторДома - УникальныйИдентификатор - Идентификационный код дома(строения) адресного объекта.
// * Идентификаторы - Структура - Идентификаторы адресных объектов адреса. // Поле отсутствует, если дополнительный параметр КодыАдреса равен Ложь.
// * Идентификаторы - Структура - Идентификаторы адресных объектов адреса, если установлен параметр КодыАдреса.
// Поле отсутствует, если дополнительный параметр КодыАдреса равен Ложь.
// ** РегионИдентификатор - УникальныйИдентификатор - идентификатор региона. // ** РегионИдентификатор - УникальныйИдентификатор - идентификатор региона.
// ** РайонИдентификатор - УникальныйИдентификатор - идентификатор района. // ** РайонИдентификатор - УникальныйИдентификатор - идентификатор района.
// ** МуниципальныйРайонИдентификатор - УникальныйИдентификатор - идентификатор муниципального района. // ** МуниципальныйРайонИдентификатор - УникальныйИдентификатор - идентификатор муниципального района.
@@ -153,13 +167,14 @@
// ** ТерриторияИдентификатор - УникальныйИдентификатор - идентификатор территории. // ** ТерриторияИдентификатор - УникальныйИдентификатор - идентификатор территории.
// ** ТерриторияИдентификатор - УникальныйИдентификатор - идентификатор территории. // ** ТерриторияИдентификатор - УникальныйИдентификатор - идентификатор территории.
// ** УлицаИдентификатор - УникальныйИдентификатор - идентификатор улица. // ** УлицаИдентификатор - УникальныйИдентификатор - идентификатор улица.
// * КодыКЛАДР - Структура - Коды КЛАДР, если установлен параметр КодыКЛАДР. // * КодыКЛАДР - Структура - Коды КЛАДР, если установлен параметр КодыКЛАДР в Истина.
// ** Регион - Строка - Код КЛАДР региона. // ** Регион - Строка - Код КЛАДР региона.
// ** Район - Строка - Код КЛАДР район. // ** Район - Строка - Код КЛАДР район.
// ** Город - Строка - Код КЛАДР города. // ** Город - Строка - Код КЛАДР города.
// ** НаселенныйПункт - Строка - Код КЛАДР населенного пункта. // ** НаселенныйПункт - Строка - Код КЛАДР населенного пункта.
// ** Улица - Строка - Код КЛАДР улица. // ** Улица - Строка - Код КЛАДР улица.
// * ДополнительныеКоды - Структура - Коды ОКТМО, ОКТМО, ОКАТО, КодИФНСФЛ, КодИФНСЮЛ, КодУчасткаИФНСФЛ, КодУчасткаИФНСЮЛ. // * ДополнительныеКоды - Структура - Коды ОКТМО, ОКТМО, ОКАТО, КодИФНСФЛ, КодИФНСЮЛ, КодУчасткаИФНСФЛ, КодУчасткаИФНСЮЛ.
// Поле отсутствует, если дополнительный параметр КодыАдреса равен Ложь.
// * РезультатПроверкиАдреса - Строка - "Успех", если адрес корректный, "Ошибка" - при наличии ошибок проверки, // * РезультатПроверкиАдреса - Строка - "Успех", если адрес корректный, "Ошибка" - при наличии ошибок проверки,
// "Отказ", если не удалось проверить адрес, т.к. не доступен классификатор. // "Отказ", если не удалось проверить адрес, т.к. не доступен классификатор.
// Пустая строка, если в параметре ДополнительныеПараметры.ПроверитьАдрес не // Пустая строка, если в параметре ДополнительныеПараметры.ПроверитьАдрес не
@@ -1274,7 +1289,6 @@
СоответствиеПолей.Вставить("Представление", "value"); СоответствиеПолей.Вставить("Представление", "value");
СоответствиеПолей.Вставить("Комментарий", "comment"); СоответствиеПолей.Вставить("Комментарий", "comment");
СоответствиеПолей.Вставить("НаименованиеСтраны", "country"); СоответствиеПолей.Вставить("НаименованиеСтраны", "country");
СоответствиеПолей.Вставить("Представление", "value");
СоответствиеПолей.Вставить("Страна", "country"); СоответствиеПолей.Вставить("Страна", "country");
СоответствиеПолей.Вставить("Индекс", "ZIPCode"); СоответствиеПолей.Вставить("Индекс", "ZIPCode");
СоответствиеПолей.Вставить("ОКТМО", "oktmo"); СоответствиеПолей.Вставить("ОКТМО", "oktmo");
@@ -1289,7 +1303,6 @@
СоответствиеПолей.Вставить("НаселенныйПунктСокращение", "localityType"); СоответствиеПолей.Вставить("НаселенныйПунктСокращение", "localityType");
СоответствиеПолей.Вставить("Улица", "street"); СоответствиеПолей.Вставить("Улица", "street");
СоответствиеПолей.Вставить("УлицаСокращение", "streetType"); СоответствиеПолей.Вставить("УлицаСокращение", "streetType");
СоответствиеПолей.Вставить("МуниципальноеПредставление", "value");
СоответствиеПолей.Вставить("КодРегиона", "areaCode"); СоответствиеПолей.Вставить("КодРегиона", "areaCode");
СоответствиеПолей.Вставить("МуниципальныйРайон", "munDistrict"); СоответствиеПолей.Вставить("МуниципальныйРайон", "munDistrict");
СоответствиеПолей.Вставить("МуниципальныйРайонСокращение", "munDistrictType"); СоответствиеПолей.Вставить("МуниципальныйРайонСокращение", "munDistrictType");
@@ -1300,7 +1313,7 @@
СоответствиеПолей.Вставить("Территория", "territory"); СоответствиеПолей.Вставить("Территория", "territory");
СоответствиеПолей.Вставить("ТерриторияСокращение", "territoryType"); СоответствиеПолей.Вставить("ТерриторияСокращение", "territoryType");
СоответствиеПолей.Вставить("ИдентификаторАдресногоОбъекта", "id"); СоответствиеПолей.Вставить("ИдентификаторАдресногоОбъекта", "id");
СоответствиеПолей.Вставить("ИдентификаторДома", "id"); СоответствиеПолей.Вставить("ИдентификаторДома", "houseId");
СоответствиеПолей.Вставить("Дом", "HouseNumber"); СоответствиеПолей.Вставить("Дом", "HouseNumber");
СоответствиеПолей.Вставить("ТипДома", "HouseType"); СоответствиеПолей.Вставить("ТипДома", "HouseType");
@@ -1313,10 +1326,25 @@
КонецЕсли; КонецЕсли;
КонецЦикла; КонецЦикла;
Если КонтактнаяИнформация.Свойство("Здание")
И ТипЗнч(КонтактнаяИнформация.Здание) = Тип("Структура")
И КонтактнаяИнформация.Здание.Свойство("Номер") Тогда
ОписаниеКонтактнойИнформации.HouseNumber = ?(КонтактнаяИнформация.Здание.Свойство("Номер"), КонтактнаяИнформация.Здание.Номер, "");
ОписаниеКонтактнойИнформации.HouseType = ?(КонтактнаяИнформация.Здание.Свойство("ТипЗдания"), КонтактнаяИнформация.Здание.ТипЗдания, НСтр("ru='Дом'"));
КонецЕсли;
Если КонтактнаяИнформация.Свойство("Корпус")И ЗначениеЗаполнено(КонтактнаяИнформация.Корпус) Тогда Если КонтактнаяИнформация.Свойство("Корпус")И ЗначениеЗаполнено(КонтактнаяИнформация.Корпус) Тогда
ТипКорпуса = ?(КонтактнаяИнформация.Свойство("ТипКорпуса"), КонтактнаяИнформация.ТипКорпуса, НСтр("ru='Корпус'")); ТипКорпуса = ?(КонтактнаяИнформация.Свойство("ТипКорпуса"), КонтактнаяИнформация.ТипКорпуса, НСтр("ru='Корпус'"));
ОписаниеКонтактнойИнформации.buildings.Добавить(УправлениеКонтактнойИнформациейКлиентСервер.ЗначениеСтроенияИлиПомещения(КонтактнаяИнформация.Корпус, ТипКорпуса)); ОписаниеКонтактнойИнформации.buildings.Добавить(УправлениеКонтактнойИнформациейКлиентСервер.ЗначениеСтроенияИлиПомещения(КонтактнаяИнформация.Корпус, ТипКорпуса));
ИначеЕсли КонтактнаяИнформация.Свойство("Корпуса")И ТипЗнч(КонтактнаяИнформация.Корпуса) = Тип("Массив") Тогда
Для каждого Корпус Из КонтактнаяИнформация.Корпуса Цикл
ОписаниеКонтактнойИнформации.buildings.Добавить(
УправлениеКонтактнойИнформациейКлиентСервер.ЗначениеСтроенияИлиПомещения(Корпус.Тип, Корпус.Номер));
КонецЦикла;
КонецЕсли; КонецЕсли;
@@ -1325,6 +1353,12 @@
ТипКвартиры = ?(КонтактнаяИнформация.Свойство("ТипКвартиры"), КонтактнаяИнформация.ТипКвартиры, НСтр("ru='Квартира'")); ТипКвартиры = ?(КонтактнаяИнформация.Свойство("ТипКвартиры"), КонтактнаяИнформация.ТипКвартиры, НСтр("ru='Квартира'"));
ОписаниеКонтактнойИнформации.apartments.Добавить(УправлениеКонтактнойИнформациейКлиентСервер.ЗначениеСтроенияИлиПомещения(КонтактнаяИнформация.Квартира, ТипКвартиры)); ОписаниеКонтактнойИнформации.apartments.Добавить(УправлениеКонтактнойИнформациейКлиентСервер.ЗначениеСтроенияИлиПомещения(КонтактнаяИнформация.Квартира, ТипКвартиры));
ИначеЕсли КонтактнаяИнформация.Свойство("Помещения")И ТипЗнч(КонтактнаяИнформация.Помещения) = Тип("Структура") Тогда
Для каждого Помещение Из КонтактнаяИнформация.Помещения Цикл
ОписаниеКонтактнойИнформации.apartments.Добавить(
УправлениеКонтактнойИнформациейКлиентСервер.ЗначениеСтроенияИлиПомещения(Помещение.Тип, Помещение.Номер));
КонецЦикла;
КонецЕсли; КонецЕсли;
Возврат ОписаниеКонтактнойИнформации; Возврат ОписаниеКонтактнойИнформации;
@@ -1531,9 +1565,12 @@
Параметры.Вставить("ПолноеНаименованиеСокращений", Ложь); Параметры.Вставить("ПолноеНаименованиеСокращений", Ложь);
Параметры.Вставить("ПроверитьАдрес", Ложь); Параметры.Вставить("ПроверитьАдрес", Ложь);
Параметры.Вставить("ВключатьСтрануВПредставление", Ложь); Параметры.Вставить("ВключатьСтрануВПредставление", Ложь);
Параметры.Вставить("КодыАдреса", Истина);
Если ТипЗнч(ДополнительныеПараметры) = Тип("Структура") Тогда Если ТипЗнч(ДополнительныеПараметры) = Тип("Структура") Тогда
ЗаполнитьЗначенияСвойств(Параметры, ДополнительныеПараметры); ЗаполнитьЗначенияСвойств(Параметры, ДополнительныеПараметры);
КонецЕсли; КонецЕсли;
СоответствиеСокращений = Новый Соответствие; СоответствиеСокращений = Новый Соответствие;
@@ -1548,7 +1585,7 @@
Адрес = УправлениеКонтактнойИнформациейСлужебный.СтрокаJSONВСтруктуру(АдресСтрокой); Адрес = УправлениеКонтактнойИнформациейСлужебный.СтрокаJSONВСтруктуру(АдресСтрокой);
Если ПустаяСтрока(Адрес.ID) Тогда Если Параметры.КодыАдреса И ПустаяСтрока(Адрес.ID) Тогда
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.АдресныйКлассификатор") Тогда Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.АдресныйКлассификатор") Тогда
МодульАдресныйКлассификаторСлужебный = ОбщегоНазначения.ОбщийМодуль("АдресныйКлассификаторСлужебный"); МодульАдресныйКлассификаторСлужебный = ОбщегоНазначения.ОбщийМодуль("АдресныйКлассификаторСлужебный");
@@ -1587,8 +1624,10 @@
СоответствиеУровней.Вставить("territory", Новый Структура("Имя, Уровень", "Территория", 65)); СоответствиеУровней.Вставить("territory", Новый Структура("Имя, Уровень", "Территория", 65));
СоответствиеУровней.Вставить("street", Новый Структура("Имя, Уровень", "Улица", 7)); СоответствиеУровней.Вставить("street", Новый Структура("Имя, Уровень", "Улица", 7));
Если Параметры.КодыАдреса Тогда
Идентификаторы = Новый Структура(); Идентификаторы = Новый Структура();
Результат.Вставить("Идентификаторы", Идентификаторы); Результат.Вставить("Идентификаторы", Идентификаторы);
КонецЕсли;
ИдентификаторАдресногоОбъекта = ""; ИдентификаторАдресногоОбъекта = "";
МаксимальныйУровеньИдентификатора = 0; МаксимальныйУровеньИдентификатора = 0;
@@ -1604,7 +1643,9 @@
Результат.Вставить(ЧастьАдреса.Значение.Имя + "Сокращение", Сокращение); Результат.Вставить(ЧастьАдреса.Значение.Имя + "Сокращение", Сокращение);
СоответствиеСокращений.Вставить(ЧастьАдреса.Значение.Уровень, Сокращение); СоответствиеСокращений.Вставить(ЧастьАдреса.Значение.Уровень, Сокращение);
Если Параметры.КодыАдреса Тогда
Идентификаторы.Вставить(ЧастьАдреса.Значение.Имя + "Идентификатор", ИдентификаторТекущегоУровня); Идентификаторы.Вставить(ЧастьАдреса.Значение.Имя + "Идентификатор", ИдентификаторТекущегоУровня);
КонецЕсли;
УровеньИдентификатора = ?(ЧастьАдреса.Значение.Уровень < 10, ЧастьАдреса.Значение.Уровень * 10, ЧастьАдреса.Значение.Уровень); УровеньИдентификатора = ?(ЧастьАдреса.Значение.Уровень < 10, ЧастьАдреса.Значение.Уровень * 10, ЧастьАдреса.Значение.Уровень);
Если ЗначениеЗаполнено(ИдентификаторТекущегоУровня) И МаксимальныйУровеньИдентификатора < УровеньИдентификатора Тогда Если ЗначениеЗаполнено(ИдентификаторТекущегоУровня) И МаксимальныйУровеньИдентификатора < УровеньИдентификатора Тогда
@@ -1613,7 +1654,9 @@
КонецЦикла; КонецЦикла;
Если Параметры.КодыАдреса Тогда
Результат.Вставить("ИдентификаторАдресногоОбъекта", ИдентификаторАдресногоОбъекта); Результат.Вставить("ИдентификаторАдресногоОбъекта", ИдентификаторАдресногоОбъекта);
КонецЕсли;
// Установка полных сокращений, если определен параметр. // Установка полных сокращений, если определен параметр.
Если Параметры.ПолноеНаименованиеСокращений = Истина Тогда Если Параметры.ПолноеНаименованиеСокращений = Истина Тогда
@@ -1646,7 +1689,9 @@
Результат.Помещения.Добавить(Новый Структура("ТипПомещения, Номер", Корпус.Type, Корпус.Number)); Результат.Помещения.Добавить(Новый Структура("ТипПомещения, Номер", Корпус.Type, Корпус.Number));
КонецЦикла; КонецЦикла;
Если Параметры.КодыАдреса Тогда
Результат.Вставить("ИдентификаторДома", ""); Результат.Вставить("ИдентификаторДома", "");
КонецЕсли;
РезультатПроверкиАдреса = ""; РезультатПроверкиАдреса = "";
СписокОшибок = ""; СписокОшибок = "";
@@ -1655,11 +1700,15 @@
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.АдресныйКлассификатор") Тогда Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.АдресныйКлассификатор") Тогда
МодульАдресныйКлассификаторСлужебный = ОбщегоНазначения.ОбщийМодуль("АдресныйКлассификаторСлужебный"); МодульАдресныйКлассификаторСлужебный = ОбщегоНазначения.ОбщийМодуль("АдресныйКлассификаторСлужебный");
Если Параметры.КодыКЛАДР Или Параметры.КодыАдреса Тогда
ДополнительныеКоды = МодульАдресныйКлассификаторСлужебный.КодыАдресаИКодыКЛАДР(Адрес, ИдентификаторАдресногоОбъекта); ДополнительныеКоды = МодульАдресныйКлассификаторСлужебный.КодыАдресаИКодыКЛАДР(Адрес, ИдентификаторАдресногоОбъекта);
Если Параметры.КодыАдреса Тогда
Результат.Вставить("ДополнительныеКоды", ДополнительныеКоды.КодыАдреса); Результат.Вставить("ДополнительныеКоды", ДополнительныеКоды.КодыАдреса);
КонецЕсли;
Если Параметры.КодыКЛАДР Тогда Если Параметры.КодыКЛАДР Тогда
Результат.Вставить("КодыКЛАДР", ДополнительныеКоды.КодыКЛАДР); Результат.Вставить("КодыКЛАДР", ДополнительныеКоды.КодыКЛАДР);
КонецЕсли; КонецЕсли;
КонецЕсли;
Иначе Иначе
ЗаполнитьКодыАдреса(Результат, Адрес); ЗаполнитьКодыАдреса(Результат, Адрес);
КонецЕсли; КонецЕсли;
@@ -582,8 +582,14 @@
// //
// Параметры: // Параметры:
// КонтактнаяИнформация - Строка, Структура - Описание полей контактной информации. // КонтактнаяИнформация - Строка, Структура - Описание полей контактной информации.
// Если передается структура, то состав полей должен соответствовать // Для строки внутренний формат JSON соответствующая структуре, описанной в функции
// УправлениеКонтактнойИнформациейКлиентСервер.ОписаниеНовойКонтактнойИнформации. // РаботаСАдресамиКлиентСервер.ОписаниеНовойКонтактнойИнформации (для конфигурации с поддержкой специфики РФ)
// или УправлениеКонтактнойИнформациейКлиентСервер.ОписаниеНовойКонтактнойИнформации.
// Для строки c XML соответствующего XDTO пакету КонтактнаяИнформация или Адрес.
// У структуры состав полей должен соответствовать возвращаемым полям функций:
// РаботаСАдресами.ПоляАдреса или РаботаСАдресамиКлиентСервер.СтруктураКонтактнойИнформацииПоТипу,
// для конфигурации с поддержкой специфики РФ или
// УправлениеКонтактнойИнформациейКлиентСервер.СтруктураКонтактнойИнформацииПоТипу для международной конфигурации.
// ОжидаемыйВид - СправочникСсылка.ВидыКонтактнойИнформации, ПеречислениеСсылка.ТипыКонтактнойИнформации - // ОжидаемыйВид - СправочникСсылка.ВидыКонтактнойИнформации, ПеречислениеСсылка.ТипыКонтактнойИнформации -
// Используется для определения типа, если его невозможно вычислить по полю ЗначенияПолей. // Используется для определения типа, если его невозможно вычислить по полю ЗначенияПолей.
// //
@@ -598,6 +604,8 @@
Возврат КонтактнаяИнформация; Возврат КонтактнаяИнформация;
КонецЕсли; КонецЕсли;
КонтактнаяИнформацияПоПолям = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияВСтруктуруJSON(КонтактнаяИнформация, ОжидаемыйВид); КонтактнаяИнформацияПоПолям = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияВСтруктуруJSON(КонтактнаяИнформация, ОжидаемыйВид);
Возврат УправлениеКонтактнойИнформациейСлужебный.СтруктураВСтрокуJSON(КонтактнаяИнформацияПоПолям); Возврат УправлениеКонтактнойИнформациейСлужебный.СтруктураВСтрокуJSON(КонтактнаяИнформацияПоПолям);
@@ -607,6 +615,9 @@
// //
// Параметры: // Параметры:
// ЗначенияПолей - Строка, Структура, Соответствие, СписокЗначений - Описание полей контактной информации. // ЗначенияПолей - Строка, Структура, Соответствие, СписокЗначений - Описание полей контактной информации.
// Для строки XML соответствующего XDTO пакету КонтактнаяИнформация или Адрес.
// Структура, Соответствие, СписокЗначений должен содержать поля в соответствии со структурой
// XDTO пакетов КонтактнаяИнформация или Адрес(для конфигурации с поддержкой специфики РФ).
// Представление - Строка - Представление контактной информации. Используется, если невозможно определить // Представление - Строка - Представление контактной информации. Используется, если невозможно определить
// представление из параметра ЗначенияПолей (например, отсутствует поле Представление). // представление из параметра ЗначенияПолей (например, отсутствует поле Представление).
// ОжидаемыйВид - СправочникСсылка.ВидыКонтактнойИнформации, ПеречислениеСсылка.ТипыКонтактнойИнформации - // ОжидаемыйВид - СправочникСсылка.ВидыКонтактнойИнформации, ПеречислениеСсылка.ТипыКонтактнойИнформации -
@@ -3160,12 +3171,12 @@
ТелефонаПоПолям = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияВСтруктуруJSON(КонтактнаяИнформация, Перечисления.ТипыКонтактнойИнформации.Телефон); ТелефонаПоПолям = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияВСтруктуруJSON(КонтактнаяИнформация, Перечисления.ТипыКонтактнойИнформации.Телефон);
Результат = УправлениеКонтактнойИнформациейКлиентСервер.СтруктураПолейТелефона(); Результат = УправлениеКонтактнойИнформациейКлиентСервер.СтруктураПолейТелефона();
Результат.Представление = ТелефонаПоПолям.Value; Результат.Представление = Строка(ТелефонаПоПолям.Value);
Результат.КодСтраны = ТелефонаПоПолям.CountryCode; Результат.КодСтраны = Строка(ТелефонаПоПолям.CountryCode);
Результат.КодГорода = ТелефонаПоПолям.AreaCode; Результат.КодГорода = Строка(ТелефонаПоПолям.AreaCode);
Результат.НомерТелефона = ТелефонаПоПолям.Number; Результат.НомерТелефона = Строка(ТелефонаПоПолям.Number);
Результат.Добавочный = ТелефонаПоПолям.ExtNumber; Результат.Добавочный = Строка(ТелефонаПоПолям.ExtNumber);
Результат.Комментарий = ТелефонаПоПолям.Comment; Результат.Комментарий = Строка(ТелефонаПоПолям.Comment);
Возврат Результат; Возврат Результат;
@@ -5078,10 +5089,10 @@
ПустоеПредставление = ПустаяСтрока(СтрокаКонтактнойИнформации.Представление); ПустоеПредставление = ПустаяСтрока(СтрокаКонтактнойИнформации.Представление);
ПустоеЗначение = ПустаяСтрока(СтрокаКонтактнойИнформации.Значение); ПустоеЗначение = ПустаяСтрока(СтрокаКонтактнойИнформации.Значение);
ЗначенияПолей = Новый Структура("ЗначенияПолей", Неопределено); ЗначенияПолей = Новый Структура("Значение", Неопределено);
ЗаполнитьЗначенияСвойств(ЗначенияПолей, СтрокаКонтактнойИнформации); ЗаполнитьЗначенияСвойств(ЗначенияПолей, СтрокаКонтактнойИнформации);
ЕстьЗначенияПолей = (ТипЗнч(ЗначенияПолей.ЗначенияПолей) = Тип("Строка")); ЕстьЗначенияПолей = (ТипЗнч(ЗначенияПолей.Значение) = Тип("Строка"));
ПустыеЗначенияПолей = ЕстьЗначенияПолей И ПустаяСтрока(ЗначенияПолей.ЗначенияПолей); ПустыеЗначенияПолей = ЕстьЗначенияПолей И ПустаяСтрока(ЗначенияПолей.Значение);
Если ЕстьЗначенияПолей Тогда Если ЕстьЗначенияПолей Тогда
Если ПустоеПредставление И ПустоеЗначение И ПустыеЗначенияПолей Тогда Если ПустоеПредставление И ПустоеЗначение И ПустыеЗначенияПолей Тогда
@@ -5099,7 +5110,7 @@
"Тип, ВключатьСтрануВПредставление, ПроверятьПоФИАС"); "Тип, ВключатьСтрануВПредставление, ПроверятьПоФИАС");
ФорматКонтактнойИнформации.Вставить("ФорматАдреса", "ФИАС"); ФорматКонтактнойИнформации.Вставить("ФорматАдреса", "ФИАС");
СтрокаКонтактнойИнформации.Представление = УправлениеКонтактнойИнформациейСлужебный.ПредставлениеКонтактнойИнформации( СтрокаКонтактнойИнформации.Представление = УправлениеКонтактнойИнформациейСлужебный.ПредставлениеКонтактнойИнформации(
СтрокаКонтактнойИнформации.ЗначенияПолей, ФорматКонтактнойИнформации); СтрокаКонтактнойИнформации.Значение, ФорматКонтактнойИнформации);
КонецЕсли; КонецЕсли;
@@ -5110,12 +5121,12 @@
АдресПоПолям = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияПоПредставлению( АдресПоПолям = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияПоПредставлению(
СтрокаКонтактнойИнформации.Представление, СтрокаКонтактнойИнформации.Тип); СтрокаКонтактнойИнформации.Представление, СтрокаКонтактнойИнформации.Тип);
СтрокаКонтактнойИнформации.Значение = УправлениеКонтактнойИнформациейСлужебный.СтруктураВСтрокуJSON(АдресПоПолям); СтрокаКонтактнойИнформации.Значение = УправлениеКонтактнойИнформациейСлужебный.СтруктураВСтрокуJSON(АдресПоПолям);
СтрокаКонтактнойИнформации.ЗначенияПолей = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияИзJSONВXML( СтрокаКонтактнойИнформации.Значение = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияИзJSONВXML(
СтрокаКонтактнойИнформации.Значение, СтрокаКонтактнойИнформации.Тип); СтрокаКонтактнойИнформации.Значение, СтрокаКонтактнойИнформации.Тип);
ИначеЕсли ЕстьЗначенияПолей Тогда ИначеЕсли ЕстьЗначенияПолей Тогда
СтрокаКонтактнойИнформации.Значение = КонтактнаяИнформацияВJSON(СтрокаКонтактнойИнформации.ЗначенияПолей, СтрокаКонтактнойИнформации.Значение = КонтактнаяИнформацияВJSON(СтрокаКонтактнойИнформации.Значение,
СтрокаКонтактнойИнформации.Тип); СтрокаКонтактнойИнформации.Тип);
Иначе Иначе
@@ -5128,7 +5139,7 @@
КонтактнаяИнформацияXDTO = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOПоПредставлению( КонтактнаяИнформацияXDTO = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOПоПредставлению(
СтрокаКонтактнойИнформации.Представление, СтрокаКонтактнойИнформации.Вид); СтрокаКонтактнойИнформации.Представление, СтрокаКонтактнойИнформации.Вид);
СтрокаКонтактнойИнформации.ЗначенияПолей = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOВXML( СтрокаКонтактнойИнформации.Значение = УправлениеКонтактнойИнформациейСлужебный.КонтактнаяИнформацияXDTOВXML(
КонтактнаяИнформацияXDTO); КонтактнаяИнформацияXDTO);
КонецЕсли; КонецЕсли;
@@ -830,12 +830,15 @@
СтранаМира = УправлениеКонтактнойИнформацией.СтранаМираПоКодуИлиНаименованию(Адрес.Country); СтранаМира = УправлениеКонтактнойИнформацией.СтранаМираПоКодуИлиНаименованию(Адрес.Country);
КонецЕсли; КонецЕсли;
// Обработка частых сокращений в адресе
ОбработкаЧастыхСокращенийВАдресах(ДанныеАнализа);
Если Адрес.Country = НаименованиеОсновнаяСтрана Тогда Если Адрес.Country = НаименованиеОсновнаяСтрана Тогда
Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.АдресныйКлассификатор") Тогда Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.АдресныйКлассификатор") Тогда
МодульАдресныйКлассификаторСлужебный = ОбщегоНазначения.ОбщийМодуль("АдресныйКлассификаторСлужебный"); МодульАдресныйКлассификаторСлужебный = ОбщегоНазначения.ОбщийМодуль("АдресныйКлассификаторСлужебный");
ВариантыАдреса = МодульАдресныйКлассификаторСлужебный.РаспознатьАдрес(ДанныеАнализа); ВариантыАдреса = МодульАдресныйКлассификаторСлужебный.РаспознатьАдрес(ДанныеАнализа, Представление);
Если ВариантыАдреса = Неопределено Тогда Если ВариантыАдреса = Неопределено Тогда
@@ -902,6 +905,24 @@
КонецФункции КонецФункции
Процедура ОбработкаЧастыхСокращенийВАдресах(Знач ДанныеАнализа)
СубъектРФ = Новый Соответствие();
СубъектРФ.Вставить(НСтр("ru='САНКТ-ПЕТЕРБУРГ'"), "Санкт-Петербург");
СубъектРФ.Вставить(НСтр("ru='МОСКВА'"), "Москва");
СубъектРФ.Вставить(НСтр("ru='МСК'"), "Москва");
СубъектРФ.Вставить(НСтр("ru='СПБ'"), "Санкт-Петербург");
Для каждого ЧастьАдреса Из ДанныеАнализа Цикл
Наименование = ВРег(ЧастьАдреса.Наименование);
Если СубъектРФ.Получить(Наименование ) <> Неопределено И ПустаяСтрока(ЧастьАдреса.Сокращение) Тогда
ЧастьАдреса.Наименование = СубъектРФ.Получить(Наименование );
ЧастьАдреса.Сокращение = "г";
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Процедура РаспределитьАдресПоПолямБезКлассификатора(Адрес, ДанныеАнализа) Процедура РаспределитьАдресПоПолямБезКлассификатора(Адрес, ДанныеАнализа)
ПредставлениеПоДаннымАнализа = Новый Массив; ПредставлениеПоДаннымАнализа = Новый Массив;
@@ -2751,7 +2772,9 @@
ЭлементыАдреса = Новый Соответствие; ЭлементыАдреса = Новый Соответствие;
Если ТипЗнч(КонтактнаяИнформация) = Тип("Строка") Тогда Если ТипЗнч(КонтактнаяИнформация) = Тип("Строка") Тогда
Если УправлениеКонтактнойИнформациейКлиентСервер.ЭтоКонтактнаяИнформацияВXML(КонтактнаяИнформация) Тогда Если УправлениеКонтактнойИнформациейКлиентСервер.ЭтоКонтактнаяИнформацияВJSON(КонтактнаяИнформация) Тогда
Возврат СтрокаJSONВСтруктуру(КонтактнаяИнформация);
ИначеЕсли УправлениеКонтактнойИнформациейКлиентСервер.ЭтоКонтактнаяИнформацияВXML(КонтактнаяИнформация) Тогда
РезультатПреобразования = Новый Структура; РезультатПреобразования = Новый Структура;
XDTOКонтактнаяИнформация = КонтактнаяИнформацияИзXML(КонтактнаяИнформация, Тип, РезультатПреобразования, Представление); XDTOКонтактнаяИнформация = КонтактнаяИнформацияИзXML(КонтактнаяИнформация, Тип, РезультатПреобразования, Представление);
Иначе Иначе
@@ -2791,8 +2814,8 @@
Тип = Перечисления.ТипыКонтактнойИнформации.Адрес; Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
КонецЕсли; КонецЕсли;
Результат.Value = XDTOКонтактнаяИнформация.Представление; Результат.Value = Строка(XDTOКонтактнаяИнформация.Представление);
Результат.Comment = XDTOКонтактнаяИнформация.Комментарий; Результат.Comment = Строка(XDTOКонтактнаяИнформация.Комментарий);
Если Тип <> Перечисления.ТипыКонтактнойИнформации.Адрес И Тип <> Перечисления.ТипыКонтактнойИнформации.Телефон Тогда Если Тип <> Перечисления.ТипыКонтактнойИнформации.Адрес И Тип <> Перечисления.ТипыКонтактнойИнформации.Телефон Тогда
Возврат Результат; Возврат Результат;
@@ -2811,7 +2834,7 @@
Если XDTOТип = ФабрикаXDTO.Тип(ПространствоИмен, "Адрес") Тогда Если XDTOТип = ФабрикаXDTO.Тип(ПространствоИмен, "Адрес") Тогда
Результат.Вставить("Country", Состав.Страна); Результат.Вставить("Country", Строка(Состав.Страна));
Страна = Справочники.СтраныМира.НайтиПоНаименованию(Состав.Страна, Истина); Страна = Справочники.СтраныМира.НайтиПоНаименованию(Состав.Страна, Истина);
НаименованиеСтраны = Страна.Наименование; НаименованиеСтраны = Страна.Наименование;
Результат.Вставить("CountryCode", СокрЛП(Страна.Код)); Результат.Вставить("CountryCode", СокрЛП(Страна.Код));
@@ -10,17 +10,24 @@
// //
Функция СведенияОДоступностиАдресногоКлассификатора() Экспорт Функция СведенияОДоступностиАдресногоКлассификатора() Экспорт
ЕстьКлассификатор = ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.АдресныйКлассификатор");
Если ЕстьКлассификатор И НЕ ОбщегоНазначения.РазделениеВключено() Тогда
МодульАдресныйКлассификаторСлужебный = ОбщегоНазначения.ОбщийМодуль("АдресныйКлассификаторСлужебный");
Возврат МодульАдресныйКлассификаторСлужебный.СведенияОДоступностиАдресныхСведений();
КонецЕсли;
Результат = Новый Структура; Результат = Новый Структура;
Результат.Вставить("КлассификаторДоступен", Ложь); Результат.Вставить("КлассификаторДоступен", Ложь);
Результат.Вставить("ИспользоватьЗагруженные", Ложь); Результат.Вставить("ИспользоватьЗагруженные", Ложь);
ЕстьКлассификатор = ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.АдресныйКлассификатор");
Если Не ЕстьКлассификатор Тогда
Возврат Результат;
КонецЕсли;
МодульАдресныйКлассификаторСлужебный = ОбщегоНазначения.ОбщийМодуль("АдресныйКлассификаторСлужебный");
СведенияОДоступностиАдресныхСведений = МодульАдресныйКлассификаторСлужебный.СведенияОДоступностиАдресныхСведений();
Результат.Вставить("ИспользоватьЗагруженные", СведенияОДоступностиАдресныхСведений.Получить("ИспользоватьЗагруженные"));
Если Не ОбщегоНазначения.РазделениеВключено() Тогда
Результат.Вставить("КлассификаторДоступен", СведенияОДоступностиАдресныхСведений.Получить("КлассификаторДоступен"));
КонецЕсли;
Возврат Результат; Возврат Результат;
КонецФункции КонецФункции
+9 -9
View File
@@ -1,17 +1,17 @@
<?xml version="1.0" encoding="UTF-8"?> <?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> <name>БиблиотекаСтандартныхПодсистем</name>
<synonym> <synonym>
<key>ru</key> <key>ru</key>
<value>Библиотека стандартных подсистем, редакция 3.0</value> <value>Библиотека стандартных подсистем, редакция 3.0</value>
</synonym> </synonym>
<containedObjects classId="9cd510cd-abfc-11d4-9434-004095e12fc7" objectId="963eb1b4-5043-4955-b746-f90f8021d5cb"/> <containedObjects classId="9cd510cd-abfc-11d4-9434-004095e12fc7" objectId="ca1011d3-bdb0-42ed-a4b8-25a9a808d94f"/>
<containedObjects classId="9fcd25a0-4822-11d4-9414-008048da11f9" objectId="a8712819-1046-47de-ba29-c8e9060cab2c"/> <containedObjects classId="9fcd25a0-4822-11d4-9414-008048da11f9" objectId="e461f107-afda-445e-a130-3467f4506e73"/>
<containedObjects classId="e3687481-0a87-462c-a166-9f34594f9bba" objectId="d65b45ac-80c5-4191-8ebd-4149982197a0"/> <containedObjects classId="e3687481-0a87-462c-a166-9f34594f9bba" objectId="e8ac1d7c-80c7-4ecd-9b6f-43311cfb48ef"/>
<containedObjects classId="9de14907-ec23-4a07-96f0-85521cb6b53b" objectId="f25148b5-3a8f-484e-8faa-65111b6e6358"/> <containedObjects classId="9de14907-ec23-4a07-96f0-85521cb6b53b" objectId="79af1aad-92fd-4b4e-b288-f770f4c4ada9"/>
<containedObjects classId="51f2d5d8-ea4d-4064-8892-82951750031e" objectId="ca729cad-6e8f-4a00-a1a6-39f830a6c95b"/> <containedObjects classId="51f2d5d8-ea4d-4064-8892-82951750031e" objectId="b42f3f11-2bef-4d8f-a1f5-b8ffcfc33f50"/>
<containedObjects classId="e68182ea-4237-4383-967f-90c1e3370bc7" objectId="5d211a66-b84f-450a-b593-20d3a4d6ed96"/> <containedObjects classId="e68182ea-4237-4383-967f-90c1e3370bc7" objectId="77970f5a-37f9-4f5b-a0a0-3fce475bc0a9"/>
<containedObjects classId="fb282519-d103-4dd3-bc12-cb271d631dfc" objectId="fc1ccb1f-466d-4450-9f79-4353bd4def28"/> <containedObjects classId="fb282519-d103-4dd3-bc12-cb271d631dfc" objectId="8fc273a5-d6bb-4382-ad62-f9c758aa2380"/>
<defaultRunMode>ManagedApplication</defaultRunMode> <defaultRunMode>ManagedApplication</defaultRunMode>
<usePurposes>PersonalComputer</usePurposes> <usePurposes>PersonalComputer</usePurposes>
<scriptVariant>Russian</scriptVariant> <scriptVariant>Russian</scriptVariant>
@@ -19,7 +19,7 @@
<defaultRoles>Role.АдминистраторСистемы</defaultRoles> <defaultRoles>Role.АдминистраторСистемы</defaultRoles>
<defaultRoles>Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</defaultRoles> <defaultRoles>Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</defaultRoles>
<vendor>Фирма &quot;1С&quot;</vendor> <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> <updateCatalogAddress>http://downloads.v8.1c.ru/tmplts/</updateCatalogAddress>
<includeHelpInContents>true</includeHelpInContents> <includeHelpInContents>true</includeHelpInContents>
<usedMobileApplicationFunctionalities> <usedMobileApplicationFunctionalities>
@@ -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
@@ -824,13 +824,17 @@
&НаСервере &НаСервере
Процедура ПриНачалеВыгрузкиДанныхНаСервере(ПродолжитьОжидание) Процедура ПриНачалеВыгрузкиДанныхНаСервере(ПродолжитьОжидание)
МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса();
Если МодульПомощникИнтерактивногоОбмена = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли;
НастройкиВыгрузки = Новый Структура; НастройкиВыгрузки = Новый Структура;
НастройкиВыгрузки.Вставить("Корреспондент", УзелИнформационнойБазы); НастройкиВыгрузки.Вставить("Корреспондент", УзелИнформационнойБазы);
НастройкиВыгрузки.Вставить("ОбластьДанныхКорреспондента", ОбластьДанныхКорреспондента); НастройкиВыгрузки.Вставить("ОбластьДанныхКорреспондента", ОбластьДанныхКорреспондента);
МодульПомощникИнтерактивногоОбмена = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса");
ПараметрыОбработчикаВыгрузкиДанных = Неопределено; ПараметрыОбработчикаВыгрузкиДанных = Неопределено;
МодульПомощникИнтерактивногоОбмена.ПриНачалеВыгрузкиДанных(НастройкиВыгрузки, МодульПомощникИнтерактивногоОбмена.ПриНачалеВыгрузкиДанных(НастройкиВыгрузки,
ПараметрыОбработчикаВыгрузкиДанных, ПродолжитьОжидание); ПараметрыОбработчикаВыгрузкиДанных, ПродолжитьОжидание);
@@ -840,10 +844,12 @@
&НаСервереБезКонтекста &НаСервереБезКонтекста
Процедура ПриОжиданииВыгрузкиДанныхНаСервере(ПараметрыОбработчика, ПродолжитьОжидание) Процедура ПриОжиданииВыгрузкиДанныхНаСервере(ПараметрыОбработчика, ПродолжитьОжидание)
МодульПомощникИнтерактивногоОбмена = ОбщегоНазначения.ОбщийМодуль( МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса();
"Обработки.ПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса");
Если МодульПомощникИнтерактивногоОбмена = Неопределено Тогда
ПродолжитьОжидание = Ложь; ПродолжитьОжидание = Ложь;
КонецЕсли;
МодульПомощникИнтерактивногоОбмена.ПриОжиданииВыгрузкиДанных(ПараметрыОбработчика, ПродолжитьОжидание); МодульПомощникИнтерактивногоОбмена.ПриОжиданииВыгрузкиДанных(ПараметрыОбработчика, ПродолжитьОжидание);
КонецПроцедуры КонецПроцедуры
@@ -851,10 +857,14 @@
&НаСервереБезКонтекста &НаСервереБезКонтекста
Процедура ПриЗавершенииВыгрузкиДанныхНаСервере(ПараметрыОбработчика, ДанныеВыгружены, СообщениеОбОшибке) Процедура ПриЗавершенииВыгрузкиДанныхНаСервере(ПараметрыОбработчика, ДанныеВыгружены, СообщениеОбОшибке)
СтатусЗавершения = Неопределено; МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса();
МодульПомощникИнтерактивногоОбмена = ОбщегоНазначения.ОбщийМодуль( Если МодульПомощникИнтерактивногоОбмена = Неопределено Тогда
"Обработки.ПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса"); ДанныеВыгружены = Ложь;
Возврат;
КонецЕсли;
СтатусЗавершения = Неопределено;
МодульПомощникИнтерактивногоОбмена.ПриЗавершенииВыгрузкиДанных(ПараметрыОбработчика, СтатусЗавершения); МодульПомощникИнтерактивногоОбмена.ПриЗавершенииВыгрузкиДанных(ПараметрыОбработчика, СтатусЗавершения);
ПараметрыОбработчика = Неопределено; ПараметрыОбработчика = Неопределено;
@@ -29,6 +29,12 @@
Иначе Иначе
ВидимостьГруппыНастройки = Ложь; ВидимостьГруппыНастройки = Ложь;
КонецЕсли; КонецЕсли;
МодульАдресныйКлассификаторСлужебный = ОбщегоНазначения.ОбщийМодуль("АдресныйКлассификаторСлужебный");
СведенияОДоступностиАдресныхСведений = МодульАдресныйКлассификаторСлужебный.СведенияОДоступностиАдресныхСведений();
АдресныйКлассификаторСодержитЗагруженныеСведения = СведенияОДоступностиАдресныхСведений.Получить("ИспользоватьЗагруженные") = Истина;
Элементы.РегистрСведенийАдресныеОбъектыОчиститьАдресныйКлассификатор.Доступность = АдресныйКлассификаторСодержитЗагруженныеСведения;
Иначе Иначе
ВидимостьГруппыКоманды = Ложь; ВидимостьГруппыКоманды = Ложь;
КонецЕсли; КонецЕсли;
@@ -174,6 +180,10 @@
Элементы.ГруппаАдресныйКлассификаторПраваяКолонка.Видимость = Истина; Элементы.ГруппаАдресныйКлассификаторПраваяКолонка.Видимость = Истина;
КонецЕсли; КонецЕсли;
Если ИмяСобытия = "ОчищенАдресныйКлассификатор" Или ИмяСобытия = "ЗагруженАдресныйКлассификатор" Тогда
Элементы.РегистрСведенийАдресныеОбъектыОчиститьАдресныйКлассификатор.Доступность = (Параметр = Истина);
КонецЕсли;
Если ОбрабатыватьНастройкиБИП Тогда Если ОбрабатыватьНастройкиБИП Тогда
Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("ИнтернетПоддержкаПользователей.БазоваяФункциональностьБИП") Тогда Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("ИнтернетПоддержкаПользователей.БазоваяФункциональностьБИП") Тогда
МодульИнтернетПоддержкаПользователейКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ИнтернетПоддержкаПользователейКлиент"); МодульИнтернетПоддержкаПользователейКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("ИнтернетПоддержкаПользователейКлиент");
@@ -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Пароль); НастройкиВыгрузки.Вставить("WSПароль", WSПароль);
КонецЕсли; КонецЕсли;
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникИнтерактивногоОбменаДанными"); МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДанными();
КонецЕсли; КонецЕсли;
МодульПомощникНастройки.ПриНачалеВыгрузкиДанныхДляСопоставления( Если МодульПомощникИнтерактивногоОбмена = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли;
МодульПомощникИнтерактивногоОбмена.ПриНачалеВыгрузкиДанныхДляСопоставления(
НастройкиВыгрузки, ПараметрыОбработчикаВыгрузкиДанныхДляСопоставления, ПродолжитьОжидание); НастройкиВыгрузки, ПараметрыОбработчикаВыгрузкиДанныхДляСопоставления, ПродолжитьОжидание);
КонецПроцедуры КонецПроцедуры
@@ -396,29 +412,34 @@
&НаСервереБезКонтекста &НаСервереБезКонтекста
Процедура ПриОжиданииВыгрузкиДанныхДляСопоставленияНаСервере(ПараметрыОбработчика, ПродолжитьОжидание) Процедура ПриОжиданииВыгрузкиДанныхДляСопоставленияНаСервере(ПараметрыОбработчика, ПродолжитьОжидание)
Если ОбщегоНазначения.ПодсистемаСуществует("ТехнологияСервиса.РаботаВМоделиСервиса.ОбменДаннымиВМоделиСервиса") Тогда МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса();
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль(
"Обработки.ПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса"); Если МодульПомощникИнтерактивногоОбмена = Неопределено Тогда
МодульПомощникНастройки.ПриОжиданииВыгрузкиДанныхДляСопоставления(ПараметрыОбработчика, ПродолжитьОжидание);
Иначе
ПродолжитьОжидание = Ложь; ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли; КонецЕсли;
МодульПомощникИнтерактивногоОбмена.ПриОжиданииВыгрузкиДанныхДляСопоставления(ПараметрыОбработчика, ПродолжитьОжидание);
КонецПроцедуры КонецПроцедуры
&НаСервере &НаСервере
Процедура ПриЗавершенииВыгрузкиДанныхДляСопоставленияНаСервере() Процедура ПриЗавершенииВыгрузкиДанныхДляСопоставленияНаСервере()
СтатусЗавершения = Неопределено;
Если ЭтоОбменСПриложениемВСервисе Тогда Если ЭтоОбменСПриложениемВСервисе Тогда
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль( МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса();
"Обработки.ПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса");
Иначе Иначе
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникИнтерактивногоОбменаДанными"); МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДанными();
КонецЕсли; КонецЕсли;
МодульПомощникНастройки.ПриЗавершенииВыгрузкиДанныхДляСопоставления( Если МодульПомощникИнтерактивногоОбмена = Неопределено Тогда
ВыгрузкаДанныхВыполнена = Ложь;
Возврат;
КонецЕсли;
СтатусЗавершения = Неопределено;
МодульПомощникИнтерактивногоОбмена.ПриЗавершенииВыгрузкиДанныхДляСопоставления(
ПараметрыОбработчикаВыгрузкиДанныхДляСопоставления, СтатусЗавершения); ПараметрыОбработчикаВыгрузкиДанныхДляСопоставления, СтатусЗавершения);
Если СтатусЗавершения.Отказ Тогда Если СтатусЗавершения.Отказ Тогда
@@ -956,7 +956,7 @@
КонецЕсли; КонецЕсли;
Отказ = Ложь; Отказ = Ложь;
ВыполнитьЗагрузкуДанныхНаСервере(Отказ, КлючиСтрок); ОбновитьИнформациюСопоставленияПоСтрокеНаСервере(Отказ, КлючиСтрок, Истина);
Если Отказ Тогда Если Отказ Тогда
НСтрока = НСтр("ru = 'При загрузке данных возникли ошибки. НСтрока = НСтр("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 @@
&НаСервереБезКонтекста &НаСервереБезКонтекста
Процедура ПриЗавершенииВыгрузкиДанныхНаСервере(ПараметрыОбработчика, ДанныеВыгружены, СообщениеОбОшибке) Процедура ПриЗавершенииВыгрузкиДанныхНаСервере(ПараметрыОбработчика, ДанныеВыгружены, СообщениеОбОшибке)
СтатусЗавершения = Неопределено; МодульПомощникИнтерактивногоОбмена = ОбменДаннымиСервер.МодульПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса();
МодульПомощникИнтерактивногоОбмена = ОбщегоНазначения.ОбщийМодуль( Если МодульПомощникИнтерактивногоОбмена = Неопределено Тогда
"Обработки.ПомощникИнтерактивногоОбменаДаннымиВМоделиСервиса"); ДанныеВыгружены = Ложь;
Возврат;
КонецЕсли;
СтатусЗавершения = Неопределено;
МодульПомощникИнтерактивногоОбмена.ПриЗавершенииВыгрузкиДанных(ПараметрыОбработчика, СтатусЗавершения); МодульПомощникИнтерактивногоОбмена.ПриЗавершенииВыгрузкиДанных(ПараметрыОбработчика, СтатусЗавершения);
ПараметрыОбработчика = Неопределено; ПараметрыОбработчика = Неопределено;
@@ -113,28 +113,32 @@
&НаСервере &НаСервере
Процедура ПриНачалеЗагрузкиНастроекXDTOНаСервере(ПродолжитьОжидание) Процедура ПриНачалеЗагрузкиНастроекXDTOНаСервере(ПродолжитьОжидание)
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
НастройкиЗагрузки = Новый Структура; НастройкиЗагрузки = Новый Структура;
НастройкиЗагрузки.Вставить("УзелОбмена", УзелОбмена); НастройкиЗагрузки.Вставить("УзелОбмена", УзелОбмена);
Обработки.ПомощникСозданияОбменаДанными.ПриНачалеЗагрузкиНастроекXDTO( МодульПомощникНастройки.ПриНачалеЗагрузкиНастроекXDTO(НастройкиЗагрузки, ПараметрыОбработчика, ПродолжитьОжидание);
НастройкиЗагрузки, ПараметрыОбработчика, ПродолжитьОжидание);
КонецПроцедуры КонецПроцедуры
&НаСервереБезКонтекста &НаСервереБезКонтекста
Процедура ПриОжиданииЗагрузкиНастроекXDTOНаСервере(ПараметрыОбработчика, ПродолжитьОжидание) Процедура ПриОжиданииЗагрузкиНастроекXDTOНаСервере(ПараметрыОбработчика, ПродолжитьОжидание)
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
ПродолжитьОжидание = Ложь; ПродолжитьОжидание = Ложь;
Обработки.ПомощникСозданияОбменаДанными.ПриОжиданииЗагрузкиНастроекXDTO(ПараметрыОбработчика, ПродолжитьОжидание); МодульПомощникНастройки.ПриОжиданииЗагрузкиНастроекXDTO(ПараметрыОбработчика, ПродолжитьОжидание);
КонецПроцедуры КонецПроцедуры
&НаСервереБезКонтекста &НаСервереБезКонтекста
Процедура ПриЗавершенииЗагрузкиНастроекXDTOНаСервере(ПараметрыОбработчика, НастройкиЗагружены, ПолученыДанныеДляСопоставления, СообщениеОбОшибке) Процедура ПриЗавершенииЗагрузкиНастроекXDTOНаСервере(ПараметрыОбработчика, НастройкиЗагружены, ПолученыДанныеДляСопоставления, СообщениеОбОшибке)
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
СтатусЗавершения = Неопределено; СтатусЗавершения = Неопределено;
Обработки.ПомощникСозданияОбменаДанными.ПриЗавершенииЗагрузкиНастроекXDTO( МодульПомощникНастройки.ПриЗавершенииЗагрузкиНастроекXDTO(ПараметрыОбработчика, СтатусЗавершения);
ПараметрыОбработчика, СтатусЗавершения);
Если СтатусЗавершения.Отказ Тогда Если СтатусЗавершения.Отказ Тогда
НастройкиЗагружены = Ложь; НастройкиЗагружены = Ложь;
@@ -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Корреспондента.ПоддерживаемыеВерсии.Добавить(ВерсияФорматаОбмена); НастройкиПодключения.НастройкиXDTOКорреспондента.ПоддерживаемыеВерсии.Добавить(ВерсияФорматаОбмена);
КонецЕсли; КонецЕсли;
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль( МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
"Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
Иначе Иначе
// Настройки подключения в формате структуры реквизитов помощника создания обмена данными. // Настройки подключения в формате структуры реквизитов помощника создания обмена данными.
НастройкиПодключения = Новый Структура; НастройкиПодключения = Новый Структура;
ЗаполнитьСтруктуруПараметровПодключенияПомощника(НастройкиПодключения); ЗаполнитьСтруктуруПараметровПодключенияПомощника(НастройкиПодключения);
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникСозданияОбменаДанными"); МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
КонецЕсли; КонецЕсли;
Если МодульПомощникНастройки = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли;
ПараметрыОбработчикаСохраненияНастроекПодключения = Неопределено; ПараметрыОбработчикаСохраненияНастроекПодключения = Неопределено;
МодульПомощникНастройки.ПриНачалеСохраненияНастроекПодключения(НастройкиПодключения, МодульПомощникНастройки.ПриНачалеСохраненияНастроекПодключения(НастройкиПодключения,
ПараметрыОбработчикаСохраненияНастроекПодключения, ПродолжитьОжидание); ПараметрыОбработчикаСохраненияНастроекПодключения, ПродолжитьОжидание);
@@ -927,10 +945,14 @@
Процедура ПриОжиданииСохраненияНастроекПодключенияНаСервере(МодельСервиса, ПараметрыОбработчика, ПродолжитьОжидание) Процедура ПриОжиданииСохраненияНастроекПодключенияНаСервере(МодельСервиса, ПараметрыОбработчика, ПродолжитьОжидание)
Если МодельСервиса Тогда Если МодельСервиса Тогда
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль( МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
"Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
Иначе Иначе
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникСозданияОбменаДанными"); МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
КонецЕсли;
Если МодульПомощникНастройки = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли; КонецЕсли;
ПродолжитьОжидание = Ложь; ПродолжитьОжидание = Ложь;
@@ -945,10 +967,14 @@
СтатусЗавершения = Неопределено; СтатусЗавершения = Неопределено;
Если МодельСервиса Тогда Если МодельСервиса Тогда
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль( МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
"Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете");
Иначе Иначе
МодульПомощникНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникСозданияОбменаДанными"); МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
КонецЕсли;
Если МодульПомощникНастройки = Неопределено Тогда
НастройкиПодключенияСохранены = Ложь;
Возврат;
КонецЕсли; КонецЕсли;
МодульПомощникНастройки.ПриЗавершенииСохраненияНастроекПодключения( МодульПомощникНастройки.ПриЗавершенииСохраненияНастроекПодключения(
@@ -1036,7 +1062,7 @@
СтруктураНастроекПомощника.Вставить("ИдентификаторИнформационнойБазыПриемника", ИдентификаторИнформационнойБазыПриемника); СтруктураНастроекПомощника.Вставить("ИдентификаторИнформационнойБазыПриемника", ИдентификаторИнформационнойБазыПриемника);
СтруктураНастроекПомощника.Вставить("ВерсияФорматаФайлаНастроекОбменаДанными", СтруктураНастроекПомощника.Вставить("ВерсияФорматаФайлаНастроекОбменаДанными",
Обработки.ПомощникСозданияОбменаДанными.ВерсияФорматаНастроекОбменаДанными()); ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными().ВерсияФорматаНастроекОбменаДанными());
СтруктураНастроекПомощника.Вставить("ВерсияФорматаОбмена", ВерсияФорматаОбмена); СтруктураНастроекПомощника.Вставить("ВерсияФорматаОбмена", ВерсияФорматаОбмена);
СтруктураНастроекПомощника.Вставить("ПоддерживаемыеОбъектыФормата", ПоддерживаемыеОбъектыФорматаКорреспондента); СтруктураНастроекПомощника.Вставить("ПоддерживаемыеОбъектыФормата", ПоддерживаемыеОбъектыФорматаКорреспондента);
@@ -1285,18 +1311,20 @@
&НаСервере &НаСервере
Процедура ЗаполнитьНастройкиПодключенияИзXMLНаСервере(АдресВХранилище, Отказ, СообщениеОбОшибке = "") Процедура ЗаполнитьНастройкиПодключенияИзXMLНаСервере(АдресВХранилище, Отказ, СообщениеОбОшибке = "")
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
ВременныйФайл = ПолучитьИмяВременногоФайла("xml"); ВременныйФайл = ПолучитьИмяВременногоФайла("xml");
ДанныеФайла = ПолучитьИзВременногоХранилища(АдресВХранилище); ДанныеФайла = ПолучитьИзВременногоХранилища(АдресВХранилище);
ДанныеФайла.Записать(ВременныйФайл); ДанныеФайла.Записать(ВременныйФайл);
Попытка Попытка
НастройкиПодключения = Обработки.ПомощникСозданияОбменаДанными.Создать(); НастройкиПодключения = МодульПомощникНастройки.Создать();
НастройкиПодключения.ИмяПланаОбмена = ИмяПланаОбмена; НастройкиПодключения.ИмяПланаОбмена = ИмяПланаОбмена;
НастройкиПодключения.ВариантНастройкиОбмена = ИдентификаторНастройки; НастройкиПодключения.ВариантНастройкиОбмена = ИдентификаторНастройки;
НастройкиПодключения.ВариантРаботыМастера = "ПродолжитьНастройкуОбменаДанными"; НастройкиПодключения.ВариантРаботыМастера = "ПродолжитьНастройкуОбменаДанными";
Обработки.ПомощникСозданияОбменаДанными.ЗаполнитьНастройкиПодключенияИзXML( МодульПомощникНастройки.ЗаполнитьНастройкиПодключенияИзXML(
НастройкиПодключения, ВременныйФайл, Истина); НастройкиПодключения, ВременныйФайл, Истина);
Исключение Исключение
Отказ = Истина; Отказ = Истина;
@@ -1318,13 +1346,15 @@
&НаСервере &НаСервере
Процедура ЗаполнитьНастройкиXDTOКорреспондентаИзXMLНаСервере(АдресВХранилище, Отказ, СообщениеОбОшибке = "") Процедура ЗаполнитьНастройкиXDTOКорреспондентаИзXMLНаСервере(АдресВХранилище, Отказ, СообщениеОбОшибке = "")
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
ВременныйФайл = ПолучитьИмяВременногоФайла("xml"); ВременныйФайл = ПолучитьИмяВременногоФайла("xml");
ДанныеФайла = ПолучитьИзВременногоХранилища(АдресВХранилище); ДанныеФайла = ПолучитьИзВременногоХранилища(АдресВХранилище);
ДанныеФайла.Записать(ВременныйФайл); ДанныеФайла.Записать(ВременныйФайл);
Попытка Попытка
НастройкиXDTOКорреспондента = Обработки.ПомощникСозданияОбменаДанными.НастройкиXDTOКорреспондентаИзXML( НастройкиXDTOКорреспондента = МодульПомощникНастройки.НастройкиXDTOКорреспондентаИзXML(
ВременныйФайл, Истина, ПланыОбмена[ИмяПланаОбмена].ПустаяСсылка()); ВременныйФайл, Истина, ПланыОбмена[ИмяПланаОбмена].ПустаяСсылка());
Исключение Исключение
Отказ = Истина; Отказ = Истина;
@@ -1649,12 +1679,14 @@
УзелОбмена = ОбменДаннымиСервер.ГлавныйУзел(); УзелОбмена = ОбменДаннымиСервер.ГлавныйУзел();
// Заполнение параметров из настроек подключения в константе. // Заполнение параметров из настроек подключения в константе.
ПомощникСозданияОбмена = Обработки.ПомощникСозданияОбменаДанными.Создать(); МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
ПомощникСозданияОбмена = МодульПомощникНастройки.Создать();
ПомощникСозданияОбмена.ИмяПланаОбмена = ИмяПланаОбмена; ПомощникСозданияОбмена.ИмяПланаОбмена = ИмяПланаОбмена;
ПомощникСозданияОбмена.ВариантНастройкиОбмена = ИдентификаторНастройки; ПомощникСозданияОбмена.ВариантНастройкиОбмена = ИдентификаторНастройки;
ПомощникСозданияОбмена.ВариантРаботыМастера = "ПродолжитьНастройкуОбменаДанными"; ПомощникСозданияОбмена.ВариантРаботыМастера = "ПродолжитьНастройкуОбменаДанными";
Обработки.ПомощникСозданияОбменаДанными.ЗаполнитьНастройкиПодключенияИзКонстанты(ПомощникСозданияОбмена); МодульПомощникНастройки.ЗаполнитьНастройкиПодключенияИзКонстанты(ПомощникСозданияОбмена);
ПрочитатьСтруктуруПараметровПодключенияПомощника(ПомощникСозданияОбмена); ПрочитатьСтруктуруПараметровПодключенияПомощника(ПомощникСозданияОбмена);
ДоступноИзменениеНаименования = Ложь; ДоступноИзменениеНаименования = Ложь;
@@ -238,7 +238,7 @@
&НаСервереБезКонтекста &НаСервереБезКонтекста
Функция ПредопределенноеРасписаниеКаждыйЧас() Функция ПредопределенноеРасписаниеКаждыйЧас()
Возврат Обработки.ПомощникСозданияОбменаДанными.ПредопределенноеРасписаниеКаждыйЧас(); Возврат ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными().ПредопределенноеРасписаниеКаждыйЧас();
КонецФункции КонецФункции
@@ -54,8 +54,10 @@
КомандыСозданияОбмена.Очистить(); КомандыСозданияОбмена.Очистить();
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
ТаблицаНастройки = Неопределено; ТаблицаНастройки = Неопределено;
Обработки.ПомощникСозданияОбменаДанными.ПриПолученииДоступныхНастроекСинхронизацииДанных(ТаблицаНастройки, Истина); МодульПомощникНастройки.ПриПолученииДоступныхНастроекСинхронизацииДанных(ТаблицаНастройки, Истина);
НаименованияКонфигураций = Новый Соответствие; НаименованияКонфигураций = Новый Соответствие;
Для Каждого СтрокаНастройки Из ТаблицаНастройки Цикл Для Каждого СтрокаНастройки Из ТаблицаНастройки Цикл
@@ -150,17 +150,22 @@
НастройкиУдаления.Вставить("ИмяПланаОбмена", ИмяПланаОбмена); НастройкиУдаления.Вставить("ИмяПланаОбмена", ИмяПланаОбмена);
НастройкиУдаления.Вставить("ОбластьДанныхКорреспондента", ОбластьДанныхКорреспондента); НастройкиУдаления.Вставить("ОбластьДанныхКорреспондента", ОбластьДанныхКорреспондента);
МодульПомощникУдаленияНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете"); МодульПомощникУдаленияНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
Иначе Иначе
НастройкиУдаления.Вставить("УзелОбмена", УзелОбмена); НастройкиУдаления.Вставить("УзелОбмена", УзелОбмена);
НастройкиУдаления.Вставить("УдалитьНастройкуВКорреспонденте", УдалитьНастройкуВКорреспонденте); НастройкиУдаления.Вставить("УдалитьНастройкуВКорреспонденте", УдалитьНастройкуВКорреспонденте);
МодульПомощникУдаленияНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникСозданияОбменаДанными"); МодульПомощникУдаленияНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
КонецЕсли; КонецЕсли;
Если МодульПомощникУдаленияНастройки = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли;
МодульПомощникУдаленияНастройки.ПриНачалеУдаленияНастройкиСинхронизации(НастройкиУдаления, МодульПомощникУдаленияНастройки.ПриНачалеУдаленияНастройкиСинхронизации(НастройкиУдаления,
ПараметрыОбработчикаУдаленияНастройкиСинхронизации, ПродолжитьОжидание); ПараметрыОбработчикаУдаленияНастройкиСинхронизации, ПродолжитьОжидание);
@@ -169,14 +174,18 @@
&НаСервереБезКонтекста &НаСервереБезКонтекста
Процедура ПриОжиданииУдаленияНастройкиСинхронизацииНаСервере(ЭтоОбменСПриложениемВСервисе, ПараметрыОбработчика, ПродолжитьОжидание) Процедура ПриОжиданииУдаленияНастройкиСинхронизацииНаСервере(ЭтоОбменСПриложениемВСервисе, ПараметрыОбработчика, ПродолжитьОжидание)
ПродолжитьОжидание = Ложь;
Если ЭтоОбменСПриложениемВСервисе Тогда Если ЭтоОбменСПриложениемВСервисе Тогда
МодульПомощникУдаленияНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете"); МодульПомощникУдаленияНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
Иначе Иначе
МодульПомощникУдаленияНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникСозданияОбменаДанными"); МодульПомощникУдаленияНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
КонецЕсли; КонецЕсли;
Если МодульПомощникУдаленияНастройки = Неопределено Тогда
ПродолжитьОжидание = Ложь;
Возврат;
КонецЕсли;
ПродолжитьОжидание = Ложь;
МодульПомощникУдаленияНастройки.ПриОжиданииУдаленияНастройкиСинхронизации(ПараметрыОбработчика, ПродолжитьОжидание); МодульПомощникУдаленияНастройки.ПриОжиданииУдаленияНастройкиСинхронизации(ПараметрыОбработчика, ПродолжитьОжидание);
КонецПроцедуры КонецПроцедуры
@@ -184,14 +193,20 @@
&НаСервере &НаСервере
Процедура ПриЗавершенииУдаленияНастройкиСинхронизацииНаСервере(НастройкаУдалена, НастройкаУдаленаВКорреспонденте, СообщениеОбОшибке) Процедура ПриЗавершенииУдаленияНастройкиСинхронизацииНаСервере(НастройкаУдалена, НастройкаУдаленаВКорреспонденте, СообщениеОбОшибке)
СтатусЗавершения = Неопределено;
Если ЭтоОбменСПриложениемВСервисе Тогда Если ЭтоОбменСПриложениемВСервисе Тогда
МодульПомощникУдаленияНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете"); МодульПомощникУдаленияНастройки = ОбменДаннымиСервер.МодульПомощникНастройкиСинхронизацииДанныхМеждуПриложениямиВИнтернете();
Иначе Иначе
МодульПомощникУдаленияНастройки = ОбщегоНазначения.ОбщийМодуль("Обработки.ПомощникСозданияОбменаДанными"); МодульПомощникУдаленияНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
КонецЕсли; КонецЕсли;
Если МодульПомощникУдаленияНастройки = Неопределено Тогда
НастройкаУдалена = Ложь;
НастройкаУдаленаВКорреспонденте = Ложь;
Возврат;
КонецЕсли;
СтатусЗавершения = Неопределено;
МодульПомощникУдаленияНастройки.ПриЗавершенииУдаленияНастройкиСинхронизации( МодульПомощникУдаленияНастройки.ПриЗавершенииУдаленияНастройкиСинхронизации(
ПараметрыОбработчикаУдаленияНастройкиСинхронизации, СтатусЗавершения); ПараметрыОбработчикаУдаленияНастройкиСинхронизации, СтатусЗавершения);
@@ -315,8 +315,9 @@
// Получаем имя временного файла в локальной ФС на сервере. // Получаем имя временного файла в локальной ФС на сервере.
ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xml"); ИмяВременногоФайла = ПолучитьИмяВременногоФайла("xml");
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
Попытка Попытка
Обработки.ПомощникСозданияОбменаДанными.НастройкиПодключенияВXML(ЭтотОбъект, ИмяВременногоФайла); МодульПомощникНастройки.НастройкиПодключенияВXML(ЭтотОбъект, ИмяВременногоФайла);
Исключение Исключение
СообщитьИнформациюОбОшибке(ИнформацияОбОшибке(), Отказ); СообщитьИнформациюОбОшибке(ИнформацияОбОшибке(), Отказ);
УдалитьВременныйФайл(ИмяВременногоФайла); УдалитьВременныйФайл(ИмяВременногоФайла);
@@ -665,8 +666,9 @@
Возврат; Возврат;
КонецЕсли; КонецЕсли;
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
Попытка Попытка
Обработки.ПомощникСозданияОбменаДанными.ЗаполнитьНастройкиПодключенияИзXML(ЭтотОбъект, СтрокаXML); МодульПомощникНастройки.ЗаполнитьНастройкиПодключенияИзXML(ЭтотОбъект, СтрокаXML);
Исключение Исключение
СообщитьИнформациюОбОшибке(ИнформацияОбОшибке(), Отказ); СообщитьИнформациюОбОшибке(ИнформацияОбОшибке(), Отказ);
КонецПопытки; КонецПопытки;
@@ -3257,6 +3257,10 @@
<id>-1</id> <id>-1</id>
<horizontalAlign>Right</horizontalAlign> <horizontalAlign>Right</horizontalAlign>
</autoCommandBar> </autoCommandBar>
<handlers>
<event>ChoiceProcessing</event>
<name>ОбработкаВыбора</name>
</handlers>
<handlers> <handlers>
<event>NotificationProcessing</event> <event>NotificationProcessing</event>
<name>ОбработкаОповещения</name> <name>ОбработкаОповещения</name>
@@ -837,6 +837,23 @@
КонецФункции КонецФункции
&НаКлиенте
Процедура ОбработкаВыбора(ВыбранноеЗначение, ИсточникВыбора)
Если ТипЗнч(ВыбранноеЗначение) = Тип("Структура") И ВыбранноеЗначение.Отказ Тогда
Если ЗначениеЗаполнено(ВыбранноеЗначение.КраткоеПредставлениеОшибки) Тогда
КраткоеПредставлениеОшибки = ВыбранноеЗначение.КраткоеПредставлениеОшибки;
Иначе
КраткоеПредставлениеОшибки = НСтр("ru = 'Выбор из списка недоступен, т.к в адресном классификаторе отсутствует информация о адресных сведениях.'");
КонецЕсли;
ПоказатьПредупреждение(, КраткоеПредставлениеОшибки);
СтандартнаяОбработка = Ложь;
КонецЕсли;
КонецПроцедуры
#КонецОбласти #КонецОбласти
#Область ОбработчикиКомандФормы #Область ОбработчикиКомандФормы
@@ -2597,6 +2614,7 @@
НаселенныйПунктДетально.ifnsULCode = ВыбранноеЗначение.КодИФНСЮЛ; НаселенныйПунктДетально.ifnsULCode = ВыбранноеЗначение.КодИФНСЮЛ;
НаселенныйПунктДетально.ifnsFLAreaCode = ВыбранноеЗначение.КодУчасткаИФНСФЛ; НаселенныйПунктДетально.ifnsFLAreaCode = ВыбранноеЗначение.КодУчасткаИФНСФЛ;
НаселенныйПунктДетально.ifnsULAreaCode = ВыбранноеЗначение.КодУчасткаИФНСЮЛ; НаселенныйПунктДетально.ifnsULAreaCode = ВыбранноеЗначение.КодУчасткаИФНСЮЛ;
НаселенныйПунктДетально.codeKLADR = ВыбранноеЗначение.КодКЛАДР;
Если ВыбранноеЗначение.Свойство("Дом") Тогда Если ВыбранноеЗначение.Свойство("Дом") Тогда
НаселенныйПунктДетально.HouseNumber = ВыбранноеЗначение.Дом.НомерВладения; НаселенныйПунктДетально.HouseNumber = ВыбранноеЗначение.Дом.НомерВладения;
@@ -2914,6 +2932,13 @@
Иначе Иначе
ЗначенияПолей = Параметры.ЗначенияПолей; ЗначенияПолей = Параметры.ЗначенияПолей;
КонецЕсли; КонецЕсли;
Если ПустаяСтрока(ЗначенияПолей) И ЗначениеЗаполнено(Параметры.Представление) Тогда
ЗначенияПолей = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияПоПредставлению(Параметры.Представление,
Перечисления.ТипыКонтактнойИнформации.Адрес);
Модифицированность = Истина;
КонецЕсли;
Возврат ЗначенияПолей; Возврат ЗначенияПолей;
КонецФункции КонецФункции
@@ -3119,5 +3144,4 @@
КонецПроцедуры КонецПроцедуры
#КонецОбласти #КонецОбласти
@@ -159,6 +159,12 @@
ЗаполнитьЗначенияСвойств(Результат, Данные); ЗаполнитьЗначенияСвойств(Результат, Данные);
Иначе Иначе
Результат.Отказ = Истина; Результат.Отказ = Истина;
Результат.Уровень = Уровень;
Если Уровень = 7 Тогда
Результат.КраткоеПредставлениеОшибки = НСтр("ru = 'Данные о улицах для введенного адреса отсутствуют'");
Иначе
Результат.КраткоеПредставлениеОшибки = НСтр("ru = 'Поле не содержит адресных сведений для выбора.'");
КонецЕсли;
КонецЕсли; КонецЕсли;
ОповеститьОВыборе(Результат); ОповеститьОВыборе(Результат);
@@ -194,7 +194,14 @@
&НаКлиенте &НаКлиенте
Процедура НаселенныйПунктОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка) Процедура НаселенныйПунктОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
Если ВыбранноеЗначение.Отказ Или ПустаяСтрока(ВыбранноеЗначение.Представление) Тогда
ПоказатьПредупреждение(, НСтр("ru = 'Выбор из списка недоступен, т.к в адресном классификаторе отсутствует информация о адресных сведениях.'"));
СтандартнаяОбработка = Ложь;
Возврат;
КонецЕсли;
ОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка); ОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка);
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
@@ -424,6 +431,8 @@
Если ТипЗнч(ВыбранноеЗначение) = Тип("Структура") Если ТипЗнч(ВыбранноеЗначение) = Тип("Структура")
И ВыбранноеЗначение.Свойство("Идентификатор") И ВыбранноеЗначение.Свойство("Идентификатор")
И ПустаяСтрока(ВыбранноеЗначение.Идентификатор) Тогда И ПустаяСтрока(ВыбранноеЗначение.Идентификатор) Тогда
ТекстПредупреждения = НСтр("ru = 'Выбор из списка недоступен, т.к в адресном классификаторе отсутствует информация о адресных сведениях.'");
ПоказатьПредупреждение(, ТекстПредупреждения);
СтандартнаяОбработка = Ложь; СтандартнаяОбработка = Ложь;
Возврат; Возврат;
КонецЕсли; КонецЕсли;
@@ -672,11 +672,12 @@
&НаКлиенте &НаКлиенте
Процедура ЗавершениеЗагрузки() Процедура ЗавершениеЗагрузки()
Оповестить("ЗагруженАдресныйКлассификатор", , ЭтотОбъект);
// Для сброса признака АдресныйКлассификаторУстарел в параметрах работы клиента. // Для сброса признака АдресныйКлассификаторУстарел в параметрах работы клиента.
ОбновитьПовторноИспользуемыеЗначения(); ОбновитьПовторноИспользуемыеЗначения();
ПодтверждениеЗакрытияФормы = Истина; Оповестить("ЗагруженАдресныйКлассификатор", Истина, ЭтотОбъект);
ПодтверждениеЗакрытияФормы = Истина;
Если РежимРаботы = "ОБНОВЛЕНИЕ" Тогда Если РежимРаботы = "ОБНОВЛЕНИЕ" Тогда
Закрыть(Истина); Закрыть(Истина);
КонецЕсли; КонецЕсли;
@@ -686,8 +687,6 @@
Элементы.Закрыть.КнопкаПоУмолчанию = Истина; Элементы.Закрыть.КнопкаПоУмолчанию = Истина;
ТекущийЭлемент = Элементы.Закрыть; ТекущийЭлемент = Элементы.Закрыть;
Возврат;
КонецПроцедуры КонецПроцедуры
&НаСервереБезКонтекста &НаСервереБезКонтекста
@@ -236,8 +236,9 @@
Если Задание.Статус = "Выполнено" Тогда Если Задание.Статус = "Выполнено" Тогда
Элементы.ШагиОчистки.ТекущаяСтраница = Элементы.УспешноеЗавершение; Элементы.ШагиОчистки.ТекущаяСтраница = Элементы.УспешноеЗавершение;
ТекстОписанияОчистки = НСтр("ru = 'Адресный классификатор успешно очищен.'"); ТекстОписанияОчистки = НСтр("ru = 'Адресный классификатор успешно очищен.'");
ОбновитьПовторноИспользуемыеЗначения();
Оповестить("ОчищенАдресныйКлассификатор", , ЭтотОбъект); Оповестить("ОчищенАдресныйКлассификатор", КлассификаторСодержитЗагруженныеАдресныеСведения(), ЭтотОбъект);
Элементы.Закрыть.КнопкаПоУмолчанию = Истина; Элементы.Закрыть.КнопкаПоУмолчанию = Истина;
ТекущийЭлемент = Элементы.Закрыть; ТекущийЭлемент = Элементы.Закрыть;
@@ -262,6 +263,14 @@
КонецПроцедуры КонецПроцедуры
&НаСервереБезКонтекста
Функция КлассификаторСодержитЗагруженныеАдресныеСведения()
ИспользоватьЗагруженные = АдресныйКлассификаторСлужебный.СведенияОДоступностиАдресныхСведений().Получить("ИспользоватьЗагруженные");
Возврат ИспользоватьЗагруженные = Истина;
КонецФункции
&НаСервереБезКонтекста &НаСервереБезКонтекста
Функция ПрочитатьПрогресс(ИдентификаторЗадания) Функция ПрочитатьПрогресс(ИдентификаторЗадания)
Возврат ДлительныеОперации.ПрочитатьПрогресс(ИдентификаторЗадания); Возврат ДлительныеОперации.ПрочитатьПрогресс(ИдентификаторЗадания);
@@ -291,7 +300,6 @@
КонецЕсли; КонецЕсли;
КонецПроцедуры КонецПроцедуры
&НаСервереБезКонтекста &НаСервереБезКонтекста
Процедура ОтменитьФоновоеЗадание(Знач Идентификатор) Процедура ОтменитьФоновоеЗадание(Знач Идентификатор)
@@ -301,7 +309,6 @@
КонецПроцедуры КонецПроцедуры
&НаСервере &НаСервере
Процедура ОпределитьЗагруженныеРегионы() Процедура ОпределитьЗагруженныеРегионы()
File diff suppressed because it is too large. Load diff
@@ -1630,93 +1630,6 @@
<value>true</value> <value>true</value>
</right> </right>
</object> </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> <object>
<name>CommonForm.ПараметрыПроксиСервера</name> <name>CommonForm.ПараметрыПроксиСервера</name>
<right> <right>
@@ -3421,6 +3334,93 @@
<value>true</value> <value>true</value>
</right> </right>
</object> </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> <object>
<name>Constant.ПрефиксОбластиДанных</name> <name>Constant.ПрефиксОбластиДанных</name>
<right> <right>
@@ -21,6 +21,13 @@
<value>true</value> <value>true</value>
</right> </right>
</object> </object>
<object>
<name>Catalog.РассылкиОтчетов.Command.ВыполнитьСейчас</name>
<right>
<name>View</name>
<value>true</value>
</right>
</object>
<object> <object>
<name>Configuration.БиблиотекаСтандартныхПодсистем</name> <name>Configuration.БиблиотекаСтандартныхПодсистем</name>
<right> <right>
@@ -52,13 +59,6 @@
<value>true</value> <value>true</value>
</right> </right>
</object> </object>
<object>
<name>Catalog.РассылкиОтчетов.Command.ВыполнитьСейчас</name>
<right>
<name>View</name>
<value>true</value>
</right>
</object>
<object> <object>
<name>Catalog.РассылкиОтчетов</name> <name>Catalog.РассылкиОтчетов</name>
<right> <right>
@@ -2208,45 +2208,6 @@
<value>false</value> <value>false</value>
</right> </right>
</object> </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> <object>
<name>CommonForm.ПараметрыПроксиСервера</name> <name>CommonForm.ПараметрыПроксиСервера</name>
<right> <right>
@@ -4508,6 +4469,45 @@
<value>false</value> <value>false</value>
</right> </right>
</object> </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> <object>
<name>Constant.ПрефиксОбластиДанных</name> <name>Constant.ПрефиксОбластиДанных</name>
<right> <right>
+1 -1
View File
@@ -104,7 +104,7 @@
УстановитьПривилегированныйРежим(Истина); УстановитьПривилегированныйРежим(Истина);
// Получаем обработку помощника настройки обмена во второй базе. // Получаем обработку помощника настройки обмена во второй базе.
ПомощникСозданияОбменаДанными = Обработки.ПомощникСозданияОбменаДанными.Создать(); ПомощникСозданияОбменаДанными = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными().Создать();
ПомощникСозданияОбменаДанными.ИмяПланаОбмена = ИмяПланаОбмена; ПомощникСозданияОбменаДанными.ИмяПланаОбмена = ИмяПланаОбмена;
Отказ = Ложь; Отказ = Ложь;
@@ -101,7 +101,7 @@
УстановитьПривилегированныйРежим(Истина); УстановитьПривилегированныйРежим(Истина);
// Получаем обработку помощника настройки обмена во второй базе. // Получаем обработку помощника настройки обмена во второй базе.
ПомощникСозданияОбменаДанными = Обработки.ПомощникСозданияОбменаДанными.Создать(); ПомощникСозданияОбменаДанными = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными().Создать();
ПомощникСозданияОбменаДанными.ИмяПланаОбмена = ИмяПланаОбмена; ПомощникСозданияОбменаДанными.ИмяПланаОбмена = ИмяПланаОбмена;
Отказ = Ложь; Отказ = Ложь;
@@ -87,11 +87,12 @@
НастройкиПодключения = Параметры.НастройкиПодключения; НастройкиПодключения = Параметры.НастройкиПодключения;
СтрокаПараметровXML = Параметры.СтрокаПараметровXML; СтрокаПараметровXML = Параметры.СтрокаПараметровXML;
МодульПомощникНастройки = ОбменДаннымиСервер.МодульПомощникСозданияОбменаДанными();
Попытка Попытка
Обработки.ПомощникСозданияОбменаДанными.ЗаполнитьНастройкиПодключенияИзXML( МодульПомощникНастройки.ЗаполнитьНастройкиПодключенияИзXML(
НастройкиПодключения, Параметры.СтрокаПараметровXML); НастройкиПодключения, Параметры.СтрокаПараметровXML);
Обработки.ПомощникСозданияОбменаДанными.ВыполнитьДействияПоНастройкеОбменаДанными( МодульПомощникНастройки.ВыполнитьДействияПоНастройкеОбменаДанными(
НастройкиПодключения); НастройкиПодключения);
Исключение Исключение
СообщениеОбОшибке = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()); СообщениеОбОшибке = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());