Исходный код
Option Explicit
Dim obj
Set obj = CreateDocObject()
'=============================================================================
' Создать объект с SysId = "DOCUMENT" в составе корневого объекта "Root"
' Создание объекта с использованием CreateObjectDlg
'==============================================================================
Function CreateDocObject()
Set CreateDocObject = Nothing
Dim CreateObjDlg, Object
' Инициализация свойств диалога создания объекта
Set CreateObjDlg = ThisApplication.Dialogs.CreateObjectDlg
' Указание типа создаваемого объекта
CreateObjDlg.ObjectDef = "DOCUMENT"
' Указание родителя, в составе которого будет создан объект
CreateObjDlg.ParentObject = ThisApplication.Root
' Указание дескриптора окна TDMS. При вызове диалога из внутреннего скрипта является необязательным параметром.
CreateObjDlg.ParentWindow = ThisApplication.hWnd
' Установить активной первую форму ввода (из присвоенных данному типу объектов)
CreateObjDlg.ActiveForm = ThisApplication.ObjectDefs("DOCUMENT").Inputforms(0)
' Вызов диалога создания. (Открытие карточки объекта)
' Если в карточке объекта была нажата кнопка "Отмена", то выйти из процедуры
If CreateObjDlg.Show = False Then Exit Function
' Если в карточке объекта была нажата кнопка "Ок", то присвоить переменной Object ссылку на созданный объект
Set CreateDocObject = CreateObjDlg.Object
End Function
'=============================================================================
'*** Необходимо отметить, что при использовании CreateObjectDlg в системе
'*** отработают все события, связанные с созданием объекта