Процедура выполняется при интерактивном удалении записи в окне истории значений
Синтаксис
Процедура ПриУдаленииИстории() имеет следующий синтаксис:
Процедура ПриУдаленииИстории([ТипОбъекта], [Объект], [ЗначениеЗаписи], [ДатаЗаписи])
...
КонецПроцедуры
А также альтернативный англоязычный синтаксис:
Procedure OnDeleteHistory([ObjectType], [Object], [RecordValue], [RecordDate])
...
EndProcedure
Параметры
Описание параметров процедуры ПриУдаленииИстории()
| Имя параметра | Тип | Описание |
|---|---|---|
| ТипОбъекта | Строка | Параметр содержит полное имя константы (для периодических констант) или полное имя реквизита справочника (для периодических реквизитов справочников) как они заданы в конфигураторе. Полное имя константы выглядит как Константа.Имя. Полное имя реквизита справочника выглядит как Справочник.ИмяСправочника.ИмяРеквизита |
| Объект | Произвольный | Параметр содержит значение элемента справочника, периодический реквизит которого изменяется (параметр актуален только для периодических реквизитов справочников) |
| ЗначениеЗаписи | Произвольный | Параметр содержит значение периодической записи |
| ДатаЗаписи | Дата | Параметр содержит дату периодической записи (дату, когда было сохранено значение) |
| * — обязательный параметр | ||
Описание
Процедура ПриУдаленииИстории() выполняется при попытке удаления значения периодической константы или периодического реквизита справочника в окне истории.
По-умолчанию, всем пользователям системы разрешено удаление периодических значений в окне истории. Если требуется запретить интерактивное удаление периодических значений в окне истории, достаточно установить в теле процедуры статус возврата равным нулю и значение не будет удалено.
Пример использования
Пример кода с использованием процедуры ПриОткрытииИстории()
Процедура ПриУдаленииИстории(ТипОбъекта, Объект, ЗначениеЗаписи, ДатаЗаписи) Если (ТипОбъекта = "Константа.Версия") И (ДатаЗаписи < ТекущаяДата()) И (НазваниеНабораПрав() <> "Администратор") Тогда СтатусВозврата(0); Сообщить("Не хватает полномочий для удаления предыдущих значений константы!"); КонецЕсли; КонецПроцедуры