CreateDocVer ( Function )

Создать новую версию документа

Синтаксис:

objectvariable.CreateDocVer( Flags, VerName, SourceVerID, DlgCaption )

objectvariable - DocCommands2

Flags - значение из tagEnumCreateDocVerParams
VerName - наименование новой версии
SourceVerID - идентификатор исходной версии
DlgCaption - заголовок окна диалога

Возвращает: указатель на SingleDoc


Пример на VB Script:
Sub Test()
    Dim Versions
    If theApp.Folders.RunModuleForSelect("Выберите документ", False) > 0 Then
        Set Versions = theApp.Folders.Properties("VERSIONS").AsIDispatch
        If Versions.RunModuleForSelect("Выберите версию документа", False) > 0 Then
            Call theApp.Folders.CreateDocVer( 0, "Новая версия", Versions.Properties("VER_ID").AsInteger, "" )
        End If
        Set Versions = Nothing
    End If
End Sub