asked on

Need a change of a front end agent to work in the web

hi,

the original problem is that there is a form where you enter a number (type text).
in the database there is 1 view showing relevant documents (selected by form used).
for the number entered allways only 1 document will be found (if you'd search manually ).

i have a script (see below) where this document is located and 1 field is replaced by a new value
and the document is saved.

my problem now is that (as far as i understand it) this agent is only usable in a notes front end.
...but i need to have it work in a browser.

my question for you is:
can you rewrite this to work in a browser (and tell me how to gwt it running)
or
may write e.g. something new in java (if this is more easy)

this is what i have sofar:

Sub Initialize
      Dim session As New NotesSession
      Dim workspace As New NotesUIWorkspace
      Dim db As NotesDatabase
      Dim view As NotesView
      Dim uidoc As NotesUIDocument
      Dim doc As NotesDocument
      Dim item As NotesItem
      Dim dateTime As New NotesDateTime( "" )
      Set uidoc = workspace.CurrentDocument

      Set db = session.CurrentDatabase
      Set view = db.GetView ("($NX)" )
      Dim key As String
      Dim key2 As String
      key = Cstr(uidoc.FieldGetText ("buchnummer"))
      Set doc = view.GetDocumentByKey (key)
      If Not (doc Is Nothing) Then
            Call dateTime.SetNow
            Set doc.rueckgabe = dateTime
            Call doc.Save(True,True)
      End If
      Set db = session.CurrentDatabase
      Set view = db.GetView ("($NR)" )
      key2 = Cstr(uidoc.FieldGetText ("buchnummer"))
      Set doc = view.GetDocumentByKey (key2)
      If Not (doc Is Nothing) Then
            Set Item = doc.ReplaceItemValue("status","vorhanden")
            Call doc.Save(True,True)
      End If
      Call uidoc.Close
End Sub

Bozzie4

Yeah this agent is only useable in the notes client. You must rewrite it :
- get rid of the ui-objects and methods (uiworkspace, uidocument)
- use a correct method to get a handle to the current document
eg. set doc = session.documentcontext
(there are other ways)

cheers,

Tom

p_partha

You cannot use notesfrontend classes in web. What you have to do is have a form which displays the field and have a button with the javascript :

document.forms[0].submit()

and in the webquerysave of the form , have a agent with some name and this is the agent code:
Sub Click(Source As Button)
      Dim session As New NotesSession

      Dim db As NotesDatabase
      Dim view As NotesView
      Dim uidoc As NotesUIDocument
      Dim doc As NotesDocument
      Dim item As NotesItem
      Dim dateTime As New NotesDateTime( "" )


      Set db = session.CurrentDatabase
      Set curdoc = session.documentcontext
      Set view = db.GetView ("($NX)" )
      Dim key As String
      Dim key2 As String
      key = curdoc.buchnummer(0)
      Set doc = view.GetDocumentByKey (key)
      If Not (doc Is Nothing) Then
            Call dateTime.SetNow
            Set doc.rueckgabe = dateTime
            Call doc.Save(True,True)
      End If
      Set db = session.CurrentDatabase
      Set view = db.GetView ("($NR)" )
      key2 = curdoc.buchnummer(0)
      Set doc = view.GetDocumentByKey (key2)
      If Not (doc Is Nothing) Then
            Set Item = doc.ReplaceItemValue("status","vorhanden")
            Call doc.Save(True,True)
      End If
End Sub