Тема: При закрытии документов постоянно спрашивает о сохранении
Написан модуль
Sub FormMacro_CloseSelectedDOCs(TCSActiveModule) 'Закрыть выделенные документы
Dim Result
Dim SaveEnabled
Dim I
Result = MsgBox("Выделено " & TCSActiveModule.SelectedRowsCount & " документов." & vbNewLine & "Закрывать с сохранением?", vbSystemModal + vbQuestion + vbYesNoCancel + vbDefaultButton2, "Закрытие выделенныйх документов")
If Result = vbCancel Then
Else
If Result = vbYes Then
SaveEnabled = True
Else
SaveEnabled = False
End If
'Call TCSApp.ShowMessageBox("Сообщение.", "SaveEnabled=" + CStr(SaveEnabled) + "; Result=" + CStr(Result))
For I=0 To TCSActiveModule.SelectedRowsCount-1
If TCSActiveModule.GotoSelectedRow(I) Then
pbStr = CSDN_DESEAN_Library.ShowProgressBarNote(pbStr,"...Закрываем документы... Осталось: " + CStr(TCSActiveModule.SelectedRowsCount - I) )
TCSActiveModule.CloseDoc(SaveEnabled)
End If
Next
End If
Call TCSApp.HideProgressMessage
TCSActiveModule.Refresh
End Sub
Пользователь указывает, что бы закрыть все выделенные документы без сохранения, и все равно при закрытии каждого документа TCS спрашивает сохранять версию документа или нет...как быть при открытии сборки в 10000 позиций?????