Editdocument (true) Для Класса Notesdocument ?!

@Mytyo · Регистрация: 09.06.2012

Студворк — интернет-сервис помощи студентам

Добрый день.
Подскажите, как мне открыть все выделенные документы из вида в режиме "редактируемый" и потом, просто сохранить.
Как-то так:
Sub Click(Source As Button)

Dim ws As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument

Set uiview = ws.CurrentView
Set dc = uiview.Documents
Set doc = dc.GetFirstDocument
While Not (doc Is Nothyng)
?? вот как doc - открыть как редактируемый режиме? нашел только метод для NotesUIWorkspace - >EditDocument (True) - Не то =(
Call doc.Save(False,False)
Set doc = dc.GetNextDocument(doc)
Wend
End Sub

@morphyus · 06.07.2012, 14:06

Mitya
Если надо пересохранить, то используйте ComputeWithForm

@Mytyo · 06.07.2012, 14:29

Сообщение от Morpheus

Mitya
Если надо пересохранить, то используйте ComputeWithForm

Делаю так:
Sub Click(Source As Button)

Dim ws As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument

Set uiview = ws.CurrentView
Set dc = uiview.Documents
Set doc = dc.GetFirstDocument
While Not (doc Is Nothyng)
If doc.ComputeWithForm(False, False) Then
Call doc.Save(True,True)
End If
Set doc = dc.GetNextDocument(doc)
Wend
End Sub

НЕ выходит.

У меня ситуация, что я представление нацепил на Xpage.
В клиенте в этом виде я вижу 4269, а вот через Xpage я вижу 4269.0.
Как только я захожу в этот документ в режиме "редактирования" и нажимаю на кнопку : @Command([FileSave]);
@Command([CloseWindow])
Xpage покзывает 4269!
Вот как решить данный вопрос, как обработать все документы в виде?

@Mydyvys · 08.07.2012, 09:19

Попробуй @Command([ToolsRefreshAllDocs]).

Новые блоги и статьи Все статьи Все блоги /
Программный отбор элементов справочника Номенклатура по группе 1С Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор под наименованию группы (на. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор элементов справочника Сотрудники по перечислениям 1С Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .

@Mytyo 0 / 0 / 0 Регистрация: 09.06.2012 Сообщений: 113

	Editdocument (true) Для Класса Notesdocument ?! 06.07.2012, 13:45. Показов 7549. Ответов 3 Метки нет (Все метки) Добрый день. Подскажите, как мне открыть все выделенные документы из вида в режиме "редактируемый" и потом, просто сохранить. Как-то так: Sub Click(Source As Button) Dim ws As New NotesUIWorkspace Dim uiview As NotesUIView Dim dc As NotesDocumentCollection Dim doc As NotesDocument Set uiview = ws.CurrentView Set dc = uiview.Documents Set doc = dc.GetFirstDocument While Not (doc Is Nothyng) ?? вот как doc - открыть как редактируемый режиме? нашел только метод для NotesUIWorkspace - >EditDocument (True) - Не то =( Call doc.Save(False,False) Set doc = dc.GetNextDocument(doc) Wend End Sub 0

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	06.07.2012, 14:06
	Mitya Если надо пересохранить, то используйте ComputeWithForm 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	08.07.2012, 09:19
	Попробуй @Command([ToolsRefreshAllDocs]). 0