PlaceToFolder(FolderID As Long,Comment As String)

PlaceToFolder(FolderID As Long,Comment As String) ( Function )

Поместить докумет в папку

Синтаксис:

objectvariable.PlaceToFolder( FolderID, Comment )

objectvariable - DocCommands3

FolderID - идентификатор папки

Comment - комментарий

Пример на VB Script:

Sub Test()
    Dim I
    If TCSApp.Archive.RunModuleForSelect("Выберите документ", False) > 0 Then
        If TCSApp.FoldersTree.ShowModal("Выберите папку, в которую следует поместить документ") > 0 Then
            Call TCSApp.Archive.PlaceToFolder( TCSApp.FoldersTree.DbTree.Selected.NodeId, "TEST" )
            Call TCSApp.Folders.Refresh
            I = TCSApp.Folders.ShowModal("Папки пользователя")
        End If
    End If
End Sub