Probleme bei AS400 Abfrage mittels ODBC auf Domino-Server (RunOnServer)

[Basti07]

Tag zusammen,

vielleicht könnt Ihr mir bei meinem Problem helfen.
Derzeit arbeite ich an einem Kundendienstformular. Hierüber sollen Reklamationen unserer Kunden abgewickelt werden. Unsere Mitarbeiter sollen im Formular u.a. Angaben zum Kunden - den es ja schon bei uns im System AS400 gibt - angeben. Es wäre also praktisch, wenn Daten wie Adresse, Telefonnummer, etc. nach Eingabe einer Kunden- oder Auftragsnummer automatisch per ODBC und SQL-Abfrage zur AS400 ermittelt werden und in das Formular eingesetzt werden.

Es funktioniert bereits, so lange der Agent und das konfigurierte ODBC direkt auf dem Client ausgeführt wird.
Das ist aber nicht Sinn der Sache, wir möchten dass der Agent auf dem Domino-Server ausgeführt wird. Entsprechend haben wir den Agenten umgebaut und verwenden den Befehl "Agent.RunOnServer".

Und jetzt zum Problem:
Leider werden die Abfrage-Ergebnisse des SQL-Statements nicht an den Client und in das Formular zurückgeschrieben, sondern nur in das Domino-Log des Servers (so wird es u.a. ja auch in der Designer-Hilfe beschrieben: "The user cannot interact directly with a called agent. User output goes to the Domino log.") Das ist natürlich blöd, denn an der Stelle bringt es uns ja recht wenig.

Gibt es einen Trick oder eine Alternative das SQL-Result an das Formular zu übergeben?
Leider bin ich nirgends fündig geworden.

Vielen Dank
Gruß Basti

[m3]

Schreib das Ergebnis in das Notes-Dokument, speichere es und refreshe im Anschluss das Display.

[koehlerbv]

Ich würde eher nach der Fertigmeldung des NotesAgent.RunOnServer ein NotesUIDocument.Reload im Frontend durchführen. Ggf. ist auch noch ein folgendes NotesUIWorkspace.ViewRefresh erforderlich.

Bernhard

[m3]

Das meinte ich ja

BTW - Salzburg waere super!

[koehlerbv]

BTW - Salzburg waere super!

Das finde ich auch, Martin. Absolut! 

Bernhard

[Basti07]

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:

Code

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:

Code

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

[koehlerbv]

Warum übergibst Du dem Agent nicht die NoteID des betreffenden Dokuments?
Warum dealst Du auf einem serverbasierenden Agent mit Messagebox und wunderst Dich, dass das Zeug im Server-Log landet?

Empfehlung: R.T.F.M.!

Bernhard

[Peter Klett]

In Deinem auskommentierten Script arbeitest Du im Frontend (uidoc), das kann kein periodisch laufender Agent (agent.RunOnServer ist ein periodischer Agent).

Du musst

Dein geöffnetes Dokument speichern (falls es das noch nicht ist)
Den Agenten auf dem Server starten und dabei das Dokument mitgeben (NoteID)
Das Dokument durch den Agenten im Backend (also NotesDocument, nicht NotesUIDocument) mit Daten befüllen
Das geöffnete Dokument aktualisieren

Auch eventuelle Fehlermeldungen solltest Du in ein entsprechendes Feld im Dokument eintragen, dann kann der Benutzer die nach Lauf des Agenten direkt sehen.

[Basti07]

Das mit der NoteID hat funktioniert und ebenfalls auch das Befüllen des Backend-Dokumentes, danke dafür!

Jetzt hebt's nur noch an dem NotesUIDocument.Reload / NotesUIWorkspace.ViewRefresh.
Das Frontend-Dokument wird und wird nämlich - trotz der o.s. Befehle nicht aktualisiert. Erst wenn ich das Frontend-Dokument schließe und wieder öffne, kann ich die neuen Werte sehen, aber ich will natürlich dass die Werte für den Anwender sofort zu sehen sind.

Gruß
Basti

[Peter Klett]

Mit dem Reload habe ich keine Erfahrung. Wenn es wirklich nicht ohne Schließen und Öffnen geht, würde ich das halt tun (natürlich automatisch), da flackert nur mal kurz der Schirm. Einziger sonstiger Nachteil: Bei großen Dokumenten, bei denen der Benutzer vielleicht einen Reiter geöffnet hat oder nach unten gescrollt hatte, springt das Dokument natürlich auf den Anfang zurück.

Aber vielleicht kennt jemand einen Trick, wie man ein Dokument, das im Backend von einem Agenten verändert wurde, aktualisieren kann, ohne es zu schließen. Ich erinnere mich nicht, sowas jemals gebaut zu haben.

[koehlerbv]

NotesUIDocument.Reload + .ViewRefresh - solange da kein Richtext Item involviert ist (auch wenn es gar nicht geändert wurde).
Sonst hilft nur ein Close / Reopen, wie Peter es schon aufgemalt hat.

Bernhard

[Basti07]

Ein RTI ist nicht vorhanden, habe mich nun aber trotzdem für das Close und Reopen-Verfahren entschieden und als Vorlage den Code von ata verwendet.

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

Code

Call Agent.RunOnServer(doc.NoteID)

die u.s. ReOpen-Function mit

Code

Call ReOpen(doc)

auf.

Die ReOpen-Function habe ich etwas angepasst, da das

Code

doc.Save(True, True)

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

Code

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

[Peter Klett]

M.E. wird das Dokument nicht sauber geschlossen, sonst wäre die Abfrage nach dem SaveOptions nach dem Öffnen sinnfrei.

Dokument Speichern
SaveOptions setzen
UIDoc schließen

Wenn dieses Dokument wieder neu geöffnet wird, kann es kein SaveOptions haben, denn das kann nicht gespeichert worden sein. Ist es dennoch enthalten, ist es nicht wirklich völlig neu geladen worden.

Ich würde das Dokument nach dem Schließen aus dem Speicher entfernen und erst dann wieder öffnen.

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
   Delete doc
    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

[Basti07]

Peter, das Delete hat's gebracht!

Vielen Dank