?
Solved

Agents

Posted on 2002-05-01
9
Medium Priority
?
374 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 300 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
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
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

Problem "Can you help me recover my changes?  I double-clicked the attachment, made changes, and then hit Save before closing it.  But when I try to re-open it, my changes are missing!"    Solution This solution opens the Outlook Secure Temp Fold…
Article by: Rob
Notes 8.5 Archiving Steps and Tips This article covers setting up a Notes archive, and helps understand some of the menu choices making setting up and maintaining a Notes archive file easier.
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…
Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…
Suggested Courses
Course of the Month7 days, 23 hours left to enroll

765 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