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

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

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