2.
seermak
665
01.01.14 13:01
Сейчас в теме
() в стандартной конфигурации надо прописывать событие "Обработка оповещения"
Вот если совсем лень думать
&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
Если ИмяСобытия = "ЗаполненаТаблицаБанков" И ТипЗнч(Параметр) = Тип("Структура") Тогда
ОбработкаОповещения_Сервер(Параметр.ТД);
КонецЕсли;
КонецПроцедуры
&НаСервереБезКонтекста
Процедура ОбработкаОповещения_Сервер(ТаблЗнач)
Спр = Справочники.Банки;
Для каждого СтрокаТЗ Из ТаблЗнач Цикл
ПоискБИК = СокрЛП(СтрокаТЗ.БИК);
НайденнаяСсылка = Спр.НайтиПоРеквизиту("БИК",ПоискБИК);
Если НайденнаяСсылка = Спр.ПустаяСсылка() Тогда
//Если СтрокаТЗ.ПРЕКРАЩЕНА Тогда
//Продолжить;
//КонецЕсли;
НовыйЭлемент = Спр.СоздатьЭлемент();
НовыйЭлемент.БИК = ПоискБИК;
НовыйЭлемент.Наименование = СтрокаТЗ.КОРСЧЕТ;
НовыйЭлемент.Родитель = НайтиРодителя(СтрокаТЗ.РАЙОН,СтрокаТЗ.НП, Спр);
НовыйЭлемент.НаименованиеБанка = СтрокаТЗ.НАИМЕНОВАНИЕ;
НовыйЭлемент.Адрес = СтрокаТЗ.АДРЕС;
НовыйЭлемент.ТипБанка = СтрокаТЗ.ТИП_УЧАСТНИКА;
НовыйЭлемент.Телефон = СтрокаТЗ.ТЕЛЕФОН;
НовыйЭлемент.ПометкаУдаления = СтрокаТЗ.ПРЕКРАЩЕНА;
Попытка
НовыйЭлемент.Записать();
Исключение
КонецПопытки;
Иначе //найдено
ОбъектБанк = НайденнаяСсылка.ПолучитьОбъект();
Если СтрокаТЗ.ПРЕКРАЩЕНА Тогда
ОбъектБанк.УстановитьПометкуУдаления(Истина);
Иначе
ОбъектБанк.Адрес = СтрокаТЗ.АДРЕС;
ОбъектБанк.НаименованиеБанка = СтрокаТЗ.НАИМЕНОВАНИЕ;
ОбъектБанк.Родитель = НайтиРодителя(СтрокаТЗ.РАЙОН,СтрокаТЗ.НП, Спр);
ОбъектБанк.Телефон = СтрокаТЗ.ТЕЛЕФОН;
ОбъектБанк.ТипБанка = СтрокаТЗ.ТИП_УЧАСТНИКА;
КонецЕсли;
Попытка
ОбъектБанк.Записать();
Исключение
КонецПопытки;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
