Solved

View Selection Criteria

Posted on 2001-06-02
5
259 Views
Last Modified: 2013-12-18
Hello,

I would like to implement a query form that filter the documents based on the criteria the user enters, and display the selected documents in a view.
Is that possible with Notes?

Please note that the query form contains more than 10 fields, and they are optional. i.e. The user can select by one field only or by 10 fields.

Is there a way to specify the view Selection Criteria programatically??

Many Thanks,
Areej
0
Comment
Question by:Areej
  • 2
  • 2
5 Comments
 
LVL 9

Accepted Solution

by:
Arunkumar earned 50 total points
ID: 6149175
You cannot programmatically do the view selection but instead you could use a folder and have an action button with which you could populate the folder by using the Search Criteria on the database and getting a collection and further filtering the collection using the search on the collection and finally the end collection is putallinfolder.

If i find the link to a similar question i will post it here.

-Arun
0
 

Author Comment

by:Areej
ID: 6150805
That's wonderful..
But how to initialize the folder before moving the documents to it? How to delete the old documents from the folder before copying the new documents?

Many thanx,
Areej
0
 
LVL 5

Expert Comment

by:snocross
ID: 6152704
Here is some Lotusscript code you can use to build the folder:

Dim session As New NotesSession
     Dim db As New NotesDatabase("YourServer","YourDirectory\YourDatabase.nsf")
     Dim dateTime As New NotesDateTime( "12/01/94" )
     Dim collection As NotesDocumentCollection
     Dim BackFolder As String
     Dim UIDb As NotesDatabase
     Dim UIDoc As NotesDocument
     Set UIDb = session.CurrentDatabase
     Set UIDoc = session.DocumentContext
     BackFolder = UIDoc.Year(0)
     Set collection = db.Search( "Year = '"+BackFolder+"' & (Form = 'Whatever' | Form = 'SomethingElse')",
dateTime, 0 )
     Set doc = collection.GetFirstDocument
     While Not doc Is Nothing
          Call doc.PutInFolder( "Year_"+BackFolder+"_Results" )
          Set doc = collection.GetNextDocument(Doc)
     Wend
    REM Print("TEST")
     If collection.count >0 Then
          Print "[/YourDirectory/YourDatabase.nsf/Deal_"+BackFolder+"_Results?OpenView]"
     Else
          Print "Sorry, no results found."
     End If
     UIDoc.BuildFolder = "N"
     Call UIDoc.save(True,True)    

Now, what I do is I have a scheduled agent that removes the folders each day:

Dim SourceDb As NotesDatabase    
     Set SourceDb = New NotesDatabase("YourServer", "YourDirectory\YourDatabase.nsf")  
     Forall v In Sourcedb.views
          Set view=SourceDB.GetView(v.Name)
          If v.IsFolder Then
               'Print "Deleting folder " & v.Name
               Call view.Remove
          End If
     End Forall

Hope this helps,

-Snocross
0
 
LVL 9

Expert Comment

by:Arunkumar
ID: 6156994
Create an action button with the following code,

@Command([EditSelectAll]);
@Command([RemoveFromFolder])

Also just in the script include a little bit of code that will check the currrent folder is empty.  Just get the first document handle and prompt that the folder has to be cleared.

:-)
0
 

Author Comment

by:Areej
ID: 6215911
Many Thanx.. :-)
0

Featured Post

3 Use Cases for Connected Systems

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, testing some more, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

For beginners of Lotus Notes user this is important to know about the types of files and their location supported by IBM Notes. Mostly users are unaware about how many file types are created and what their usages are. This Article is fully dedicated…
Notes Document Link used by IBM Notes is a link file which aids in the sharing of links to documents in email and webpages. The posts describe the importance and steps to create a Lotus Notes NDL file in brief.
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…

770 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question