Установить признак активен. Устанавливает признак активности предмета.
// Устанавливает признак активности предмета.
//
// Параметры:
// Предмет - ДокументСсылка, СправочникСсылка - предмет, для которого выполняется запись.
// Активен - Булево - признак активности предмета.
//
Процедура УстановитьПризнакАктивен(Предмет, Активен) Экспорт
УстановитьПривилегированныйРежим(Истина);
Запрос = Новый Запрос;
Запрос.Текст = "
|ВЫБРАТЬ
| СостоянияПредметовВзаимодействий.КоличествоНеРассмотрено,
| СостоянияПредметовВзаимодействий.ДатаПоследнегоВзаимодействия,
| СостоянияПредметовВзаимодействий.Активен
|ИЗ
| РегистрСведений.СостоянияПредметовВзаимодействий КАК СостоянияПредметовВзаимодействий
|ГДЕ
| СостоянияПредметовВзаимодействий.Предмет = &Предмет";
Запрос.УстановитьПараметр("Предмет",Предмет);
МенеджерЗаписи = РегистрыСведений.СостоянияПредметовВзаимодействий.СоздатьМенеджерЗаписи();
Результат = Запрос.Выполнить();
Если Результат.Пустой() Тогда
Если Активен = Ложь Тогда
Возврат;
КонецЕсли;
МенеджерЗаписи.ДатаПоследнегоВзаимодействия = Дата(1,1,1);
МенеджерЗаписи.КоличествоНеРассмотрено = 0;
Иначе
Выборка = Результат.Выбрать();
Выборка.Следующий();
Если Выборка.Активен = Активен Тогда
Возврат;
КонецЕсли;
МенеджерЗаписи.ДатаПоследнегоВзаимодействия = Выборка.ДатаПоследнегоВзаимодействия;
МенеджерЗаписи.КоличествоНеРассмотрено = Выборка.КоличествоНеРассмотрено;
КонецЕсли;
МенеджерЗаписи.Активен = Активен;
МенеджерЗаписи.Предмет = Предмет;
МенеджерЗаписи.Записать();
КонецПроцедуры
///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////
УстановитьПризнакРассмотрено (БСП)
УстановитьПризнакПросмотраИдеи (БСП)
УстановитьПризнакЗашифрован (БСП)
УстановитьПризнакВременного (БСП)
УстановитьПризнакБлокирующейФормы (БСП)
УстановитьПризнакИзмененияДанных (БСП)
УстановитьПризнакОшибкиЗамера (БСП)