Описание
Генерируется перед обновлением содержимого файлов объекта в файловом хранилище TDMS после их редактирования/просмотра внешним приложением.
Опеделение
| Visual Basic |
|---|
Public Event ObjectBeforeCheckIn( _ 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_BeforeCheckIn(Obj, Cancel) 'Запросить подтверждение изменений msg = "Вы подтверждаете обновление файлового состава объекта """ & Chr(13) & _ Obj.Description & """?" If ((MsgBox(msg, vbYesNo + vbQuestion, "Обновление файлового состава")) <> VbYes) Then Cancel = True End If End Sub '====================================================================== | |