3_1_3_362
This commit is contained in:
1 parent
9b28c828b7
commit
9d3addfc38
33 files changed
+1152
-439
No files matched your search
@@ -94,7 +94,7 @@
|
||||
|
||||
Список.Параметры.УстановитьЗначениеПараметра("ДоступныеОтчеты", ВариантыОтчетов.ОтчетыТекущегоПользователя());
|
||||
Список.Параметры.УстановитьЗначениеПараметра("ОтключенныеВариантыПрограммы", Новый Массив(ВариантыОтчетовПовтИсп.ОтключенныеВариантыПрограммы()));
|
||||
Список.Параметры.УстановитьЗначениеПараметра("ЭтоОсновнойЯзык", ТекущийЯзык() = Метаданные.ОсновнойЯзык);
|
||||
Список.Параметры.УстановитьЗначениеПараметра("ЭтоОсновнойЯзык", ВариантыОтчетов.ЭтоОсновнойЯзык());
|
||||
Список.Параметры.УстановитьЗначениеПараметра("КодЯзыка", ТекущийЯзык().КодЯзыка);
|
||||
Список.Параметры.УстановитьЗначениеПараметра("ВерсияРасширений", ПараметрыСеанса.ВерсияРасширений);
|
||||
|
||||
|
||||
@@ -537,6 +537,19 @@
|
||||
<common>true</common>
|
||||
</edit>
|
||||
</attributes>
|
||||
<attributes>
|
||||
<name>ВыбранныйБИК</name>
|
||||
<id>2</id>
|
||||
<valueType>
|
||||
<types>CatalogRef.КлассификаторБанков</types>
|
||||
</valueType>
|
||||
<view>
|
||||
<common>true</common>
|
||||
</view>
|
||||
<edit>
|
||||
<common>true</common>
|
||||
</edit>
|
||||
</attributes>
|
||||
<formCommands>
|
||||
<name>ЗагрузитьКлассификатор</name>
|
||||
<title>
|
||||
@@ -581,6 +594,13 @@
|
||||
<currentRowUse>DontUse</currentRowUse>
|
||||
<selectedRowsUse>Auto</selectedRowsUse>
|
||||
</formCommands>
|
||||
<parameters>
|
||||
<name>БИК</name>
|
||||
<valueType>
|
||||
<types>String</types>
|
||||
<stringQualifiers/>
|
||||
</valueType>
|
||||
</parameters>
|
||||
<commandInterface>
|
||||
<navigationPanel/>
|
||||
<commandBar/>
|
||||
|
||||
@@ -37,11 +37,27 @@
|
||||
|
||||
ПереключитьВидимостьНедействующихБанков(Ложь);
|
||||
|
||||
Если ЗначениеЗаполнено(Параметры.БИК) Тогда
|
||||
Элементы.Список.Отображение = ОтображениеТаблицы.ИерархическийСписок;
|
||||
СведенияБИК = РаботаСБанками.СведенияБИК(Параметры.БИК).ВыгрузитьКолонку("Ссылка");
|
||||
Если СведенияБИК.Количество() = 1 Тогда
|
||||
ВыбранныйБИК = СведенияБИК[0];
|
||||
ИначеЕсли СведенияБИК.Количество() > 1 Тогда
|
||||
Элементы.Список.Отображение = ОтображениеТаблицы.Список;
|
||||
ОбщегоНазначенияКлиентСервер.УстановитьЭлементОтбораДинамическогоСписка(Список, "Код", Параметры.БИК,,,Истина);
|
||||
КонецЕсли;
|
||||
КонецЕсли;
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
&НаКлиенте
|
||||
Процедура ПриОткрытии(Отказ)
|
||||
|
||||
Если ЗначениеЗаполнено(ВыбранныйБИК) Тогда
|
||||
Закрыть(ВыбранныйБИК);
|
||||
Возврат;
|
||||
КонецЕсли;
|
||||
|
||||
Если ПредлагатьЗагрузкуКлассификатора Тогда
|
||||
ПодключитьОбработчикОжидания("ПредложитьЗагрузкуКлассификатора", 1, Истина);
|
||||
КонецЕсли;
|
||||
|
||||
@@ -212,7 +212,7 @@
|
||||
<id>19</id>
|
||||
<title>
|
||||
<key>ru</key>
|
||||
<value>Деятельность банка прекращена</value>
|
||||
<value>Деятельность прекращена</value>
|
||||
</title>
|
||||
<visible>true</visible>
|
||||
<enabled>true</enabled>
|
||||
@@ -626,6 +626,47 @@
|
||||
<currentRowUse>Auto</currentRowUse>
|
||||
</extInfo>
|
||||
</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">
|
||||
<name>ГруппаРеквизитыДляМеждународныхПлатежей</name>
|
||||
<id>66</id>
|
||||
|
||||
@@ -10,7 +10,7 @@
|
||||
<name>КлассификаторБанков</name>
|
||||
<synonym>
|
||||
<key>ru</key>
|
||||
<value>Классификатор банков</value>
|
||||
<value>Справочник БИК</value>
|
||||
</synonym>
|
||||
<useStandardCommands>true</useStandardCommands>
|
||||
<inputByString>Catalog.КлассификаторБанков.StandardAttribute.Description</inputByString>
|
||||
@@ -131,12 +131,8 @@
|
||||
<fullTextSearch>Use</fullTextSearch>
|
||||
<objectPresentation>
|
||||
<key>ru</key>
|
||||
<value>Банк</value>
|
||||
<value>Участник расчетов</value>
|
||||
</objectPresentation>
|
||||
<listPresentation>
|
||||
<key>ru</key>
|
||||
<value>Банки</value>
|
||||
</listPresentation>
|
||||
<hierarchical>true</hierarchical>
|
||||
<levelCount>2</levelCount>
|
||||
<foldersOnTop>true</foldersOnTop>
|
||||
@@ -391,6 +387,40 @@
|
||||
<fullTextSearch>Use</fullTextSearch>
|
||||
<dataHistory>Use</dataHistory>
|
||||
</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">
|
||||
<name>ФормаВыбора</name>
|
||||
<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");
|
||||
Результат.OKATO = Формат(АдресРФ.ОКАТО, "ЧГ=0");
|
||||
|
||||
СубъектРФ = НаименованиеИСокращение(АдресРФ.СубъектРФ);
|
||||
СубъектРФ = НаименованиеИСокращение(АдаптацияНазванияРегиона(АдресРФ.СубъектРФ));
|
||||
Результат.Area = Строка(СубъектРФ.Наименование);
|
||||
Результат.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";
|
||||
КонецЕсли;
|
||||
|
||||
Если Язык = Константы.ДополнительныйЯзык2.Получить() Тогда
|
||||
Если Язык = Константы.ДополнительныйЯзык2.Получить() И ИспользуетсяВторойДополнительныйЯзык() Тогда
|
||||
Возврат "Язык2";
|
||||
КонецЕсли;
|
||||
|
||||
|
||||
@@ -41,7 +41,7 @@
|
||||
Процедура ПриДобавленииПодсистемы(Описание) Экспорт
|
||||
|
||||
Описание.Имя = "СтандартныеПодсистемы";
|
||||
Описание.Версия = "3.1.3.353";
|
||||
Описание.Версия = "3.1.3.362";
|
||||
Описание.ИдентификаторИнтернетПоддержки = "SSL";
|
||||
Описание.РежимВыполненияОтложенныхОбработчиков = "Параллельно";
|
||||
Описание.ПараллельноеОтложенноеОбновлениеСВерсии = "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
|
||||
///////////////////////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
#Область ПрограммныйИнтерфейс
|
||||
|
||||
// Открывает форму выбора Справочника БИК с отбором по переданному БИК.
|
||||
// Если в списке выбора единственная запись, то выбор в форме осуществляется автоматически.
|
||||
//
|
||||
// Параметры:
|
||||
// БИК - Строка - банковский идентификационный код.
|
||||
// Форма - ФормаКлиентскогоПриложения - форма, из которой открывается форма выбора.
|
||||
// ОбработчикОповещения - ОписаниеОповещения - процедура, в которую передается управление после осуществления выбора.
|
||||
// Если параметр не указан, то будет вызван стандартный обработчик выбора.
|
||||
// Параметры процедуры:
|
||||
// * БИК - СправочникСсылка.КлассификаторБанков - выбранный элемент.
|
||||
// * ДополнительныеПараметры - Произвольный - параметр, переданный в конструкторе описания оповещения.
|
||||
//
|
||||
Процедура ВыбратьИзСправочникаБИК(БИК, Форма, ОбработчикОповещения = Неопределено) Экспорт
|
||||
|
||||
Параметры = Новый Структура;
|
||||
Параметры.Вставить("БИК", БИК);
|
||||
ОткрытьФорму("Справочник.КлассификаторБанков.Форма.ФормаВыбора", Параметры, Форма, , , , ОбработчикОповещения);
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
#КонецОбласти
|
||||
|
||||
#Область СлужебныйПрограммныйИнтерфейс
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
@@ -526,7 +526,7 @@
|
||||
РеквизитыФайла = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(СсылкаНаВерсию, ИменаРеквизитов);
|
||||
ЗаполнитьЗначенияСвойств(СвойстваФайла, РеквизитыФайла);
|
||||
|
||||
Если РеквизитыФайла.Свойство("Владелец") Тогда
|
||||
Если РеквизитыФайла.Свойство("Владелец") И ЗначениеЗаполнено(РеквизитыФайла.Владелец) Тогда
|
||||
СвойстваФайла.ВладелецФайла = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(РеквизитыФайла.Владелец, "ВладелецФайла");
|
||||
КонецЕсли;
|
||||
|
||||
|
||||
@@ -6642,23 +6642,7 @@
|
||||
|
||||
Если Не ПустаяСтрока(СтрокаДереваФайлов.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 = СтрокаДереваФайлов.Href;
|
||||
СтараяСтрокаТаблицыФайлов.ToEtag = СтрокаДереваФайлов.Etag;
|
||||
@@ -6817,6 +6845,28 @@
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
Процедура ОпределитьТекущуюПапкуФайлов(Знач UID1C, ТекущаяПапкаФайлов)
|
||||
|
||||
Запрос = Новый Запрос;
|
||||
Запрос.Текст =
|
||||
"ВЫБРАТЬ ПЕРВЫЕ 1
|
||||
| СтатусыСинхронизацииФайловСОблачнымСервисом.Файл КАК Ссылка
|
||||
|ИЗ
|
||||
| РегистрСведений.СтатусыСинхронизацииФайловСОблачнымСервисом КАК СтатусыСинхронизацииФайловСОблачнымСервисом
|
||||
|ГДЕ
|
||||
| СтатусыСинхронизацииФайловСОблачнымСервисом.УникальныйИдентификатор1С = &УникальныйИдентификатор1С";
|
||||
|
||||
Запрос.УстановитьПараметр("УникальныйИдентификатор1С", Новый УникальныйИдентификатор(UID1C));
|
||||
РезультатЗапроса = Запрос.Выполнить();
|
||||
|
||||
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
|
||||
|
||||
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
|
||||
ТекущаяПапкаФайлов = ВыборкаДетальныеЗаписи;
|
||||
КонецЦикла;
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
Процедура ЗаполнитьДанныеИзОблачногоСервиса(СтрокиДереваФайлов, ТаблицаФайлов, ПараметрыСинхронизации, ОбъектВладелец = Неопределено)
|
||||
|
||||
Для каждого СтрокаДереваФайлов Из СтрокиДереваФайлов Цикл
|
||||
|
||||
@@ -376,6 +376,10 @@
|
||||
//
|
||||
Функция КонтрольныйКлючЛицевогоСчетаСоответствуетТребованиям(НомерСчета, БИК, ЭтоБанк = Истина)Экспорт
|
||||
|
||||
Если СтрНачинаетсяС(НомерСчета, "0") Тогда
|
||||
Возврат Истина;
|
||||
КонецЕсли;
|
||||
|
||||
НомерСчетаСтрока = СокрЛП(НомерСчета);
|
||||
|
||||
// При наличии алфавитного значения в 6-ом разряде лицевого
|
||||
|
||||
@@ -139,9 +139,14 @@
|
||||
|
||||
МетаданныеСвязанныхОбъектов = Метаданные.КритерииОтбора.СвязанныеДокументы;
|
||||
ТипыСвязанныхОбъектов = МетаданныеСвязанныхОбъектов.Тип.Типы();
|
||||
ТипПараметраКоманды = Метаданные.ОбщиеКоманды.СвязанныеДокументы.ТипПараметраКоманды;
|
||||
|
||||
Для Каждого ТипСвязанногоОбъекта Из ТипыСвязанныхОбъектов Цикл
|
||||
Индекс.Вставить(ТипСвязанногоОбъекта, Истина);
|
||||
|
||||
Если Не ТипПараметраКоманды.СодержитТип(ТипСвязанногоОбъекта) Тогда
|
||||
Индекс.Вставить(ТипСвязанногоОбъекта, Истина);
|
||||
КонецЕсли;
|
||||
|
||||
КонецЦикла;
|
||||
|
||||
Возврат Индекс;
|
||||
|
||||
@@ -31,6 +31,7 @@
|
||||
Зависимость = Зависимости.Добавить();
|
||||
Зависимость.РегламентноеЗадание = Метаданные.РегламентныеЗадания.УдалениеПомеченных;
|
||||
Зависимость.ФункциональнаяОпция = Метаданные.ФункциональныеОпции.ИспользоватьУдалениеПомеченныхОбъектов;
|
||||
Зависимость.ВключатьПриВключенииФункциональнойОпции = Ложь;
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
@@ -798,6 +799,63 @@
|
||||
|
||||
#Область СлужебныеПроцедурыИФункции
|
||||
|
||||
// Снимает с элементов пометку на удаление, если есть хотя бы один помеченный на удаление объект.
|
||||
// Если все объекты не помечены на удаление, то устанавливает пометку на удаление.
|
||||
//
|
||||
// Выбрасывает исключение, если произошла ошибка при установке пометки удаления.
|
||||
//
|
||||
// Параметры:
|
||||
// Ссылки - Массив из ЛюбаяСсылка
|
||||
//
|
||||
// Возвращаемое значение:
|
||||
// ТаблицаЗначений:
|
||||
// * Ссылка - ЛюбаяСсылка
|
||||
// * НовоеЗначениеПометкиУдаления - Булево
|
||||
//
|
||||
Функция СнятьУстановитьПометкуУдаления(Ссылки) Экспорт
|
||||
Результат = Новый ТаблицаЗначений;
|
||||
Результат.Колонки.Добавить("Ссылка");
|
||||
Результат.Колонки.Добавить("НовоеЗначениеПометкиУдаления");
|
||||
ИтоговоеЗначениеПометкиУдаления = Ложь;
|
||||
|
||||
ЗначенияПометкиУдаления = ОбщегоНазначения.ЗначениеРеквизитаОбъектов(Ссылки, "ПометкаУдаления");
|
||||
|
||||
КоличествоНепомеченныхНаУдаление = 0;
|
||||
Для каждого СсылкаЗначениеРеквизита Из ЗначенияПометкиУдаления Цикл
|
||||
Если СсылкаЗначениеРеквизита.Значение = Ложь Тогда
|
||||
КоличествоНепомеченныхНаУдаление = КоличествоНепомеченныхНаУдаление + 1;
|
||||
КонецЕсли;
|
||||
КонецЦикла;
|
||||
|
||||
Если КоличествоНепомеченныхНаУдаление = ЗначенияПометкиУдаления.Количество() Тогда
|
||||
ИтоговоеЗначениеПометкиУдаления = Истина;
|
||||
КонецЕсли;
|
||||
|
||||
НачатьТранзакцию();
|
||||
Попытка
|
||||
|
||||
Для каждого СсылкаЗначениеРеквизита Из ЗначенияПометкиУдаления Цикл
|
||||
|
||||
Если СсылкаЗначениеРеквизита.Значение <> ИтоговоеЗначениеПометкиУдаления Тогда
|
||||
СтрокаРезультата = Результат.Добавить();
|
||||
СтрокаРезультата.Ссылка = СсылкаЗначениеРеквизита.Ключ;
|
||||
|
||||
Объект = СсылкаЗначениеРеквизита.Ключ.ПолучитьОбъект();
|
||||
Объект.УстановитьПометкуУдаления(ИтоговоеЗначениеПометкиУдаления);
|
||||
СтрокаРезультата.НовоеЗначениеПометкиУдаления = ИтоговоеЗначениеПометкиУдаления;
|
||||
КонецЕсли;
|
||||
|
||||
КонецЦикла;
|
||||
ЗафиксироватьТранзакцию();
|
||||
|
||||
Исключение
|
||||
ОтменитьТранзакцию();
|
||||
ВызватьИсключение;
|
||||
КонецПопытки;
|
||||
|
||||
Возврат Результат;
|
||||
КонецФункции
|
||||
|
||||
#Область ПоискПомеченныхНаУдаление
|
||||
|
||||
// Параметры:
|
||||
@@ -1425,7 +1483,7 @@
|
||||
// Возвращаемое значение:
|
||||
// Число - номер картинки
|
||||
//
|
||||
Функция НомерКартинки(Знач СсылкаИлиДанные, Знач СсылочногоТипа, Знач Вид, Знач Статус)
|
||||
Функция НомерКартинки(Знач СсылкаИлиДанные, Знач СсылочногоТипа, Знач Вид, Знач Статус) Экспорт
|
||||
|
||||
Вид = ВРег(Вид);
|
||||
Если СсылочногоТипа Тогда
|
||||
|
||||
@@ -1,17 +1,17 @@
|
||||
<?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>
|
||||
<synonym>
|
||||
<key>ru</key>
|
||||
<value>Библиотека стандартных подсистем, редакция 3.1</value>
|
||||
</synonym>
|
||||
<containedObjects classId="9cd510cd-abfc-11d4-9434-004095e12fc7" objectId="1b522659-35a1-11eb-648e-0242ac110002"/>
|
||||
<containedObjects classId="9fcd25a0-4822-11d4-9414-008048da11f9" objectId="1b522680-35a1-11eb-648e-0242ac110002"/>
|
||||
<containedObjects classId="e3687481-0a87-462c-a166-9f34594f9bba" objectId="1b52268a-35a1-11eb-648e-0242ac110002"/>
|
||||
<containedObjects classId="9de14907-ec23-4a07-96f0-85521cb6b53b" objectId="1b52268b-35a1-11eb-648e-0242ac110002"/>
|
||||
<containedObjects classId="51f2d5d8-ea4d-4064-8892-82951750031e" objectId="1b52268c-35a1-11eb-648e-0242ac110002"/>
|
||||
<containedObjects classId="e68182ea-4237-4383-967f-90c1e3370bc7" objectId="1b522694-35a1-11eb-648e-0242ac110002"/>
|
||||
<containedObjects classId="fb282519-d103-4dd3-bc12-cb271d631dfc" objectId="590ea5dc-05dd-4137-9af6-a0faddd6d585"/>
|
||||
<containedObjects classId="9cd510cd-abfc-11d4-9434-004095e12fc7" objectId="27a833c1-3bc3-11eb-e39c-0242ac110002"/>
|
||||
<containedObjects classId="9fcd25a0-4822-11d4-9414-008048da11f9" objectId="27a833f2-3bc3-11eb-e39c-0242ac110002"/>
|
||||
<containedObjects classId="e3687481-0a87-462c-a166-9f34594f9bba" objectId="27a833f3-3bc3-11eb-e39c-0242ac110002"/>
|
||||
<containedObjects classId="9de14907-ec23-4a07-96f0-85521cb6b53b" objectId="27a833fc-3bc3-11eb-e39c-0242ac110002"/>
|
||||
<containedObjects classId="51f2d5d8-ea4d-4064-8892-82951750031e" objectId="27a833fd-3bc3-11eb-e39c-0242ac110002"/>
|
||||
<containedObjects classId="e68182ea-4237-4383-967f-90c1e3370bc7" objectId="27a83406-3bc3-11eb-e39c-0242ac110002"/>
|
||||
<containedObjects classId="fb282519-d103-4dd3-bc12-cb271d631dfc" objectId="bf81325a-2703-4c63-b6d7-ca37a3a56706"/>
|
||||
<defaultRunMode>ManagedApplication</defaultRunMode>
|
||||
<usePurposes>PersonalComputer</usePurposes>
|
||||
<scriptVariant>Russian</scriptVariant>
|
||||
@@ -19,7 +19,7 @@
|
||||
<defaultRoles>Role.АдминистраторСистемы</defaultRoles>
|
||||
<defaultRoles>Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</defaultRoles>
|
||||
<vendor>Фирма "1С"</vendor>
|
||||
<version>3.1.3.353</version>
|
||||
<version>3.1.3.362</version>
|
||||
<updateCatalogAddress>http://downloads.v8.1c.ru/tmplts/</updateCatalogAddress>
|
||||
<includeHelpInContents>true</includeHelpInContents>
|
||||
<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 @@
|
||||
КонецФункции
|
||||
|
||||
Процедура ПриПолученииДанныхКлассификатора(Параметры, СтандартнаяОбработка) Экспорт
|
||||
|
||||
СтандартнаяОбработка = Истина;
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
Процедура ЗагрузитьДанные(Параметры)
|
||||
|
||||
Регионы = Регионы(Параметры.ПутьКФайлуРегионов);
|
||||
|
||||
ЧтениеТекста = Новый ЧтениеТекста(Параметры.ПутьКФайлуБИК, "windows-1251");
|
||||
ЧтениеТекста = Новый ЧтениеТекста(Параметры.ПутьКФайлуБИК, КодировкаТекста.UTF8);
|
||||
ТекстКлассификатора = ЧтениеТекста.Прочитать();
|
||||
ЧтениеТекста.Закрыть();
|
||||
|
||||
Для Каждого Строка Из СтрРазделить(ТекстКлассификатора, Символы.ПС, Ложь) Цикл
|
||||
СведенияОБанке = СведенияОБанке(Строка, Регионы);
|
||||
Если СведенияОБанке = Неопределено Тогда
|
||||
Продолжить;
|
||||
КонецЕсли;
|
||||
СправочникБИК = JSONВЗначение(ТекстКлассификатора, "dateIn,dateOut");
|
||||
АктуальныеЗаписи = Новый Массив;
|
||||
|
||||
ЗаписатьЭлементКлассификатораБанковРФ(СведенияОБанке);
|
||||
Для Каждого Элемент Из СправочникБИК.bics Цикл
|
||||
ДанныеОрганизации = ДанныеОрганизации(Элемент);
|
||||
Если ЗначениеЗаполнено(ДанныеОрганизации.Счета) Тогда
|
||||
Для Каждого ОписаниеСчета Из ДанныеОрганизации.Счета Цикл
|
||||
ДанныеОрганизации.КоррСчет = ОписаниеСчета.КоррСчет;
|
||||
Если ОписаниеСчета.Свойство("БИКРКЦ") Тогда
|
||||
ДанныеОрганизации.БИКРКЦ = ОписаниеСчета.БИКРКЦ;
|
||||
КонецЕсли;
|
||||
АктуальныеЗаписи.Добавить(ЗаписатьЭлементКлассификатораБанковРФ(ДанныеОрганизации));
|
||||
КонецЦикла;
|
||||
Иначе
|
||||
ДанныеОрганизации.КоррСчет = "";
|
||||
ДанныеОрганизации.БИКРКЦ = Справочники.КлассификаторБанков.ПустаяСсылка();
|
||||
АктуальныеЗаписи.Добавить(ЗаписатьЭлементКлассификатораБанковРФ(ДанныеОрганизации));
|
||||
КонецЕсли;
|
||||
КонецЦикла;
|
||||
|
||||
// Пометка недействующих банков.
|
||||
ДействующиеБанки = ДействующиеБанкиИзФайла(Параметры.ПутьКФайлуБИК);
|
||||
НедействующиеБанки = НедействующиеБанкиИзФайла(Параметры.ПутьКФайлуНедействующихБанков);
|
||||
ОтметитьНедействующиеБанки(ДействующиеБанки, НедействующиеБанки);
|
||||
ОтметитьНеактуальныеЗаписи(АктуальныеЗаписи);
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
Функция ОпределитьТипГородаПоКоду(КодТипа)
|
||||
Функция ДанныеОрганизации(Знач Элемент)
|
||||
|
||||
Если КодТипа = "1" Тогда
|
||||
Возврат "Г."; // ГОРОД
|
||||
ИначеЕсли КодТипа = "2" Тогда
|
||||
Возврат "П."; // ПОСЕЛОК
|
||||
ИначеЕсли КодТипа = "3" Тогда
|
||||
Возврат "С."; // СЕЛО
|
||||
ИначеЕсли КодТипа = "4" Тогда
|
||||
Возврат "ПГТ"; // ПОСЕЛОК ГОРОДСКОГО ТИПА
|
||||
ИначеЕсли КодТипа = "5" Тогда
|
||||
Возврат "СТ-ЦА"; // СТАНИЦА
|
||||
ИначеЕсли КодТипа = "6" Тогда
|
||||
Возврат "АУЛ"; // АУЛ
|
||||
ИначеЕсли КодТипа = "7" Тогда
|
||||
Возврат "РП"; // РАБОЧИЙ ПОСЕЛОК
|
||||
Иначе
|
||||
Возврат "";
|
||||
ДанныеОрганизации = СтруктураДанныхОрганизации();
|
||||
ЗаполнитьЗначенияСвойств(ДанныеОрганизации, Элемент);
|
||||
ЗаполнитьЗначенияСвойств(ДанныеОрганизации, Элемент.participantInfo);
|
||||
|
||||
Если Элемент.Свойство("SWIFTs") Тогда
|
||||
ДанныеОрганизации.SWIFT = Элемент.SWIFTs[0].SWIFT;
|
||||
КонецЕсли;
|
||||
|
||||
КонецФункции
|
||||
|
||||
Функция Регионы(ПутьКФайлуРегионов)
|
||||
|
||||
СоответствиеРегионов = Новый Соответствие;
|
||||
РегионыТекстовыйДокумент = Новый ЧтениеТекста(ПутьКФайлуРегионов, "windows-1251");
|
||||
СтрокаРегионов = РегионыТекстовыйДокумент.ПрочитатьСтроку();
|
||||
|
||||
Пока СтрокаРегионов <> Неопределено Цикл
|
||||
|
||||
Строка = СтрокаРегионов;
|
||||
СтрокаРегионов = РегионыТекстовыйДокумент.ПрочитатьСтроку();
|
||||
|
||||
Если (Лев(Строка,2) = "//") Или (ПустаяСтрока(Строка)) Тогда
|
||||
Продолжить;
|
||||
КонецЕсли;
|
||||
|
||||
МассивПодстрок = СтрРазделить(Строка, Символы.Таб);
|
||||
|
||||
Если МассивПодстрок.Количество() < 2 Тогда
|
||||
Продолжить;
|
||||
КонецЕсли;
|
||||
|
||||
Символ1 = СокрЛП(МассивПодстрок[0]);
|
||||
Символ2 = СокрЛП(МассивПодстрок[1]);
|
||||
|
||||
// Дополним код региона до двух знаков.
|
||||
Если СтрДлина(Символ1) = 1 Тогда
|
||||
Символ1 = "0" + Символ1;
|
||||
КонецЕсли;
|
||||
|
||||
СоответствиеРегионов.Вставить(Символ1, Символ2);
|
||||
КонецЦикла;
|
||||
|
||||
Возврат СоответствиеРегионов;
|
||||
|
||||
КонецФункции
|
||||
|
||||
// Формирует структуру полей для банка.
|
||||
// Параметры:
|
||||
// Строка - Строка - строка из текстового файла классификатора.
|
||||
// Регионы - Соответствие - код региона и регион банка.
|
||||
// Возвращаемое значение:
|
||||
// Банк - Структура - реквизиты банка.
|
||||
//
|
||||
Функция СведенияОБанке(Знач Строка, Регионы)
|
||||
|
||||
Результат = Новый Структура;
|
||||
|
||||
СписокПолей = Новый Массив;
|
||||
СписокПолей.Добавить("ТипУчастникаРасчетов");
|
||||
СписокПолей.Добавить("ИмяНаселенногоПункта");
|
||||
СписокПолей.Добавить("ТипПункта");
|
||||
СписокПолей.Добавить("Наименование");
|
||||
СписокПолей.Добавить("ПризнакКода");
|
||||
СписокПолей.Добавить("БИК");
|
||||
СписокПолей.Добавить("КоррСчет");
|
||||
СписокПолей.Добавить("СВИФТБИК");
|
||||
СписокПолей.Добавить("ИНН");
|
||||
СписокПолей.Добавить("ОГРН");
|
||||
СписокПолей.Добавить("Адрес");
|
||||
СписокПолей.Добавить("Телефоны");
|
||||
СписокПолей.Добавить("МеждународноеНаименование");
|
||||
СписокПолей.Добавить("ГородМеждународный");
|
||||
СписокПолей.Добавить("АдресМеждународный");
|
||||
Результат.Вставить("ВнутреннийКодЦБ", ДанныеОрганизации.UID);
|
||||
Результат.Вставить("Наименование", ДанныеОрганизации.Name);
|
||||
Результат.Вставить("БИК", ДанныеОрганизации.BIC);
|
||||
Результат.Вставить("Счета", Новый Массив);
|
||||
Результат.Вставить("КоррСчет", "");
|
||||
Результат.Вставить("БИКРКЦ", Справочники.КлассификаторБанков.ПустаяСсылка());
|
||||
Результат.Вставить("СВИФТБИК", ДанныеОрганизации.SWIFT);
|
||||
Результат.Вставить("ИНН", ДанныеОрганизации.INN);
|
||||
Результат.Вставить("ОГРН", ДанныеОрганизации.OGRN);
|
||||
|
||||
КоллекцияЗначений = СтрРазделить(Строка, Символы.Таб, Истина);
|
||||
Для Индекс = 0 По СписокПолей.Количество() - 1 Цикл;
|
||||
Значение = "";
|
||||
Если Индекс <= КоллекцияЗначений.ВГраница() Тогда
|
||||
Значение = СокрЛП(КоллекцияЗначений[Индекс]);
|
||||
КонецЕсли;
|
||||
Результат.Вставить(СписокПолей[Индекс], Значение);
|
||||
КонецЦикла;
|
||||
Результат.Вставить("Город", СокрЛП(Строка(ДанныеОрганизации.LocalityType) + " " + ДанныеОрганизации.Locality));
|
||||
Результат.Вставить("Адрес", ДанныеОрганизации.Address);
|
||||
Результат.Вставить("Телефоны", ДанныеОрганизации.Phones);
|
||||
|
||||
Если СтрДлина(Результат.БИК) <> 9 Тогда
|
||||
Возврат Неопределено;
|
||||
КонецЕсли;
|
||||
Результат.Вставить("МеждународноеНаименование", ДанныеОрганизации.NameEnglish);
|
||||
Результат.Вставить("ГородМеждународный", СтроковыеФункции.СтрокаЛатиницей(Результат.Город));
|
||||
Результат.Вставить("АдресМеждународный", СтроковыеФункции.СтрокаЛатиницей(Результат.Адрес));
|
||||
|
||||
Результат.ТипПункта = ОпределитьТипГородаПоКоду(Результат.ТипПункта);
|
||||
Результат.Вставить("Город", СокрЛП(Результат.ТипПункта + " " + Результат.ИмяНаселенногоПункта));
|
||||
|
||||
КодРегиона = Сред(Результат.БИК, 3, 2);
|
||||
Регион = Регионы[КодРегиона];
|
||||
Если Регион = Неопределено Тогда
|
||||
КодРегиона = ДанныеОрганизации.RegionCode;
|
||||
Регион = ДанныеОрганизации.RegionName;
|
||||
Если Не ЗначениеЗаполнено(Регион) Тогда
|
||||
Регион = НСтр("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";
|
||||
|
||||
КонецФункции
|
||||
|
||||
Функция ИмяФайлаБИКСВИФТ(ИмяКаталога)
|
||||
|
||||
Возврат ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(ИмяКаталога) + "bnkseek_swift.txt";
|
||||
|
||||
КонецФункции
|
||||
|
||||
Функция ИмяФайлаНедействующихБанков(ИмяКаталога)
|
||||
|
||||
Возврат ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(ИмяКаталога) + "bnkdel.txt";
|
||||
Возврат ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(ИмяКаталога) + "bic-classifier.json";
|
||||
|
||||
КонецФункции
|
||||
|
||||
@@ -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'"),
|
||||
ВыборкаБанков.Ссылка,
|
||||
ВыборкаБанков.Код,
|
||||
Выборка.Ссылка,
|
||||
Выборка.Код,
|
||||
ПодробноеПредставлениеОшибки(ИнформацияОбОшибке())));
|
||||
КонецПопытки;
|
||||
КонецЦикла;
|
||||
@@ -443,7 +352,7 @@
|
||||
// Загружено - Число - количество новых записей классификатора.
|
||||
// Обновлено - Число - количество обновленных записей классификатора.
|
||||
//
|
||||
Процедура ЗаписатьЭлементКлассификатораБанковРФ(СведенияОБанке)
|
||||
Функция ЗаписатьЭлементКлассификатораБанковРФ(СведенияОБанке)
|
||||
|
||||
НачатьТранзакцию();
|
||||
Попытка
|
||||
@@ -472,13 +381,17 @@
|
||||
Регион.Наименование = СокрЛП(СведенияОБанке.Регион);
|
||||
КонецЕсли;
|
||||
|
||||
Если Регион.ПометкаУдаления Тогда
|
||||
Регион.ПометкаУдаления = Ложь;
|
||||
КонецЕсли;
|
||||
|
||||
Если Регион.Модифицированность() Тогда
|
||||
Регион.Записать();
|
||||
КонецЕсли;
|
||||
|
||||
БанкСсылка = Справочники.КлассификаторБанков.НайтиПоКоду(СведенияОБанке.БИК);
|
||||
БанкСсылка = НайтиБанк(СведенияОБанке.БИК, СведенияОБанке.КоррСчет);
|
||||
|
||||
Если БанкСсылка.Пустая() Тогда
|
||||
Если БанкСсылка = Неопределено Тогда
|
||||
БанкОбъект = Справочники.КлассификаторБанков.СоздатьЭлемент();
|
||||
Иначе
|
||||
БанкОбъект = БанкСсылка.ПолучитьОбъект();
|
||||
@@ -500,16 +413,15 @@
|
||||
Для Каждого Реквизит Из БанкОбъект.Метаданные().Реквизиты Цикл
|
||||
ИмяРеквизита = Реквизит.Имя;
|
||||
Если СведенияОБанке.Свойство(ИмяРеквизита) И ТипЗнч(БанкОбъект[ИмяРеквизита]) = Тип("Строка") Тогда
|
||||
ОбновитьЗначениеРеквизита(БанкОбъект, ИмяРеквизита, СведенияОБанке[ИмяРеквизита]);
|
||||
ОбновитьЗначениеРеквизита(БанкОбъект, ИмяРеквизита, Реквизит.Тип.ПривестиЗначение(СведенияОБанке[ИмяРеквизита]));
|
||||
КонецЕсли;
|
||||
КонецЦикла;
|
||||
|
||||
ОбновитьЗначениеРеквизита(БанкОбъект, "Наименование", СведенияОБанке.Наименование);
|
||||
ОбновитьЗначениеРеквизита(БанкОбъект, "Наименование",
|
||||
БанкОбъект.Метаданные().СтандартныеРеквизиты.Наименование.Тип.ПривестиЗначение(СведенияОБанке.Наименование));
|
||||
|
||||
Если Не ПустаяСтрока(Регион) Тогда
|
||||
Если БанкОбъект.Родитель <> Регион.Ссылка Тогда
|
||||
БанкОбъект.Родитель = Регион.Ссылка;
|
||||
КонецЕсли;
|
||||
Если БанкОбъект.Родитель <> Регион.Ссылка Тогда
|
||||
БанкОбъект.Родитель = Регион.Ссылка;
|
||||
КонецЕсли;
|
||||
|
||||
Если ОбщегоНазначения.ДоступноИспользованиеРазделенныхДанных() Тогда
|
||||
@@ -521,6 +433,10 @@
|
||||
ОбновитьЗначениеРеквизита(БанкОбъект, "Страна", Страна);
|
||||
КонецЕсли;
|
||||
|
||||
Если БанкОбъект.ПометкаУдаления Тогда
|
||||
БанкОбъект.ПометкаУдаления = Ложь;
|
||||
КонецЕсли;
|
||||
|
||||
Если БанкОбъект.Модифицированность() Тогда
|
||||
БанкОбъект.Записать();
|
||||
КонецЕсли;
|
||||
@@ -531,9 +447,47 @@
|
||||
ВызватьИсключение;
|
||||
КонецПопытки;
|
||||
|
||||
КонецПроцедуры
|
||||
Возврат БанкОбъект.Ссылка;
|
||||
|
||||
Процедура ОбновитьЗначениеРеквизита(СправочникОбъект, ИмяРеквизита, Значение)
|
||||
КонецФункции
|
||||
|
||||
Функция НайтиБанк(БИК, КоррСчет)
|
||||
|
||||
НайденныеБанки = НайтиБанки(БИК, КоррСчет);
|
||||
Если НайденныеБанки.Количество() > 0 Тогда
|
||||
Возврат НайденныеБанки[0];
|
||||
КонецЕсли;
|
||||
|
||||
Возврат Неопределено;
|
||||
|
||||
КонецФункции
|
||||
|
||||
Функция НайтиБанки(Знач БИК, Знач КоррСчет)
|
||||
|
||||
ТекстЗапроса =
|
||||
"ВЫБРАТЬ
|
||||
| КлассификаторБанков.Ссылка КАК Ссылка,
|
||||
| КлассификаторБанков.Код КАК БИК,
|
||||
| КлассификаторБанков.КоррСчет КАК КоррСчет
|
||||
|ИЗ
|
||||
| Справочник.КлассификаторБанков КАК КлассификаторБанков
|
||||
|ГДЕ
|
||||
| КлассификаторБанков.Код = &БИК
|
||||
| И (КлассификаторБанков.КоррСчет = &КоррСчет
|
||||
| ИЛИ КлассификаторБанков.КоррСчет = """")
|
||||
|
|
||||
|УПОРЯДОЧИТЬ ПО
|
||||
| КоррСчет УБЫВ";
|
||||
|
||||
Запрос = Новый Запрос(ТекстЗапроса);
|
||||
Запрос.УстановитьПараметр("БИК", БИК);
|
||||
Запрос.УстановитьПараметр("КоррСчет", КоррСчет);
|
||||
|
||||
Возврат Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка");
|
||||
|
||||
КонецФункции
|
||||
|
||||
Процедура ОбновитьЗначениеРеквизита(СправочникОбъект, ИмяРеквизита, Знач Значение)
|
||||
Если СправочникОбъект[ИмяРеквизита] <> Значение Тогда
|
||||
Если ЗначениеЗаполнено(Значение) Тогда
|
||||
СправочникОбъект[ИмяРеквизита] = Значение;
|
||||
@@ -614,7 +568,63 @@
|
||||
|
||||
Функция ИдентификаторКлассификатора()
|
||||
|
||||
Возврат "Banks";
|
||||
Возврат "BIC";
|
||||
|
||||
КонецФункции
|
||||
|
||||
Функция JSONВЗначение(Строка, ИменаСвойствСоЗначениямиДата = Неопределено)
|
||||
ЧтениеJSON = Новый ЧтениеJSON;
|
||||
ЧтениеJSON.УстановитьСтроку(Строка);
|
||||
Возврат ПрочитатьJSON(ЧтениеJSON, Ложь, ИменаСвойствСоЗначениямиДата);
|
||||
КонецФункции
|
||||
|
||||
Функция СведенияБИК(Знач БИК, Знач КоррСчет = Неопределено, ТолькоАктуальные = Истина) Экспорт
|
||||
|
||||
ТекстЗапроса =
|
||||
"ВЫБРАТЬ
|
||||
| СправочникБИК.Ссылка КАК Ссылка,
|
||||
| СправочникБИК.Код КАК БИК,
|
||||
| СправочникБИК.Наименование КАК Наименование,
|
||||
| СправочникБИК.КоррСчет КАК КоррСчет,
|
||||
| СправочникБИК.Город КАК Город,
|
||||
| СправочникБИК.Адрес КАК Адрес,
|
||||
| СправочникБИК.Телефоны КАК Телефоны,
|
||||
| СправочникБИК.ИНН КАК ИНН,
|
||||
| СправочникБИК.ДеятельностьПрекращена КАК ДеятельностьПрекращена,
|
||||
| СправочникБИК.СВИФТБИК КАК СВИФТБИК,
|
||||
| СправочникБИК.МеждународноеНаименование КАК МеждународноеНаименование,
|
||||
| СправочникБИК.ГородМеждународный КАК ГородМеждународный,
|
||||
| СправочникБИК.АдресМеждународный КАК АдресМеждународный,
|
||||
| СправочникБИК.Страна КАК Страна,
|
||||
| СправочникБИКРКЦ.Код КАК БИКРКЦ,
|
||||
| СправочникБИКРКЦ.Наименование КАК НаименованиеРКЦ,
|
||||
| СправочникБИКРКЦ.КоррСчет КАК КоррСчетРКЦ,
|
||||
| СправочникБИКРКЦ.Город КАК ГородРКЦ,
|
||||
| СправочникБИКРКЦ.Адрес КАК АдресРКЦ,
|
||||
| СправочникБИКРКЦ.ИНН КАК ИННРКЦ
|
||||
|ИЗ
|
||||
| Справочник.КлассификаторБанков КАК СправочникБИК
|
||||
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.КлассификаторБанков КАК СправочникБИКРКЦ
|
||||
| ПО СправочникБИК.БИКРКЦ = СправочникБИКРКЦ.Ссылка
|
||||
|ГДЕ
|
||||
| СправочникБИК.Код = &БИК
|
||||
| И ВЫБОР
|
||||
| КОГДА &КоррСчет = НЕОПРЕДЕЛЕНО
|
||||
| ТОГДА ИСТИНА
|
||||
| ИНАЧЕ СправочникБИК.КоррСчет = &КоррСчет
|
||||
| КОНЕЦ
|
||||
| И ВЫБОР
|
||||
| КОГДА &ТолькоАктуальные
|
||||
| ТОГДА НЕ СправочникБИК.ДеятельностьПрекращена
|
||||
| ИНАЧЕ ИСТИНА
|
||||
| КОНЕЦ";
|
||||
|
||||
Запрос = Новый Запрос(ТекстЗапроса);
|
||||
Запрос.УстановитьПараметр("БИК", БИК);
|
||||
Запрос.УстановитьПараметр("КоррСчет", КоррСчет);
|
||||
Запрос.УстановитьПараметр("ТолькоАктуальные", ТолькоАктуальные);
|
||||
|
||||
Возврат Запрос.Выполнить().Выгрузить();
|
||||
|
||||
КонецФункции
|
||||
|
||||
|
||||
+2
-2
@@ -23,9 +23,9 @@
|
||||
<name>ЗагрузкаКлассификатораБанков</name>
|
||||
<synonym>
|
||||
<key>ru</key>
|
||||
<value>Загрузка классификатора банков РФ</value>
|
||||
<value>Загрузка Справочника БИК</value>
|
||||
</synonym>
|
||||
<comment>Открывает помощник загрузки классификатора банков РФ</comment>
|
||||
<comment>Открывает помощник загрузки справочника БИК</comment>
|
||||
<group>ActionsPanelTools</group>
|
||||
<representation>Auto</representation>
|
||||
</commands>
|
||||
|
||||
+6
-2
@@ -387,8 +387,12 @@
|
||||
Процедура ПриоритетыВыполненияВыборПорядкаВыполненияПриИзменении(Элемент)
|
||||
|
||||
ТекущиеДанные = Элементы.ПриоритетыВыполнения.ТекущиеДанные;
|
||||
ТекущиеДанные.Порядок = ПорядокВыполнения[ТекущиеДанные.ВыборПорядкаВыполнения];
|
||||
ТекущиеДанные.ЗаданПорядокВыполнения = ЗначениеЗаполнено(ТекущиеДанные.Порядок);
|
||||
ТекущиеДанные.Порядок = "";
|
||||
ТекущиеДанные.ЗаданПорядокВыполнения = Ложь;
|
||||
Если ЗначениеЗаполнено(ТекущиеДанные.ВыборПорядкаВыполнения) Тогда
|
||||
ТекущиеДанные.Порядок = ПорядокВыполнения[ТекущиеДанные.ВыборПорядкаВыполнения];
|
||||
ТекущиеДанные.ЗаданПорядокВыполнения = ЗначениеЗаполнено(ТекущиеДанные.Порядок);
|
||||
КонецЕсли;
|
||||
|
||||
КонецПроцедуры
|
||||
|
||||
|
||||
+1
-1
@@ -4223,7 +4223,7 @@
|
||||
&НаКлиенте
|
||||
Процедура УстановитьБыстрыйОтбор(ИмяБыстрогоОтбора)
|
||||
|
||||
Если ИмяБыстрогоОтбора = "НеобходимАнализ" Тогда
|
||||
Если ИмяБыстрогоОтбора = СтрЗаменить(ТРег(СтатусНеобходимАнализ), " ", "") Тогда
|
||||
Отбор = Новый Структура("СтатусПроблемы", СтатусНеобходимАнализ);
|
||||
|
||||
ИначеЕсли ИмяБыстрогоОтбора = НСтр("ru = 'Отложенно'") Тогда
|
||||
|
||||
@@ -520,17 +520,73 @@
|
||||
<items xsi:type="form:FormGroup">
|
||||
<name>ГруппаДействияНадЭлементамиСписка</name>
|
||||
<id>619</id>
|
||||
<items xsi:type="form:Button">
|
||||
<name>НеУдаленныеИзменить</name>
|
||||
<id>621</id>
|
||||
<items xsi:type="form:FormGroup">
|
||||
<name>ГруппаОперацииСНеудаленными</name>
|
||||
<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>
|
||||
<enabled>true</enabled>
|
||||
<userVisible>
|
||||
<common>true</common>
|
||||
</userVisible>
|
||||
<title>
|
||||
<key>ru</key>
|
||||
<value>Группа операции с неудаленными</value>
|
||||
</title>
|
||||
<extendedTooltip>
|
||||
<name>НеУдаленныеИзменить1РасширеннаяПодсказка</name>
|
||||
<id>622</id>
|
||||
<name>ГруппаОперацииСНеудаленнымиРасширеннаяПодсказка</name>
|
||||
<id>728</id>
|
||||
<type>Label</type>
|
||||
<autoMaxWidth>true</autoMaxWidth>
|
||||
<autoMaxHeight>true</autoMaxHeight>
|
||||
@@ -538,13 +594,7 @@
|
||||
<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>
|
||||
<extInfo xsi:type="form:ButtonGroupExtInfo"/>
|
||||
</items>
|
||||
<items xsi:type="form:FormGroup">
|
||||
<name>Действия</name>
|
||||
@@ -2173,6 +2223,32 @@
|
||||
<placementArea>UserCmds</placementArea>
|
||||
<representationInContextMenu>Auto</representationInContextMenu>
|
||||
</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>
|
||||
</contextMenu>
|
||||
<representation>Tree</representation>
|
||||
@@ -4125,6 +4201,22 @@
|
||||
<common>true</common>
|
||||
</edit>
|
||||
</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>
|
||||
<name>ДеревоПомеченныхНаУдалениеУстановитьВсе</name>
|
||||
<title>
|
||||
@@ -4481,6 +4573,31 @@
|
||||
<currentRowUse>Auto</currentRowUse>
|
||||
<selectedRowsUse>Auto</selectedRowsUse>
|
||||
</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>
|
||||
<name>УдаляемыеОбъекты</name>
|
||||
<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;
|
||||
|
||||
Процент = (ПараметрыВыполнения.КоличествоОбработанных)
|
||||
/ ПараметрыВыполнения.КоличествоУдаляемых;
|
||||
Процент = Окр(100 * (ПараметрыВыполнения.КоличествоОбработанных)
|
||||
/ ПараметрыВыполнения.КоличествоУдаляемых);
|
||||
|
||||
// Подготовка передаваемых параметров.
|
||||
Если ИмяКоллекции = "ПередПоискомПомеченныхНаУдаление" Тогда
|
||||
|
||||
@@ -683,93 +683,6 @@
|
||||
<value>true</value>
|
||||
</right>
|
||||
</object>
|
||||
<object>
|
||||
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
|
||||
<right>
|
||||
<name>Administration</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>DataAdministration</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>UpdateDataBaseConfiguration</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>ExclusiveMode</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>ActiveUsers</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>EventLog</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>ThinClient</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>WebClient</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>ThickClient</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>ExternalConnection</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>Automation</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>TechnicalSpecialistMode</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>MainWindowModeNormal</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>MainWindowModeWorkplace</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>MainWindowModeEmbeddedWorkplace</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>MainWindowModeFullscreenWorkplace</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>MainWindowModeKiosk</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>AnalyticsSystemClient</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>SaveUserData</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>ConfigurationExtensionsAdministration</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>Output</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
</object>
|
||||
<object>
|
||||
<name>Constant.СпособХраненияФайлов</name>
|
||||
<right>
|
||||
@@ -1082,6 +995,93 @@
|
||||
<value>true</value>
|
||||
</right>
|
||||
</object>
|
||||
<object>
|
||||
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
|
||||
<right>
|
||||
<name>Administration</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>DataAdministration</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>UpdateDataBaseConfiguration</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>ExclusiveMode</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>ActiveUsers</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>EventLog</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>ThinClient</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>WebClient</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>ThickClient</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>ExternalConnection</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>Automation</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>TechnicalSpecialistMode</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>MainWindowModeNormal</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>MainWindowModeWorkplace</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>MainWindowModeEmbeddedWorkplace</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>MainWindowModeFullscreenWorkplace</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>MainWindowModeKiosk</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>AnalyticsSystemClient</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>SaveUserData</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>ConfigurationExtensionsAdministration</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>Output</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
</object>
|
||||
<object>
|
||||
<name>Constant.ИспользоватьСинхронизациюДанныхВМоделиСервиса</name>
|
||||
<right>
|
||||
|
||||
@@ -3,6 +3,17 @@
|
||||
<setForNewObjects>false</setForNewObjects>
|
||||
<setForAttributesByDefault>true</setForAttributesByDefault>
|
||||
<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>
|
||||
<name>SessionParameter.ОбластьДанныхИспользование</name>
|
||||
<right>
|
||||
@@ -463,6 +474,17 @@
|
||||
<value>true</value>
|
||||
</right>
|
||||
</object>
|
||||
<object>
|
||||
<name>CommonAttribute.НаименованиеЯзык2</name>
|
||||
<right>
|
||||
<name>View</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>Edit</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
</object>
|
||||
<object>
|
||||
<name>CommonForm.УстановкаВнешнейКомпонентыНевозможна</name>
|
||||
<right>
|
||||
@@ -1309,6 +1331,17 @@
|
||||
<value>true</value>
|
||||
</right>
|
||||
</object>
|
||||
<object>
|
||||
<name>CommonAttribute.КомментарийЯзык1</name>
|
||||
<right>
|
||||
<name>View</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>Edit</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
</object>
|
||||
<object>
|
||||
<name>CommonForm.ВыборДаты</name>
|
||||
<right>
|
||||
@@ -2143,6 +2176,17 @@
|
||||
<value>true</value>
|
||||
</right>
|
||||
</object>
|
||||
<object>
|
||||
<name>CommonAttribute.КомментарийЯзык2</name>
|
||||
<right>
|
||||
<name>View</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>Edit</name>
|
||||
<value>true</value>
|
||||
</right>
|
||||
</object>
|
||||
<object>
|
||||
<name>SessionParameter.ДатаОбновленияПовторноИспользуемыхЗначенийМРО</name>
|
||||
<right>
|
||||
|
||||
@@ -965,45 +965,6 @@
|
||||
<value>false</value>
|
||||
</right>
|
||||
</object>
|
||||
<object>
|
||||
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
|
||||
<right>
|
||||
<name>Administration</name>
|
||||
<value>false</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>UpdateDataBaseConfiguration</name>
|
||||
<value>false</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>ThickClient</name>
|
||||
<value>false</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>ExternalConnection</name>
|
||||
<value>false</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>Automation</name>
|
||||
<value>false</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>TechnicalSpecialistMode</name>
|
||||
<value>false</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>ConfigurationExtensionsAdministration</name>
|
||||
<value>false</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>InteractiveOpenExtDataProcessors</name>
|
||||
<value>false</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>InteractiveOpenExtReports</name>
|
||||
<value>false</value>
|
||||
</right>
|
||||
</object>
|
||||
<object>
|
||||
<name>Catalog.ШаблоныСообщенийПрисоединенныеФайлы</name>
|
||||
<right>
|
||||
@@ -1436,6 +1397,45 @@
|
||||
<value>false</value>
|
||||
</right>
|
||||
</object>
|
||||
<object>
|
||||
<name>Configuration.БиблиотекаСтандартныхПодсистем</name>
|
||||
<right>
|
||||
<name>Administration</name>
|
||||
<value>false</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>UpdateDataBaseConfiguration</name>
|
||||
<value>false</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>ThickClient</name>
|
||||
<value>false</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>ExternalConnection</name>
|
||||
<value>false</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>Automation</name>
|
||||
<value>false</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>TechnicalSpecialistMode</name>
|
||||
<value>false</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>ConfigurationExtensionsAdministration</name>
|
||||
<value>false</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>InteractiveOpenExtDataProcessors</name>
|
||||
<value>false</value>
|
||||
</right>
|
||||
<right>
|
||||
<name>InteractiveOpenExtReports</name>
|
||||
<value>false</value>
|
||||
</right>
|
||||
</object>
|
||||
<object>
|
||||
<name>Constant.ИспользоватьСинхронизациюДанныхВМоделиСервиса</name>
|
||||
<right>
|
||||
|
||||
Reference in new issue
Block a user