УстановитьПризнакВременного (БСП)

Установить признак временного. Устанавливает у файла признак "Временный" = Истина.

// Устанавливает у файла признак "Временный" = Истина.
//
// Параметры:
//  ИдентификаторФайла - УникальныйИдентификатор -  идентификатор файла.
//
Функция УстановитьПризнакВременного(Знач ИдентификаторФайла) Экспорт
    
    Словарь = ФайлыОбластейДанныхСловарь;
    
    Если ТипЗнч(ИдентификаторФайла) <> Тип("УникальныйИдентификатор") Тогда
        ВызватьИсключение СтрШаблон(Словарь.ПереданИдентификаторНекорректногоТипа(), ТипЗнч(ИдентификаторФайла));  
    КонецЕсли; 
    Словарь = ФайлыОбластейДанныхСловарь;
    УстановитьПривилегированныйРежим(Истина);
    Запись = РегистрыСведений.ФайлыОбластейДанных.СоздатьМенеджерЗаписи();
    Запись.Идентификатор = ИдентификаторФайла;
    Запись.Прочитать();
	Если Не Запись.Выбран() Тогда
		ЗаписьЖурналаРегистрации(СтрШаблон("%1.%2", Словарь.КорневоеСобытие(), Словарь.УстановкаПризнакаВременный()), 
			УровеньЖурналаРегистрации.Ошибка,,,
			СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
				Словарь.ФайлНеНайденПоИдентификатору(), ИдентификаторФайла));
		Возврат Ложь;
    КонецЕсли;
    Запись.Временный = Истина;
    Запись.Записать();
	
КонецФункции

///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются 
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////

// Устанавливает у файла признак "Временный" = Истина.
//
// Параметры:
//  ИдентификаторФайла - УникальныйИдентификатор -  идентификатор файла.
//
Функция УстановитьПризнакВременного(Знач ИдентификаторФайла) Экспорт
    
    Словарь = ФайлыОбластейДанныхСловарь;
    
    Если ТипЗнч(ИдентификаторФайла) <> Тип("УникальныйИдентификатор") Тогда
        ВызватьИсключение СтрШаблон(Словарь.ПереданИдентификаторНекорректногоТипа(), ТипЗнч(ИдентификаторФайла));  
    КонецЕсли; 
    Словарь = ФайлыОбластейДанныхСловарь;
    УстановитьПривилегированныйРежим(Истина);
    Запись = РегистрыСведений.ФайлыОбластейДанных.СоздатьМенеджерЗаписи();
    Запись.Идентификатор = ИдентификаторФайла;
    Запись.Прочитать();
	Если Не Запись.Выбран() Тогда
		ЗаписьЖурналаРегистрации(СтрШаблон("%1.%2", Словарь.КорневоеСобытие(), Словарь.УстановкаПризнакаВременный()), 
			УровеньЖурналаРегистрации.Ошибка,,,
			СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
				Словарь.ФайлНеНайденПоИдентификатору(), ИдентификаторФайла));
		Возврат Ложь;
    КонецЕсли;
    Запись.Временный = Истина;
    Запись.Записать();
	
КонецФункции

///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются 
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////