Doc, Uidoc, бэкэнд документа

Тема в разделе "Lotus - Программирование", создана пользователем oxystile, 30 июл 2008.

  1. oxystile

    oxystile Гость

    в документе кнопка, на кот повешена функция, кот. меняет поле в этом документе и сохраняет.
    но при запуске кнопки возможен вариант, когда уже существует бэкенд документ и следовательно действия кнопки невозможно
    поэтому сперва в кнопке стоит переоткрытие
    If Not doc.Save(False,False) Then
    Set uidoc = ws.EditDocument( False,doc,,,, False)
    ну, вот не работает это переоткрытие, не получаю на экран свежую версию документа :)
    а писать пользователям "переоткройте док вручную" - не катит
     
  2. Sandr

    Sandr Гость

    call uidoc.close
    Set uidoc = ws.EditDocument( False,doc,,,, False)

    А ваще, если док, который существует у вас на бекэнде получен с текущего уидока, то вообще нет смысла переоткрывать документ, так как данные будут актуальны и на уидоке...

    Или я ваще уже лотус забыл? :)
     
  3. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Не понятно. Бэкэнд документ в любом случае существует в памяти.
    Как я понял из кода, это попытка поймать возможный конфликт?
     
  4. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    мне кажеться, что перед тем как что-то менять в документе, взятого с УИ, нужно перевести его в режим редактирования...
    NotesUIDoc.EditMode = True, если такого права нет на основании авторс-полей, то придется делать серверную обработку, если такого права нет по логике, то надо делать правку на бэкэнде и переоткрывать документ
     
  5. oxystile

    oxystile Гость

    авторс и ридерс полей нет
    вот собственно в чем проблема, запускаю кнопку на открытом доке, добавила там проверку:
    If Not doc.Save(False,False) Then
    Messagebox "невозможно сохранить"
    End If
    получаю сообщение, и все, дальше с этим документом работать нельзя, надо переоткрыть вручную

    а хотелось бы, если Save=False переоткрыть докумет (получить его свежую версию) чтобы уже у него можно было проводить изменения
     
  6. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Свежая копия получается через NotesView.GetDocumentByKey.
     
  7. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    doc.Save возвращает False если не было произведено изменений... зачем тогда переоткрывать?..

    noteDatabase.GetDocumentByID
    noteDatabase.GetDocumentByUNID
     
  8. oxystile

    oxystile Гость

    doc.Save возвращает False если сохранить неудалось :)
     
  9. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    дело в том еще, что если даже сохранить и удастся, но документ не изменился, и записывать на диск не надо, то Save вернет False, хотя ошибок не будет
     
  10. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Save вернет False только если не сможет сохранить. В остальных случаях(даже если документ не изменился) Save вернет True.
     
  11. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.373
    Симпатии:
    2
    Medevic
    я тоже так думал, пока не написал явно :)

    единственное, возможно мы не понимаем друг друга полностью :)
    если док не новый, а взятый из базы, то он не будет сохранен, если его не поменяли...

    Код (Text):
        Dim s As New notessession
    Dim doc As notesdocument

    Set doc = s.currentdatabase.createdocument
    If doc.save(True, False) Then
    Print "saved"
    Else
    Print "not saved"
    End If

    Set doc = s.currentdatabase.AllDocuments.GetFirstDocument
    If doc.save(True, False) Then
    Print "saved2"
    Else
    Print "not saved2"
    End If
    я так думаю, что лотус перед тем как писать на диск делает сравнение данных...
     
  12. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Если из базы, то не будет.
    А если взятый документ открыт в UI, как в нашем случае, то только, если не сможет сохранить. :)
     
  13. oxystile

    oxystile Гость

    у меня получилось, работает, но код кривой ...

    1. если документ без бэкенда, то этот код работает как часы:
    Код (Text):
    uidoc.EditMode=True
    If ws.DialogBox( "ChangeCrok" , True, True , True, False , False , False , "Запрос на продление", doc1, False, True, True )=True Then
    Call doc.replaceitemvalue("WhishCrok", doc1.getitemvalue("crok") )
    If Not doc.Save(False,False) Then
    Msgbox "Сохранение не удалось после вызова /запрос на продление/"
    Exit Sub
    End If
    Call uidoc.RefreshHideFormulas  ' надо, иначе на экране не появляется WhishCrok (WhishCrok скрыто если="")
    End If
    2. но вот если есть бэкэнд документ, работает только так:
    Код (Text):
    Call uidoc.Close
    Set docFirst = view.GetDocumentByKey (key_ )
    Set uidoc= ws.EditDocument(True, docFirst)
    If ws.DialogBox( "ChangeCrok" , True, True , True, False , False , False , "Запрос на продление", doc1, False, True, True )=True Then
    Call docFirst.replaceitemvalue("WhishCrok", doc1.getitemvalue("crok") )
    crok=doc1.getitemvalue("crok")
    If Not docFirst.Save(False,False) Then
    Msgbox "Сохранение не удалось после вызова /запрос на продление/"
    Exit Sub
    End If
    Call uidoc.Close ' приходится переоткрыть, т.к.WhishCrok не появился
    Call ws.EditDocument(True, docFirst)
    end if
     
  14. phantom76

    phantom76 Lotus team
    Lotus team

    Регистрация:
    25 фев 2005
    Сообщения:
    363
    Симпатии:
    9
    та что переоткрыть документ в режиме просмотра не получиться?
     
  15. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.047
    Симпатии:
    18
    насколько это жестоко :D
    особенно учитывая что Call notesUIDocument.Reload( ) на чтении не работает
     
Загрузка...
Похожие Темы - Doc Uidoc бэкэнд
  1. k85
    Ответов:
    12
    Просмотров:
    893
  2. Antigo
    Ответов:
    2
    Просмотров:
    902
  3. Shandrik
    Ответов:
    3
    Просмотров:
    1.050
  4. VladSh
    Ответов:
    10
    Просмотров:
    2.311
  5. Zeka
    Ответов:
    20
    Просмотров:
    6.337

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