Выдача для внесения изменений

Решение: В скрипте команды "Выдать для внесения изменений" вызывать форму "абв" до создания версии комплекта.

Если я все правильно понимаю, проблема в передаче информации из формы в атрибуты новой версии... если так, то она решается заменой диалога ввода текстовой строки на кастом-форму.
Создайте форму с нужными полями ("Укажите причину" и пр)->
поднимите ее по нажатии кнопки (команде "Выдать...") методом ThisApplication.InputForms("MYFORM").Show->
получите из нее значения атрибутов по ОК ->
создавайте версию с полученными значениями...

Давайте внесём ясность: под "Карточкой" Вы понимаете объект TDMS - правильно? Какая связь между ним и комплектом? ссылается или входит в состав?

Совсем не понятно, как у Вас реализована настройка. Поймите, в TDMS можно одну и ту же задачу запрограммировать можно совершенно по-разному.

Опять непонятно.
1.Форма и Объект - разные вещи.
2.Что мешает сохранить какое-либо значение в предыдущую версию? TDMSObject.Vesions.Item - это тот же самый TDMSOBJECT.

Как вариант: используйте событие Form_BeforeClose: создавайте версию в обработчике события. Потом можно проверить (в команде), что вернул метод InputForm.Show, и если пользователь нажал cancel - удалить ету новую версию. Не ахти, но все же...

Подкорректирую предлагаемое решение и допущенные неточности (вроде все работает):

- создаем нужную форму
- на Form_BeforeClose создаем новую версию. Она становится активной, имеет состав, файлы и пр. - все что было, как и полагается. Новая версия имеет требуемое описание и имя:

MyDescription = ThisForm.Attributes("ATTR_REASON").Value
ThisObject.Versions.Create MyName, MyDescription

- код команды должен выглядеть примерно так:

====================

'Нулевая версия всегда последняя (активная)
OldName = ThisObject.Versions(0).VersionName
OldDescription = ThisObject.Versions(0).VersionDescription 'сохранили описание и имя версии

RetVal = ThisApplication.InputForms("CUSTOM_FORM").Show ' в скрипте формы создаем новую версию.

If RetVal <> FALSE Then Exit Sub ' Если вернулось TRUE, значит юзер нажал ОК, версия создана и все в порядке. Можно закончить работу

'Иначе: копируем в новую версию старые имя и описание, и удаляем ту версию - уже не нужна
'Теперь Versions(0) - то, что создано в форме, Versions(1) - то, что было до вызова формы

ThisObject.Versions(0).VersionName = OldName 
ThisObject.Versions(0).VersionDescription = OldDescription ' нулевая версия - активная, та, которую мы создали в скрипте формы
ThisObject.Versions.Remove ThisObject.Versions(1) ' старую версию удаляем. 
'Теперь новая активная версия - точная копия предыдущей с составом и всеми прибамбасами.

Хорошо. Учтем замечания. Тогда сделаем без удаления, по схеме:
1) Есть объект "OBJ_WORK", добавим ему скрытый атрибут "Счетчик версий"
2) Есть форма "FRM_MAIN" объекта "OBJ_WORK". Кнопка "Выдать..." имеет свой скрипт. Нажатие кнопки - и...
3) Проверяем счетчик версий, чтобы узер не нажимал кнопку без конца; если ОК, открывается форма "FRM_CUSTOM" с нужными атрибутами.
4) после закрытия формы "FRM_CUSTOM" - если ОК, то создаем версию.

'==================
Sub OBJ_WORK_ObjectPropertiesDlgShow()
'........
'сколько было версий при открытии Окна свойств?
ThisObject.Attributes"VERSIONS_COUNTER" = ThisObject.Versions.Count 
End Sub

'==================
Sub FRM_MAIN_OnButton_Click()

'Проверить не создана ли уже версия ...
AllowedNum = ThisObject.Attributes"VERSIONS_COUNTER".Value + 1
If (ThisObject.Versions.Count = AllowedNum) Then
         MsgBox "Новая версия уже создана. До свидания."
         Exit Sub
End If

'Открыть "FRM_CUSTOM" и получить данные
Set InForm = ThisApplication.InputForms("FRM_CUSTOM").
RetVal = InForm.Show
If RetVal <> TRUE Then Exit Sub ' Если пользователь отменил диалог, ничего дальше не делаем

'Спросить подтверждение создания версии
RetVal = Msgbox("Создать новую версию?", vbYesNo)
If RetVal <> vbYes Then Exit Sub
MyDescription = InForm.Attributes("ATTR_REASON").Value
ThisObject.Versions.Create MyName, MyDescription

End Sub

Критикуйте...