Solved

Agents

Posted on 2002-05-01
9
368 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
  • 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
 
LVL 10

Expert Comment

by:zvonko
ID: 6985629
Can it be copied? :))
0
Top 6 Sources for Identifying Threat Actor TTPs

Understanding your enemy is essential. These six sources will help you identify the most popular threat actor tactics, techniques, and procedures (TTPs).

 
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

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

Suggested Solutions

You’ve got a lotus Domino web server, and you have been told that “leverage browser caching” is a must do. This means that we have to tell the browser everywhere in the web to use cache. In other words, we set (and send) an expiration date in the HT…
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…
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…
In this tutorial you'll learn about bandwidth monitoring with flows and packet sniffing with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're interested in additional methods for monitoring bandwidt…

746 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

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now