Создание Документа В Форме

Тема в разделе "Lotus - Программирование", создана пользователем JohnLemon, 20 авг 2014.

Статус темы:
Закрыта.
  1. JohnLemon

    JohnLemon Well-Known Member

    Регистрация:
    20 авг 2014
    Сообщения:
    274
    Симпатии:
    5
    Всем доброе утро, я новичок в Лотусе, вопрос банальный: необходимо написать агента который будет создавать документ в форме fArhives с полями ID, Date, Fio помогите с кодом плз и подскажите куда копать, просто пока не понимаю ни что нужно сначала инициализировать ни как тупо создать документ ))?
     
  2. ty3uk

    ty3uk Well-Known Member

    Регистрация:
    31 мар 2008
    Сообщения:
    169
    Симпатии:
    0
  3. JohnLemon

    JohnLemon Well-Known Member

    Регистрация:
    20 авг 2014
    Сообщения:
    274
    Симпатии:
    5
  4. JohnLemon

    JohnLemon Well-Known Member

    Регистрация:
    20 авг 2014
    Сообщения:
    274
    Симпатии:
    5
    По книжке сделал так
    Option Public
    Option Declare

    Sub CreateFArhivesDocument(Source As NotesUIView, Requesttype As Integer, Colprogname As Variant, Columnvalue As Variant, Continue As Variant)

    Dim ws As New NotesUIWorkspace
    Dim note As NotesDocument
    Dim db As NotesDatabase

    Set db = ws.CurrentDatabase.Database
    Set note = db.CreateDocument()
    note.Form = "fArhives"
    Call note.ReplaceItemValue ("ArhFIO", "YashkO") ' я так понимаю это имя поля и новое значение
    Call note.Save(True, True, True)
    End Sub
    Но что то не добавляется запись (((
     
  5. savl

    savl Lotus team
    Lotus team

    Регистрация:
    28 окт 2011
    Сообщения:
    2.052
    Симпатии:
    146
    JohnLemon
    Ну функция есть, а где её вызов?
    Если надо агента делать, то надо в дизайнере создать агента, дать ему имя.
    Код из этой функции перенести в него, в блок Initialize.
    Код надо поправить:
    Код (LotusScript):
     Dim ws As New NotesUIWorkspace
    заменить на:
    Код (LotusScript):
    Dim ses as New NotesSession
    Код (LotusScript):
    Set db = ws.CurrentDatabase.Database
    заменить на:
    Код (LotusScript):
    Set db = ses.Currentdatabase
    Код (LotusScript):
    Call note.Save(True, True, True)
    Можно просто:
    Код (LotusScript):
    Call note.Save(True, False)
    Здесь последний параметр - метка о прочтении, не имеет смысла порой, а второй - признак "ответного документа", все равно игнорируется, так как первый True.
     
  6. garrick

    garrick Lotus team
    Lotus team

    Регистрация:
    26 окт 2009
    Сообщения:
    773
    Симпатии:
    52
    Куда не добавляется? Где вы её пытаетесь найти?
    P.S. Это уже смотрели?
     
  7. JohnLemon

    JohnLemon Well-Known Member

    Регистрация:
    20 авг 2014
    Сообщения:
    274
    Симпатии:
    5
    Спасибо, все понял занес пока код в инициализацию все работает сейчас разбираюсь и пытаюсь понять ))
     
Загрузка...
Статус темы:
Закрыта.

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