• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

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

rm2005

Добрый день!

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

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

morpheus

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

LIGHT

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

rm2005

Для: Morpheus

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

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


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

Ronchik

<!--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

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

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


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

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

RAJ

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

rm2005

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

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

Ronchik

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

Обучение наступательной кибербезопасности в игровой форме. Начать игру!