Откат транзакции идет очень медленно

(4) в (0) наврал
основной набор записывается набором
но есть небольшие таблицы которые пишу менеджерами

э-эх


Процедура ОбработкаПроведения(Отказ, РежимПроведения)

    

    //Если ВидДокумента = Перечисления.ВидыДокументовИзмененияСписковЗастрахованных.ОбновлениеСписков Тогда

    

    //Документы.СпискиПолисов.СопоставитьЗастрахованныхИПолисы(Ссылка);

    

    Если ЗначениеЗаполнено(ПерерассчитываемыйДокумент) Тогда

        

        НаборЗаписей = РегистрыСведений.НомерникПолисов.СоздатьНаборЗаписей();

        

        НаборЗаписей.Отбор.Регистратор.Установить(ПерерассчитываемыйДокумент);

        

        //НаборЗаписей.Прочитать();

        

        НаборЗаписей.Записать();

        

    КонецЕсли;

    

    Если ВидДокумента = Перечисления.ВидыДокументовИзмененияСписковЗастрахованных.УдалениеСписков Тогда

        Возврат;

    КонецЕсли;

    

    //Если Ложь Тогда

        

        Запрос = Новый Запрос;

        

        Запрос.Текст =

        "ВЫБРАТЬ

        |    ЗагрузкаНомерникаСоответствиеМестРаботы.МестоРаботыСсылка,

        |    ЗагрузкаНомерникаСоответствиеМестРаботы.Ссылка.СтраховаяОрганизация КАК Страховщик,

        |    ЗагрузкаНомерникаСоответствиеМестРаботы.Ссылка.Договор,

        |    ЗагрузкаНомерникаСоответствиеМестРаботы.Ссылка.ВидСтрахования,

        |    НАЧАЛОПЕРИОДА(ЗагрузкаНомерникаСоответствиеМестРаботы.Ссылка.Дата, ДЕНЬ) КАК Дата,

        |    ЗагрузкаНомерникаСоответствиеМестРаботы.Ссылка

        |ПОМЕСТИТЬ втМестаРаботы

        |ИЗ

        |    Документ.СпискиПолисов.СоответствиеМестРаботы КАК ЗагрузкаНомерникаСоответствиеМестРаботы

        |ГДЕ

        |    ЗагрузкаНомерникаСоответствиеМестРаботы.Ссылка = &Ссылка

        |;

        |

        |////////////////////////////////////////////////////////////////////////////////

        |ВЫБРАТЬ

        |    НомерникПолисов.Регистратор,

        |    ВЫБОР КОГДА НомерникПолисов.Период < втМестаРаботы.Дата ТОГДА Истина ИНАЧЕ ЛОЖЬ КОНЕЦ КАК ПредыдущаяЗапись,

        |    НомерникПолисов.МестоРаботыСсылка,

        |    НомерникПолисов.Договор,

        |    НомерникПолисов.Страховщик,

        |    НомерникПолисов.ВидСтрахования

        |ИЗ

        |    втМестаРаботы КАК втМестаРаботы

        |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.НомерникПолисов КАК НомерникПолисов

        |        ПО втМестаРаботы.МестоРаботыСсылка = НомерникПолисов.МестоРаботыСсылка

        |            И втМестаРаботы.Страховщик = НомерникПолисов.Страховщик

        |            И втМестаРаботы.Договор = НомерникПолисов.Договор

        |            И втМестаРаботы.ВидСтрахования = НомерникПолисов.ВидСтрахования

        |            И втМестаРаботы.Ссылка <> НомерникПолисов.Регистратор";

        

        Запрос.УстановитьПараметр("Ссылка", Ссылка);

        

        ВыборкаМестРаботы = Запрос.Выполнить().Выбрать();

        

        МассивМестРаботыПоКоторымНеНужныДвижения = Новый Массив;

        

        Пока ВыборкаМестРаботы.Следующий() Цикл

            

            Если ВыборкаМестРаботы.Регистратор = Null Тогда //Записей похожих нет

                Продолжить;

            КонецЕсли;

            

            Если ВыборкаМестРаботы.ПредыдущаяЗапись Тогда

                

                НаборЗаписей = РегистрыСведений.НомерникПолисов.СоздатьНаборЗаписей();

                

                НаборЗаписей.Отбор.Регистратор.Установить(ВыборкаМестРаботы.Регистратор);

                

                НаборЗаписей.Прочитать();

                

                ТаблицаДвижений = НаборЗаписей.Выгрузить();

                

                МассивСтрокКУдалению = ТаблицаДвижений.НайтиСтроки(Новый Структура("МестоРаботыСсылка",ВыборкаМестРаботы.МестоРаботыСсылка));

                

                Для Каждого СтрокаТЧ Из МассивСтрокКУдалению Цикл

                    ТаблицаДвижений.Удалить(СтрокаТЧ);

                КонецЦикла;

                

                НаборЗаписей.Загрузить(ТаблицаДвижений);

                

                НаборЗаписей.Записать();

                

            Иначе

                МассивМестРаботыПоКоторымНеНужныДвижения.Добавить(ВыборкаМестРаботы.МестоРаботыСсылка);

            КонецЕсли;

            

        КонецЦикла;

        

    //КонецЕсли;    

        

    //КонецЕсли;

     

    Для Каждого СтрокаТЧ Из СписокЗастрахованых Цикл

        

        МестоРаботыСсылка = СоответствиеМестРаботы.Найти(СтрокаТЧ.МестоРаботы).МестоРаботыСсылка;

        

        ПрограммаСтрахованияСсылка = СоответствиеПрограммСтрахования.Найти(СтрокаТЧ.ПрограммаСтрахования);

        

        Если ПрограммаСтрахованияСсылка <> Неопределено Тогда

            ПрограммаСтрахованияСсылка = ПрограммаСтрахованияСсылка.ПрограммаСтрахованияСсылка;

        КонецЕсли;

        

        Если Не ЗначениеЗаполнено(ПрограммаСтрахованияСсылка) И ТипЗнч(ИдентификаторСписка) = Тип("СправочникСсылка.СпискиЗастрахованных") Тогда

            ПрограммаСтрахованияСсылка = ИдентификаторСписка.ПрограммаСтрахования;    

        КонецЕсли;

        

        Если ВидДокумента = Перечисления.ВидыДокументовИзмененияСписковЗастрахованных.ОбновлениеСписков И МассивМестРаботыПоКоторымНеНужныДвижения.Найти(МестоРаботыСсылка) <> Неопределено Тогда

            Продолжить;

        КонецЕсли;

        

        ЗаписьНомерника = Движения.НомерникПолисов.Добавить();

        

        //Измерения

        ЗаписьНомерника.Период                 = НачалоДня(Дата);

        ЗаписьНомерника.ВидСтрахования        = ВидСтрахования;

        ЗаписьНомерника.Страховщик             = СтраховаяОрганизация;

        ЗаписьНомерника.МестоРаботыСсылка     = МестоРаботыСсылка;

        ЗаписьНомерника.Договор             = Договор;

        ЗаписьНомерника.НомерПолиса         = СтрокаТЧ.Номер;

        ЗаписьНомерника.СерияПолиса         = СтрокаТЧ.Серия;

        

        //Ресурсы

        ЗаписьНомерника.Фамилия         = СтрокаТЧ.Фамилия;

        ЗаписьНомерника.Имя             = СтрокаТЧ.Имя;

        ЗаписьНомерника.Отчество         = СтрокаТЧ.Отчество;

        ЗаписьНомерника.ДатаРождения     = СтрокаТЧ.ДатаРождения;

        ЗаписьНомерника.ДатаНачала         = СтрокаТЧ.ДатаНачала;

        ЗаписьНомерника.ДатаОкончания     = СтрокаТЧ.ДатаОкончания;

        ЗаписьНомерника.СНИЛС             = СтрокаТЧ.СНИЛС;

        ЗаписьНомерника.МестоРаботы     = СтрокаТЧ.МестоРаботы;

        

        ЗаписьНомерника.ПрограммаСтрахования = ПрограммаСтрахованияСсылка;

        

    КонецЦикла;

    

    Движения.НомерникПолисов.Записывать = Истина;

    

    ЗаписатьСоответсвиеСтроковыхПредставленийСМО();

    

