PlaceDoc(DocID As Long,Comment As String)

PlaceDoc(DocID As Long,Comment As String) ( Function )

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

Синтаксис:

objectvariable.PlaceDoc( DocID, Comment )

objectvariable - IFolders2

DocID - идентификатор документа

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

Пример на VB Script:

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