GenNewDocNote(DocTypeID As Long,YearValue As Long) As String

GenNewDocNote(DocTypeID As Long,YearValue As Long) As String ( Function )

Сгенерировать новое значение обозначения документа

Синтаксис:

objectvariable.GenNewDocNote( DocTypeID, [YearValue] )

objectvariable - IOcs_Application2

DocTypeID - идентификатор вида документа архива

YearValue - год (если не указан, то используется текущий год)

Возвращает: сгенерированное обозначение документа, если вид документа не имеет шаблона для генерации обозначения, то используется шаблон по умолчанию "DOCTYPE_NOTE № %4YEAR%%10NUMBER%"

Пример на VB Script:

Sub Test()
    Dim I
    If TCSApp.DocTypes.RunModuleForSelect("Выберите вид документа", False) Then
        
        I = TCSApp.GenNewDocNote( TCSApp.DocTypes.Properties("ID").AsInteger )
        
        Call TCSApp.ShowMessageBox("Сообщение", "Новое обозначение документа - " & I)
    End If
End Sub