Процедура ПрименитьПараметрыУчета(ПараметрыУчета, ИзмененыПараметрыСубконто = Ложь, Отказ = Ложь) Экспорт

    

    ПризнакиУчета             = ПолучитьСтруктуруПризнаковУчетаСубконто();

    ДействияИзмененияСубконто = ПолучитьДействияИзмененияСубконто(ПараметрыУчета); // Иерархическая коллекция: на первом уровне действия с субконто на каждом из счетов, на втором - действия с призаками учета.

    

    // Сгруппируем изменения по счетам, так как записывать будем именно счет

    СчетаКИзменению = ОбщегоНазначения.ВыгрузитьКолонку(ДействияИзмененияСубконто, "Счет", Истина);

    ДействияИзмененияСубконто.Индексы.Добавить("Счет");

    Отбор = Новый Структура("Счет");

    

    НачатьТранзакцию();

 

    Для Каждого Счет Из СчетаКИзменению Цикл

        

        Отбор.Счет = Счет;

        ДействияДляСчета = ДействияИзмененияСубконто.НайтиСтроки(Отбор);

        

        Объект = Счет.ПолучитьОбъект();

        

        ПротоколИзменений = Новый Массив;

        

        Для Каждого Действие Из ДействияДляСчета Цикл

            

            // Действие: -1 удалить; 0 - не менять; 1 - установить

            

            // Действия с видом субконто

            Если Действие.Действие = 1 Тогда

                

                // Добавить субконто

                

                Если Счет = ПланыСчетов.Хозрасчетный.РасчетыСПерсоналомПоОплатеТруда Тогда

                    ВидыСубконтоСтрока = Объект.ВидыСубконто.Вставить(0);

                Иначе          

                    ВидыСубконтоСтрока = Объект.ВидыСубконто.Добавить();

                КонецЕсли;

            

                ВидыСубконтоСтрока.ВидСубконто = Действие.Субконто;

                

                ДобавитьВПротоколИзменениеСубконто(ПротоколИзменений, ВидыСубконтоСтрока.ВидСубконто, Действие.Действие);

                

            Иначе

                

                ВидыСубконтоСтрока = Объект.ВидыСубконто.Найти(Действие.Субконто, "ВидСубконто");

                Если ВидыСубконтоСтрока = Неопределено Тогда

                    Продолжить;

                КонецЕсли;

                

            КонецЕсли;

            

            Если Действие.Действие = -1 Тогда

                

                ДобавитьВПротоколИзменениеСубконто(ПротоколИзменений, ВидыСубконтоСтрока.ВидСубконто, Действие.Действие);

                

                Объект.ВидыСубконто.Удалить(ВидыСубконтоСтрока);

                

                Продолжить;

                

            КонецЕсли;

            

            // Действия с признаками учета

            

            Для Каждого ПризнакУчета Из ПризнакиУчета Цикл

                

                ДействиеСПризнаком = Действие[ПризнакУчета.Ключ];

 

                Если ДействиеСПризнаком = 1 Тогда

                    ЗначениеПризнака = Истина;

                ИначеЕсли ДействиеСПризнаком = -1 Тогда

                    ЗначениеПризнака = Ложь;

                Иначе

                    Продолжить;

                КонецЕсли;

                

                Если ВидыСубконтоСтрока[ПризнакУчета.Ключ] = ЗначениеПризнака Тогда

                    Продолжить;

                КонецЕсли;

                

                ВидыСубконтоСтрока[ПризнакУчета.Ключ] = ЗначениеПризнака;

                

                ДобавитьВПротоколИзменениеПризнакаУчета(

                    ПротоколИзменений,

                    ВидыСубконтоСтрока.ВидСубконто,

                    ПризнакУчета.Значение,

                    ДействиеСПризнаком);

                

            КонецЦикла; // По признакам учета

            

        КонецЦикла; // По ДействияДляСчета

        

        Если Не Объект.Модифицированность() Тогда

            Продолжить;

        КонецЕсли;

        

        ПротоколИзмененийСтрокой = СтрСоединить(ПротоколИзменений, Символы.ПС);

        

        Попытка

            Объект.Записать();//ВОТ ТУТ ВАЛИТСЯ

        Исключение

            ОписаниеОшибки = ИнформацияОбОшибке();

            ОтменитьТранзакцию();

            

            Отказ = Истина;

            

            ШаблонТекста = НСтр("ru = 'Ошибка при записи счета [КодСчета]:

                |[ОписаниеОшибки]

                |Ошибка произошла при попытке выполнить следующие изменения:

                |[ПротоколИзменений]'");

                

            ПараметрыТекста = Новый Структура;

            ПараметрыТекста.Вставить("КодСчета",          Объект.Код);

            ПараметрыТекста.Вставить("ПротоколИзменений", ПротоколИзмененийСтрокой);

            

            // В журнал регистрации выведем подробную информацию

            ПараметрыТекста.Вставить("ОписаниеОшибки", ПодробноеПредставлениеОшибки(ОписаниеОшибки));

            

            Текст = СтроковыеФункцииКлиентСервер.ВставитьПараметрыВСтроку(ШаблонТекста, ПараметрыТекста);

            ЗаписьЖурналаРегистрации(

                СобытиеЖурналаРегистрацииПараметрыУчета(),

                УровеньЖурналаРегистрации.Ошибка,

                Счет.Метаданные(),

                Счет, // Данные

                Текст);

                

            // Пользователю выведем краткое сообщение

            ШаблонТекста = НСтр("ru = 'Ошибка при записи счета [КодСчета]

                |Подробности см. в Журнале регистрации.'");

            Текст = СтроковыеФункцииКлиентСервер.ВставитьПараметрыВСтроку(ШаблонТекста, ПараметрыТекста);

            ОбщегоНазначенияКлиентСервер.СообщитьПользователю(Текст);

            

            Возврат;

            

        КонецПопытки;

        

        // Запишем в журнал регистрации подробную информацию об изменениях

        ЗаписьЖурналаРегистрации(

            СобытиеЖурналаРегистрацииПараметрыУчета(),

            УровеньЖурналаРегистрации.Информация,

            Счет.Метаданные(),

            Счет,

            ПротоколИзмененийСтрокой,

            РежимТранзакцииЗаписиЖурналаРегистрации.Транзакционная);

        

    КонецЦикла; // По СчетаКИзменению

 

    БухгалтерскийУчетПереопределяемый.УстановитьПараметрыУчетаРасчетовПоЗарплате(?(ПараметрыУчета.ВестиУчетПоРаботникам = 1, Ложь, Истина));

    БухгалтерскийУчетПереопределяемый.УстановитьУчетЗарплатыИКадровВоВнешнейПрограмме(?(ПараметрыУчета.УчетЗарплатыИКадровВоВнешнейПрограмме = 1, Истина, Ложь));

    БухгалтерскийУчетПереопределяемый.УстановитьНастройкиКадровогоУчета(ПараметрыУчета.КадровыйУчет, ?(ПараметрыУчета.УчетЗарплатыИКадровВоВнешнейПрограмме = 0, Истина, Ложь));

    

    ЗафиксироватьТранзакцию();

    ОбновитьПовторноИспользуемыеЗначения();

 

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