3_1_3_362

This commit is contained in:
Компания 1С committed 2020-12-11 18:18:00 +03:00
1 parent 9b28c828b7
commit 9d3addfc38
33 files changed
+1154 -441

No files matched your search

@@ -94,7 +94,7 @@
Список.Параметры.УстановитьЗначениеПараметра("ДоступныеОтчеты", ВариантыОтчетов.ОтчетыТекущегоПользователя()); Список.Параметры.УстановитьЗначениеПараметра("ДоступныеОтчеты", ВариантыОтчетов.ОтчетыТекущегоПользователя());
Список.Параметры.УстановитьЗначениеПараметра("ОтключенныеВариантыПрограммы", Новый Массив(ВариантыОтчетовПовтИсп.ОтключенныеВариантыПрограммы())); Список.Параметры.УстановитьЗначениеПараметра("ОтключенныеВариантыПрограммы", Новый Массив(ВариантыОтчетовПовтИсп.ОтключенныеВариантыПрограммы()));
Список.Параметры.УстановитьЗначениеПараметра("ЭтоОсновнойЯзык", ТекущийЯзык() = Метаданные.ОсновнойЯзык); Список.Параметры.УстановитьЗначениеПараметра("ЭтоОсновнойЯзык", ВариантыОтчетов.ЭтоОсновнойЯзык());
Список.Параметры.УстановитьЗначениеПараметра("КодЯзыка", ТекущийЯзык().КодЯзыка); Список.Параметры.УстановитьЗначениеПараметра("КодЯзыка", ТекущийЯзык().КодЯзыка);
Список.Параметры.УстановитьЗначениеПараметра("ВерсияРасширений", ПараметрыСеанса.ВерсияРасширений); Список.Параметры.УстановитьЗначениеПараметра("ВерсияРасширений", ПараметрыСеанса.ВерсияРасширений);
@@ -537,6 +537,19 @@
<common>true</common> <common>true</common>
</edit> </edit>
</attributes> </attributes>
<attributes>
<name>ВыбранныйБИК</name>
<id>2</id>
<valueType>
<types>CatalogRef.КлассификаторБанков</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
</attributes>
<formCommands> <formCommands>
<name>ЗагрузитьКлассификатор</name> <name>ЗагрузитьКлассификатор</name>
<title> <title>
@@ -581,6 +594,13 @@
<currentRowUse>DontUse</currentRowUse> <currentRowUse>DontUse</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse> <selectedRowsUse>Auto</selectedRowsUse>
</formCommands> </formCommands>
<parameters>
<name>БИК</name>
<valueType>
<types>String</types>
<stringQualifiers/>
</valueType>
</parameters>
<commandInterface> <commandInterface>
<navigationPanel/> <navigationPanel/>
<commandBar/> <commandBar/>
@@ -37,11 +37,27 @@
ПереключитьВидимостьНедействующихБанков(Ложь); ПереключитьВидимостьНедействующихБанков(Ложь);
Если ЗначениеЗаполнено(Параметры.БИК) Тогда
Элементы.Список.Отображение = ОтображениеТаблицы.ИерархическийСписок;
СведенияБИК = РаботаСБанками.СведенияБИК(Параметры.БИК).ВыгрузитьКолонку("Ссылка");
Если СведенияБИК.Количество() = 1 Тогда
ВыбранныйБИК = СведенияБИК[0];
ИначеЕсли СведенияБИК.Количество() > 1 Тогда
Элементы.Список.Отображение = ОтображениеТаблицы.Список;
ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(Список, "Код", Параметры.БИК,,,Истина);
КонецЕсли;
КонецЕсли;
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
Процедура ПриОткрытии(Отказ) Процедура ПриОткрытии(Отказ)
Если ЗначениеЗаполнено(ВыбранныйБИК) Тогда
Закрыть(ВыбранныйБИК);
Возврат;
КонецЕсли;
Если ПредлагатьЗагрузкуКлассификатора Тогда Если ПредлагатьЗагрузкуКлассификатора Тогда
ПодключитьОбработчикОжидания("ПредложитьЗагрузкуКлассификатора", 1, Истина); ПодключитьОбработчикОжидания("ПредложитьЗагрузкуКлассификатора", 1, Истина);
КонецЕсли; КонецЕсли;
@@ -212,7 +212,7 @@
<id>19</id> <id>19</id>
<title> <title>
<key>ru</key> <key>ru</key>
<value>Деятельность банка прекращена</value> <value>Деятельность прекращена</value>
</title> </title>
<visible>true</visible> <visible>true</visible>
<enabled>true</enabled> <enabled>true</enabled>
@@ -626,6 +626,47 @@
<currentRowUse>Auto</currentRowUse> <currentRowUse>Auto</currentRowUse>
</extInfo> </extInfo>
</items> </items>
<items xsi:type="form:FormField">
<name>БИКРКЦ</name>
<id>68</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<dataPath xsi:type="form:DataPath">
<segments>Объект.БИКРКЦ</segments>
</dataPath>
<extendedTooltip>
<name>БИКРКЦРасширеннаяПодсказка</name>
<id>70</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<contextMenu>
<name>БИКРКЦКонтекстноеМеню</name>
<id>69</id>
<autoFill>true</autoFill>
</contextMenu>
<type>InputField</type>
<editMode>Enter</editMode>
<showInHeader>true</showInHeader>
<headerHorizontalAlign>Left</headerHorizontalAlign>
<showInFooter>true</showInFooter>
<extInfo xsi:type="form:InputFieldExtInfo">
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<wrap>true</wrap>
<chooseType>true</chooseType>
<typeDomainEnabled>true</typeDomainEnabled>
<textEdit>true</textEdit>
<textSize>Normal</textSize>
</extInfo>
</items>
<items xsi:type="form:FormGroup"> <items xsi:type="form:FormGroup">
<name>ГруппаРеквизитыДляМеждународныхПлатежей</name> <name>ГруппаРеквизитыДляМеждународныхПлатежей</name>
<id>66</id> <id>66</id>
@@ -10,7 +10,7 @@
<name>КлассификаторБанков</name> <name>КлассификаторБанков</name>
<synonym> <synonym>
<key>ru</key> <key>ru</key>
<value>Классификатор банков</value> <value>Справочник БИК</value>
</synonym> </synonym>
<useStandardCommands>true</useStandardCommands> <useStandardCommands>true</useStandardCommands>
<inputByString>Catalog.КлассификаторБанков.StandardAttribute.Description</inputByString> <inputByString>Catalog.КлассификаторБанков.StandardAttribute.Description</inputByString>
@@ -131,12 +131,8 @@
<fullTextSearch>Use</fullTextSearch> <fullTextSearch>Use</fullTextSearch>
<objectPresentation> <objectPresentation>
<key>ru</key> <key>ru</key>
<value>Банк</value> <value>Участник расчетов</value>
</objectPresentation> </objectPresentation>
<listPresentation>
<key>ru</key>
<value>Банки</value>
</listPresentation>
<hierarchical>true</hierarchical> <hierarchical>true</hierarchical>
<levelCount>2</levelCount> <levelCount>2</levelCount>
<foldersOnTop>true</foldersOnTop> <foldersOnTop>true</foldersOnTop>
@@ -391,6 +387,40 @@
<fullTextSearch>Use</fullTextSearch> <fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory> <dataHistory>Use</dataHistory>
</attributes> </attributes>
<attributes uuid="06ca1680-e641-499c-94ad-2d5ce5561747">
<name>БИКРКЦ</name>
<synonym>
<key>ru</key>
<value>БИК РКЦ</value>
</synonym>
<type>
<types>CatalogRef.КлассификаторБанков</types>
</type>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:UndefinedValue"/>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<attributes uuid="35bbf75b-99d0-447b-acb0-a3d2c98bea56">
<name>ВнутреннийКодЦБ</name>
<synonym>
<key>ru</key>
<value>Внутренний код ЦБ</value>
</synonym>
<type>
<types>String</types>
<stringQualifiers>
<length>15</length>
</stringQualifiers>
</type>
<minValue xsi:type="core:UndefinedValue"/>
<maxValue xsi:type="core:UndefinedValue"/>
<fillValue xsi:type="core:StringValue"/>
<indexing>Index</indexing>
<fullTextSearch>Use</fullTextSearch>
<dataHistory>Use</dataHistory>
</attributes>
<forms uuid="c31e34db-41ff-4db3-a4d0-f780f67070f6"> <forms uuid="c31e34db-41ff-4db3-a4d0-f780f67070f6">
<name>ФормаВыбора</name> <name>ФормаВыбора</name>
<synonym> <synonym>
@@ -267,6 +267,7 @@
Фотография = ТекущийОбъект.Фотография.Получить(); Фотография = ТекущийОбъект.Фотография.Получить();
Если Фотография <> Неопределено Тогда Если Фотография <> Неопределено Тогда
АдресФотографии = ПоместитьВоВременноеХранилище(Фотография, УникальныйИдентификатор); АдресФотографии = ПоместитьВоВременноеХранилище(Фотография, УникальныйИдентификатор);
ФотографияЗадана = Истина;
КонецЕсли; КонецЕсли;
КонецПроцедуры КонецПроцедуры
@@ -16,6 +16,8 @@
ОбъектМетаданных = МультиязычностьСервер.ОбъектМетаданных(Параметры.Ссылка); ОбъектМетаданных = МультиязычностьСервер.ОбъектМетаданных(Параметры.Ссылка);
КонецЕсли; КонецЕсли;
ТолькоПросмотр = Не ПравоДоступа("Изменение", ОбъектМетаданных);
МультиязычныеСтрокиВРеквизитах = МультиязычностьСервер.МультиязычныеСтрокиВРеквизитах(ОбъектМетаданных); МультиязычныеСтрокиВРеквизитах = МультиязычностьСервер.МультиязычныеСтрокиВРеквизитах(ОбъектМетаданных);
Реквизит = ОбъектМетаданных.Реквизиты.Найти(Параметры.ИмяРеквизита); Реквизит = ОбъектМетаданных.Реквизиты.Найти(Параметры.ИмяРеквизита);
Если Реквизит = Неопределено Тогда Если Реквизит = Неопределено Тогда
@@ -99,7 +101,7 @@
НоваяСтрока.Имя = "_" + СтрЗаменить(Новый УникальныйИдентификатор, "-", ""); НоваяСтрока.Имя = "_" + СтрЗаменить(Новый УникальныйИдентификатор, "-", "");
КонецЦикла; КонецЦикла;
СформироватьПоляВводаНаРазныхЯзыках(Реквизит.МногострочныйРежим, Параметры.ТолькоПросмотр); СформироватьПоляВводаНаРазныхЯзыках(Реквизит.МногострочныйРежим, Параметры.ТолькоПросмотр Или ТолькоПросмотр);
Если Не ПустаяСтрока(Параметры.Заголовок) Тогда Если Не ПустаяСтрока(Параметры.Заголовок) Тогда
Заголовок = Параметры.Заголовок; Заголовок = Параметры.Заголовок;
@@ -173,6 +175,11 @@
&НаКлиенте &НаКлиенте
Процедура ОК(Команда) Процедура ОК(Команда)
Если Не Модифицированность Тогда
Закрыть();
Возврат;
КонецЕсли;
Результат = Новый Структура("ОсновнойЯзык", ОсновнойЯзык); Результат = Новый Структура("ОсновнойЯзык", ОсновнойЯзык);
Результат.Вставить("ЗначенияНаРазныхЯзыках", Новый Массив); Результат.Вставить("ЗначенияНаРазныхЯзыках", Новый Массив);
Результат.Вставить("ХранениеВТабличнойЧасти", Не МультиязычныеСтрокиВРеквизитах); Результат.Вставить("ХранениеВТабличнойЧасти", Не МультиязычныеСтрокиВРеквизитах);
@@ -209,7 +216,9 @@
Добавлять = Новый Массив; Добавлять = Новый Массив;
ТипСтрока = Новый ОписаниеТипов("Строка"); ТипСтрока = Новый ОписаниеТипов("Строка");
Для Каждого ЯзыкКонфигурации Из Языки Цикл Для Каждого ЯзыкКонфигурации Из Языки Цикл
Добавлять.Добавить(Новый РеквизитФормы(ЯзыкКонфигурации.Имя, ТипСтрока,, ЯзыкКонфигурации.Представление)); НовыйРеквизит = Новый РеквизитФормы(ЯзыкКонфигурации.Имя, ТипСтрока,, ЯзыкКонфигурации.Представление);
НовыйРеквизит.СохраняемыеДанные = Истина;
Добавлять.Добавить(НовыйРеквизит);
КонецЦикла; КонецЦикла;
ИзменитьРеквизиты(Добавлять); ИзменитьРеквизиты(Добавлять);
@@ -922,7 +922,9 @@
&НаСервере &НаСервере
Функция ДобавитьСтрокуВДерево(Родитель, Данные, ВыведенныеОбъекты, ЭтоПодчиненный = Ложь) Функция ДобавитьСтрокуВДерево(Родитель, Данные, ВыведенныеОбъекты, ЭтоПодчиненный = Ложь)
Если Не ВыводитьТекущийОбъект(Данные.Ссылка, ВыведенныеОбъекты, ЭтоПодчиненный) Тогда УстановитьЧастотуВыводаОбъекта(Данные.Ссылка, ВыведенныеОбъекты, ЭтоПодчиненный);
Если Не ВыводитьТекущийОбъект(Родитель, Данные.Ссылка, ВыведенныеОбъекты, ЭтоПодчиненный) Тогда
Возврат Неопределено; Возврат Неопределено;
КонецЕсли; КонецЕсли;
@@ -937,14 +939,12 @@
НоваяСтрока.Представление = ПредставлениеОбъектаДляВыводаВОтчет(Данные); НоваяСтрока.Представление = ПредставлениеОбъектаДляВыводаВОтчет(Данные);
КонецЕсли; КонецЕсли;
УстановитьЧастотуВыводаОбъекта(Данные.Ссылка, ВыведенныеОбъекты, ЭтоПодчиненный);
Возврат НоваяСтрока; Возврат НоваяСтрока;
КонецФункции КонецФункции
&НаСервере &НаСервере
Функция ВыводитьТекущийОбъект(ТекущийОбъект, ВыведенныеОбъекты, ЭтоПодчиненный, Отказ = Ложь) Функция ВыводитьТекущийОбъект(Родитель, ТекущийОбъект, ВыведенныеОбъекты, ЭтоПодчиненный, Отказ = Ложь)
Выводился = ВыведенныеОбъекты[ТекущийОбъект]; Выводился = ВыведенныеОбъекты[ТекущийОбъект];
Если Выводился = Неопределено Тогда Если Выводился = Неопределено Тогда
@@ -957,8 +957,7 @@
СвойстваОбъекта.Выводился = Выводился; СвойстваОбъекта.Выводился = Выводился;
Если СвойстваОбъекта.ЭтоОсновной Если СвойстваОбъекта.ЭтоОсновной
Или ЭтоПодчиненный И Выводился.ВПодчиненных > 0 Или ТекущийОбъектВыводилсяВВетке(Родитель, ТекущийОбъект) Тогда
Или Не ЭтоПодчиненный И (Выводился.Итого - Выводился.ВПодчиненных) > 0 Тогда
Отказ = Истина; Отказ = Истина;
КонецЕсли; КонецЕсли;
@@ -982,6 +981,38 @@
КонецФункции КонецФункции
&НаСервере
Функция ТекущийОбъектВыводилсяВВетке(Родитель, ТекущийОбъект, Выводился = Ложь)
Если ТипЗнч(Родитель) = Тип("ДанныеФормыЭлементДерева") Тогда
Если ТекущийОбъект = Родитель.Ссылка Тогда
Выводился = Истина;
Иначе
Строки = Родитель.ПолучитьЭлементы();
Для Каждого Строка Из Строки Цикл
Если ТекущийОбъект = Строка.Ссылка Тогда
Выводился = Истина;
Прервать;
КонецЕсли;
КонецЦикла;
Если Не Выводился Тогда
ТекущийОбъектВыводилсяВВетке(Родитель.ПолучитьРодителя(), ТекущийОбъект, Выводился);
КонецЕсли;
КонецЕсли;
КонецЕсли;
Возврат Выводился;
КонецФункции
&НаСервере &НаСервере
Процедура УстановитьЧастотуВыводаОбъекта(ТекущийОбъект, ВыведенныеОбъекты, ЭтоПодчиненный) Процедура УстановитьЧастотуВыводаОбъекта(ТекущийОбъект, ВыведенныеОбъекты, ЭтоПодчиненный)
@@ -1210,7 +1210,7 @@
Результат.OKTMO = Формат(АдресРФ.ОКТМО, "ЧГ=0"); Результат.OKTMO = Формат(АдресРФ.ОКТМО, "ЧГ=0");
Результат.OKATO = Формат(АдресРФ.ОКАТО, "ЧГ=0"); Результат.OKATO = Формат(АдресРФ.ОКАТО, "ЧГ=0");
СубъектРФ = НаименованиеИСокращение(АдресРФ.СубъектРФ); СубъектРФ = НаименованиеИСокращение(АдаптацияНазванияРегиона(АдресРФ.СубъектРФ));
Результат.Area = Строка(СубъектРФ.Наименование); Результат.Area = Строка(СубъектРФ.Наименование);
Результат.AreaType = Строка(СубъектРФ.Сокращение); Результат.AreaType = Строка(СубъектРФ.Сокращение);
@@ -1597,7 +1597,7 @@
// //
Функция СведенияОРегионе(НаименованиеРегиона) Экспорт Функция СведенияОРегионе(НаименованиеРегиона) Экспорт
Результат = АдресныйКлассификаторПовтИсп.СведенияОРегионе(НаименованиеРегиона); Результат = АдресныйКлассификаторПовтИсп.СведенияОРегионе(АдаптацияНазванияРегиона(НаименованиеРегиона));
Возврат Результат; Возврат Результат;
КонецФункции КонецФункции
@@ -5831,7 +5831,7 @@
Запрос.УстановитьПараметр("НеПолучатьОписания", Не ЕстьСтрокаПоиска И Не ПолучатьИтоговуюТаблицу); Запрос.УстановитьПараметр("НеПолучатьОписания", Не ЕстьСтрокаПоиска И Не ПолучатьИтоговуюТаблицу);
Запрос.УстановитьПараметр("ПолучатьИтоговуюТаблицу", ПолучатьИтоговуюТаблицу); Запрос.УстановитьПараметр("ПолучатьИтоговуюТаблицу", ПолучатьИтоговуюТаблицу);
Запрос.УстановитьПараметр("ПоказыватьЛичныеВариантыОтчетовДругихАвторов", ПоказыватьЛичныеВариантыОтчетовДругихАвторов); Запрос.УстановитьПараметр("ПоказыватьЛичныеВариантыОтчетовДругихАвторов", ПоказыватьЛичныеВариантыОтчетовДругихАвторов);
Запрос.УстановитьПараметр("ЭтоОсновнойЯзык", ТекущийЯзык() = Метаданные.ОсновнойЯзык); Запрос.УстановитьПараметр("ЭтоОсновнойЯзык", ЭтоОсновнойЯзык());
Запрос.УстановитьПараметр("КодЯзыка", ТекущийЯзык().КодЯзыка); Запрос.УстановитьПараметр("КодЯзыка", ТекущийЯзык().КодЯзыка);
Запрос.УстановитьПараметр("ПредставленияПодсистем", ВариантыОтчетовПовтИсп.ПредставленияПодсистем()); Запрос.УстановитьПараметр("ПредставленияПодсистем", ВариантыОтчетовПовтИсп.ПредставленияПодсистем());
Запрос.УстановитьПараметр("Контекст", ?(ЕстьОтборПоКонтексту, ПараметрыПоиска.Контекст, "")); Запрос.УстановитьПараметр("Контекст", ?(ЕстьОтборПоКонтексту, ПараметрыПоиска.Контекст, ""));
@@ -7081,7 +7081,7 @@
Запрос.УстановитьПараметр("МассивПодсистем", МассивПодсистем); Запрос.УстановитьПараметр("МассивПодсистем", МассивПодсистем);
Запрос.УстановитьПараметр("ТаблицаПодсистем", ТаблицаПодсистем); Запрос.УстановитьПараметр("ТаблицаПодсистем", ТаблицаПодсистем);
Запрос.УстановитьПараметр("РазделСсылка", ПараметрыЗаполнения.ТекущийРазделСсылка); Запрос.УстановитьПараметр("РазделСсылка", ПараметрыЗаполнения.ТекущийРазделСсылка);
Запрос.УстановитьПараметр("ЭтоОсновнойЯзык", ТекущийЯзык() = Метаданные.ОсновнойЯзык); Запрос.УстановитьПараметр("ЭтоОсновнойЯзык", ЭтоОсновнойЯзык());
Запрос.УстановитьПараметр("КодЯзыка", ТекущийЯзык().КодЯзыка); Запрос.УстановитьПараметр("КодЯзыка", ТекущийЯзык().КодЯзыка);
Запрос.УстановитьПараметр("ВариантыНайденныеПоиском", РезультатПоиска.Ссылки); Запрос.УстановитьПараметр("ВариантыНайденныеПоиском", РезультатПоиска.Ссылки);
Запрос.УстановитьПараметр("ПодсистемыНайденныеПоиском", РезультатПоиска.Подсистемы); Запрос.УстановитьПараметр("ПодсистемыНайденныеПоиском", РезультатПоиска.Подсистемы);
@@ -7198,6 +7198,12 @@
КонецПроцедуры КонецПроцедуры
Функция ЭтоОсновнойЯзык() Экспорт
Возврат СтрСравнить(ОбщегоНазначения.КодОсновногоЯзыка(), ТекущийЯзык().КодЯзыка) = 0;
КонецФункции
//////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////
// Определение используемых таблиц. // Определение используемых таблиц.
@@ -64,6 +64,8 @@
Возврат; Возврат;
КонецЕсли; КонецЕсли;
ДополнительныеПараметры.Форма.Модифицированность = Истина;
Объект = ДополнительныеПараметры.Объект; Объект = ДополнительныеПараметры.Объект;
Если Результат.ХранениеВТабличнойЧасти Тогда Если Результат.ХранениеВТабличнойЧасти Тогда
@@ -589,11 +589,11 @@
// //
Функция СуффиксЯзыка(Язык) Экспорт Функция СуффиксЯзыка(Язык) Экспорт
Если Язык = Константы.ДополнительныйЯзык1.Получить() Тогда Если Язык = Константы.ДополнительныйЯзык1.Получить() И ИспользуетсяПервыйДополнительныйЯзык() Тогда
Возврат "Язык1"; Возврат "Язык1";
КонецЕсли; КонецЕсли;
Если Язык = Константы.ДополнительныйЯзык2.Получить() Тогда Если Язык = Константы.ДополнительныйЯзык2.Получить() И ИспользуетсяВторойДополнительныйЯзык() Тогда
Возврат "Язык2"; Возврат "Язык2";
КонецЕсли; КонецЕсли;
@@ -41,7 +41,7 @@
Процедура ПриДобавленииПодсистемы(Описание) Экспорт Процедура ПриДобавленииПодсистемы(Описание) Экспорт
Описание.Имя = "СтандартныеПодсистемы"; Описание.Имя = "СтандартныеПодсистемы";
Описание.Версия = "3.1.3.353"; Описание.Версия = "3.1.3.362";
Описание.ИдентификаторИнтернетПоддержки = "SSL"; Описание.ИдентификаторИнтернетПоддержки = "SSL";
Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно"; Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно";
Описание.ПараллельноеОтложенноеОбновлениеСВерсии = "2.3.3.0"; Описание.ПараллельноеОтложенноеОбновлениеСВерсии = "2.3.3.0";
@@ -90,6 +90,7 @@
Контекст.Вставить("Форма", Форма); Контекст.Вставить("Форма", Форма);
Контекст.Вставить("Источник", Объект); Контекст.Вставить("Источник", Объект);
ПродолжитьВыполнениеКоманды(Контекст); ПродолжитьВыполнениеКоманды(Контекст);
Контекст.Форма.ПараметрыПодключаемыхКоманд.Удалить("КомандаВыполняется")
КонецЕсли; КонецЕсли;
КонецПроцедуры КонецПроцедуры
@@ -262,6 +263,7 @@
ПараметрыВыполненияПодключаемойКоманды = ОбщегоНазначенияКлиент.СкопироватьРекурсивно(Контекст); ПараметрыВыполненияПодключаемойКоманды = ОбщегоНазначенияКлиент.СкопироватьРекурсивно(Контекст);
ПараметрыВыполненияПодключаемойКоманды.Удалить("Форма"); ПараметрыВыполненияПодключаемойКоманды.Удалить("Форма");
Контекст.Форма.ПараметрыПодключаемыхКоманд.Вставить("КомандаВыполняется");
Контекст.Форма.Записать(Новый Структура("РежимЗаписи,ПараметрыВыполненияПодключаемойКоманды", РежимЗаписи, ПараметрыВыполненияПодключаемойКоманды)); Контекст.Форма.Записать(Новый Структура("РежимЗаписи,ПараметрыВыполненияПодключаемойКоманды", РежимЗаписи, ПараметрыВыполненияПодключаемойКоманды));
Если Контекст.Источник.Ссылка.Пустая() Или Контекст.Форма.Модифицированность Тогда Если Контекст.Источник.Ссылка.Пустая() Или Контекст.Форма.Модифицированность Тогда
@@ -270,7 +272,9 @@
ИначеЕсли Ответ = КодВозвратаДиалога.Отмена Тогда ИначеЕсли Ответ = КодВозвратаДиалога.Отмена Тогда
Возврат; Возврат;
КонецЕсли; КонецЕсли;
ПродолжитьВыполнениеКоманды(Контекст) Если Контекст.Форма.ПараметрыПодключаемыхКоманд.Свойство("КомандаВыполняется") Тогда
ПродолжитьВыполнениеКоманды(Контекст)
КонецЕсли;
КонецПроцедуры КонецПроцедуры
// Ветка процедуры, возникающая после диалога подтверждения проведения. // Ветка процедуры, возникающая после диалога подтверждения проведения.
@@ -8,6 +8,82 @@
#Область ПрограммныйИнтерфейс #Область ПрограммныйИнтерфейс
// Предоставляет данные из Справочника БИК.
//
// Параметры:
// БИК - Строка - банковский идентификационный код.
// КоррСчет - Строка - корреспондентский счет банка.
// ТолькоАктуальные - Булево - если Истина, то в результат поиска включаются только действующих участники расчетов.
//
// Возвращаемое значение:
// ТаблицаЗначений:
// * Ссылка - СправочникСсылка.КлассификаторБанков
// * БИК - Строка
// * КоррСчет - Строка
// * Наименование - Строка
// * Город - Строка
// * Адрес- Строка
// * Телефоны - Строка
// * ИНН - Строка
// * ДеятельностьПрекращена - Булево
// * СВИФТБИК - Строка
// * МеждународноеНаименование - Строка
// * ГородМеждународный - Строка
// * АдресМеждународный - Строка
// * Страна - Строка, СправочникСсылка.СтраныМира
// * БИКРКЦ - Строка
// * НаименованиеРКЦ - Строка
// * КоррСчетРКЦ - Строка
// * ГородРКЦ - Строка
// * АдресРКЦ - Строка
// * ИННРКЦ - Строка
//
Функция СведенияБИК(Знач БИК, Знач КоррСчет = Неопределено, ТолькоАктуальные = Истина) Экспорт
ИмяОбработки = "ЗагрузкаКлассификатораБанков";
Если Метаданные.Обработки.Найти(ИмяОбработки) <> Неопределено Тогда
Возврат Обработки[ИмяОбработки].СведенияБИК(БИК, КоррСчет, ТолькоАктуальные);
КонецЕсли;
ТекстЗапроса =
"ВЫБРАТЬ
| СправочникБИК.Ссылка КАК Ссылка,
| СправочникБИК.Код КАК БИК,
| СправочникБИК.Наименование КАК Наименование,
| СправочникБИК.КоррСчет КАК КоррСчет,
| СправочникБИК.Город КАК Город,
| СправочникБИК.Адрес КАК Адрес,
| СправочникБИК.Телефоны КАК Телефоны,
| СправочникБИК.ДеятельностьПрекращена КАК ДеятельностьПрекращена,
| СправочникБИК.СВИФТБИК КАК СВИФТБИК,
| СправочникБИК.МеждународноеНаименование КАК МеждународноеНаименование,
| СправочникБИК.ГородМеждународный КАК ГородМеждународный,
| СправочникБИК.АдресМеждународный КАК АдресМеждународный,
| СправочникБИК.Страна КАК Страна
|ИЗ
| Справочник.КлассификаторБанков КАК СправочникБИК
|ГДЕ
| СправочникБИК.Код = &БИК
| И ВЫБОР
| КОГДА &КоррСчет = НЕОПРЕДЕЛЕНО
| ТОГДА ИСТИНА
| ИНАЧЕ СправочникБИК.КоррСчет = &КоррСчет
| КОНЕЦ
| И ВЫБОР
| КОГДА &ТолькоАктуальные
| ТОГДА НЕ СправочникБИК.ДеятельностьПрекращена
| ИНАЧЕ ИСТИНА
| КОНЕЦ";
Запрос = Новый Запрос(ТекстЗапроса);
Запрос.УстановитьПараметр("БИК", БИК);
Запрос.УстановитьПараметр("КоррСчет", КоррСчет);
Запрос.УстановитьПараметр("ТолькоАктуальные", ТолькоАктуальные);
Возврат Запрос.Выполнить().Выгрузить();
КонецФункции
// Получает данные из справочника КлассификаторБанков по значениям БИК и корреспондентского счета банка. // Получает данные из справочника КлассификаторБанков по значениям БИК и корреспондентского счета банка.
// //
// Параметры: // Параметры:
@@ -94,6 +170,7 @@
#КонецОбласти #КонецОбласти
#Область СлужебныйПрограммныйИнтерфейс #Область СлужебныйПрограммныйИнтерфейс
//////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////
@@ -6,6 +6,30 @@
// https://creativecommons.org/licenses/by/4.0/legalcode // https://creativecommons.org/licenses/by/4.0/legalcode
/////////////////////////////////////////////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////////////////////////////////////////////
#Область ПрограммныйИнтерфейс
// Открывает форму выбора Справочника БИК с отбором по переданному БИК.
// Если в списке выбора единственная запись, то выбор в форме осуществляется автоматически.
//
// Параметры:
// БИК - Строка - банковский идентификационный код.
// Форма - ФормаКлиентскогоПриложения - форма, из которой открывается форма выбора.
// ОбработчикОповещения - ОписаниеОповещения - процедура, в которую передается управление после осуществления выбора.
// Если параметр не указан, то будет вызван стандартный обработчик выбора.
// Параметры процедуры:
// * БИК - СправочникСсылка.КлассификаторБанков - выбранный элемент.
// * ДополнительныеПараметры - Произвольный - параметр, переданный в конструкторе описания оповещения.
//
Процедура ВыбратьИзСправочникаБИК(БИК, Форма, ОбработчикОповещения = Неопределено) Экспорт
Параметры = Новый Структура;
Параметры.Вставить("БИК", БИК);
ОткрытьФорму("Справочник.КлассификаторБанков.Форма.ФормаВыбора", Параметры, Форма, , , , ОбработчикОповещения);
КонецПроцедуры
#КонецОбласти
#Область СлужебныйПрограммныйИнтерфейс #Область СлужебныйПрограммныйИнтерфейс
//////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////
@@ -526,7 +526,7 @@
РеквизитыФайла = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(СсылкаНаВерсию, ИменаРеквизитов); РеквизитыФайла = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(СсылкаНаВерсию, ИменаРеквизитов);
ЗаполнитьЗначенияСвойств(СвойстваФайла, РеквизитыФайла); ЗаполнитьЗначенияСвойств(СвойстваФайла, РеквизитыФайла);
Если РеквизитыФайла.Свойство("Владелец") Тогда Если РеквизитыФайла.Свойство("Владелец") И ЗначениеЗаполнено(РеквизитыФайла.Владелец) Тогда
СвойстваФайла.ВладелецФайла = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(РеквизитыФайла.Владелец, "ВладелецФайла"); СвойстваФайла.ВладелецФайла = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(РеквизитыФайла.Владелец, "ВладелецФайла");
КонецЕсли; КонецЕсли;
@@ -6641,24 +6641,8 @@
// Теоретически еще можно искать файлы по Etag, но встанет вопрос дублей, поэтому дальше не ищем. // Теоретически еще можно искать файлы по Etag, но встанет вопрос дублей, поэтому дальше не ищем.
Если Не ПустаяСтрока(СтрокаДереваФайлов.UID1C) Тогда Если Не ПустаяСтрока(СтрокаДереваФайлов.UID1C) Тогда
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| СтатусыСинхронизацииФайловСОблачнымСервисом.Файл КАК Ссылка
|ИЗ
| РегистрСведений.СтатусыСинхронизацииФайловСОблачнымСервисом КАК СтатусыСинхронизацииФайловСОблачнымСервисом
|ГДЕ
| СтатусыСинхронизацииФайловСОблачнымСервисом.УникальныйИдентификатор1С = &УникальныйИдентификатор1С";
Запрос.УстановитьПараметр("УникальныйИдентификатор1С", Новый УникальныйИдентификатор(СтрокаДереваФайлов.UID1C));
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать(); ОпределитьТекущуюПапкуФайлов(СтрокаДереваФайлов.UID1C, ТекущаяПапкаФайлов);
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ТекущаяПапкаФайлов = ВыборкаДетальныеЗаписи;
КонецЦикла;
КонецЕсли; КонецЕсли;
@@ -6723,8 +6707,52 @@
КонецПопытки; КонецПопытки;
Иначе Иначе
Если Не ЗначениеЗаполнено(ТекущаяПапкаФайлов) Тогда
// В РС СтатусыСинхронизацииФайловСОблачнымСервисом нет данных о папке, ищем ее в файлах.
СтараяСтрокаТаблицыФайлов = ТаблицаФайлов.Найти(СтрокаДереваФайлов.Href, "Href");
Если СтараяСтрокаТаблицыФайлов = Неопределено Тогда
СтараяСтрокаТаблицыФайлов = ТаблицаФайлов.Найти(РаскодироватьСтроку(СтрокаДереваФайлов.Href,
СпособКодированияСтроки.URLВКодировкеURL), "Href");
КонецЕсли;
Если СтараяСтрокаТаблицыФайлов = Неопределено Тогда
ТекстСобытия = НСтр("ru = 'Пропущена синхронизация папки %1. Папка отсутствует на сервере.'");
ЗаписатьВЖурналСобытийСинхронизацииФайлов(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
ТекстСобытия,РаскодироватьСтроку(СтрокаДереваФайлов.Href, СпособКодированияСтроки.URLВКодировкеURL)),
ПараметрыСинхронизации.УчетнаяЗапись, УровеньЖурналаРегистрации.Ошибка);
Продолжить;
КонецЕсли;
// Папка найдена по пути Href, теперь по UID1C ищем запись в РС СтатусыСинхронизацииФайловСОблачнымСервисом
ОпределитьТекущуюПапкуФайлов(СтараяСтрокаТаблицыФайлов.UID1C, ТекущаяПапкаФайлов);
Если Не ЗначениеЗаполнено(ТекущаяПапкаФайлов) Тогда
ТекстСобытия = НСтр("ru = 'Невозможно синхронизировать папку %1.
|Идентификатор папки %2 отсутствует в сведениях о синхронизации файлов.'");
ЗаписатьВЖурналСобытийСинхронизацииФайлов(СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
ТекстСобытия, РаскодироватьСтроку(СтрокаДереваФайлов.Href, СпособКодированияСтроки.URLВКодировкеURL),
СтараяСтрокаТаблицыФайлов.UID1C),
ПараметрыСинхронизации.УчетнаяЗапись, УровеньЖурналаРегистрации.Ошибка);
Продолжить;
КонецЕсли;
Иначе
СтараяСтрокаТаблицыФайлов = ТаблицаФайлов.Найти(ТекущаяПапкаФайлов.Ссылка, "ФайлСсылка");
КонецЕсли;
// Обновим ToHref // Обновим ToHref
СтараяСтрокаТаблицыФайлов = ТаблицаФайлов.Найти(ТекущаяПапкаФайлов.Ссылка, "ФайлСсылка");
Если СтараяСтрокаТаблицыФайлов <> Неопределено Тогда Если СтараяСтрокаТаблицыФайлов <> Неопределено Тогда
СтараяСтрокаТаблицыФайлов.ToHref = СтрокаДереваФайлов.Href; СтараяСтрокаТаблицыФайлов.ToHref = СтрокаДереваФайлов.Href;
СтараяСтрокаТаблицыФайлов.ToEtag = СтрокаДереваФайлов.Etag; СтараяСтрокаТаблицыФайлов.ToEtag = СтрокаДереваФайлов.Etag;
@@ -6817,6 +6845,28 @@
КонецПроцедуры КонецПроцедуры
Процедура ОпределитьТекущуюПапкуФайлов(Знач UID1C, ТекущаяПапкаФайлов)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| СтатусыСинхронизацииФайловСОблачнымСервисом.Файл КАК Ссылка
|ИЗ
| РегистрСведений.СтатусыСинхронизацииФайловСОблачнымСервисом КАК СтатусыСинхронизацииФайловСОблачнымСервисом
|ГДЕ
| СтатусыСинхронизацииФайловСОблачнымСервисом.УникальныйИдентификатор1С = &УникальныйИдентификатор1С";
Запрос.УстановитьПараметр("УникальныйИдентификатор1С", Новый УникальныйИдентификатор(UID1C));
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ТекущаяПапкаФайлов = ВыборкаДетальныеЗаписи;
КонецЦикла;
КонецПроцедуры
Процедура ЗаполнитьДанныеИзОблачногоСервиса(СтрокиДереваФайлов, ТаблицаФайлов, ПараметрыСинхронизации, ОбъектВладелец = Неопределено) Процедура ЗаполнитьДанныеИзОблачногоСервиса(СтрокиДереваФайлов, ТаблицаФайлов, ПараметрыСинхронизации, ОбъектВладелец = Неопределено)
Для каждого СтрокаДереваФайлов Из СтрокиДереваФайлов Цикл Для каждого СтрокаДереваФайлов Из СтрокиДереваФайлов Цикл
@@ -376,6 +376,10 @@
// //
Функция КонтрольныйКлючЛицевогоСчетаСоответствуетТребованиям(НомерСчета, БИК, ЭтоБанк = Истина)Экспорт Функция КонтрольныйКлючЛицевогоСчетаСоответствуетТребованиям(НомерСчета, БИК, ЭтоБанк = Истина)Экспорт
Если СтрНачинаетсяС(НомерСчета, "0") Тогда
Возврат Истина;
КонецЕсли;
НомерСчетаСтрока = СокрЛП(НомерСчета); НомерСчетаСтрока = СокрЛП(НомерСчета);
// При наличии алфавитного значения в 6-ом разряде лицевого // При наличии алфавитного значения в 6-ом разряде лицевого
@@ -139,9 +139,14 @@
МетаданныеСвязанныхОбъектов = Метаданные.КритерииОтбора.СвязанныеДокументы; МетаданныеСвязанныхОбъектов = Метаданные.КритерииОтбора.СвязанныеДокументы;
ТипыСвязанныхОбъектов = МетаданныеСвязанныхОбъектов.Тип.Типы(); ТипыСвязанныхОбъектов = МетаданныеСвязанныхОбъектов.Тип.Типы();
ТипПараметраКоманды = Метаданные.ОбщиеКоманды.СвязанныеДокументы.ТипПараметраКоманды;
Для Каждого ТипСвязанногоОбъекта Из ТипыСвязанныхОбъектов Цикл Для Каждого ТипСвязанногоОбъекта Из ТипыСвязанныхОбъектов Цикл
Индекс.Вставить(ТипСвязанногоОбъекта, Истина);
Если Не ТипПараметраКоманды.СодержитТип(ТипСвязанногоОбъекта) Тогда
Индекс.Вставить(ТипСвязанногоОбъекта, Истина);
КонецЕсли;
КонецЦикла; КонецЦикла;
Возврат Индекс; Возврат Индекс;
@@ -31,6 +31,7 @@
Зависимость = Зависимости.Добавить(); Зависимость = Зависимости.Добавить();
Зависимость.РегламентноеЗадание = Метаданные.РегламентныеЗадания.УдалениеПомеченных; Зависимость.РегламентноеЗадание = Метаданные.РегламентныеЗадания.УдалениеПомеченных;
Зависимость.ФункциональнаяОпция = Метаданные.ФункциональныеОпции.ИспользоватьУдалениеПомеченныхОбъектов; Зависимость.ФункциональнаяОпция = Метаданные.ФункциональныеОпции.ИспользоватьУдалениеПомеченныхОбъектов;
Зависимость.ВключатьПриВключенииФункциональнойОпции = Ложь;
КонецПроцедуры КонецПроцедуры
@@ -798,6 +799,63 @@
#Область СлужебныеПроцедурыИФункции #Область СлужебныеПроцедурыИФункции
// Снимает с элементов пометку на удаление, если есть хотя бы один помеченный на удаление объект.
// Если все объекты не помечены на удаление, то устанавливает пометку на удаление.
//
// Выбрасывает исключение, если произошла ошибка при установке пометки удаления.
//
// Параметры:
// Ссылки - Массив из ЛюбаяСсылка
//
// Возвращаемое значение:
// ТаблицаЗначений:
// * Ссылка - ЛюбаяСсылка
// * НовоеЗначениеПометкиУдаления - Булево
//
Функция СнятьУстановитьПометкуУдаления(Ссылки) Экспорт
Результат = Новый ТаблицаЗначений;
Результат.Колонки.Добавить("Ссылка");
Результат.Колонки.Добавить("НовоеЗначениеПометкиУдаления");
ИтоговоеЗначениеПометкиУдаления = Ложь;
ЗначенияПометкиУдаления = ОбщегоНазначения.ЗначениеРеквизитаОбъектов(Ссылки, "ПометкаУдаления");
КоличествоНепомеченныхНаУдаление = 0;
Для каждого СсылкаЗначениеРеквизита Из ЗначенияПометкиУдаления Цикл
Если СсылкаЗначениеРеквизита.Значение = Ложь Тогда
КоличествоНепомеченныхНаУдаление = КоличествоНепомеченныхНаУдаление + 1;
КонецЕсли;
КонецЦикла;
Если КоличествоНепомеченныхНаУдаление = ЗначенияПометкиУдаления.Количество() Тогда
ИтоговоеЗначениеПометкиУдаления = Истина;
КонецЕсли;
НачатьТранзакцию();
Попытка
Для каждого СсылкаЗначениеРеквизита Из ЗначенияПометкиУдаления Цикл
Если СсылкаЗначениеРеквизита.Значение <> ИтоговоеЗначениеПометкиУдаления Тогда
СтрокаРезультата = Результат.Добавить();
СтрокаРезультата.Ссылка = СсылкаЗначениеРеквизита.Ключ;
Объект = СсылкаЗначениеРеквизита.Ключ.ПолучитьОбъект();
Объект.УстановитьПометкуУдаления(ИтоговоеЗначениеПометкиУдаления);
СтрокаРезультата.НовоеЗначениеПометкиУдаления = ИтоговоеЗначениеПометкиУдаления;
КонецЕсли;
КонецЦикла;
ЗафиксироватьТранзакцию();
Исключение
ОтменитьТранзакцию();
ВызватьИсключение;
КонецПопытки;
Возврат Результат;
КонецФункции
#Область ПоискПомеченныхНаУдаление #Область ПоискПомеченныхНаУдаление
// Параметры: // Параметры:
@@ -1425,7 +1483,7 @@
// Возвращаемое значение: // Возвращаемое значение:
// Число - номер картинки // Число - номер картинки
// //
Функция НомерКартинки(Знач СсылкаИлиДанные, Знач СсылочногоТипа, Знач Вид, Знач Статус) Функция НомерКартинки(Знач СсылкаИлиДанные, Знач СсылочногоТипа, Знач Вид, Знач Статус) Экспорт
Вид = ВРег(Вид); Вид = ВРег(Вид);
Если СсылочногоТипа Тогда Если СсылочногоТипа Тогда
+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="1b522658-35a1-11eb-648e-0242ac110002"> <mdclass:Configuration xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="27a833c0-3bc3-11eb-e39c-0242ac110002">
<name>БиблиотекаСтандартныхПодсистем</name> <name>БиблиотекаСтандартныхПодсистем</name>
<synonym> <synonym>
<key>ru</key> <key>ru</key>
<value>Библиотека стандартных подсистем, редакция 3.1</value> <value>Библиотека стандартных подсистем, редакция 3.1</value>
</synonym> </synonym>
<containedObjects classId="9cd510cd-abfc-11d4-9434-004095e12fc7" objectId="1b522659-35a1-11eb-648e-0242ac110002"/> <containedObjects classId="9cd510cd-abfc-11d4-9434-004095e12fc7" objectId="27a833c1-3bc3-11eb-e39c-0242ac110002"/>
<containedObjects classId="9fcd25a0-4822-11d4-9414-008048da11f9" objectId="1b522680-35a1-11eb-648e-0242ac110002"/> <containedObjects classId="9fcd25a0-4822-11d4-9414-008048da11f9" objectId="27a833f2-3bc3-11eb-e39c-0242ac110002"/>
<containedObjects classId="e3687481-0a87-462c-a166-9f34594f9bba" objectId="1b52268a-35a1-11eb-648e-0242ac110002"/> <containedObjects classId="e3687481-0a87-462c-a166-9f34594f9bba" objectId="27a833f3-3bc3-11eb-e39c-0242ac110002"/>
<containedObjects classId="9de14907-ec23-4a07-96f0-85521cb6b53b" objectId="1b52268b-35a1-11eb-648e-0242ac110002"/> <containedObjects classId="9de14907-ec23-4a07-96f0-85521cb6b53b" objectId="27a833fc-3bc3-11eb-e39c-0242ac110002"/>
<containedObjects classId="51f2d5d8-ea4d-4064-8892-82951750031e" objectId="1b52268c-35a1-11eb-648e-0242ac110002"/> <containedObjects classId="51f2d5d8-ea4d-4064-8892-82951750031e" objectId="27a833fd-3bc3-11eb-e39c-0242ac110002"/>
<containedObjects classId="e68182ea-4237-4383-967f-90c1e3370bc7" objectId="1b522694-35a1-11eb-648e-0242ac110002"/> <containedObjects classId="e68182ea-4237-4383-967f-90c1e3370bc7" objectId="27a83406-3bc3-11eb-e39c-0242ac110002"/>
<containedObjects classId="fb282519-d103-4dd3-bc12-cb271d631dfc" objectId="590ea5dc-05dd-4137-9af6-a0faddd6d585"/> <containedObjects classId="fb282519-d103-4dd3-bc12-cb271d631dfc" objectId="bf81325a-2703-4c63-b6d7-ca37a3a56706"/>
<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.1.3.353</version> <version>3.1.3.362</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,5fd3ec30-35a1-11eb-8a81-0242ac110002,1,5443c264-35a1-11eb-4e9c-0242ac110002,"3.1.3.353","Фирма ""1С""","БиблиотекаСтандартныхПодсистем",6174,1,0,1b522658-35a1-11eb-648e-0242ac110002,1b522658-35a1-11eb-648e-0242ac110002,1,0,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,1,0,9233322b-dfdb-4c66-91fe-1299292d40a5,9233322b-dfdb-4c66-91fe-1299292d40a5,1,0,7795348b-2f52-47f7-bf00-e11e5e795a43,7795348b-2f52-47f7-bf00-e11e5e795a43,1,0,0421b67e-ed26-491d-ab98-ec59002ed4ce,0421b67e-ed26-491d-ab98-ec59002ed4ce,1,0,bb47ced2-31f9-4870-8633-20b986e53ccc,bb47ced2-31f9-4870-8633-20b986e53ccc,1,0,7d8acec9-f5a9-411e-921c-446ed0dd3332,7d8acec9-f5a9-411e-921c-446ed0dd3332,1,0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,1,0,cdbd26b1-9583-46e8-adf7-8cc705639892,cdbd26b1-9583-46e8-adf7-8cc705639892,1,0,c0e38c3e-7088-4e35-9d84-2d0ab9655402,c0e38c3e-7088-4e35-9d84-2d0ab9655402,1,0,1098786f-dd24-4cce-b212-be0cb5f01735,1098786f-dd24-4cce-b212-be0cb5f01735,1,0,3c0037f3-4422-4836-b116-8c72e32bdd55,3c0037f3-4422-4836-b116-8c72e32bdd55,1,0,6f7c6c31-206b-4010-bdad-1ad2e304f154,6f7c6c31-206b-4010-bdad-1ad2e304f154,1,0,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,1,0,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,1,0,5b68d479-7880-44de-84e3-7f578b43f0dc,5b68d479-7880-44de-84e3-7f578b43f0dc,1,0,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,1,0,b4629308-42de-4ce8-8591-cf0c2399a9a2,b4629308-42de-4ce8-8591-cf0c2399a9a2,1,0,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,1,0,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,1,0,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,1,0,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1,0,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,1,0,b93b8760-6200-40ee-8bdc-875ba80a6155,b93b8760-6200-40ee-8bdc-875ba80a6155,1,0,e8b248d9-9049-456a-9c7d-7a0462cc67ab,e8b248d9-9049-456a-9c7d-7a0462cc67ab,1,0,d4562287-440d-4462-9de2-7097ccbf3764,d4562287-440d-4462-9de2-7097ccbf3764,1,0,1983fe34-c984-4659-ba41-0e94504f8989,1983fe34-c984-4659-ba41-0e94504f8989,1,0,ec797c75-02c5-4cf5-9dd4-26cd46c99519,ec797c75-02c5-4cf5-9dd4-26cd46c99519,1,0,6fccdf59-fc99-4a2b-a144-fffe438a147c,6fccdf59-fc99-4a2b-a144-fffe438a147c,1,0,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,1,0,08a413ff-bebd-42e5-8ff3-2115746a0844,08a413ff-bebd-42e5-8ff3-2115746a0844,1,0,da9b32e6-5b93-45a6-84b2-238d57541e18,da9b32e6-5b93-45a6-84b2-238d57541e18,1,0,e43d69c8-b284-47da-b236-611bc94a15b6,e43d69c8-b284-47da-b236-611bc94a15b6,1,0,31eeaa05-6c49-41fe-b840-1edbad4ccac7,31eeaa05-6c49-41fe-b840-1edbad4ccac7,1,0,842c8662-8f39-405e-9665-cbdabc116159,842c8662-8f39-405e-9665-cbdabc116159,1,0,fca4b033-02c4-4d61-9e51-87783c3cef1a,fca4b033-02c4-4d61-9e51-87783c3cef1a,1,0,396ef757-d7f6-411f-8c4c-1acb1106a009,396ef757-d7f6-411f-8c4c-1acb1106a009,1,0,839e29b1-a0d2-40fa-9f3e-46e66b943358,839e29b1-a0d2-40fa-9f3e-46e66b943358,1,0,c56d2cc7-630a-441b-b23f-ba78c34849bd,c56d2cc7-630a-441b-b23f-ba78c34849bd,1,0,9aecf4f5-46ed-4d1c-a584-cd028e467895,9aecf4f5-46ed-4d1c-a584-cd028e467895,1,0,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,1,0,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,1,0,a1f10624-22e9-4a04-b370-fd085bdd0f67,a1f10624-22e9-4a04-b370-fd085bdd0f67,1,0,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,1,0,3cffb795-2a28-4beb-92f4-5813f5994022,3cffb795-2a28-4beb-92f4-5813f5994022,1,0,3323ca68-1382-4710-a933-23fc56588935,3323ca68-1382-4710-a933-23fc56588935,1,0,d6b12775-3255-42b8-88b2-62684f873e7d,d6b12775-3255-42b8-88b2-62684f873e7d,1,0,cc23d903-ccc5-42f4-862f-5e7278c4e346,cc23d903-ccc5-42f4-862f-5e7278c4e346,1,0,98f033e0-fa40-46e0-b51a-87a066749a35,98f033e0-fa40-46e0-b51a-87a066749a35,1,0,e8b4cb2d-1180-4101-954a-4cb5464f198c,e8b4cb2d-1180-4101-954a-4cb5464f198c,1,0,a379287d-1ce8-460d-a503-910e728e28f1,a379287d-1ce8-460d-a503-910e728e28f1,1,0,f765c4ba-c677-42ac-8d0c-43bb485405b9,f765c4ba-c677-42ac-8d0c-43bb485405b9,1,0,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,1,0,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,1,0,4009cb3a-6754-481f-911b-907558cea38a,4009cb3a-6754-481f-911b-907558cea38a,1,0,653a7fd8-91c7-49aa-aa63-45da087e0d0a,653a7fd8-91c7-49aa-aa63-45da087e0d0a,1,0,d7cf3981-cf63-4a21-868b-8175a7704a8f,d7cf3981-cf63-4a21-868b-8175a7704a8f,1,0,0ae93712-74e8-41c7-8f2d-4dfc8983697d,0ae93712-74e8-41c7-8f2d-4dfc8983697d,1,0,9e4dfdfa-ec05-4c9e-89bd-fc24f60f2678,9e4dfdfa-ec05-4c9e-89bd-fc24f60f2678,1,0,64f548c8-c1fc-434e-b3ee-5be367ead1db,64f548c8-c1fc-434e-b3ee-5be367ead1db,1,0,cd592a5d-b184-4558-8a28-7079ccf28b89,cd592a5d-b184-4558-8a28-7079ccf28b89,1,0,2009c673-c1a5-45fc-8da2-a36c435085a6,2009c673-c1a5Line truncated {6,1,1,6b6dc764-3bc3-11eb-058d-0242ac110002,1,5eddaff0-3bc3-11eb-c380-0242ac110002,"3.1.3.362","Фирма ""1С""","БиблиотекаСтандартныхПодсистем",6176,1,0,27a833c0-3bc3-11eb-e39c-0242ac110002,27a833c0-3bc3-11eb-e39c-0242ac110002,1,0,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,db4a9ccb-9ef5-4b3c-8577-b6fe5db1b62e,1,0,9233322b-dfdb-4c66-91fe-1299292d40a5,9233322b-dfdb-4c66-91fe-1299292d40a5,1,0,7795348b-2f52-47f7-bf00-e11e5e795a43,7795348b-2f52-47f7-bf00-e11e5e795a43,1,0,0421b67e-ed26-491d-ab98-ec59002ed4ce,0421b67e-ed26-491d-ab98-ec59002ed4ce,1,0,bb47ced2-31f9-4870-8633-20b986e53ccc,bb47ced2-31f9-4870-8633-20b986e53ccc,1,0,7d8acec9-f5a9-411e-921c-446ed0dd3332,7d8acec9-f5a9-411e-921c-446ed0dd3332,1,0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,739c01a9-1125-45ef-ab4e-8c73af4eeff0,1,0,cdbd26b1-9583-46e8-adf7-8cc705639892,cdbd26b1-9583-46e8-adf7-8cc705639892,1,0,c0e38c3e-7088-4e35-9d84-2d0ab9655402,c0e38c3e-7088-4e35-9d84-2d0ab9655402,1,0,1098786f-dd24-4cce-b212-be0cb5f01735,1098786f-dd24-4cce-b212-be0cb5f01735,1,0,3c0037f3-4422-4836-b116-8c72e32bdd55,3c0037f3-4422-4836-b116-8c72e32bdd55,1,0,6f7c6c31-206b-4010-bdad-1ad2e304f154,6f7c6c31-206b-4010-bdad-1ad2e304f154,1,0,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,a8659e53-8c6b-4b0c-9736-fe93a91e4d69,1,0,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,fe9a1d1a-19c0-499f-8e1b-09cadabe882f,1,0,5b68d479-7880-44de-84e3-7f578b43f0dc,5b68d479-7880-44de-84e3-7f578b43f0dc,1,0,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,bf9ca98c-5c95-4cfb-9181-8c1d847f9fbb,1,0,b4629308-42de-4ce8-8591-cf0c2399a9a2,b4629308-42de-4ce8-8591-cf0c2399a9a2,1,0,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,c7e984ae-1dbb-4041-b18a-bfd0d63a002f,1,0,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,bb0424b8-dfd1-4a27-bd66-9dea3ffc77c4,1,0,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,a4ac0a50-ee39-4dc1-b84f-eec8fe485f03,1,0,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1861ee4f-fd8c-4afa-8441-c074bf51f67e,1,0,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,de7ed8f7-3c02-47e0-aea8-4747ac68a5d5,1,0,b93b8760-6200-40ee-8bdc-875ba80a6155,b93b8760-6200-40ee-8bdc-875ba80a6155,1,0,e8b248d9-9049-456a-9c7d-7a0462cc67ab,e8b248d9-9049-456a-9c7d-7a0462cc67ab,1,0,d4562287-440d-4462-9de2-7097ccbf3764,d4562287-440d-4462-9de2-7097ccbf3764,1,0,1983fe34-c984-4659-ba41-0e94504f8989,1983fe34-c984-4659-ba41-0e94504f8989,1,0,ec797c75-02c5-4cf5-9dd4-26cd46c99519,ec797c75-02c5-4cf5-9dd4-26cd46c99519,1,0,6fccdf59-fc99-4a2b-a144-fffe438a147c,6fccdf59-fc99-4a2b-a144-fffe438a147c,1,0,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,af8bd73a-d8e8-487d-8f36-d835ab10ea3a,1,0,08a413ff-bebd-42e5-8ff3-2115746a0844,08a413ff-bebd-42e5-8ff3-2115746a0844,1,0,da9b32e6-5b93-45a6-84b2-238d57541e18,da9b32e6-5b93-45a6-84b2-238d57541e18,1,0,e43d69c8-b284-47da-b236-611bc94a15b6,e43d69c8-b284-47da-b236-611bc94a15b6,1,0,31eeaa05-6c49-41fe-b840-1edbad4ccac7,31eeaa05-6c49-41fe-b840-1edbad4ccac7,1,0,842c8662-8f39-405e-9665-cbdabc116159,842c8662-8f39-405e-9665-cbdabc116159,1,0,fca4b033-02c4-4d61-9e51-87783c3cef1a,fca4b033-02c4-4d61-9e51-87783c3cef1a,1,0,396ef757-d7f6-411f-8c4c-1acb1106a009,396ef757-d7f6-411f-8c4c-1acb1106a009,1,0,839e29b1-a0d2-40fa-9f3e-46e66b943358,839e29b1-a0d2-40fa-9f3e-46e66b943358,1,0,c56d2cc7-630a-441b-b23f-ba78c34849bd,c56d2cc7-630a-441b-b23f-ba78c34849bd,1,0,9aecf4f5-46ed-4d1c-a584-cd028e467895,9aecf4f5-46ed-4d1c-a584-cd028e467895,1,0,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,21d92c2f-6c78-43ce-b1f4-59d7845b5a91,1,0,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,a1c379be-43d3-4e02-83bb-d2e7de2d4ae3,1,0,a1f10624-22e9-4a04-b370-fd085bdd0f67,a1f10624-22e9-4a04-b370-fd085bdd0f67,1,0,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,2a4b10be-3cd7-4755-905f-7b4d02ff6a22,1,0,3cffb795-2a28-4beb-92f4-5813f5994022,3cffb795-2a28-4beb-92f4-5813f5994022,1,0,3323ca68-1382-4710-a933-23fc56588935,3323ca68-1382-4710-a933-23fc56588935,1,0,d6b12775-3255-42b8-88b2-62684f873e7d,d6b12775-3255-42b8-88b2-62684f873e7d,1,0,cc23d903-ccc5-42f4-862f-5e7278c4e346,cc23d903-ccc5-42f4-862f-5e7278c4e346,1,0,98f033e0-fa40-46e0-b51a-87a066749a35,98f033e0-fa40-46e0-b51a-87a066749a35,1,0,e8b4cb2d-1180-4101-954a-4cb5464f198c,e8b4cb2d-1180-4101-954a-4cb5464f198c,1,0,a379287d-1ce8-460d-a503-910e728e28f1,a379287d-1ce8-460d-a503-910e728e28f1,1,0,f765c4ba-c677-42ac-8d0c-43bb485405b9,f765c4ba-c677-42ac-8d0c-43bb485405b9,1,0,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,2fd1287d-d96d-4480-baf7-8815ae5ffbfb,1,0,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,d8c58e53-b7b9-4426-bdfa-d0816adf8cc1,1,0,4009cb3a-6754-481f-911b-907558cea38a,4009cb3a-6754-481f-911b-907558cea38a,1,0,653a7fd8-91c7-49aa-aa63-45da087e0d0a,653a7fd8-91c7-49aa-aa63-45da087e0d0a,1,0,d7cf3981-cf63-4a21-868b-8175a7704a8f,d7cf3981-cf63-4a21-868b-8175a7704a8f,1,0,0ae93712-74e8-41c7-8f2d-4dfc8983697d,0ae93712-74e8-41c7-8f2d-4dfc8983697d,1,0,9e4dfdfa-ec05-4c9e-89bd-fc24f60f2678,9e4dfdfa-ec05-4c9e-89bd-fc24f60f2678,1,0,64f548c8-c1fc-434e-b3ee-5be367ead1db,64f548c8-c1fc-434e-b3ee-5be367ead1db,1,0,cd592a5d-b184-4558-8a28-7079ccf28b89,cd592a5d-b184-4558-8a28-7079ccf28b89,1,0,2009c673-c1a5-45fc-8da2-a36c435085a6,2009c673-c1a5Line truncated
@@ -23,7 +23,7 @@
Процедура ПриДобавленииКлассификаторов(Классификаторы, Описатель) Экспорт Процедура ПриДобавленииКлассификаторов(Классификаторы, Описатель) Экспорт
Описатель.Идентификатор = ИдентификаторКлассификатора(); Описатель.Идентификатор = ИдентификаторКлассификатора();
Описатель.Наименование = НСтр("ru = 'Банки (справочник по кредитным организациям)'"); Описатель.Наименование = НСтр("ru = 'Справочник БИК'");
Описатель.ОбновлятьАвтоматически = Истина; Описатель.ОбновлятьАвтоматически = Истина;
Описатель.ОбщиеДанные = Истина; Описатель.ОбщиеДанные = Истина;
Описатель.ОбработкаРазделенныхДанных = Ложь; Описатель.ОбработкаРазделенныхДанных = Ложь;
@@ -72,138 +72,74 @@
КонецФункции КонецФункции
Процедура ПриПолученииДанныхКлассификатора(Параметры, СтандартнаяОбработка) Экспорт Процедура ПриПолученииДанныхКлассификатора(Параметры, СтандартнаяОбработка) Экспорт
СтандартнаяОбработка = Истина; СтандартнаяОбработка = Истина;
КонецПроцедуры КонецПроцедуры
Процедура ЗагрузитьДанные(Параметры) Процедура ЗагрузитьДанные(Параметры)
Регионы = Регионы(Параметры.ПутьКФайлуРегионов); ЧтениеТекста = Новый ЧтениеТекста(Параметры.ПутьКФайлуБИК, КодировкаТекста.UTF8);
ЧтениеТекста = Новый ЧтениеТекста(Параметры.ПутьКФайлуБИК, "windows-1251");
ТекстКлассификатора = ЧтениеТекста.Прочитать(); ТекстКлассификатора = ЧтениеТекста.Прочитать();
ЧтениеТекста.Закрыть(); ЧтениеТекста.Закрыть();
Для Каждого Строка Из СтрРазделить(ТекстКлассификатора, Символы.ПС, Ложь) Цикл СправочникБИК = JSONВЗначение(ТекстКлассификатора, "dateIn,dateOut");
СведенияОБанке = СведенияОБанке(Строка, Регионы); АктуальныеЗаписи = Новый Массив;
Если СведенияОБанке = Неопределено Тогда
Продолжить; Для Каждого Элемент Из СправочникБИК.bics Цикл
ДанныеОрганизации = ДанныеОрганизации(Элемент);
Если ЗначениеЗаполнено(ДанныеОрганизации.Счета) Тогда
Для Каждого ОписаниеСчета Из ДанныеОрганизации.Счета Цикл
ДанныеОрганизации.КоррСчет = ОписаниеСчета.КоррСчет;
Если ОписаниеСчета.Свойство("БИКРКЦ") Тогда
ДанныеОрганизации.БИКРКЦ = ОписаниеСчета.БИКРКЦ;
КонецЕсли;
АктуальныеЗаписи.Добавить(ЗаписатьЭлементКлассификатораБанковРФ(ДанныеОрганизации));
КонецЦикла;
Иначе
ДанныеОрганизации.КоррСчет = "";
ДанныеОрганизации.БИКРКЦ = Справочники.КлассификаторБанков.ПустаяСсылка();
АктуальныеЗаписи.Добавить(ЗаписатьЭлементКлассификатораБанковРФ(ДанныеОрганизации));
КонецЕсли; КонецЕсли;
ЗаписатьЭлементКлассификатораБанковРФ(СведенияОБанке);
КонецЦикла; КонецЦикла;
// Пометка недействующих банков. ОтметитьНеактуальныеЗаписи(АктуальныеЗаписи);
ДействующиеБанки = ДействующиеБанкиИзФайла(Параметры.ПутьКФайлуБИК);
НедействующиеБанки = НедействующиеБанкиИзФайла(Параметры.ПутьКФайлуНедействующихБанков);
ОтметитьНедействующиеБанки(ДействующиеБанки, НедействующиеБанки);
КонецПроцедуры КонецПроцедуры
Функция ОпределитьТипГородаПоКоду(КодТипа) Функция ДанныеОрганизации(Знач Элемент)
Если КодТипа = "1" Тогда ДанныеОрганизации = СтруктураДанныхОрганизации();
Возврат "Г."; // ГОРОД ЗаполнитьЗначенияСвойств(ДанныеОрганизации, Элемент);
ИначеЕсли КодТипа = "2" Тогда ЗаполнитьЗначенияСвойств(ДанныеОрганизации, Элемент.participantInfo);
Возврат "П."; // ПОСЕЛОК
ИначеЕсли КодТипа = "3" Тогда Если Элемент.Свойство("SWIFTs") Тогда
Возврат "С."; // СЕЛО ДанныеОрганизации.SWIFT = Элемент.SWIFTs[0].SWIFT;
ИначеЕсли КодТипа = "4" Тогда
Возврат "ПГТ"; // ПОСЕЛОК ГОРОДСКОГО ТИПА
ИначеЕсли КодТипа = "5" Тогда
Возврат "СТ-ЦА"; // СТАНИЦА
ИначеЕсли КодТипа = "6" Тогда
Возврат "АУЛ"; // АУЛ
ИначеЕсли КодТипа = "7" Тогда
Возврат "РП"; // РАБОЧИЙ ПОСЕЛОК
Иначе
Возврат "";
КонецЕсли; КонецЕсли;
КонецФункции
Функция Регионы(ПутьКФайлуРегионов)
СоответствиеРегионов = Новый Соответствие;
РегионыТекстовыйДокумент = Новый ЧтениеТекста(ПутьКФайлуРегионов, "windows-1251");
СтрокаРегионов = РегионыТекстовыйДокумент.ПрочитатьСтроку();
Пока СтрокаРегионов <> Неопределено Цикл
Строка = СтрокаРегионов;
СтрокаРегионов = РегионыТекстовыйДокумент.ПрочитатьСтроку();
Если (Лев(Строка,2) = "//") Или (ПустаяСтрока(Строка)) Тогда
Продолжить;
КонецЕсли;
МассивПодстрок = СтрРазделить(Строка, Символы.Таб);
Если МассивПодстрок.Количество() < 2 Тогда
Продолжить;
КонецЕсли;
Символ1 = СокрЛП(МассивПодстрок[0]);
Символ2 = СокрЛП(МассивПодстрок[1]);
// Дополним код региона до двух знаков.
Если СтрДлина(Символ1) = 1 Тогда
Символ1 = "0" + Символ1;
КонецЕсли;
СоответствиеРегионов.Вставить(Символ1, Символ2);
КонецЦикла;
Возврат СоответствиеРегионов;
КонецФункции
// Формирует структуру полей для банка.
// Параметры:
// Строка - Строка - строка из текстового файла классификатора.
// Регионы - Соответствие - код региона и регион банка.
// Возвращаемое значение:
// Банк - Структура - реквизиты банка.
//
Функция СведенияОБанке(Знач Строка, Регионы)
Результат = Новый Структура; Результат = Новый Структура;
СписокПолей = Новый Массив; Результат.Вставить("ВнутреннийКодЦБ", ДанныеОрганизации.UID);
СписокПолей.Добавить("ТипУчастникаРасчетов"); Результат.Вставить("Наименование", ДанныеОрганизации.Name);
СписокПолей.Добавить("ИмяНаселенногоПункта"); Результат.Вставить("БИК", ДанныеОрганизации.BIC);
СписокПолей.Добавить("ТипПункта"); Результат.Вставить("Счета", Новый Массив);
СписокПолей.Добавить("Наименование"); Результат.Вставить("КоррСчет", "");
СписокПолей.Добавить("ПризнакКода"); Результат.Вставить("БИКРКЦ", Справочники.КлассификаторБанков.ПустаяСсылка());
СписокПолей.Добавить("БИК"); Результат.Вставить("СВИФТБИК", ДанныеОрганизации.SWIFT);
СписокПолей.Добавить("КоррСчет"); Результат.Вставить("ИНН", ДанныеОрганизации.INN);
СписокПолей.Добавить("СВИФТБИК"); Результат.Вставить("ОГРН", ДанныеОрганизации.OGRN);
СписокПолей.Добавить("ИНН");
СписокПолей.Добавить("ОГРН");
СписокПолей.Добавить("Адрес");
СписокПолей.Добавить("Телефоны");
СписокПолей.Добавить("МеждународноеНаименование");
СписокПолей.Добавить("ГородМеждународный");
СписокПолей.Добавить("АдресМеждународный");
КоллекцияЗначений = СтрРазделить(Строка, Символы.Таб, Истина); Результат.Вставить("Город", СокрЛП(Строка(ДанныеОрганизации.LocalityType) + " " + ДанныеОрганизации.Locality));
Для Индекс = 0 По СписокПолей.Количество() - 1 Цикл; Результат.Вставить("Адрес", ДанныеОрганизации.Address);
Значение = ""; Результат.Вставить("Телефоны", ДанныеОрганизации.Phones);
Если Индекс <= КоллекцияЗначений.ВГраница() Тогда
Значение = СокрЛП(КоллекцияЗначений[Индекс]);
КонецЕсли;
Результат.Вставить(СписокПолей[Индекс], Значение);
КонецЦикла;
Если СтрДлина(Результат.БИК) <> 9 Тогда Результат.Вставить("МеждународноеНаименование", ДанныеОрганизации.NameEnglish);
Возврат Неопределено; Результат.Вставить("ГородМеждународный", СтроковыеФункции.СтрокаЛатиницей(Результат.Город));
КонецЕсли; Результат.Вставить("АдресМеждународный", СтроковыеФункции.СтрокаЛатиницей(Результат.Адрес));
Результат.ТипПункта = ОпределитьТипГородаПоКоду(Результат.ТипПункта); КодРегиона = ДанныеОрганизации.RegionCode;
Результат.Вставить("Город", СокрЛП(Результат.ТипПункта + " " + Результат.ИмяНаселенногоПункта)); Регион = ДанныеОрганизации.RegionName;
Если Не ЗначениеЗаполнено(Регион) Тогда
КодРегиона = Сред(Результат.БИК, 3, 2);
Регион = Регионы[КодРегиона];
Если Регион = Неопределено Тогда
Регион = НСтр("ru = 'Другие территории'"); Регион = НСтр("ru = 'Другие территории'");
КодРегиона = ""; КодРегиона = "";
КонецЕсли; КонецЕсли;
@@ -211,6 +147,75 @@
Результат.Вставить("КодРегиона", КодРегиона); Результат.Вставить("КодРегиона", КодРегиона);
Результат.Вставить("Регион", Регион); Результат.Вставить("Регион", Регион);
Счета = Новый Массив;
Если Элемент.Свойство("Accounts") Тогда
Счета= Элемент.Accounts;
КонецЕсли;
Для Каждого ОписаниеСчета Из Счета Цикл
ДанныеСчета = СтруктураДанныхСчета();
ЗаполнитьЗначенияСвойств(ДанныеСчета, ОписаниеСчета);
Если ВРег(ДанныеСчета.Status) = "ACTIVE" Тогда
Счет = Новый Структура;
Счет.Вставить("КоррСчет", ДанныеСчета.account);
БИКРКЦ = Справочники.КлассификаторБанков.НайтиПоКоду(ДанныеСчета.cbrUnitBic);
Если ЗначениеЗаполнено(БИКРКЦ) Тогда
Счет.Вставить("БИКРКЦ", БИКРКЦ);
КонецЕсли;
Результат.Счета.Добавить(Счет);
КонецЕсли;
КонецЦикла;
Возврат Результат;
КонецФункции
Функция СтруктураДанныхОрганизации()
Результат = Новый Структура;
Результат.Вставить("name");
Результат.Вставить("nameEnglish");
Результат.Вставить("registrationNumber");
Результат.Вставить("parentBic");
Результат.Вставить("ogrn");
Результат.Вставить("inn");
Результат.Вставить("dateIn");
Результат.Вставить("dateOut");
Результат.Вставить("type");
Результат.Вставить("uid");
Результат.Вставить("status");
Результат.Вставить("services");
Результат.Вставить("exchangeType");
Результат.Вставить("restrictions");
Результат.Вставить("countryCode");
Результат.Вставить("regionCode");
Результат.Вставить("regionName");
Результат.Вставить("postalCode");
Результат.Вставить("localityType");
Результат.Вставить("locality");
Результат.Вставить("address");
Результат.Вставить("phones");
Результат.Вставить("swift");
Результат.Вставить("bic");
Возврат Результат;
КонецФункции
Функция СтруктураДанныхСчета()
Результат = Новый Структура;
Результат.Вставить("account");
Результат.Вставить("type");
Результат.Вставить("cbrUnitBic");
Результат.Вставить("openDate");
Результат.Вставить("status");
Результат.Вставить("controlKey");
Результат.Вставить("closeDate");
Результат.Вставить("restrictions");
Результат.Вставить("change");
Возврат Результат; Возврат Результат;
КонецФункции КонецФункции
@@ -221,14 +226,7 @@
ИмяКаталога = ИзвлечьФайлыИзАрхива(ИмяФайла); ИмяКаталога = ИзвлечьФайлыИзАрхива(ИмяФайла);
Если ФайлыКлассификатораПолучены(ИмяКаталога) Тогда Если ФайлыКлассификатораПолучены(ИмяКаталога) Тогда
Параметры = Новый Структура; Параметры = Новый Структура;
ФайлБИКСВИФТ = Новый Файл(ИмяФайлаБИКСВИФТ(ИмяКаталога)); Параметры.Вставить("ПутьКФайлуБИК", ИмяФайлаБИК(ИмяКаталога));
Если ФайлБИКСВИФТ.Существует() Тогда
Параметры.Вставить("ПутьКФайлуБИК", ИмяФайлаБИКСВИФТ(ИмяКаталога));
Иначе
Параметры.Вставить("ПутьКФайлуБИК", ИмяФайлаБИК(ИмяКаталога));
КонецЕсли;
Параметры.Вставить("ПутьКФайлуРегионов", ИмяФайлаРегионов(ИмяКаталога));
Параметры.Вставить("ПутьКФайлуНедействующихБанков", ИмяФайлаНедействующихБанков(ИмяКаталога));
Параметры.Вставить("ТекстСообщения", ""); Параметры.Вставить("ТекстСообщения", "");
Параметры.Вставить("ЗагрузкаВыполнена", Неопределено); Параметры.Вставить("ЗагрузкаВыполнена", Неопределено);
@@ -244,8 +242,6 @@
ИменаФайловДляПроверки = Новый Массив; ИменаФайловДляПроверки = Новый Массив;
ИменаФайловДляПроверки.Добавить(ИмяФайлаБИК(ИмяКаталога)); ИменаФайловДляПроверки.Добавить(ИмяФайлаБИК(ИмяКаталога));
ИменаФайловДляПроверки.Добавить(ИмяФайлаРегионов(ИмяКаталога));
ИменаФайловДляПроверки.Добавить(ИмяФайлаНедействующихБанков(ИмяКаталога));
Для Каждого ИмяФайла Из ИменаФайловДляПроверки Цикл Для Каждого ИмяФайла Из ИменаФайловДляПроверки Цикл
Файл = Новый Файл(ИмяФайла); Файл = Новый Файл(ИмяФайла);
@@ -276,27 +272,9 @@
КонецФункции КонецФункции
Функция ИмяФайлаРегионов(ИмяКаталога)
Возврат ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(ИмяКаталога) + "reg.txt";
КонецФункции
Функция ИмяФайлаБИК(ИмяКаталога) Функция ИмяФайлаБИК(ИмяКаталога)
Возврат ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(ИмяКаталога) + "bnkseek.txt"; Возврат ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(ИмяКаталога) + "bic-classifier.json";
КонецФункции
Функция ИмяФайлаБИКСВИФТ(ИмяКаталога)
Возврат ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(ИмяКаталога) + "bnkseek_swift.txt";
КонецФункции
Функция ИмяФайлаНедействующихБанков(ИмяКаталога)
Возврат ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(ИмяКаталога) + "bnkdel.txt";
КонецФункции КонецФункции
@@ -312,105 +290,36 @@
КонецФункции КонецФункции
Функция НедействующиеБанкиИзФайла(ПутьКФайлу) Процедура ОтметитьНеактуальныеЗаписи(АктуальныеЗаписи)
Результат = Новый ТаблицаЗначений; ТекстЗапроса =
Результат.Колонки.Добавить("БИК", Новый ОписаниеТипов("Строка",,Новый КвалификаторыСтроки(9)));
Результат.Колонки.Добавить("Наименование", Новый ОписаниеТипов("Строка",,Новый КвалификаторыСтроки(100)));
Результат.Колонки.Добавить("ДатаЗакрытия", Новый ОписаниеТипов("Дата",,,Новый КвалификаторыДаты(ЧастиДаты.Дата)));
ЧтениеТекста = Новый ЧтениеТекста(ПутьКФайлу, "windows-1251");
Строка = ЧтениеТекста.ПрочитатьСтроку();
Пока Строка <> Неопределено Цикл
СведенияОБанке = СтрРазделить(Строка, Символы.Таб);
Если СведенияОБанке.Количество() <> 8 Тогда
Продолжить;
КонецЕсли;
Банк = Результат.Добавить();
Банк.БИК = СведенияОБанке[6];
Банк.Наименование = СведенияОБанке[4];
Банк.ДатаЗакрытия = СведенияОБанке[1];
Строка = ЧтениеТекста.ПрочитатьСтроку();
КонецЦикла;
Возврат Результат;
КонецФункции
Функция ДействующиеБанкиИзФайла(ПутьКФайлу)
Результат = Новый ТаблицаЗначений;
Результат.Колонки.Добавить("БИК", Новый ОписаниеТипов("Строка",,Новый КвалификаторыСтроки(9)));
Результат.Колонки.Добавить("Наименование", Новый ОписаниеТипов("Строка",,Новый КвалификаторыСтроки(100)));
ЧтениеТекста = Новый ЧтениеТекста(ПутьКФайлу, "windows-1251");
Строка = ЧтениеТекста.ПрочитатьСтроку();
Пока Строка <> Неопределено Цикл
СведенияОБанке = СтрРазделить(Строка, Символы.Таб);
Строка = ЧтениеТекста.ПрочитатьСтроку();
Если СведенияОБанке.Количество() < 7 Тогда
Продолжить;
КонецЕсли;
Банк = Результат.Добавить();
Банк.БИК = СведенияОБанке[5];
Банк.Наименование = СведенияОБанке[3];
КонецЦикла;
Возврат Результат;
КонецФункции
Процедура ОтметитьНедействующиеБанки(ДействующиеБанки, НедействующиеБанки)
Запрос = Новый Запрос;
Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
Запрос.Текст =
"ВЫБРАТЬ
| НедействующиеБанки.БИК КАК БИК
|ПОМЕСТИТЬ НедействующиеБанки
|ИЗ
| &НедействующиеБанки КАК НедействующиеБанки
|ГДЕ
| НЕ НедействующиеБанки.БИК В (&БИК)
|
|ИНДЕКСИРОВАТЬ ПО
| БИК";
Запрос.УстановитьПараметр("НедействующиеБанки", НедействующиеБанки);
Запрос.УстановитьПараметр("БИК", ДействующиеБанки.ВыгрузитьКолонку("БИК"));
Запрос.Выполнить();
Запрос.Текст =
"ВЫБРАТЬ "ВЫБРАТЬ
| КлассификаторБанков.Ссылка КАК Ссылка, | КлассификаторБанков.Ссылка КАК Ссылка,
| КлассификаторБанков.Код КАК Код | КлассификаторБанков.Код КАК Код
|ИЗ |ИЗ
| НедействующиеБанки КАК НедействующиеБанки | Справочник.КлассификаторБанков КАК КлассификаторБанков
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.КлассификаторБанков КАК КлассификаторБанков
| ПО НедействующиеБанки.БИК = КлассификаторБанков.Код
|ГДЕ |ГДЕ
| КлассификаторБанков.ДеятельностьПрекращена = ЛОЖЬ | НЕ КлассификаторБанков.ДеятельностьПрекращена
| И НЕ КлассификаторБанков.Ссылка В (&АктуальныеЗаписи)
| |
|СГРУППИРОВАТЬ ПО |СГРУППИРОВАТЬ ПО
| КлассификаторБанков.Ссылка"; | КлассификаторБанков.Ссылка,
| КлассификаторБанков.Код";
ВыборкаБанков = Запрос.Выполнить().Выбрать(); Запрос = Новый Запрос(ТекстЗапроса);
Запрос.УстановитьПараметр("АктуальныеЗаписи", АктуальныеЗаписи);
Выборка = Запрос.Выполнить().Выбрать();
Пока ВыборкаБанков.Следующий() Цикл Пока Выборка.Следующий() Цикл
Блокировка = Новый БлокировкаДанных; Блокировка = Новый БлокировкаДанных;
ЭлементБлокировки = Блокировка.Добавить("Справочник.КлассификаторБанков"); ЭлементБлокировки = Блокировка.Добавить("Справочник.КлассификаторБанков");
ЭлементБлокировки.УстановитьЗначение("Ссылка", ВыборкаБанков.Ссылка); ЭлементБлокировки.УстановитьЗначение("Ссылка", Выборка.Ссылка);
НачатьТранзакцию(); НачатьТранзакцию();
Попытка Попытка
Блокировка.Заблокировать(); Блокировка.Заблокировать();
БанкОбъект = ВыборкаБанков.Ссылка.ПолучитьОбъект(); БанкОбъект = Выборка.Ссылка.ПолучитьОбъект();
Если БанкОбъект = Неопределено Или БанкОбъект.Код <> ВыборкаБанков.Код Тогда Если БанкОбъект = Неопределено Или БанкОбъект.Код <> Выборка.Код Тогда
ОтменитьТранзакцию(); ОтменитьТранзакцию();
Продолжить; Продолжить;
КонецЕсли; КонецЕсли;
@@ -423,10 +332,10 @@
ОтменитьТранзакцию(); ОтменитьТранзакцию();
ЗаписатьОшибкуВЖурналРегистрации( ЗаписатьОшибкуВЖурналРегистрации(
СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр( СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр(
"ru = 'Не удалось обновить сведения о банке ""%1"" (БИК %2): "ru = 'Не удалось обновить сведения об участнике расчетов ""%1"" (БИК %2):
|%3'"), |%3'"),
ВыборкаБанков.Ссылка, Выборка.Ссылка,
ВыборкаБанков.Код, Выборка.Код,
ПодробноеПредставлениеОшибки(ИнформацияОбОшибке()))); ПодробноеПредставлениеОшибки(ИнформацияОбОшибке())));
КонецПопытки; КонецПопытки;
КонецЦикла; КонецЦикла;
@@ -443,7 +352,7 @@
// Загружено - Число - количество новых записей классификатора. // Загружено - Число - количество новых записей классификатора.
// Обновлено - Число - количество обновленных записей классификатора. // Обновлено - Число - количество обновленных записей классификатора.
// //
Процедура ЗаписатьЭлементКлассификатораБанковРФ(СведенияОБанке) Функция ЗаписатьЭлементКлассификатораБанковРФ(СведенияОБанке)
НачатьТранзакцию(); НачатьТранзакцию();
Попытка Попытка
@@ -472,13 +381,17 @@
Регион.Наименование = СокрЛП(СведенияОБанке.Регион); Регион.Наименование = СокрЛП(СведенияОБанке.Регион);
КонецЕсли; КонецЕсли;
Если Регион.ПометкаУдаления Тогда
Регион.ПометкаУдаления = Ложь;
КонецЕсли;
Если Регион.Модифицированность() Тогда Если Регион.Модифицированность() Тогда
Регион.Записать(); Регион.Записать();
КонецЕсли; КонецЕсли;
БанкСсылка = Справочники.КлассификаторБанков.НайтиПоКоду(СведенияОБанке.БИК); БанкСсылка = НайтиБанк(СведенияОБанке.БИК, СведенияОБанке.КоррСчет);
Если БанкСсылка.Пустая() Тогда Если БанкСсылка = Неопределено Тогда
БанкОбъект = Справочники.КлассификаторБанков.СоздатьЭлемент(); БанкОбъект = Справочники.КлассификаторБанков.СоздатьЭлемент();
Иначе Иначе
БанкОбъект = БанкСсылка.ПолучитьОбъект(); БанкОбъект = БанкСсылка.ПолучитьОбъект();
@@ -500,16 +413,15 @@
Для Каждого Реквизит Из БанкОбъект.Метаданные().Реквизиты Цикл Для Каждого Реквизит Из БанкОбъект.Метаданные().Реквизиты Цикл
ИмяРеквизита = Реквизит.Имя; ИмяРеквизита = Реквизит.Имя;
Если СведенияОБанке.Свойство(ИмяРеквизита) И ТипЗнч(БанкОбъект[ИмяРеквизита]) = Тип("Строка") Тогда Если СведенияОБанке.Свойство(ИмяРеквизита) И ТипЗнч(БанкОбъект[ИмяРеквизита]) = Тип("Строка") Тогда
ОбновитьЗначениеРеквизита(БанкОбъект, ИмяРеквизита, СведенияОБанке[ИмяРеквизита]); ОбновитьЗначениеРеквизита(БанкОбъект, ИмяРеквизита, Реквизит.Тип.ПривестиЗначение(СведенияОБанке[ИмяРеквизита]));
КонецЕсли; КонецЕсли;
КонецЦикла; КонецЦикла;
ОбновитьЗначениеРеквизита(БанкОбъект, "Наименование", СведенияОБанке.Наименование); ОбновитьЗначениеРеквизита(БанкОбъект, "Наименование",
БанкОбъект.Метаданные().СтандартныеРеквизиты.Наименование.Тип.ПривестиЗначение(СведенияОБанке.Наименование));
Если Не ПустаяСтрока(Регион) Тогда
Если БанкОбъект.Родитель <> Регион.Ссылка Тогда Если БанкОбъект.Родитель <> Регион.Ссылка Тогда
БанкОбъект.Родитель = Регион.Ссылка; БанкОбъект.Родитель = Регион.Ссылка;
КонецЕсли;
КонецЕсли; КонецЕсли;
Если ОбщегоНазначения.ДоступноИспользованиеРазделенныхДанных() Тогда Если ОбщегоНазначения.ДоступноИспользованиеРазделенныхДанных() Тогда
@@ -520,7 +432,11 @@
КонецЕсли; КонецЕсли;
ОбновитьЗначениеРеквизита(БанкОбъект, "Страна", Страна); ОбновитьЗначениеРеквизита(БанкОбъект, "Страна", Страна);
КонецЕсли; КонецЕсли;
Если БанкОбъект.ПометкаУдаления Тогда
БанкОбъект.ПометкаУдаления = Ложь;
КонецЕсли;
Если БанкОбъект.Модифицированность() Тогда Если БанкОбъект.Модифицированность() Тогда
БанкОбъект.Записать(); БанкОбъект.Записать();
КонецЕсли; КонецЕсли;
@@ -531,9 +447,47 @@
ВызватьИсключение; ВызватьИсключение;
КонецПопытки; КонецПопытки;
КонецПроцедуры Возврат БанкОбъект.Ссылка;
КонецФункции
Процедура ОбновитьЗначениеРеквизита(СправочникОбъект, ИмяРеквизита, Значение) Функция НайтиБанк(БИК, КоррСчет)
НайденныеБанки = НайтиБанки(БИК, КоррСчет);
Если НайденныеБанки.Количество() > 0 Тогда
Возврат НайденныеБанки[0];
КонецЕсли;
Возврат Неопределено;
КонецФункции
Функция НайтиБанки(Знач БИК, Знач КоррСчет)
ТекстЗапроса =
"ВЫБРАТЬ
| КлассификаторБанков.Ссылка КАК Ссылка,
| КлассификаторБанков.Код КАК БИК,
| КлассификаторБанков.КоррСчет КАК КоррСчет
|ИЗ
| Справочник.КлассификаторБанков КАК КлассификаторБанков
|ГДЕ
| КлассификаторБанков.Код = &БИК
| И (КлассификаторБанков.КоррСчет = &КоррСчет
| ИЛИ КлассификаторБанков.КоррСчет = """")
|
|УПОРЯДОЧИТЬ ПО
| КоррСчет УБЫВ";
Запрос = Новый Запрос(ТекстЗапроса);
Запрос.УстановитьПараметр("БИК", БИК);
Запрос.УстановитьПараметр("КоррСчет", КоррСчет);
Возврат Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка");
КонецФункции
Процедура ОбновитьЗначениеРеквизита(СправочникОбъект, ИмяРеквизита, Знач Значение)
Если СправочникОбъект[ИмяРеквизита] <> Значение Тогда Если СправочникОбъект[ИмяРеквизита] <> Значение Тогда
Если ЗначениеЗаполнено(Значение) Тогда Если ЗначениеЗаполнено(Значение) Тогда
СправочникОбъект[ИмяРеквизита] = Значение; СправочникОбъект[ИмяРеквизита] = Значение;
@@ -614,7 +568,63 @@
Функция ИдентификаторКлассификатора() Функция ИдентификаторКлассификатора()
Возврат "Banks"; Возврат "BIC";
КонецФункции
Функция JSONВЗначение(Строка, ИменаСвойствСоЗначениямиДата = Неопределено)
ЧтениеJSON = Новый ЧтениеJSON;
ЧтениеJSON.УстановитьСтроку(Строка);
Возврат ПрочитатьJSON(ЧтениеJSON, Ложь, ИменаСвойствСоЗначениямиДата);
КонецФункции
Функция СведенияБИК(Знач БИК, Знач КоррСчет = Неопределено, ТолькоАктуальные = Истина) Экспорт
ТекстЗапроса =
"ВЫБРАТЬ
| СправочникБИК.Ссылка КАК Ссылка,
| СправочникБИК.Код КАК БИК,
| СправочникБИК.Наименование КАК Наименование,
| СправочникБИК.КоррСчет КАК КоррСчет,
| СправочникБИК.Город КАК Город,
| СправочникБИК.Адрес КАК Адрес,
| СправочникБИК.Телефоны КАК Телефоны,
| СправочникБИК.ИНН КАК ИНН,
| СправочникБИК.ДеятельностьПрекращена КАК ДеятельностьПрекращена,
| СправочникБИК.СВИФТБИК КАК СВИФТБИК,
| СправочникБИК.МеждународноеНаименование КАК МеждународноеНаименование,
| СправочникБИК.ГородМеждународный КАК ГородМеждународный,
| СправочникБИК.АдресМеждународный КАК АдресМеждународный,
| СправочникБИК.Страна КАК Страна,
| СправочникБИКРКЦ.Код КАК БИКРКЦ,
| СправочникБИКРКЦ.Наименование КАК НаименованиеРКЦ,
| СправочникБИКРКЦ.КоррСчет КАК КоррСчетРКЦ,
| СправочникБИКРКЦ.Город КАК ГородРКЦ,
| СправочникБИКРКЦ.Адрес КАК АдресРКЦ,
| СправочникБИКРКЦ.ИНН КАК ИННРКЦ
|ИЗ
| Справочник.КлассификаторБанков КАК СправочникБИК
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.КлассификаторБанков КАК СправочникБИКРКЦ
| ПО СправочникБИК.БИКРКЦ = СправочникБИКРКЦ.Ссылка
|ГДЕ
| СправочникБИК.Код = &БИК
| И ВЫБОР
| КОГДА &КоррСчет = НЕОПРЕДЕЛЕНО
| ТОГДА ИСТИНА
| ИНАЧЕ СправочникБИК.КоррСчет = &КоррСчет
| КОНЕЦ
| И ВЫБОР
| КОГДА &ТолькоАктуальные
| ТОГДА НЕ СправочникБИК.ДеятельностьПрекращена
| ИНАЧЕ ИСТИНА
| КОНЕЦ";
Запрос = Новый Запрос(ТекстЗапроса);
Запрос.УстановитьПараметр("БИК", БИК);
Запрос.УстановитьПараметр("КоррСчет", КоррСчет);
Запрос.УстановитьПараметр("ТолькоАктуальные", ТолькоАктуальные);
Возврат Запрос.Выполнить().Выгрузить();
КонецФункции КонецФункции
@@ -23,9 +23,9 @@
<name>ЗагрузкаКлассификатораБанков</name> <name>ЗагрузкаКлассификатораБанков</name>
<synonym> <synonym>
<key>ru</key> <key>ru</key>
<value>Загрузка классификатора банков РФ</value> <value>Загрузка Справочника БИК</value>
</synonym> </synonym>
<comment>Открывает помощник загрузки классификатора банков РФ</comment> <comment>Открывает помощник загрузки справочника БИК</comment>
<group>ActionsPanelTools</group> <group>ActionsPanelTools</group>
<representation>Auto</representation> <representation>Auto</representation>
</commands> </commands>
@@ -387,8 +387,12 @@
Процедура ПриоритетыВыполненияВыборПорядкаВыполненияПриИзменении(Элемент) Процедура ПриоритетыВыполненияВыборПорядкаВыполненияПриИзменении(Элемент)
ТекущиеДанные = Элементы.ПриоритетыВыполнения.ТекущиеДанные; ТекущиеДанные = Элементы.ПриоритетыВыполнения.ТекущиеДанные;
ТекущиеДанные.Порядок = ПорядокВыполнения[ТекущиеДанные.ВыборПорядкаВыполнения]; ТекущиеДанные.Порядок = "";
ТекущиеДанные.ЗаданПорядокВыполнения = ЗначениеЗаполнено(ТекущиеДанные.Порядок); ТекущиеДанные.ЗаданПорядокВыполнения = Ложь;
Если ЗначениеЗаполнено(ТекущиеДанные.ВыборПорядкаВыполнения) Тогда
ТекущиеДанные.Порядок = ПорядокВыполнения[ТекущиеДанные.ВыборПорядкаВыполнения];
ТекущиеДанные.ЗаданПорядокВыполнения = ЗначениеЗаполнено(ТекущиеДанные.Порядок);
КонецЕсли;
КонецПроцедуры КонецПроцедуры
@@ -4223,7 +4223,7 @@
&НаКлиенте &НаКлиенте
Процедура УстановитьБыстрыйОтбор(ИмяБыстрогоОтбора) Процедура УстановитьБыстрыйОтбор(ИмяБыстрогоОтбора)
Если ИмяБыстрогоОтбора = "НеобходимАнализ" Тогда Если ИмяБыстрогоОтбора = СтрЗаменить(ТРег(СтатусНеобходимАнализ), " ", "") Тогда
Отбор = Новый Структура("СтатусПроблемы", СтатусНеобходимАнализ); Отбор = Новый Структура("СтатусПроблемы", СтатусНеобходимАнализ);
ИначеЕсли ИмяБыстрогоОтбора = НСтр("ru = 'Отложенно'") Тогда ИначеЕсли ИмяБыстрогоОтбора = НСтр("ru = 'Отложенно'") Тогда
@@ -520,17 +520,73 @@
<items xsi:type="form:FormGroup"> <items xsi:type="form:FormGroup">
<name>ГруппаДействияНадЭлементамиСписка</name> <name>ГруппаДействияНадЭлементамиСписка</name>
<id>619</id> <id>619</id>
<items xsi:type="form:Button"> <items xsi:type="form:FormGroup">
<name>НеУдаленныеИзменить</name> <name>ГруппаОперацииСНеудаленными</name>
<id>621</id> <id>727</id>
<items xsi:type="form:Button">
<name>НеУдаленныеИзменить</name>
<id>621</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>НеУдаленныеИзменить1РасширеннаяПодсказка</name>
<id>622</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.НеУдаленныеИзменить</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<items xsi:type="form:Button">
<name>НеудаленныеУстановитьСнятьПометкуУдаления</name>
<id>729</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>НеудаленныеУстановитьСнятьПометкуУдаленияРасширеннаяПодсказка</name>
<id>730</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.УстановитьСнятьПометкуУдаления</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<visible>true</visible> <visible>true</visible>
<enabled>true</enabled> <enabled>true</enabled>
<userVisible> <userVisible>
<common>true</common> <common>true</common>
</userVisible> </userVisible>
<title>
<key>ru</key>
<value>Группа операции с неудаленными</value>
</title>
<extendedTooltip> <extendedTooltip>
<name>НеУдаленныеИзменить1РасширеннаяПодсказка</name> <name>ГруппаОперацииСНеудаленнымиРасширеннаяПодсказка</name>
<id>622</id> <id>728</id>
<type>Label</type> <type>Label</type>
<autoMaxWidth>true</autoMaxWidth> <autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight> <autoMaxHeight>true</autoMaxHeight>
@@ -538,13 +594,7 @@
<horizontalAlign>Left</horizontalAlign> <horizontalAlign>Left</horizontalAlign>
</extInfo> </extInfo>
</extendedTooltip> </extendedTooltip>
<commandName>Form.Command.НеУдаленныеИзменить</commandName> <extInfo xsi:type="form:ButtonGroupExtInfo"/>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items> </items>
<items xsi:type="form:FormGroup"> <items xsi:type="form:FormGroup">
<name>Действия</name> <name>Действия</name>
@@ -2173,6 +2223,32 @@
<placementArea>UserCmds</placementArea> <placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu> <representationInContextMenu>Auto</representationInContextMenu>
</items> </items>
<items xsi:type="form:Button">
<name>НеУдаленныеКонтекстноеМенюУстановитьСнятьПометкуУдаления</name>
<id>731</id>
<visible>true</visible>
<enabled>true</enabled>
<userVisible>
<common>true</common>
</userVisible>
<extendedTooltip>
<name>НеУдаленныеКонтекстноеМенюУстановитьСнятьПометкуУдаленияРасширеннаяПодсказка</name>
<id>732</id>
<type>Label</type>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<extInfo xsi:type="form:LabelDecorationExtInfo">
<horizontalAlign>Left</horizontalAlign>
</extInfo>
</extendedTooltip>
<commandName>Form.Command.УстановитьСнятьПометкуУдаления</commandName>
<buttonImportance>Normal</buttonImportance>
<representation>Auto</representation>
<autoMaxWidth>true</autoMaxWidth>
<autoMaxHeight>true</autoMaxHeight>
<placementArea>UserCmds</placementArea>
<representationInContextMenu>Auto</representationInContextMenu>
</items>
<autoFill>true</autoFill> <autoFill>true</autoFill>
</contextMenu> </contextMenu>
<representation>Tree</representation> <representation>Tree</representation>
@@ -4125,6 +4201,22 @@
<common>true</common> <common>true</common>
</edit> </edit>
</attributes> </attributes>
<attributes>
<name>ЭлементыБезПометкиУдаления</name>
<id>2</id>
<valueType>
<types>ValueList</types>
</valueType>
<view>
<common>true</common>
</view>
<edit>
<common>true</common>
</edit>
<extInfo xsi:type="form:ValueListExtInfo">
<itemValueType/>
</extInfo>
</attributes>
<formCommands> <formCommands>
<name>ДеревоПомеченныхНаУдалениеУстановитьВсе</name> <name>ДеревоПомеченныхНаУдалениеУстановитьВсе</name>
<title> <title>
@@ -4481,6 +4573,31 @@
<currentRowUse>Auto</currentRowUse> <currentRowUse>Auto</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse> <selectedRowsUse>Auto</selectedRowsUse>
</formCommands> </formCommands>
<formCommands>
<name>УстановитьСнятьПометкуУдаления</name>
<title>
<key>ru</key>
<value>Установить / снять пометку удаления</value>
</title>
<id>1</id>
<toolTip>
<key>ru</key>
<value>Установить снять пометку удаления</value>
</toolTip>
<use>
<common>true</common>
</use>
<picture xsi:type="core:PictureRef">
<picture>StdPicture.MarkToDelete</picture>
</picture>
<action xsi:type="form:FormCommandHandlerContainer">
<handler>
<name>УстановитьСнятьПометкуУдаления</name>
</handler>
</action>
<currentRowUse>Auto</currentRowUse>
<selectedRowsUse>Auto</selectedRowsUse>
</formCommands>
<parameters> <parameters>
<name>УдаляемыеОбъекты</name> <name>УдаляемыеОбъекты</name>
<valueType> <valueType>
@@ -178,12 +178,14 @@
|Вернуться к списку помеченных на удаление?'"), |Вернуться к списку помеченных на удаление?'"),
РежимДиалогаВопрос.ДаНет); РежимДиалогаВопрос.ДаНет);
Иначе Иначе
ОбновитьДеревоПомеченныхНаУдаление();
УстановитьСостояниеВыбораПомеченныхНаУдаление(); УстановитьСостояниеВыбораПомеченныхНаУдаление();
КонецЕсли; КонецЕсли;
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиенте
Процедура КВыборуОбъектовЗавершение(Результат, ДополнительныеПараметры) Экспорт Процедура КВыборуОбъектовЗавершение(Результат, ДополнительныеПараметры) Экспорт
ОбновитьДеревоПомеченныхНаУдаление();
Если Результат = КодВозвратаДиалога.Да Тогда Если Результат = КодВозвратаДиалога.Да Тогда
ТаблицаДействий.Очистить(); ТаблицаДействий.Очистить();
УстановитьСостояниеВыбораПомеченныхНаУдаление(); УстановитьСостояниеВыбораПомеченныхНаУдаление();
@@ -302,6 +304,7 @@
&НаКлиенте &НаКлиенте
Процедура ВыполнитьДействияИУдалить(Команда) Процедура ВыполнитьДействияИУдалить(Команда)
ОбновитьДеревоПомеченныхНаУдаление();
ДобавитьЗадание(ЗаданияФормы().ВыполнениеДополнительнойОбработки); ДобавитьЗадание(ЗаданияФормы().ВыполнениеДополнительнойОбработки);
ДобавитьЗадание(ЗаданияФормы().УдалениеПомеченных); ДобавитьЗадание(ЗаданияФормы().УдалениеПомеченных);
ЗапуститьЗадание(); ЗапуститьЗадание();
@@ -522,6 +525,122 @@
ВсеСтроки.Свернуть(ДанныеСтроки.ПолучитьИдентификатор()); ВсеСтроки.Свернуть(ДанныеСтроки.ПолучитьИдентификатор());
КонецЦикла; КонецЦикла;
КонецПроцедуры КонецПроцедуры
&НаКлиенте
Процедура УстановитьСнятьПометкуУдаления(Команда)
СсылкиДляОбработки = Новый Массив;
ПредставлениеПоследнегоВыбранного = "";
КоличествоЭлементовСоСнятойПометкой = 0;
Для каждого ВыделеннаяСтрока Из Элементы.НеУдаленные.ВыделенныеСтроки Цикл
Данные = Элементы.НеУдаленные.ДанныеСтроки(ВыделеннаяСтрока);
Если ТипЗнч(Данные.УдаляемыйСсылка) <> Тип("Строка") Тогда
СсылкиДляОбработки.Добавить(Данные.УдаляемыйСсылка);
ПредставлениеПоследнегоВыбранного = Данные.Представление;
КонецЕсли;
Если ЭлементыБезПометкиУдаления.НайтиПоЗначению(Данные.УдаляемыйСсылка) <> Неопределено Тогда
КоличествоЭлементовСоСнятойПометкой = КоличествоЭлементовСоСнятойПометкой + 1;
КонецЕсли;
КонецЦикла;
УстанавливатьПометку = СсылкиДляОбработки.Количество() = КоличествоЭлементовСоСнятойПометкой
И КоличествоЭлементовСоСнятойПометкой <> 0;
Обработчик = Новый ОписаниеОповещения("УстановитьСнятьПометкуУдаленияПродолжение", ЭтотОбъект, СсылкиДляОбработки);
Если СсылкиДляОбработки.Количество() = 1 Тогда
Если УстанавливатьПометку Тогда
ТекстВопроса = НСтр("ru = 'Пометить ""%1"" на удаление?'");
Иначе
ТекстВопроса = НСтр("ru = 'Снять с ""%1"" пометку на удаление?'");
КонецЕсли;
ТекстВопроса = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстВопроса, ПредставлениеПоследнегоВыбранного);
Иначе
Если УстанавливатьПометку Тогда
ТекстВопроса = НСтр("ru = 'Пометить выделенные объекты (%1) на удаление?'");
Иначе
ТекстВопроса = НСтр("ru = 'Снять с выделенных объектов (%1) пометку на удаление?'");
КонецЕсли;
ТекстВопроса = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ТекстВопроса, Формат(СсылкиДляОбработки.Количество(), "ЧН=0; ЧГ="));
КонецЕсли;
ПоказатьВопрос(Обработчик, ТекстВопроса, РежимДиалогаВопрос.ДаНет, 60, КодВозвратаДиалога.Нет);
КонецПроцедуры
&НаКлиенте
Процедура УстановитьСнятьПометкуУдаленияПродолжение(Результат, СсылкиДляОбработки) Экспорт
Если Результат = КодВозвратаДиалога.Нет Тогда
Возврат;
КонецЕсли;
Изменения = УстановитьСнятьПометкуУдаленияНаСервере(СсылкиДляОбработки);
Если ТипЗнч(Изменения) = Тип("Строка") Тогда
Ошибка = НСтр("ru='Произошла ошибка при изменении пометки удаления по причине:'")
+ Символы.ПС + Изменения;
ПоказатьПредупреждение(, Ошибка,,
НСтр("ru='Ошибка при изменении пометки удаления.'"));
Иначе
СтандартныеПодсистемыКлиент.ОповеститьФормыОбИзменении(Изменения);
КонецЕсли;
СтандартныеПодсистемыКлиент.РазвернутьУзлыДерева(ЭтотОбъект, "НеУдаленные", "*", Истина);
КонецПроцедуры
&НаСервере
Функция УстановитьСнятьПометкуУдаленияНаСервере(Ссылки)
Кеш = Новый Соответствие;
Результат = Новый Массив;
Попытка
Изменения = УдалениеПомеченныхОбъектовСлужебный.СнятьУстановитьПометкуУдаления(Ссылки);
Исключение
Ошибка = ИнформацияОбОшибке();
ЗаписьЖурналаРегистрации(
НСтр("ru='Удаление помеченных.Установка / снятие пометки удаления'", ОбщегоНазначения.КодОсновногоЯзыка()),
УровеньЖурналаРегистрации.Ошибка,,,
ПодробноеПредставлениеОшибки(Ошибка));
Возврат КраткоеПредставлениеОшибки(Ошибка);
КонецПопытки;
ДеревоНеудаленные = РеквизитФормыВЗначение("НеУдаленные");
Для каждого Изменение Из Изменения Цикл
ИнформацияОТипе = УдалениеПомеченныхОбъектовСлужебный.ИнформацияОТипе(
ТипЗнч(Изменение.Ссылка),
Кеш);
СтрокиМетаданных = ДеревоНеудаленные.Строки.НайтиСтроки(
Новый Структура("УдаляемыйСсылка", ВРег(ИнформацияОТипе.ПолноеИмя)))[0].Строки;
Данные = СтрокиМетаданных.НайтиСтроки(
Новый Структура("УдаляемыйСсылка", Изменение.Ссылка))[0];
Данные.НомерКартинки = УдалениеПомеченныхОбъектовСлужебный.НомерКартинки(
Изменение.Ссылка,
ИнформацияОТипе.Ссылочный,
ИнформацияОТипе.Вид,
?(Изменение.НовоеЗначениеПометкиУдаления = Истина, "Удален", Неопределено));
Результат.Добавить(Изменение.Ссылка);
Если НЕ Изменение.НовоеЗначениеПометкиУдаления Тогда
ЭлементыБезПометкиУдаления.Добавить(Изменение.Ссылка);
Иначе
ЭлементСписка = ЭлементыБезПометкиУдаления.НайтиПоЗначению(Изменение.Ссылка);
Если ЭлементСписка <> Неопределено Тогда
ЭлементыБезПометкиУдаления.Удалить(ЭлементСписка);
КонецЕсли;
КонецЕсли;
КонецЦикла;
ЗначениеВРеквизитФормы(ДеревоНеудаленные, "НеУдаленные");
Возврат СтандартныеПодсистемыСервер.ПодготовитьОповещениеФормОбИзменении(Результат);
КонецФункции
#КонецОбласти #КонецОбласти
#Область СлужебныеПроцедурыИФункции #Область СлужебныеПроцедурыИФункции
@@ -626,6 +745,47 @@
Возврат Ссылка.Метаданные().ПолноеИмя(); Возврат Ссылка.Метаданные().ПолноеИмя();
КонецФункции КонецФункции
&НаКлиенте
Процедура ОбновитьДеревоПомеченныхНаУдаление()
ОбновитьДеревоПомеченныхНаУдалениеНаСервере();
КонецПроцедуры
&НаСервере
Процедура ОбновитьДеревоПомеченныхНаУдалениеНаСервере()
ПомеченныеНаУдаление = РеквизитФормыВЗначение("ДеревоПомеченныхНаУдаление");
Для каждого ЭлементСписка Из ЭлементыБезПометкиУдаления Цикл
ВидМетаданных = ПомеченныеНаУдаление.Строки.НайтиСтроки(
Новый Структура("УдаляемыйСсылка", ВРег(ИмяМетаданных(ЭлементСписка.Значение))))[0];
УдаляемыеСтроки = ВидМетаданных.Строки.НайтиСтроки(
Новый Структура("УдаляемыйСсылка", ЭлементСписка.Значение));
Для каждого СтрокаДерева Из УдаляемыеСтроки Цикл
ВидМетаданных.Строки.Удалить(СтрокаДерева);
КонецЦикла;
Если ВидМетаданных.Строки.Количество() = 0 Тогда
ПомеченныеНаУдаление.Строки.Удалить(ВидМетаданных);
КонецЕсли;
КонецЦикла;
Для каждого УзелТипа Из ПомеченныеНаУдаление.Строки Цикл
ЭлементыУзла = УзелТипа.Строки;
УзелТипа.Пометка = ЗначениеПометкиЭлементов(ЭлементыУзла);
Если УзелТипа.Строки.Количество() > 0 Тогда
ОбъектМетаданныхУзла = УзелТипа.Строки[0].УдаляемыйСсылка.Метаданные();
УзелТипа.Представление = ОбщегоНазначения.ПредставлениеСписка(ОбъектМетаданныхУзла) + " (" + УзелТипа.Строки.Количество() + ")";
КонецЕсли;
КонецЦикла;
ЗначениеВРеквизитФормы(ПомеченныеНаУдаление, "ДеревоПомеченныхНаУдаление");
ЭлементыБезПометкиУдаления.Очистить();
КонецПроцедуры
#Область Настройки #Область Настройки
&НаСервере &НаСервере
@@ -1548,7 +1708,7 @@
КонецЕсли; КонецЕсли;
КонецПроцедуры КонецПроцедуры
&НаКлиенте &НаКлиентеНаСервереБезКонтекста
Функция ЗначениеПометкиЭлементов(ЭлементыРодителя) Функция ЗначениеПометкиЭлементов(ЭлементыРодителя)
ЕстьПомеченные = Ложь; ЕстьПомеченные = Ложь;
@@ -1642,8 +1642,8 @@
Процедура ОтметитьПрогрессОбходаКоллекции(ПараметрыВыполнения, ИмяКоллекции) Процедура ОтметитьПрогрессОбходаКоллекции(ПараметрыВыполнения, ИмяКоллекции)
ПараметрыВыполнения.Номер = ПараметрыВыполнения.Номер + 1; ПараметрыВыполнения.Номер = ПараметрыВыполнения.Номер + 1;
Процент = (ПараметрыВыполнения.КоличествоОбработанных) Процент = Окр(100 * (ПараметрыВыполнения.КоличествоОбработанных)
/ ПараметрыВыполнения.КоличествоУдаляемых; / ПараметрыВыполнения.КоличествоУдаляемых);
// Подготовка передаваемых параметров. // Подготовка передаваемых параметров.
Если ИмяКоллекции = "ПередПоискомПомеченныхНаУдаление" Тогда Если ИмяКоллекции = "ПередПоискомПомеченныхНаУдаление" Тогда
@@ -683,93 +683,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>Constant.СпособХраненияФайлов</name> <name>Constant.СпособХраненияФайлов</name>
<right> <right>
@@ -1082,6 +995,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>
@@ -3,6 +3,17 @@
<setForNewObjects>false</setForNewObjects> <setForNewObjects>false</setForNewObjects>
<setForAttributesByDefault>true</setForAttributesByDefault> <setForAttributesByDefault>true</setForAttributesByDefault>
<independentRightsOfChildObjects>false</independentRightsOfChildObjects> <independentRightsOfChildObjects>false</independentRightsOfChildObjects>
<object>
<name>CommonAttribute.НаименованиеЯзык1</name>
<right>
<name>View</name>
<value>true</value>
</right>
<right>
<name>Edit</name>
<value>true</value>
</right>
</object>
<object> <object>
<name>SessionParameter.ОбластьДанныхИспользование</name> <name>SessionParameter.ОбластьДанныхИспользование</name>
<right> <right>
@@ -463,6 +474,17 @@
<value>true</value> <value>true</value>
</right> </right>
</object> </object>
<object>
<name>CommonAttribute.НаименованиеЯзык2</name>
<right>
<name>View</name>
<value>true</value>
</right>
<right>
<name>Edit</name>
<value>true</value>
</right>
</object>
<object> <object>
<name>CommonForm.УстановкаВнешнейКомпонентыНевозможна</name> <name>CommonForm.УстановкаВнешнейКомпонентыНевозможна</name>
<right> <right>
@@ -1309,6 +1331,17 @@
<value>true</value> <value>true</value>
</right> </right>
</object> </object>
<object>
<name>CommonAttribute.КомментарийЯзык1</name>
<right>
<name>View</name>
<value>true</value>
</right>
<right>
<name>Edit</name>
<value>true</value>
</right>
</object>
<object> <object>
<name>CommonForm.ВыборДаты</name> <name>CommonForm.ВыборДаты</name>
<right> <right>
@@ -2143,6 +2176,17 @@
<value>true</value> <value>true</value>
</right> </right>
</object> </object>
<object>
<name>CommonAttribute.КомментарийЯзык2</name>
<right>
<name>View</name>
<value>true</value>
</right>
<right>
<name>Edit</name>
<value>true</value>
</right>
</object>
<object> <object>
<name>SessionParameter.ДатаОбновленияПовторноИспользуемыхЗначенийМРО</name> <name>SessionParameter.ДатаОбновленияПовторноИспользуемыхЗначенийМРО</name>
<right> <right>
@@ -965,45 +965,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>Catalog.ШаблоныСообщенийПрисоединенныеФайлы</name> <name>Catalog.ШаблоныСообщенийПрисоединенныеФайлы</name>
<right> <right>
@@ -1436,6 +1397,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>