Нужен Агент

@dymot · Регистрация: 17.10.2008

Студворк — интернет-сервис помощи студентам

Нужен Агент, который пробегает по всем документам в указанном представлении и считывает или устанавливает значение у поля

@ottyx · 10.11.2008, 08:56

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
Set doc = view.GetFirstDocument
While Not(doc Is Nothyng)
 
 
a = doc.GetItemValue( "val" )
Call doc.ReplaceItemValue( "new_val", a )
Call doc.Save( False, True )
 
 
Set doc = view.GetNextDocument(doc)
Wend
End Sub

@dymot · 10.11.2008, 10:57

Немножко изменил агента. вот код:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim view2 As NotesView
Dim st As String
Dim doc As NotesDocument
Dim doc2 As NotesDocument
 
Set db = session.CurrentDatabase
Set view = db.GetView("Текущие клиенты")
Set view2 = db2.GetView("Физические лица")
Set doc = view.GetFirstDocument
st="клиент"
 
While Not(doc Is Nothyng)
Set doc2 = view2.GetFirstDocument
While Not(doc2 Is Nothyng)
If doc2.GetItemValue("PersonalWorkPlace")   = doc1.GetItemValue("AgentShortName") Then
Call doc2.ReplaceItemValue("klient_type",st)
Call doc2.Save(False, True)
End If
Set doc2 = view2.GetNextDocument(doc2)
Wend
Set doc = view.GetNextDocument(doc)
Wend
End Sub

При выполнении выдает вот такую оошибку "Variant does not contain an object".
на этой строчке

Code
1
If doc2.GetItemValue("PersonalWorkPlace")   = doc1.GetItemValue("AgentShortName") Then

@morphyus · 10.11.2008, 11:09

Сообщение от dymat

При выполнении выдает вот такую оошибку "Variant does not contain an object".
на этой строчке
If doc2.GetItemValue("PersonalWorkPlace") = doc1.GetItemValue("AgentShortName") Then

советую так

if InStr( doc2.GetItemValue("PersonalWorkPlace")(0 ), doc1.GetItemValue("AgentShortName")(0) ) > 0 then ...

@dymot · 10.11.2008, 11:20

Такая же ошибка...

@otyxomdyr (sryz) · 10.11.2008, 11:32

А есть ли в документах эти поля? Проверку можно на doc.HasItem("FieldName") делать.

@morphyus · 10.11.2008, 11:36

тьфу , блин заменить
doc1 на doc просто

откуда взялсо док1 вообще не понятно, вот что значить не польозваться декларе оптионс

@somstomtym o shyrvomymko · 10.11.2008, 17:58

Сообщение от dymat

Нужен Агент, который пробегает по всем документам в указанном представлении и считывает или устанавливает значение у поля

SELECT @All;
FIELD MeFld:=myValue

@dymot · 15.11.2008, 19:07

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim view2 As NotesView
Dim st As String
Dim pn As String
Dim sn As String
Dim doc As NotesDocument
Dim doc2 As NotesDocument
 
Set db = session.CurrentDatabase
Set view = db.GetView("Текущие клиенты")
Set view2 = db.GetView("Физические лица")
Set doc = view.GetFirstDocument
st="клиент"
 
While Not(doc Is Nothyng)
Set view2 = db.GetView("Физические лица")
Set doc2 = view2.GetFirstDocument
While Not(doc2 Is Nothyng)
If Instr( doc2.GetItemValue("PersonalWorkPlace")(0), doc.GetItemValue("AgentShortName")(0) ) > 0 Then
Call doc2.ReplaceItemValue("klient_type",st)
 
Call doc2.Save(False, True)
End If
Set doc2 = view2.GetNextDocument(doc2)
Wend
Set doc = view.GetNextDocument(doc)
Wend
End Sub

Возможно ли его как то оптимизировать или выполнить это же задачу иным образом?

@Mydyvys · 16.11.2008, 08:47

