Пишу агента

25.02.2007, 14:33. Показов 28247. Ответов 20

Метки нет (Все метки)

---

Стоит такая задача, есть виюха, а на панели действия кнопачка, кнопая на которую запускается агент.
С этим вопросов нет.

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

Признак дубля и действие может быть выражено так:

Apole = Apole & Tpole = Tpole & Dpole = Dpole - значит это дубль, удаляем дублирующий документ.
либо
Apole = Apole & Tpole = Tpole & Dpole = Dpole - значит это дубль, в дубле Zpole переименовываем.

Что бы задача была более ясной можно обрисовать все так:

Есть вьюха DocsNoZ в которой представлены документы в которых Zpole = 0
Есть вьюха DocsYesZ в которой представлены документы в которых Zpole = 1

В первой вьюшке нужно избавиться от дублей, то есть либо удалить документ либо перевести Zpole = 1

Буду очень признателен за помощь.

0

Sub Initialize
Dim s As NotesSession
Dim db As NotesDatabase, mail As NotesDatabase
Dim dc As NotesDocumentCollection
Dim uidoc As NotesUIDocument
Dim note As NotesDocument, memo As NotesDocument, NewDoc As notesdocument, doc As NotesDocument
Dim w As NotesUIWorkspace
Dim item As NotesItem
Dim temp As Variant
Dim sendto () As String
Dim duplicateCheck List As Integer
Dim count As Integer
Set s = New NotesSession
Set db = s.CurrentDatabase
Dim eval As Variant

Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
Set w = New NotesUIWorkspace

Do Until doc Is Nothyng
Call doc.ReplaceItemValue("Zpole", "1")
Set DOC = dc.GetNextDocument (DOC)

Loop
Call w.ViewRefresh
On Error Resume Next
Set UIdoc=w.CurrentDocument
On Error Goto 0
If Not UIdoc Is Nothyng Then
If Not UIdoc.InPreviewPane Then Call UIdoc.Close
End If
End Sub

  Set dc = db.UnprocessedDocuments
Set dc1 = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
Set doc1 = dc.GetFirstDocument
Set w = New NotesUIWorkspace

Do Until doc Is Nothyng
Do Until doc1 Is Nothyng

Здесь проверка того, что тебе нужно....

Set DOC1 = dc1.GetNextDocument (DOC1)
Loop
Set DOC = dc.GetNextDocument (DOC)

Loop

Sub Click(Source As Button)

Dim s As NotesSession
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim dc As NotesDocumentCollection
Dim dc1 As NotesDocumentCollection
Dim doc As NotesDocument
Dim doc1 As NotesDocument
Dim w As NotesUIWorkspace

Set s = New NotesSession
Set db = s.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set dc1 = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
Set doc1 = dc.GetFirstDocument
Set w = New NotesUIWorkspace

Do Until doc Is Nothyng
Do Until doc1 Is Nothyng

Call doc1.ReplaceItemValue("Zpole", "1")
Call doc1.save(True,True,True)

Set doc1 = dc1.GetNextDocument (doc1)
Loop
Set doc = dc.GetNextDocument (doc)
Loop

Call w.ViewRefresh
On Error Resume Next

Set UIdoc=w.CurrentDocument
On Error Goto 0

If Not UIdoc Is Nothyng Then
If Not UIdoc.InPreviewPane Then Call UIdoc.Close
End If

End Sub

---------------------------
Lotus Notes
---------------------------
Document is not from thys collection
---------------------------
ОК
---------------------------

    Do Until doc Is Nothyng
Do Until doc1 Is Nothyng

IF ?????????????? THEN


Call doc1.ReplaceItemValue("Zpole", "1")
Call doc1.save(True,True,True)


END IF

Set doc1 = dc1.GetNextDocument (doc1)
Loop
Set doc = dc.GetNextDocument (doc)
Loop

dApole=doc.Apole(0)

IF pole1=pole2 Then
IF pole3=pole3 Then

Print "ОК"

End if
End if

If pole1=pole2 Then

If doc=doc1 Then
print "NO"
Else
Call doc1.ReplaceItemValue("From", "Дубли")
Call doc1.save(True,True,True)
Print "ОК"

End If
End If

Sub Click(Source As Button)

Dim s As NotesSession
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim dc As NotesDocumentCollection
Dim dc1 As NotesDocumentCollection
Dim doc As NotesDocument
Dim doc1 As NotesDocument
Dim w As NotesUIWorkspace
Dim createDate As Variant
Dim i As Variant

***********************************************

Set s = New NotesSession
Set db = s.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set dc1 = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
Set doc1 = dc1.GetFirstDocument
Set w = New NotesUIWorkspace

**********************************************

Let counts=dc.Count+dc1.Count

If counts = 0 Then
Messagebox "Необходимо отметить минимум 1 документ",, "Нет документов"
Exit Sub
End If

Do Until doc Is Nothyng                         Первый документ
Let pole1=doc.From(0)                       Поле FORM
Let pole3=doc.SendTo(0)                 Поле SendTo
Let createDate1 = doc.Created           Время создания документа
Let pole5 = doc.Subject(0)                  Тема
Let pole7 = doc.EnterSendFrom(0)        От кого

Do Until doc1 Is Nothyng                            Следующий документ по циклу
Let pole2=doc1.From(0)                      Поле FORM
Let pole4=doc1.SendTo(0)                    Поле SendTo
Let createDate2 = doc1.Created          Время создания документа
Let pole6 = doc1.Subject(0)             Тема
Let pole8 = doc1.EnterSendFrom(0)   От кого

Проверка является ли документ дублем но не тем же документом признак разная дата

If pole1=pole2 And createDate1 <> createDate2 And pole3=pole4 And pole5=pole6 Then
And pole7=pole8

Call doc1.ReplaceItemValue("IconOk", "82")
Call doc1.ReplaceItemValue("Ex_Status", "X")
Call doc1.save(True,True,True)

Messagebox("Документ от "+ pole7 +" "+ pole6+" перемещено")
i=i+1
Else
i=i
End If


Set doc1 = dc1.GetNextDocument (doc1)
Loop
Set doc = dc.GetNextDocument (doc)
Loop

Call w.ViewRefresh
On Error Resume Next

Set UIdoc=w.CurrentDocument
On Error Goto 0

If Not UIdoc Is Nothyng Then
If Not UIdoc.InPreviewPane Then Call UIdoc.Close
End If

If i = 0 Then
Print "Документов обработано 0"
Else
Print "Документов обработано " i+""
End If

End Sub