КонецПроцедуры



Процедура ЗаписатьСоответсвиеСтроковыхПредставленийСМО() Экспорт

    

    Для Каждого СтрокаТЧ Из СоответствиеМестРаботы Цикл

        

        Если Не ЗначениеЗаполнено(СтрокаТЧ.МестоРаботыСсылка) Тогда

            Продолжить;

        КонецЕсли;

        

        Хеш = Новый ХешированиеДанных(ХешФункция.MD5);

        

        Хеш.Добавить(СтрокаТЧ.МестоРаботы);

        

        Запись = РегистрыСведений.СоответствиеСтроковыхПредставленийСМО.СоздатьМенеджерЗаписи();

        

        Запись.СтраховаяОрганизация = СтраховаяОрганизация;

        Запись.ХэшСтроки = Хеш.ХешСумма;

        

        Запись.МестоРаботы = СтрокаТЧ.МестоРаботыСсылка;

        

        Запись.Записать();

        

    КонецЦикла;

    

    Для Каждого СтрокаТЧ Из СоответствиеПрограммСтрахования Цикл

        

        Если Не ЗначениеЗаполнено(СтрокаТЧ.ПрограммаСтрахованияСсылка) Тогда

            Продолжить;

        КонецЕсли;

        

        Хеш = Новый ХешированиеДанных(ХешФункция.MD5);

        

        Хеш.Добавить(СтрокаТЧ.ПрограммаСтрахования);

        

        Запись = РегистрыСведений.СоответствиеСтроковыхПредставленийСМО.СоздатьМенеджерЗаписи();

        

        Запись.СтраховаяОрганизация = СтраховаяОрганизация;

        Запись.ХэшСтроки = Хеш.ХешСумма;

        

        Запись.ПрограммаСтрахования = СтрокаТЧ.ПрограммаСтрахованияСсылка;

        

        Запись.Записать();

        

    КонецЦикла;

    

КонецПроцедуры