Оптимизировать можно взяв документы из представления "Физические лица" в коллекцию(NotesDocumentCollection или NotesViewEntryCollection) и при каждом проходе удалять из неё обработанные документы.
Set view2 = db.GetView("Физические лица") - это вынести из цикла.
Поставить view.AutoUpdate = False и view2.AutoUpdate = False.

А можно сделать массив значений "AgentShortName". Обход массива будет побыстрее обхода представления.

16.11.2008, 13:07

Всем привет!
Помогите разобраться с проблемкой….
Агент не шлет уведомление когда в значении «кому» указан не адресат, а имя поля, откуда нада его брать.

Создал агента, который запускается каждые 5 минут и
1. Проверяет базу на наличие новых подписанных заявок (по значению полей statusrec –подписан ли документ и checkdocstat – не проработал ли агент этот документ ранее)
2. Если оба условия соблюдены, то агент отправляет указанному адресату уведомление и ссылку на эту заявку и меняет статус поля checkdocstat на ”1” – то есть просмотрен.

Вот формула:

@If(statusrec="1" & checkdocstat="0"; @MailSend("ADM Assystant/company"; ""; ""; "Подписи к данной заявке собраны"; "Запрос на создание счета к новой заявке."; "economist"; [IncludeDoclink]) & FIELD checkdocstat:="1"; "");
SELECT @All

В таком виде работает, но хочется чтобы агент брал адресата из поля!
В базе есть документ настроек, в нем поле формата «Names» - вот хочу чтобы агент брал адресата из этого поля!

Вписываю вместо адресата имя поля:

@If(statusrec="1" & checkdocstat="0"; @MailSend(economist; ""; ""; "Подписи к данной заявке собраны"; "Запрос на создание счета к новой заявке."; "economist"; [IncludeDoclink]) & FIELD checkdocstat:="1"; "");
SELECT @All

Сохраняю….. сервак не ругается, типа формула верна, но ….. не работает!!!
ЧЁ делать…. ???

@obbotyk · 16.11.2008, 15:16

Ну, во-первых, странная у тебя структура.
Почему нельзя делать эту проверку и отсылать письмо в postsave?

Ну, а если хочешь так, то попробуй @Text ( economist ), хотя было бы не плохо посмотреть какое значение в нем лежит.

17.11.2008, 07:50

Сообщение от abbatik

Ну, во-первых, странная у тебя структура.
Почему нельзя делать эту проверку и отсылать письмо в postsave?

Ну, а если хочешь так, то попробуй @Text ( economist ), хотя было бы не плохо посмотреть какое значение в нем лежит.

Внес изменения по вашему совету - тишина, не срабатывает! (хотя формула верна, не ругается)
Когда вставляю эту формулу в postsave или queryclose, то говорит "No SendTo field in document. Use Forward on the actions menu instead."
По всей видимости он ищет указанное поле именно в документе заявки а не по всей базе.

Что касается формы отображения адресата в поле, из которого его следует брать, - так и отображается "ADM Assystant/company".
как сделать так чтоб он брал поле из нужного документа???

@Mydyvys · 17.11.2008, 15:17

Сообщение от nshoma

как сделать так чтоб он брал поле из нужного документа???

@DbLookUp, @GetDocField.

@Kyy_Kyykkymym · 17.11.2008, 16:04

Сообщение от allex

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView("By Category")
Set doc = view.GetFirstDocument
While Not(doc Is Nothyng)
 
 
a = doc.GetItemValue( "val" )
Call doc.ReplaceItemValue( "new_val", a )
Call doc.Save( False, True )
 
 
Set doc = view.GetNextDocument(doc)
Wend
End Sub

как вариант оптимизации таких ситуаций
после

Code
1
Set view = db.GetView("By Category")

использовать

Code
1
If view.EntryCount > 0 Then Call view.AllEntries.StampAll("itemName",value)

а остальное лишнее

19.11.2008, 08:39

Сообщение от Medevic

@DbLookUp, @GetDocField.

А как правильно формулу написать с использованием этих функций?
Я не совсем программист, просто пришлось разобраться с этой задачкой!
Заранее спасибо.

@obbotyk · 19.11.2008, 11:22

Сообщение от nshoma

