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

Тема в разделе "Lotus - Программирование", создана пользователем rm2005, 23 авг 2007.

  1. rm2005

    rm2005 Гость

    Добрый день!

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

    Код (Text):
    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.
     
  2. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    Ну а в деббагере что происходит?
    Vizadoc - возможно не сохранён, а значит его нету, вот потому та и ругаеться
     
  3. LIGHT

    LIGHT Гость

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

    rm2005 Гость

    Для: Morpheus

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

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


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

    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]
    Вопрос зачем делать такую глупость если работаем из текущего дока и по форме ответа...
    Код (Text):
    ComposeDocument(db.Server,db.FilePath,"RespDoc",,,True)
    можно просто вот так и не нужно ни каких EditDocument...компостишь новый а текущий закрываешь
     
  6. rm2005

    rm2005 Гость

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


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

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

    RAJ Well-Known Member

    Регистрация:
    17 янв 2007
    Сообщения:
    440
    Симпатии:
    0
    а в АСL для записи тип пользователя "Группа пользователей" или "Пользователь"?
    должно быть первое
     
  8. rm2005

    rm2005 Гость

    Для: RAJ
    Позапускал процессы, прокатило.
     
  9. Ronchik

    Ronchik Гость

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

Поделиться этой страницей