Язык Описание VBScript, JavaScript SubWillUpdate(aSysObjectType, aSysObject) Visual Basic Sub WillUpdate(ByVal aSysObjectType As TIngeoSysObjectType, ByVal aSysObject As Object) Delphi procedure WillUpdate(aSysObjectType: TIngeoSysObjectType; aSysObject: IDispatch); C, C++ HRESULT WillUpdate(TIngeoSysObjectType aSysObjectType, IDispatch aSysObject);
sub DBSysObjects_WillUpdate(aSysObjectType, aSysObject)
if aSysObjectType = 0 then
MsgBox "Территория с именем " & aSysObject.Name
end if
end sub