Продукты IBM Lotus > IBM Lotus Notes & Domino

Проблемы при работе с Folders

(1/4) > >>

Mabuta:
Добрый день уважаемы знатоки!

Может пишу не в том разделе, если чего перенесу.

У меня такая проблема:

У меня есть view с документами, мне нужно выбирать документы по условию, ну допустим зарплата < 5000 грн и помещать этот документ в созданый заранее Folder, при этом удалять этот документ из view.

Пока я выбираю документы таким образом:


--- Код: ---Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Set db = session.CurrentDatabase
Set collection = db.UnprocessedDocuments
Call collection.PutAllInFolder( "Відповідні вакансії резюме" )
End Sub

--- Конец кода ---

Подскажите пожалуйста в каком хотя бы направлении идти, или ссылку на источник, ОЧЕНЬ нужна помощь!!!

Вот мыло garnett@bigmir.net

Заранее спасибо!!!

Alla Makshanova:
Попробуйте.
Поочередно проверяем каждый документ из коллекции, начиная с первого.  Поле "Заработная плата" документа назовем Pay, поменяйте его имя на Ваше

   Dim doc As NotesDocument
   Dim doc1 As NotesDocument

   Set doc = collection.Getfirstdocument()
       While Not(doc Is Nothing)
                Set doc1 = collection.GetNextDocument(doc)


                 If doc.Pay(0)<5000 Then    'проверяем размер зарплаты
                       Call doc.PutInFolder("имя папки",True)
                   End If
   Set doc = doc1   'переходим к следующему документу
   Wend
В дизайнере откройте, пожалуйста, Help>Help Contents и наберите PutInFolder method. Там же будут ссылки на примеры

Mabuta:
Спасибо за ответ
Нл на этой строчке скрипт вылетает Set doc = collection.Getfirstdocument(), так как не может получить паремтр Getfirstdocument по сути.
А в хелпе по PutInFolder ничего про удаление нету, я уже смотрел

Alla Makshanova:
Я прошу прощения, отпечатка.
Надо написать без скобочек

Set doc = collection.Getfirstdocument

В Хелп наберите
NotesDocumentCollection class

Там есть список методов, как их правильно использовать

Mabuta:
Я прошу прошения, а можно использовать вот это

Set collection = db.AllDocuments или такого как AllDocuments нету?

И еще если выдаеться ошибка  "Type mismatch" при обращении к строке 

If doc.Zarplata(0) < 4000 Then

чтобы это могло значить?

Навигация

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

[#] Следующая страница