А как правильно формулу написать с использованием этих функций?
Я не совсем программист, просто пришлось разобраться с этой задачкой!
Заранее спасибо.

Как-то так:

@If(statusrec="1" & checkdocstat="0"; @MailSend( @GetDocField( <Сюда надо вставить UNID профайл-документа> ; economist ); ""; ""; "Подписи к данной заявке собраны"; "Запрос на создание счета к новой заявке."; "economist"; [IncludeDoclink]) & @SetField( "fcheckdocstat";"1" ); "");
SELECT @All

Хотя, лично я не люблю использовать собаки для таких вещей.
Собаки хороши для небольших операций в кнопках, которые не надо отлаживать...

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@dymot 0 / 0 / 0 Регистрация: 17.10.2008 Сообщений: 506

	Нужен Агент 10.11.2008, 08:42. Показов 24147. Ответов 16 Метки нет (Все метки) Нужен Агент, который пробегает по всем документам в указанном представлении и считывает или устанавливает значение у поля 0

@dymot 0 / 0 / 0 Регистрация: 17.10.2008 Сообщений: 506
	10.11.2008, 11:20
	Такая же ошибка... 0

@otyxomdyr (sryz) 0 / 0 / 0 Регистрация: 13.03.2008 Сообщений: 234
	10.11.2008, 11:32
	А есть ли в документах эти поля? Проверку можно на doc.HasItem("FieldName") делать. 0

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	10.11.2008, 11:36
	тьфу , блин заменить doc1 на doc просто откуда взялсо док1 вообще не понятно, вот что значить не польозваться декларе оптионс 0

@Mydyvys 0 / 0 / 0 Регистрация: 04.12.2004 Сообщений: 3,329
	16.11.2008, 08:47
	Оптимизировать можно взяв документы из представления "Физические лица" в коллекцию(NotesDocumentCollection или NotesViewEntryCollection) и при каждом проходе удалять из неё обработанные документы. Set view2 = db.GetView("Физические лица") - это вынести из цикла. Поставить view.AutoUpdate = False и view2.AutoUpdate = False. А можно сделать массив значений "AgentShortName". Обход массива будет побыстрее обхода представления. 0

shomo2005
	16.11.2008, 13:07
	Всем привет! Помогите разобраться с проблемкой…. Агент не шлет уведомление когда в значении «кому» указан не адресат, а имя поля, откуда нада его брать. Создал агента, который запускается каждые 5 минут и 1. Проверяет базу на наличие новых подписанных заявок (по значению полей statusrec –подписан ли документ и checkdocstat – не проработал ли агент этот документ ранее) 2. Если оба условия соблюдены, то агент отправляет указанному адресату уведомление и ссылку на эту заявку и меняет статус поля checkdocstat на ”1” – то есть просмотрен. Вот формула: @If(statusrec="1" & checkdocstat="0"; @MailSend("ADM Assystant/company"; ""; ""; "Подписи к данной заявке собраны"; "Запрос на создание счета к новой заявке."; "economist"; [IncludeDoclink]) & FIELD checkdocstat:="1"; ""); SELECT @All В таком виде работает, но хочется чтобы агент брал адресата из поля! В базе есть документ настроек, в нем поле формата «Names» - вот хочу чтобы агент брал адресата из этого поля! Вписываю вместо адресата имя поля: @If(statusrec="1" & checkdocstat="0"; @MailSend(economist; ""; ""; "Подписи к данной заявке собраны"; "Запрос на создание счета к новой заявке."; "economist"; [IncludeDoclink]) & FIELD checkdocstat:="1"; ""); SELECT @All Сохраняю….. сервак не ругается, типа формула верна, но ….. не работает!!! ЧЁ делать…. ???

@obbotyk 0 / 0 / 0 Регистрация: 20.10.2008 Сообщений: 271
	16.11.2008, 15:16
	Ну, во-первых, странная у тебя структура. Почему нельзя делать эту проверку и отсылать письмо в postsave? Ну, а если хочешь так, то попробуй @Text ( economist ), хотя было бы не плохо посмотреть какое значение в нем лежит. 0