Создание документа

@rm2005 · Регистрация: 01.12.2006

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

Добрый день!

У меня такая проблема.
Из формы документа пытаюсь создать ответный документ. Вешая формулу (см. ниже) на кнопку, при нажатии на неё, создаётся ответный документ, текущий док закрывается, а новый открывается в режиме редактирования.

Код

Sub Click(Source As Button)
Dim CurrentUIWorkspace As NotesUIWorkspace
Dim baza As New NotesDatabase(CurrentServerName, DataBasePath+SoglDataBaseName)
Dim Vizadoc As NotesDocument
Dim CurrentDoc As NotesDocument
Dim CurrentUIDoc As NotesUIDocument
Dim itemSpisok As NotesItem

Set CurrentUIWorkspace=New NotesUIWorkspace
Set CurrentUIDoc = CurrentUIWorkspace.CurrentDocument
Set CurrentDoc = CurrentUIDoc.Document

Set Vizadoc=baza.CreateDocument
Vizadoc.Form="Виза"
Call Vizadoc.MakeResponse(CurrentDoc)
Call CurrentUIDoc.close

Call CurrentUIWorkspace.EditDocument(True,Vizadoc)
End Sub

На строке Call CurrentUIWorkspace.EditDocument(True,Vizadoc) выдаёт ошибку:
Variant does not contain an object.

@morphyus · 22.08.2007, 15:12

Ну а в деббагере что происходит?
Vizadoc - возможно не сохранён, а значит его нету, вот потому та и ругаеться

@tykHT · 22.08.2007, 15:15

В свойствах формы указано что используется для докуметов ответа?

@rm2005 · 22.08.2007, 15:56

Для: Morpheus

Добавил Call Vizadoc.Save(True,True) перед вызовом на редактирование, тоже самое происходит.Для: LIGHT

В свойствах формы CurrentDoc - документ, Vizadoc - Response, вы это имели в виду?

Пояснение пишу в Lotus R5, может пятёрка не вкуривает что-то?

@Romshyk · 22.08.2007, 16:01

<span class="vbquote">(rm2005 @ 23:08:2007, 13:47 )</span>Call Vizadoc.MakeResponse(CurrentDoc)
[snapback]76164" rel="nofollow" target="_blank[/snapback]?[/quote]
Вопрос зачем делать такую глупость если работаем из текущего дока и по форме ответа...

Код

ComposeDocument(db.Server,db.FilePath,"RespDoc",,,True)

можно просто вот так и не нужно ни каких EditDocument...компостишь новый а текущий закрываешь

@rm2005 · 27.08.2007, 16:17

Для: Ronchik

Вопрос зачем делать такую глупость если работаем из текущего дока и по форме ответа...
Код
ComposeDocument(db.Server,db.FilePath,"RespDoc",,,True)
можно просто вот так и не нужно ни каких EditDocument...компостишь новый а текущий закрываешь

Спасибо, заработало как надо!

У меня ещё вопрос, правда не по теме.

Добавляю в ACL группу с одним человеком. С правами автор. Но у пользователя нет доступа на открытие базы. ПОЧЕМУ???
(tell adminp не помогло)

27.08.2007, 18:44

а в АСL для записи тип пользователя "Группа пользователей" или "Пользователь"?
должно быть первое

@rm2005 · 28.08.2007, 09:25

Для: RAJ

а в АСL для записи тип пользователя "Группа пользователей" или "Пользователь"?
должно быть первое

Позапускал процессы, прокатило.

@Romshyk · 28.08.2007, 09:26

Для: rm2005
более высокий приоритет в ACL всегда будет для пользователя в отдельности (без группы)...у тебя он прописам в ACL отдельно от группы

