Создание записей

Тема в разделе "Lotus - Программирование", создана пользователем Sayonara, 9 фев 2006.

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

    Sayonara Гость

    Всём, здрасти! У меня такой головняк уже 2-ой день, шеф сказал написать базёнку, но всё хорошо, всё отлично, если бы не одно, но.... Пользователь за один подход к базе, должен будет создать до 150 доков, в той реализации, которую я написал, а это естественно неприемлемио.. :) Вот мне и пришла в голову мысль, что неплохо бы было, чтобы Лотус сам заполнял всё за юзера.
    Смысл таков, юзер открывает форму, заполяет поля и каким-нибудь способом отмечает даты (или интервал дат) в которых необходимо разместить её же (продублировать эту запись). Может кто сможет подсказать мне в этой проблеме?
     
  2. Domino6

    Domino6 Гость

    <!--QuoteBegin-Sayonara+9:02:2006, 01:51 -->
    <span class="vbquote">(Sayonara @ 9:02:2006, 01:51 )</span><!--QuoteEBegin-->Может кто сможет подсказать мне в этой проблеме?
    [snapback]30350" rel="nofollow" target="_blank[/snapback]​
    [/quote]
    Сделай малтивалью поле для даты
     
  3. nor

    nor Гость

    Так собственно в чем сложность или загвоздка заключается?
     
  4. Гость

    Можно заполнить все поля в доке, а потом документ скопировать, чтобы не заполнять еще раз уже заполненное.

    Код (Text):
     Sub Click(Source As Button)
    Dim ws As New NotesUIWorkspace
    Dim s As New NotesSession
    Dim db As NotesUIDatabase
    Dim currdoc As NotesDocument, doc1 As NotesDocument
    Dim uicurrdoc As NotesuiDocument, uidoc1 As NotesuiDocument
    Dim coll As NotesDocumentCollection

    Set db = ws.CurrentDatabase
    Set doc1 = New NotesDocument(db.Database)
    Set currdoc = ws.currentdocument.Document
    Set uicurrdoc = ws.currentdocument 
    Call currdoc.Copyallitems( doc1 )
    Call doc1.Save( True, True )
    Call ws.EditDocument(True,doc1,False,"",uidoc1)
    Call uicurrdoc.Close
    Call ws.currentdocument.Save
    Set uidoc1 = ws.currentdocument
    End Sub
     
Загрузка...
Статус темы:
Закрыта.

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