Отображение задачи в календаре

[oleg7]

агент запускаю админом, проверяю и если указать админа (т.е. открывается база админа) и лично себя выбираю в Исполнителях, все равно пишет false
maildb данные указываются [False, "_пользователь_", "", "",...]
проиндексировал почтовую базу, все равно пишет False в Msgbox "IsOpen" =+Cstr(mailDB.IsOpen)
параметр ISOPEN в maildb равен TRUE, если смотреть дебагером

 

[hosm]

проиндексировал почтовую базу, все равно пишет False в Msgbox "IsOpen" =+Cstr(mailDB.IsOpen)
параметр ISOPEN в maildb равен TRUE, если смотреть дебагером

так не бывает
проверьте Msgbox "IsOpen=" & Cstr(mailDB.IsOpen) после Set mailDB = s.GetDatabase(...)

 

[oleg7]

OKEN
да ISOpen=TRUE, на 20-м проходе в дебагере до меня дошло, где была ошибка


Добавлено: если далее выполнить

Set collection = mailDB.Search({(DocUNID="} & doc.UniversalId & {")}, Nothing, 0)

то в collection определяется UniversalId документа, который в БД1
А как в этом документе обновить данные?

 

[oleg7]

насколько я понял, то после Msgbox "IsOpen=" & Cstr(mailDB.IsOpen)
необходимо найти документ и обновить необходимые поля. Делаю так:

Set maildoc = mailDB.Search({(DocUNID="} & doc.UniversalId & {")}, Nothing, 0)
maildoc.Subject = doc.Title(0)

выдает ошибку: instance member Subject does not exist
Что делаю не так?

 

[nvyush]

насколько я понял, то после Msgbox "IsOpen=" & Cstr(mailDB.IsOpen)
необходимо найти документ и обновить необходимые поля. Делаю так:

Set maildoc = mailDB.Search({(DocUNID="} & doc.UniversalId & {")}, Nothing, 0)
maildoc.Subject = doc.Title(0)

выдает ошибку: instance member Subject does not exist
Что делаю не так?

У коллекции доков нет свойства Subject
Должно быть что-то вроде

Set maildocs = mailDB.Search({(DocUNID="} & doc.UniversalId & {")}, Nothing, 0)
Set maildoc = maildocs.GetFirstDocument
Do Until maildoc Is Nothing
Call maildoc.ReplaceItemValue("Subject", doc.GetItemValue("Title"))
Set maildoc = maildocs.GetNextDocument(maildoc)
Loop

З.Ы. Да почитайте наконец справку хотя бы по классам NotesDatabase, NotesDocument, NotesDocumentCollection

 

[hosm]

внутри цикла после изменения документа его сохранять надо, т.е. примерно так:

 Call maildoc.ReplaceItemValue("Subject", doc.GetItemValue("Title"))
call maildoc.Save(True, True)
Set maildoc = maildocs.GetNextDocument(maildoc)

 

[oleg7]

OKEN и nvy огромное Вам спасибо!!!
получилось. Агент обновляет поля поля

 

[nvyush]

OKEN и nvy огромное Вам спасибо!!!
получилось. Агент обновляет поля поля

Только не забудьте убрать msgbox из агента, нужно было только для отладки. Чтобы обновлялись почтовые базы других пользователей, агент нужно запускать RunOnServer с соответствующими правами. Не вдаваясь в подробности — установите на второй вкладке свойств агента run on behalf of... имя сервера и подпишите сервером. Возможно, придётся поднять security level (там же). Удачи.

 

[oleg7]

помогите, пожалуйста еще. В этом агенте поле тема обновляется:
Call maildoc.ReplaceItemValue("Subject", doc.GetItemValue("Title"))

А если также пытаюсь обновить поле Даты, то ничего не происходит.
Call maildoc.ReplaceItemValue("DueDate", doc.GetItemValue("dDate"))
Как правильно записать обновление даты?

 

[nvyush]

помогите, пожалуйста еще. В этом агенте поле тема обновляется:
Call maildoc.ReplaceItemValue("Subject", doc.GetItemValue("Title"))

А если также пытаюсь обновить поле Даты, то ничего не происходит.
Call maildoc.ReplaceItemValue("DueDate", doc.GetItemValue("dDate"))
Как правильно записать обновление даты?

Проверьте правильность имён и типов полей. Кстати, а вызов

Call maildoc.ReplaceItemValue("DueDate", doc.GetItemValue("dDate"))

случайно не после

Call maildoc.Save(True, True)

? Должно быть перед, иначе не сохраняются внесенные изменения.

 

[oleg7]

Должно быть перед, иначе не сохраняются внесенные изменения

перед сохранением.

 

[hosm]

проверьте в свойствах на Вашем документе у поля dDate Data Type (Time/Date) и его значение (самая нижняя строчка), т.е. типа такого:

Field Name: dDate
Data Type: Time/Date
...
Field Flags: SUMMARY

12.01.2010 18:34:45 ZE2

 

[oleg7]

а как сделать, чтобы: если в поле Status 0 (т.е. Закрыта), тогда в почтовой в Task в поле DisplayStatus должно быть Завершенная , если Status=1, тогда DisplayStatus - Выполняющаяся
делаю так :

If doc.GetItemValue("Status")=0 Then 
Call maildoc.ReplaceItemValue("DisplayStatus", "Завершенная")
End If
.........

Выдает ошибку Type mismatch
Поле Status - Dialog list (Computed when compose) - В работе | 1, Закрыта | 0 ....

 

[hosm]

If doc.GetItemValue("Status")(0)="0" Then


Добавлено: вот тут это расписано по полочкам:
https://codeby.net/threads/33009.html?vi...st&p=153876

 

[oleg7]

OKEN спасибо за помощь и за ссылку

 

[hosm]

кстати, если анализировать больше одного-двух значений, может, стоит посмотреть в сторону такой конструкции:
select case doc.GetItemValue("Status")(0)
case "0"
...
case "1"
...
end select

 

[oleg7]

столкнулся с такой проблемой: если пользователь изменит ФИО в поле, в котором указан исполняющий задачу, то задача будет созданна у нового исполнителя и у него все будет выполнятся правильно. а вот у того, кто был указан первоночально в поле, задача останется мертвой.
Удалить ее я не могу, т.к. агент работает по ФИО из поля испосполнителя
Что можно сделать?

 

[nvyush]

столкнулся с такой проблемой: если пользователь изменит ФИО в поле, в котором указан исполняющий задачу, то задача будет созданна у нового исполнителя и у него все будет выполнятся правильно. а вот у того, кто был указан первоночально в поле, задача останется мертвой.
Удалить ее я не могу, т.к. агент работает по ФИО из поля испосполнителя
Что можно сделать?

Можно при открытии документа в БД1 на редактирование запоминать "старый" список исполнителей во временном computed-for-display поле. При сохранении документа сравнивать с новым списком исполнителей и тем, кто выбыл, удалять задачу.

 

[hosm]

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


Добавлено: nvy
cfd разве что с @thisvalue покатит - оно ж при уи-сохранении пересчитывается...
наверно, можно при открытии запихнуть прежних в глобальную переменную на форме, если документ не переоткрывается кодом?

 

[oleg7]

запоминать "старый" список

такое поле есть в документе. То есть необходимо сравнивать содержимое старого поля и нового и потом в почтовых ящиках тех, кто не совпал удалять задачу?
:ya_lamo:

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