Ошибка при обмене УТ 11 БП 3.0

Подскажите, пожалуйста, при обмене(правила не типовые) УТ 11 БП 3.0 следующая ошибка:

Ошибка в обработчике события ПослеЗагрузкиОбъекта
    ИмяПКО                 =  СБДС_ПеречислениеНалога
    ТипОбъекта             =  Списание с расчетного счета
    Объект                 =  Списание с расчетного счета 00ЦБ-000420 от 10.04.2015 23:59:59
    Обработчик             =  ПослеЗагрузкиОбъекта
    ОписаниеОшибки         =  Получение элемента по индексу для значения не определено
    ПозицияМодуля          =  (8)
    КСообщенияОбОшибках    =  21

Посмотрела через конвертацию данных в обработчике события ПослеЗагрузкиОбъекта, не поняла в чем причина. Текст модуля следующий:

Выполнить(Алгоритмы.ОбработатьЗаписьДокументаПослеЗагрузки);

Если РежимЗагрузкиДанныхВИнформационнуюБазу() Тогда

    СчУчета = Неопределено;
    Выполнить(Алгоритмы.ЗаполнитьСчетУчетаБанка);

    КодБК = ПараметрыОбъекта["КодБК"];

    Если ЗначениеЗаполнено(КодБК) Тогда
        Объект.Налог                          = Справочники.ВидыНалоговИПлатежейВБюджет.НалогПоКБК(КодБК);
        Объект.СчетУчетаРасчетовСКонтрагентом = Справочники.ВидыНалоговИПлатежейВБюджет.СчетУчета(Объект.Налог, Объект.Дата);
        ВидНалоговогоОбязательства            = Справочники.ВидыНалоговИПлатежейВБюджет.ВидНалоговогоОбязательстваПоКБК(КодБК, Объект.Дата);
    Иначе

        ТипПеречисленияВБюджет = ПараметрыОбъекта["ТипПеречисленияВБюджет"];

        Если ЗначениеЗаполнено(ТипПеречисленияВБюджет) Тогда
            Если ТипПеречисленияВБюджет = "ПЕ" Тогда
                ВидНалоговогоОбязательства = Перечисления.ВидыПлатежейВГосБюджет.ПениСам;
            ИначеЕсли ТипПеречисленияВБюджет = "ПЦ" Тогда
                ВидНалоговогоОбязательства = Перечисления.ВидыПлатежейВГосБюджет.Проценты;
            Иначе
                ВидНалоговогоОбязательства = Перечисления.ВидыПлатежейВГосБюджет.Налог;
            КонецЕсли;
        Иначе
            ВидНалоговогоОбязательства = Перечисления.ВидыПлатежейВГосБюджет.Налог;
        КонецЕсли;

    КонецЕсли;

    ПериодОплаты = ПараметрыОбъекта["ПериодОплаты"];

    Если ЗначениеЗаполнено(ПериодОплаты)
        И ПериодОплаты <> "0" Тогда

        МассивЗначений = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(ПериодОплаты, ".");

        ТипПлатежа = МассивЗначений[0];
        ГодПлатежа = МассивЗначений[2];
        ИдентификаторПериодаПлатежа = МассивЗначений[1];
        ДатаПлатежа = ГодПлатежа + "%МесяцПлатежа%01";

        Если ТипПлатежа = "МС" Тогда
            ПериодПлатежа = Дата(СтрЗаменить(ДатаПлатежа, "%МесяцПлатежа%", ИдентификаторПериодаПлатежа));
        ИначеЕсли ТипПлатежа = "КВ" Тогда

            Если ИдентификаторПериодаПлатежа = "01" Тогда
                МесяцПлатежа = "01";
            ИначеЕсли ИдентификаторПериодаПлатежа = "02" Тогда
                МесяцПлатежа = "04";
            ИначеЕсли ИдентификаторПериодаПлатежа = "03" Тогда
                МесяцПлатежа = "07";
            ИначеЕсли ИдентификаторПериодаПлатежа = "04" Тогда
                МесяцПлатежа = "10";
            КонецЕсли;

            ПериодПлатежа = Дата(СтрЗаменить(ДатаПлатежа, "%МесяцПлатежа%", МесяцПлатежа));

        ИначеЕсли ТипПлатежа = "ПЛ" Тогда
            ПериодПлатежа = Дата(СтрЗаменить(ДатаПлатежа, "%МесяцПлатежа%", ?(ИдентификаторПериодаПлатежа = "02", "07", "01")));
        ИначеЕсли ТипПлатежа = "ГД" Тогда
            ПериодПлатежа = Дата(СтрЗаменить(ДатаПлатежа, "%МесяцПлатежа%", "01"));
        Иначе
            ПериодПлатежа = Дата(ГодПлатежа + ИдентификаторПериодаПлатежа + ТипПлатежа);
        КонецЕсли;

    Иначе
        ПериодПлатежа = '00010101';
    КонецЕсли;

    Объект.НалоговыйПериод = ПериодПлатежа;

    // Приводим тип значений субконто
    Если ЗначениеЗаполнено(Объект.СчетУчетаРасчетовСКонтрагентом) Тогда

        Для Каждого СтрокаВидаСубконто Из Объект.СчетУчетаРасчетовСКонтрагентом.ВидыСубконто Цикл

            ТипСубконто = СтрокаВидаСубконто.ВидСубконто.ТипЗначения;
            Субконто    = Объект["СубконтоДт" + СтрокаВидаСубконто.НомерСтроки];

            Если ТипСубконто.ПривестиЗначение(Субконто) <> Субконто Тогда
                Объект["СубконтоДт" + СтрокаВидаСубконто.НомерСтроки] = ТипСубконто.ПривестиЗначение(Субконто);
            КонецЕсли;

            Если ТипСубконто.Типы().Найти(Тип("ПеречислениеСсылка.ВидыПлатежейВГосБюджет")) <> Неопределено
                И Не ЗначениеЗаполнено(Объект["СубконтоДт" + СтрокаВидаСубконто.НомерСтроки]) Тогда
                Объект["СубконтоДт" + СтрокаВидаСубконто.НомерСтроки] = ВидНалоговогоОбязательства;
            КонецЕсли;

        КонецЦикла;

    КонецЕсли;

КонецЕсли;