Описание
Генерируется перед выгрузкой файлов объекта на жесткий диск (для редактирования или просмотра).
Опеделение
| Visual Basic |
|---|
Public Event ObjectBeforeCheckOut( _ ByVal pObject As TDMSObject, _ ByRef bCancel As Boolean _ ) |
Параметры
- pObject
- Объект, чьи файлы будут выгружаться на жесткий диск.
- bCancel
- TRUE - отменить выгрузку файлов объекта.
Заметки
1. Событие является отменяемым: если параметру bCancel присвоено значение TRUE, выгрузка файлов на диск будет отменена.
2. Обработчик может быть размещен в скриптах объекта, профиля и/или общесистемном. Если обработчики определены на всех уровнях, то последовательность их вызова такова:
- скрипт объекта;
- скрипт профиля пользователя;
- общесистемный скрипт.
Если на каком-либо уровне событие было отменено (параметру bCancel присвоено значение TRUE), то обработчики события, размещенные на последующих уровнях, вызваны не будут.
3. Схему последовательности генерации событий при вызове команды "Редактировать" на объекте см. на рисунке:
4. Для того, чтобы событие генерировалось при работе через API, должен быть включен вызов объектных событий в Окне свойств базы данных (см. рисунок).
Пример
| VB Script (Visual Basic) |  Скопировать код |
|---|---|
'====================================================================== 'Текст обработчика должен быть размещен в скрипте объекта, профиля или 'общесистемном скрипте. Sub Object_BeforeCheckOut(Obj, Cancel) 'Запросить подтверждение операции msg = "Вы подтверждаете выгрузку файлов объекта " & Chr(13) & """" & _ Obj.Description & """?" If ((MsgBox(msg, vbYesNo + vbQuestion, "Работа с файлами объекта")) <> VbYes) Then Cancel = True End If End Sub '====================================================================== | |