CloseDoc(SaveChanges As Boolean) ( Function )

Закрыть документ со снятием блокировки (если заблокирован)

Синтаксис:

objectvariable.CloseDoc( SaveChanges )

objectvariable - DocCommands

SaveChanges - логическое значение: сохранять ли сделанные изменения над документом


Пример на VB:
Dim TCS As CSDN.TCS
Dim App As CSDN.Tcs_Application
Sub Test()
    Call Login
    
    Dim Commands As CSDN.DocCommands
    
    If App.Folders.RunModuleForSelect("Выберите документ", False) > 0 Then
    
        If Len(App.Folders.Properties("LOCKUSR_NAME").DisplayText) > 0 Then
        
            Set Commands = App.Folders
            
            If MsgBox("Сохранить сделанные изменения?", vbYesNo) = vbYes Then
                'закрыть документ с сохранением изменений
                Call Commands.CloseDoc(True)
            Else
                'закрыть документ без сохранения изменений
                Call Commands.CloseDoc(False)
            End If
                
            Set Commands = Nothing
        
        Else
        
            MsgBox "Документ не открыт!"
        
        End If
        
    End If
    
End Sub
Sub Login()
    
    If TCS Is Nothing Then Set TCS = CreateObject("CSDN.TCS")
    
    If App Is Nothing Then Set App = TCS.Login 
    
End Sub