Solved

Agents

Posted on 2002-05-01
9
373 Views
Last Modified: 2013-12-18
I am new to LotusScript. Someone please help

I have an employee database application (a form) where the employee details data is entered manually by the users. The form has fields like dept, designation, location, region etc which is picked up from the respective masters using DBColumn. The names of the dept, designation etc are changed from time to time. If a dept is called 'tech' today, it might be called 'tech services' tomorrow. Changes can only be made to the dept name and not to the dept code. On change of dept name, if the user presses the update button, i would like to call an agent which would fetch all the existing records with say 'tech' and replace them with say 'tech services'. I have written the following agent. But it is bringing the documents in front of the screen while the agent is running. How can I make it run in the backend without bringing the documents in front. Also the agent needs to be web compatible. The following is the code I have used :

Sub Initialize
     Dim session As New NotesSession
     Dim db As NotesDatabase
     Dim view As NotesView
     Dim doc As NotesDocument,curdoc As NotesDocument
     Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Dim vc As NotesViewEntryCollection
     
     Set db=session.currentDatabase
     Set view=db.getview("EmpV")
     Set vc=view.allentries
     Set doc=view.GetFirstDocument
     Set curdoc = session.DocumentContext
     
     While Not (doc Is Nothing)
     if curdoc.DepartmentCode(0)=doc.HidDeptCode(0)
        Then
     Set uidoc=workspace.editdocument(True,doc)
     Call uidoc.FieldSetText("EDepartment",curdoc.DepartmentDescription(0))
     Call uidoc.save(True,True)
        Call uidoc.close
          End If
          Set doc=view.GetNextDocument(doc)
     Wend
End Sub


Note : Hid DeptCode is the hidden field name in the employee form which stores the numeric value of the dept assigned.
0
Comment
Question by:c_ranjit
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 4
9 Comments
 
LVL 9

Expert Comment

by:Arunkumar
ID: 6985558
Do not use uidoc and fieldsettext.

Instead convert the uidoc to a otherdoc as follows...

Set otherdoc = uidoc.Document

now set the uidocs field as follows.....

otherdoc.FieldName = "VALUE"

now save the otherdoc as follows.....

call otherdoc.Save(True,False)

Thats it!

Good Luck!
Arun.
{S: Just avoid all the ui contexts...that is all needed.)
0
 
LVL 10

Accepted Solution

by:
zvonko earned 100 total points
ID: 6985566
Check this one:
Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim view As NotesView
  Dim doc As NotesDocument
  Dim curdoc As NotesDocument
 
  Set db = session.CurrentDatabase
  Set view = db.GetView("EmpV")
  Set doc = view.GetFirstDocument
  Set curdoc = session.DocumentContext
  While Not (doc Is Nothing)
    If (curdoc.DepartmentCode(0) = doc.HidDeptCode(0)) Then
      doc.EDepartment = curdoc.DepartmentDescription(0)
      Call doc.Save(True,True)
    End If
    Set doc=view.GetNextDocument(doc)
  Wend
End Sub

Regards,
zvonko

0
 
LVL 9

Expert Comment

by:Arunkumar
ID: 6985595
haa haa haa !!!
Same thing but in a neat format...You copied my logic though.  I appreciate it...
;-)
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 10

Expert Comment

by:zvonko
ID: 6985629
Can it be copied? :))
0
 
LVL 9

Expert Comment

by:Arunkumar
ID: 6985648
Why cant ?   You did it already right ?

;-)
PS: Tell you what...100k will be ME ! I got about 1500 yesterday at this rate 7 more days i will reach 100k easily what do you say ?
0
 

Expert Comment

by:sampa
ID: 6985656
I think this is going to work well the only problem being that every time a document will be opened when the condition matches.
Just remove the line view.Allentries.
In any case u r browsing thru every doc.
0
 
LVL 10

Expert Comment

by:zvonko
ID: 6985670
Arun, this is only working if I miss them all ;-)

Hello sampa :-)

0
 
LVL 9

Expert Comment

by:Arunkumar
ID: 6985677
haa haa haa !!! And you got a B !!!
0
 
LVL 10

Expert Comment

by:zvonko
ID: 6985706
OK c_ranjit, you are new to this community so let you be explained this: grading are NOT school gradings!

Click on the link below for more explanations :-)

Thank you for the points, but some kind feedback would also do well (if it does not cost too much of your valuable time :-)

0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

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…
IBM Notes offer Encryption feature using which the user can secure its NSF emails or entire database easily. In this section we will discuss about the process to Encrypt Incoming and Outgoing Mails in depth.
If you’ve ever visited a web page and noticed a cool font that you really liked the look of, but couldn’t figure out which font it was so that you could use it for your own work, then this video is for you! In this Micro Tutorial, you'll learn yo…
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers. Hopes this gives you ideas on visualizing your data in new ways ~ Create a calculated field in a query: …

705 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