Общие вопросы > Разработка приложений
Отображение изменений в задаче
K85:
Добрый день. Появился такой вопрос.
Есть база, в ней создаю документ, нажимаю на кнопку, например Отправить, и пользователю указанному в документе отправляется письмо на почту в виде Задачи (Task). Заполняю Task:
--- Код: --- Dim memo As New NotesDocument( db )
memo.Form = "Task"
memo.Subject = note.Title(0)
memo.Importance= note.Priority(0)
memo.CalendarDateTime = note.DateProm(0)
memo.DueDate=note.DateProm2(0)
....
--- Конец кода ---
проблема в том, что после того, как пришла задача пользователю и он изменил в самом документе какие-то поля, то в задаче эти изменения не получается отобразить. Подскажите пожалуйста, как это сделать
K85:
Добрый день. Наконец возвращаюсь к задаче, т.к. не было времени на нее.
Понимаю, что надо проверять было ли изменено какое-либо поле в базе, где создаются документы, а потом менять их в почтовых задачах. Но не знаю как это сделать. Не подскажете?
K85:
Скажите, может кто-то делал агент, который проверяет соотвествие полей в базе почтовой и еще одной базы. Если делали, то подскажите с чего вообще начать
K85:
если задачи в почтовом ящике я создаю:
--- Код: ---Dim memo As New NotesDocument( db )
memo.Form = "Task"
memo.Subject = db.Title + " : " + note.Title(0)
memo.Importance= note.Priority(0)
memo.CalendarDateTime = note.DateTime(0)
......................
--- Конец кода ---
тогда (если я правильно понимаю) мне нужен агент , который будет работать по этому же принципу. Или что-то не то?!
в агенте
для обновления поля - @SetField("pole1" ; обновленное поле);
@True;
SELECT @All
??
а как именно в почтовой базе обновить поле "pole1" ??
K85:
начал делать агент:
--- Код: --- Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim maildb As NotesDatabase
Dim doc As NotesDocument
Dim mailDBName As Variant
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
mailDBName = Evaluate({@MailDbName})
Set maildb = session.GetDatabase(mailDBName(0), mailDBName(1), False)
Set doc = maildb.CreateDocument
doc.Form = "Task"
doc.Subject = uidoc.FieldGetText( "Title" )
Call ws.EditDocument(True, doc, False)
--- Конец кода ---
в этой строчке ошибка - doc.Subject = uidoc.FieldGetText( "Title" )
не знаю как надо записать!?
Навигация
Перейти к полной версии