Не корректируется документ "Поступление на рс счет"

Процедура УстановитьУправляемуюБлокировку(СтруктураПараметров, КоллекцияЗначенийБлокировки = Неопределено, КоллекцияОписанияИсточника = Неопределено, Отказ = Ложь, Заголовок = "") Экспорт

    Если НЕ ТипЗнч(СтруктураПараметров) = Тип("Структура") Тогда
        Возврат;
    КонецЕсли;

    ИспользоватьЗначенияБлокировки = КоллекцияЗначенийБлокировки <> Неопределено
        И (ТипЗнч(КоллекцияЗначенийБлокировки) = Тип("Структура")
            ИЛИ ТипЗнч(КоллекцияЗначенийБлокировки) = Тип("Соответствие"))
        И КоллекцияЗначенийБлокировки.Количество() > 0;

    ИспользоватьИсточникДанных     = КоллекцияОписанияИсточника <> Неопределено
        И (ТипЗнч(КоллекцияОписанияИсточника) = Тип("Структура")
            ИЛИ ТипЗнч(КоллекцияОписанияИсточника) = Тип("Соответствие"))
        И КоллекцияОписанияИсточника.Количество() > 0
        И СтруктураПараметров.Свойство("ИсточникДанных");

    Если НЕ ИспользоватьЗначенияБлокировки И НЕ ИспользоватьИсточникДанных Тогда
        Возврат;
    КонецЕсли;

    Блокировка = Новый БлокировкаДанных;

    ТипТаблицы = ?(СтруктураПараметров.Свойство("ТипТаблицы"), СтруктураПараметров.ТипТаблицы, "РегистрНакопления");
    ИмяТаблицы = СтруктураПараметров.ИмяТаблицы;
    ПространствоБлокировки = ТипТаблицы  + "." + ИмяТаблицы;
    ЭлементБлокировки = Блокировка.Добавить(ПространствоБлокировки);

    РежимБлокировки = ?(СтруктураПараметров.Свойство("РежимБлокировки"), СтруктураПараметров.РежимБлокировки, РежимБлокировкиДанных.Исключительный);
    ЭлементБлокировки.Режим = РежимБлокировки;

    Если ИспользоватьЗначенияБлокировки Тогда

        Для каждого ЭлементКоллекции Из КоллекцияЗначенийБлокировки Цикл

            ЭлементБлокировки.УстановитьЗначение(ЭлементКоллекции.Ключ, ЭлементКоллекции.Значение);

        КонецЦикла;

    КонецЕсли;

    Если ИспользоватьИсточникДанных Тогда

        ИсточникДанных = СтруктураПараметров.ИсточникДанных;

        Если ТипЗнч(ИсточникДанных) = Тип("МенеджерВременныхТаблиц") Тогда

            Запрос = Новый Запрос;
            Запрос.МенеджерВременныхТаблиц = ИсточникДанных;
            ТекстЗапроса = "";
            Для каждого ЭлементКоллекции Из КоллекцияОписанияИсточника Цикл
                ТекстЗапроса = ТекстЗапроса + ",
                |    Таб." + ЭлементКоллекции.Значение;
            КонецЦикла;
            ТекстЗапроса = Сред(ТекстЗапроса, 2);
            ТекстЗапроса =
            "ВЫБРАТЬ РАЗЛИЧНЫЕ"
            + ТекстЗапроса + "
            |ИЗ
            |    " + СтруктураПараметров.ИмяВременнойТаблицы + " КАК Таб";
            Запрос.Текст = ТекстЗапроса;
            Результат    = Запрос.Выполнить();

            ЭлементБлокировки.ИсточникДанных = Результат;

        Иначе

            ЭлементБлокировки.ИсточникДанных = ИсточникДанных;

        КонецЕсли;

        Для каждого ЭлементКоллекции Из КоллекцияОписанияИсточника Цикл

            ЭлементБлокировки.ИспользоватьИзИсточникаДанных(ЭлементКоллекции.Ключ, ЭлементКоллекции.Значение);

        КонецЦикла;

    КонецЕсли;

    Блокировка.Заблокировать();