Общие вопросы > Разработка приложений

И кто придумал лотус? ))) Прошу помощи с открытием документа.

(1/1)

Sergey_st85:
Код прост. Создали док, запустили агента на сервере, его модифицирующего и сохранившего, открываем. А открывается старая версия док-та, немодифицированная. Избился, не знаю, как открыть новую.

Открывается без аттача. юнид 100% верный. Документ 100% сохранен с аттачем.

On Error Goto errh
   Dim s As New NotesSession
   Dim doc As NotesDocument
   Dim agent As NotesAgent
   
   Set agent=s.CurrentDatabase.GetAgent("Voting")
   Set doc=s.CurrentDatabase.CreateDocument
   doc.form="Voting"
   Call doc.Save(True,False,False)
   Call agent.RunOnServer(doc.NoteID)
   Call    s.UpdateProcessedDoc(doc) '-- попытка №1001
   Dim ws As New NotesUIWorkspace
   Set doc=s.CurrentDatabase.GetDocumentByUNID(doc.UniversalID)' -- попытка №1002. Ему пофигу.
   Call ws.EditDocument(False,doc)
   Exit Sub
errh: Msgbox Error & Cstr(Erl)

Zinych:
А если так попробовать, работает?


On Error Goto errh
   Dim s As New NotesSession
   Dim doc As NotesDocument
   Dim agent As NotesAgent
   dim unid as string
   Set agent=s.CurrentDatabase.GetAgent("Voting")
   Set doc=s.CurrentDatabase.CreateDocument
   doc.form="Voting"
   Call doc.Save(True,False,False)
   unid=doc.UniversalID
   Call agent.RunOnServer(doc.NoteID)
   Call    s.UpdateProcessedDoc(doc) '-- попытка №1001
   Dim ws As New NotesUIWorkspace
   Set doc=nothing
   ' Set doc=s.CurrentDatabase.GetDocumentByUNID(doc.UniversalID)' -- попытка №1002. Ему пофигу.
   Set doc=s.CurrentDatabase.GetDocumentByUNID(unid)' -- попытка №1002. Ему пофигу.
   Call ws.EditDocument(False,doc)
   Exit Sub
errh: Msgbox Error & Cstr(Erl)

Sergey_st85:
Вот новичок человек, а дело знает.

Реально надо было грохнуть Nothing'ом...

Навигация

[0] Главная страница сообщений