@rm2005 0 / 0 / 0 Регистрация: 01.12.2006 Сообщений: 67
		1
	Создание документа 22.08.2007, 15:00. Показов 17836. Ответов 8 Метки нет (Все метки) Добрый день! У меня такая проблема. Из формы документа пытаюсь создать ответный документ. Вешая формулу (см. ниже) на кнопку, при нажатии на неё, создаётся ответный документ, текущий док закрывается, а новый открывается в режиме редактирования. Код Sub Click(Source As Button) Dim CurrentUIWorkspace As NotesUIWorkspace Dim baza As New NotesDatabase(CurrentServerName, DataBasePath+SoglDataBaseName) Dim Vizadoc As NotesDocument Dim CurrentDoc As NotesDocument Dim CurrentUIDoc As NotesUIDocument Dim itemSpisok As NotesItem Set CurrentUIWorkspace=New NotesUIWorkspace Set CurrentUIDoc = CurrentUIWorkspace.CurrentDocument Set CurrentDoc = CurrentUIDoc.Document Set Vizadoc=baza.CreateDocument Vizadoc.Form="Виза" Call Vizadoc.MakeResponse(CurrentDoc) Call CurrentUIDoc.close Call CurrentUIWorkspace.EditDocument(True,Vizadoc) End Sub На строке Call CurrentUIWorkspace.EditDocument(True,Vizadoc) выдаёт ошибку: Variant does not contain an object. 0

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	22.08.2007, 15:12	2
	Ну а в деббагере что происходит? Vizadoc - возможно не сохранён, а значит его нету, вот потому та и ругаеться 0

@tykHT 0 / 0 / 0 Регистрация: 16.02.2007 Сообщений: 403
	22.08.2007, 15:15	3
	В свойствах формы указано что используется для докуметов ответа? 0

@rm2005 0 / 0 / 0 Регистрация: 01.12.2006 Сообщений: 67
	22.08.2007, 15:56	4
	Для: Morpheus Добавил Call Vizadoc.Save(True,True) перед вызовом на редактирование, тоже самое происходит.Для: LIGHT В свойствах формы CurrentDoc - документ, Vizadoc - Response, вы это имели в виду? Пояснение пишу в Lotus R5, может пятёрка не вкуривает что-то? 0

@Romshyk 0 / 0 / 0 Регистрация: 27.02.2007 Сообщений: 154
	22.08.2007, 16:01	5
	<!--QuoteBegin-rm2005+23:08:2007, 13:47 --> <span class="vbquote">(rm2005 @ 23:08:2007, 13:47 )</span><!--QuoteEBegin-->Call Vizadoc.MakeResponse(CurrentDoc) [snapback]76164" rel="nofollow" target="_blank[/snapback]?[/quote] Вопрос зачем делать такую глупость если работаем из текущего дока и по форме ответа... Код ComposeDocument(db.Server,db.FilePath,"RespDoc",,,True) можно просто вот так и не нужно ни каких EditDocument...компостишь новый а текущий закрываешь 0

@rm2005 0 / 0 / 0 Регистрация: 01.12.2006 Сообщений: 67
	27.08.2007, 16:17	6
	Для: Ronchik Вопрос зачем делать такую глупость если работаем из текущего дока и по форме ответа... Код ComposeDocument(db.Server,db.FilePath,"RespDoc",,,True) можно просто вот так и не нужно ни каких EditDocument...компостишь новый а текущий закрываешь Спасибо, заработало как надо! У меня ещё вопрос, правда не по теме. Добавляю в ACL группу с одним человеком. С правами автор. Но у пользователя нет доступа на открытие базы. ПОЧЕМУ??? (tell adminp не помогло) 0

RoJ
	27.08.2007, 18:44	7
	а в АСL для записи тип пользователя "Группа пользователей" или "Пользователь"? должно быть первое

@rm2005 0 / 0 / 0 Регистрация: 01.12.2006 Сообщений: 67
	28.08.2007, 09:25	8
	Для: RAJ а в АСL для записи тип пользователя "Группа пользователей" или "Пользователь"? должно быть первое Позапускал процессы, прокатило. 0

@Romshyk 0 / 0 / 0 Регистрация: 27.02.2007 Сообщений: 154
	28.08.2007, 09:26	9
	Для: rm2005 более высокий приоритет в ACL всегда будет для пользователя в отдельности (без группы)...у тебя он прописам в ACL отдельно от группы 0