Программное проведение "Действие не может выполняться в режиме загрузки данных"

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

            //Док.Записать(РежимЗаписиДокумента.Проведение);  - НАРУШЕНИЕ ПРАВ ДОСТУПА, поэтому:
            Док.Записать();
        КонецЦикла;
        
    КонецЕсли;
    
    УстановитьПривилегированныйРежим(Ложь);
    Объект.ПозицияТекущая = Справочники.ШтатноеРасписание.ПустаяСсылка();
    
КонецПроцедуры