Danke Euch für den Tip, aber ich werde nicht ganz schlau wie ich das richtig anstellen soll.
Anbei mal der Code den ich aktuell für den Aufruf verwende und die Ausgabe im Domino-Log erfolgt.
Anstelle dieser Ausgabe soll alles (was unten im Code auskommentiert ist) an das derzeit geöffnete Dokument übergeben werden.
Ich bekomm's aber nicht gebacken, dem Agenten das aktuelle Dokument zu übermitteln.
Hier mal ein Teil des Codes:
Die Schaltfläche in dem Formular:
Sub Click(Source As Button)
Dim workspace As New notesuiworkspace
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As notesdocument
Dim uidoc As notesuidocument
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Call uidoc.Save
Dim agent As NotesAgent
Set db = s.CurrentDatabase
Set Agent = db.GetAgent("MeinAgent")
Call Agent.RunOnServer()
Call uidoc.Reload
Call workspace.ViewRefresh
End Sub
Der Agent der per RunOnServer ausgeführt wird:
Sub Initialize
Dim con As ODBCConnection
Dim dataSource As String
Dim userName As String
Dim password As String
Dim qry As New ODBCQuery
Set con = New ODBCConnection
Dim result As New ODBCResultSet
con.SilentMode = True
dataSource = "AS400"
userName = "Username"
password = "Passwort"
If Not con.ConnectTo(dataSource, userName, password) Then
'Call uidoc.FieldSetText("Status", "Verbindungsfehler")
MsgBox "Verbindungsfehler"
con.Disconnect
Exit Sub
End If
Set qry.Connection = con
Set result.Query = qry
qry.SQL ="SELECT Feld1, Feld2 FROM Tabelle1 WHERE Feld1 = 'Feld2'"
result.Execute
Error01 = "Result:"
Error02 = result.GetErrorMessage(result.Execute)
Error03 = result.GetExtendedErrorMessage(result.Execute)
'Call uidoc.FieldSetText("Status", Error01 & Chr(10) & Error02 & Chr(10) & Error03)
MsgBox "Error01 & Chr(10) & Error02 & Chr(10) & Error03
Do
result.NextRow
If Not result.IsResultSetAvailable Then
'Call uidoc.FieldSetText("Status", "Abfragefehler oder leeres Ergebnis!")
MsgBox "Abfragefehler oder leeres Ergebnis"
con.Disconnect
Exit Sub
End If
Feld1 = result.GetValue("Feld1")
Feld2 = result.GetValue("Feld2")
Loop Until result.IsEndOfData
'Call uidoc.FieldSetText("Formularfeld1", Feld1)
'Call uidoc.FieldSetText("Formularfeld2", Feld2)
MsgBox Feld1
MsgBox Feld2
con.Disconnect
End Sub
Was könnte das Problem sein, wenn trotz dem Reopen, die Felder nach wie vor leer bleiben und ich sie erst sehe wenn ich händisch schließe und wieder öffne??
Zum Ablauf:
In dem Button Click-Event rufe ich nach
Call Agent.RunOnServer(doc.NoteID)
Die ReOpen-Function habe ich etwas angepasst, da das mir immer die zuvor vom Agent eingetragenen Werte rausschmeißt. In auskommentierter Form bleiben sie erhalten.
So ganz verstehen tu ichs nicht ???
Habt Ihr noch eine Idee warum das ReOpen nicht funzt wie es soll?
Danke
Gruß Basti
Function ReOpen(doc As NotesDocument) As Integer
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim dbThis As NotesDatabase
Dim unid As String
ReOpen = 0
Set dbThis = doc.ParentDatabase
'Call doc.Save(True , True)
unid = doc.UniversalID
doc.SaveOptions = "0" ' # ... Speicherabfrage vermeiden
Set uidoc = ws.CurrentDocument
Call uidoc.Close
Set doc = dbThis.GetDocumentByUNID(unid)
Set uidoc = ws.EditDocument(True , doc)
Set doc = uidoc.Document
If doc.HasItem("SaveOptions") Then
' # ... das Feld SaveOptions wieder entfernen...
doc.RemoveItem("SaveOptions")
'Call doc.Save( True , True )
End If
ReOpen = 1
Print "Das Dokument wurde erneut geöffnet: " & unid
End Function