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

  • Автор темы rm2005
  • Дата начала
R

rm2005

#1
Добрый день!

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

Код:
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.
 

morpheus

скриптописец
07.08.2006
3 915
1
#2
Ну а в деббагере что происходит?
Vizadoc - возможно не сохранён, а значит его нету, вот потому та и ругаеться
 
L

LIGHT

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

rm2005

#4
Для: Morpheus

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

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


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

Ronchik

#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...компостишь новый а текущий закрываешь
 
R

rm2005

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


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

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

RAJ

Well-known member
17.01.2007
440
0
#7
а в АСL для записи тип пользователя "Группа пользователей" или "Пользователь"?
должно быть первое
 
R

Ronchik

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