Работа с составом объекта

1. Обращение через Content:

ThisObject.Content.Add NewObj

Тоже самое можно сделать при помощи коллекции Objects самого объекта

ThisObject.Objects.Add NewObj

2. Свойство Parent

MsgBox ThisObject.Parent.Description

Работает нормально.
Свойство Parent не всегда есть у объекта. Т.е. если к примеру объект создан скриптом в воздухе

Set NewObj = ThisApplication.ObjectDefs("").CreateObject

А потом добавлен в состав какого то объекта, то свойство Parent инициализировано не будет.

При создании объекта в составе другого объекта, свойство инициализируется автоматически

Set NewObj = ThisObject.Objects.Create("ObjectDefName")
MsgBox NewObj.Parent.Description

Вручную. Если хотите что бы автоматически удалялся по отмене, пользуйтесь диалогом CreateObjectDlg

Спасибо за ответы! Вот возник еще один вопрос:
Есть команда, вызываемая на объекте типа "заявка", при ее вызове отображается форма (карточка) этого объекта, на этой форме есть кнопка, при нажатии которой по событию on_click выполняется ряд действий по результатам которых создается новый дочерний типа "акт", при этом так же отображается его карточка, по окончанию заполнения которой объект типа заявка должен менять свой статус. Что бы это сделать я использую ThisObject, подразумевая что это и будет та заявка, на которой я выполнил команду в самом начале... Однако статус этой заявки не менятся... Возникает вопрос... Изменился ли ThisObject на другой или это все тот же объект? Все проверки показывают, что объект не поменялся, однако он не хочет менять свой статус... В чем тут прооблема?

            Dim NewAct
            Set NewAct = ThisObject.Objects.Create("OBJ_ACT_ADDRRSV")
            NewAct.Permissions = SysAdminPermissions
            Dim FormDlg    
            Set FormDlg = ThisApplication.Dialogs.EditObjectDlg
            FormDlg.Object = NewAct
            FormDlg.ActiveForm = "FORM_ACT_NEW"
            If FormDlg.Show Then    
                MsgBox ThisObject.Description ' Проверка показывает, что заявка та на которой была вызвана команда
                MsgBox ThisObject.Status.Description ' первоначальный статус
                Req.Status = ThisObject.ObjectDef.Statuses ("STATUS_REQ_RESERVED")
                MsgBox ThisObject.Status.Description 'Отображается измененный статус, однако видно, что в системе он НЕ меняется
            Else
                NewAct.Erase
            End If

Кстати, а нафига вызывать командой карточку "этого объекта", на котором есть кнопка, чтобы ее нажать?
А не проще стандартными средствами открыть диалог свойств объекта и из него на нужной форме нажать кнопку.

Более того если в команде напишите Form.Show - она не будет иметь никакого отношения к информационному объекту.

1. как Вы определили, что он не меняется?
2. Где раположена данная команда?
3. какая версия ТДМС?

Попробуйте след. строкой написать "ThisObject.Update"

Михаил имел в виду если открыть форму без привязки (не через диалог).

по посленему постингу не ясно, почему у Вас не обновляется.

4. вы открываете именно карточку или карточку с объектом?
5. каким образом вы открываете карточку
6. срабатывает ли object_beforemodify на первом объекте (на котором расположена кнопка)?
7. каким образом Вы формируете название объекта?
8. одинакового ли типа объект на котором расположена кнопка и открываемый по кнопке объект?

Код команды, которая открывает форму редактирования объекта типа "заявка"

  Dim FormDlg
  Set FormDlg = ThisApplication.Dialogs.EditObjectDlg
  FormDlg.Object = ThisObject
  FormDlg.ActiveForm = "FORM_REQ_PROPERTIES"
  ThisObject.Status = ThisObject.ObjectDef.Statuses ("STATUS_REQ_RESERVING") 'Заявка резервируется
  FormDlg.Show

Обработчик нажатия кнопки, находящейся на открывшейся форме редактирования объекта типа заявка. По нажатию кнопки создается новый объект типа "акт" в составе заявки и открывается форма для его редактирования, если пользователь нажал "ок" на этой форме, то объект типа "заявка" меняет статус. В противном случае, если пользователь нажал "отмена", то статус НЕ меняется.

Sub OnClick_CreateAct()
    Dim WshShell
    Dim sReturn
    
    set WshShell = CreateObject("WScript.Shell")
    sReturn = WshShell.Run("c:\TEMP\ExtCodeApp\GIS_RESERVE.exe " & "", 1, TRUE)
    
    if sReturn = 0 then
            Dim NewAct
            Set NewAct = ThisObject.Objects.Create("OBJ_ACT_ADDRRSV")
            NewAct.Permissions = SysAdminPermissions
            Dim FormDlg    
            Set FormDlg = ThisApplication.Dialogs.EditObjectDlg
            FormDlg.Object = NewAct
            FormDlg.ActiveForm = "FORM_ACT_NEW"
            If FormDlg.Show Then    
                ThisObject.Status = ThisObject.ObjectDef.Statuses ("STATUS_REQ_RESERVED")
                ThisObject.Update
            Else
                 NewAct.Erase
            End If
    else
        MsgBox "Отказано в резервировании!"
    End If
End Sub