Agent funktioniert nicht ?!?

[DerAndre]

Also hast Du durch Zeitplan -> mehrmals am Tag eigestellt und einen Zeitplan eingerichtet?

[mgubler]

Hallo,

sorry das ich erst jetzt antworte.
Ich hatte erst jetzt wieder Zeit um mich dem Problem zu widmen.

Genau, ich habe gesagt, der Agent soll mehrfach am Tag laufen (zum Test alle 5 Minuten).
Das AgentLog zeigt mir an, dass der, sofern manuell gestartet ohne Probleme durchläuft, nur sobald ich den Agenten scheduled laufen lasse, bricht er ohne erkennbaren Fehler ab.
Ich habe das Script schon so geändert das es mir schrittweise Log-Einträge erzeugt.
Nur schein irgendwas in der DIM-Region nicht zu stimmen, denn schon der erste Eintrag wird nicht ins Log geschrieben.

Ergo muss ich irgendwas ansprechen was es im Scheduled-Mode nicht gibt.
Nur habe ich ehrlich gesagt, leider keine Ahnung, wie ich das Filtern soll.

[DerAndre]

Wie wäre es, wenn Du

On Error Goto...

als allererstes, also vor allem anderen stellen würdest? Und nicht erst mittendrin?

[dirk_2909]

Hallo Marc,

hast Du evtl. UI-Klassen eingebunden?

(hoffe nicht ;-) )

[DerAndre]

Wenn der gepostete Code der Richtige ist, dann hat er keine UI-Klassen eingebunden.

[mgubler]

Hallo zusammen,

@Dirk_2909:
Nein, ich habe keine UI Klassen angesprochen.
Die werden ja in einem solchen Agenten nicht angesprochen bzw. erkannt.
Aber ich habe keine Ahnung wieso der Agent nicht läuft.
Ich hatte es auch schon mit PRINT Befehlen versucht aber wie gesagt, schon im DIM scheint alles scief zu gehen.

[DAU-in]

Darf derjenige, der den Agenten signiert hat, scheduled Agents laufen lassen?
Und der Agent ist auch aktiviert?

[mgubler]

Ja, ich bin als Admin eingetragen und darf auch scheduled Agenten laufen lassen.
Und der Agent st auch enabled.

Dasselbe Phänomen habe ich ja auch, wenn der Agent bzw. die ganze Datenbank vom Server oder Administrator signiert wurde.

[DerAndre]

Hast Du inzwischen den on error goto nach ganz oben verfrachtet?

[mgubler]

ja, habe ich. aber es ist noch immer kein output erfolgt.
ich habe die ganze zeit die console laufen.
im Log (rechte Maustasta auf dem Agenten) steht nur:

Started running agent 'a_Syncro' on 11.03.2009 13:09:28
Running on all documents in database: 34 total
Found 34 document(s) that match search criteria
ERROR: Unknown LotusScript Error.
Ran LotusScript code
Done running agent 'a_Syncro' on 11.03.2009 13:09:28


Aber auf der Console nichts!!!
Noch nicht mal ein einfaches Print geht!

 

[koehlerbv]

Bring mal diese Zeile
Dim dateTime As New NotesDateTime( Datenumber(1995, 3, 14) )
syntaktisch in Ordnung - nur, um auf Nummer sicher zu gehen.

Bernhard

[DerAndre]

Äh, schau auch mal in der log.nsf nach, Bitte.

[mgubler]

@Bernhard:
Ich habe die Zeile nun wie folgt angepasst:
   Dim dateTime As New NotesDateTime("")
   dateTime.LocalTime = Datenumber(2000, 1, 1 )

@DerAndre:
In der log.nsf steht absolut nichts von diesem Agenten.

Aber warten wir mal die nächsten paar Minuten ab.

[DerAndre]

Kannst Dir die Wartezeit ja damit vertreiben...

[mgubler]

Kurzer Zwischenbericht:

Leider noch immer ohne Erfolg.
Weder gibt es einen Eintrag im agentlog.nsf oder im log.nsf

Also lag es auch nicht an dem Datetime, vermute ich.

[WernerMo]

Hallo

kann es ein Rechteproblem sein?
Darf der Signierer des Agenten auf dem Server...?
Musste unter V6 der Signiere nicht auch den Server auf dem der Agent läuft als Homeserver eingetragen haben - oder wie war das unter 6?

Gruß Werner

[koehlerbv]

Die Meldung im Agent-Protokoll bzw. das Fehlen von Aussagen im Log spricht mittlerweile gegen ein Rechteproblem. Der Agent läuft ja an und meldet dann "Unknown LotusScript Error" ...

Bernhard

[DerAndre]

Hm...

schonmal den Code in einen neuen Agenten kopiert und getestet?

[mgubler]

Die Rechts-Problematik hatte ich bereits ausgeschlossen, da ja auch der vom Admin signierte Agent Fehler produziert.

Ich bin gerade dabei den Agenten Zeile für Zeile neu zu schreiben!
Mal sehen wo der Fehler genau liegt.
Ich werde ihn dann hier veröffentlichen!

[mgubler]

Guten Morgen zusammen!

Nachdem ich nun den Agenten Schritt für Schritt neu geschrieben habe funktioniert er.
Nachfolgend nun der aktuelle (funktionstüchtige) Code:

Code

Sub Initialize
	
	On Error Goto ErrHandler
	Dim session As New NotesSession
	Dim TicketDB  As NotesDatabase
	Dim SupportDB As NotesDatabase
	Dim TicketView As NotesView
	Dim SupportView As NotesView
	Dim MyAgent As NotesAgent
	Dim dateTime As New NotesDateTime("")
	Dim selection As String
	Dim collection As NotesDocumentCollection
	Dim TicketDoc As NotesDocument
	Dim SupportDoc As NotesDocument
	Dim SupportID As String
	Dim TicketID As String
	
	dateTime.LocalTime = Datenumber(2000, 1, 1)
	
	Set SupportDB = session.CurrentDatabase	
	Set MyAgent = session.CurrentAgent
	
	LogIt("Start des Agenten")
	
	Set SupportView = SupportDB.GetView("(v_ReqNumber)")
	iCounter = SupportView.AllEntries.Count
	LogIt(iCounter + " Dokumente zum Bearbeiten gefunden")
	LogIt("Hole erstes Dokument aus der SupportTracking Datenbank")
	Set SupportDoc = SupportView.GetFirstDocument
	
	LogIt( "Ticket-DB holen")
	Set TicketDB = session.GetDatabase("Maria_Notes","it-troubticket.nsf",False)
	LogIt( "View aus der Ticket-DB holen")	
	Set TicketView = TicketDB.GetView("(v_ReqNumber)")
	
	While Not (SupportDoc Is Nothing)
		LogIt( "Support-ID holen")
		SupportID = SupportDoc.ReqNumber(0)
		LogIt( "Support-ID: " + SupportID)
		LogIt( "Selektion zusammensetzen")
		selection = |@Contains( ReqNumber; "| + SupportID+ |" )|
		Print "Suche in der TroubelTicket-Datenbank Ticket " + SupportID
		
		LogIt( "Collection bilden indem Selection in der TroubleTicket-Datenbank gesucht wird")
		Set collection = TicketDB.Search( selection, dateTime, 0 )		
		LogIt( "Erstes (und einziges) Dokument aus der Collection holen")
		Set TicketDoc = collection.GetFirstDocument()
		
		LogIt( "Prüfung ob Dokument in TicketDB vorhanden")
		If (TicketDoc Is Nothing) Then
			LogIt( "Ticket mit der Support-ID " + SupportID + " in der TIcketDB nicht gefunden!")
			Print "Ticket " + SupportID + " wurde nicht in der Ticket-DB gefunden! Nächstes Dokument (" + iCounterX + " / "+iCounter+")"
			LogIt( "Nächstes Dokument nehmen")
			Goto EndeIf
		End If
		
		LogIt( "While TicketDoc is not nothing")
		While Not TicketDoc Is Nothing
			LogIt( "Ticket-ID holen")
			TicketID = TicketDoc.ReqNumber(0)
			LogIt( "Ticket-ID mit Support-ID vergleichen")
			If (SupportID = TicketID) Then
				LogIt( "Ticket-ID == Support-ID ("+ SupportID +")")
				LogIt( "Solution holen ("+ SupportID +")")
				tmpString=TicketDoc.GetItemValue("solution")
				LogIt( "Solution in Dok schreiben ("+ SupportID +")")
				Call SupportDoc.ReplaceItemValue("solution", tmpString)
				
				LogIt( "Kommentar für den Benutzer holen ("+ SupportID +")")
				tmpString=TicketDoc.GetItemValue("tx_usercomment")
				LogIt( "Kommentar für den Benutzer schreiben ("+ SupportID +")")
				Call SupportDoc.ReplaceItemValue("tx_usercomment", tmpString)
				
				LogIt( "Status holen ("+ SupportID +")")
				tmpString=TicketDoc.GetItemValue("Status")
				LogIt( "Status schreiben ("+ SupportID +")")
				Call SupportDoc.ReplaceItemValue("Status", tmpString)
				
				LogIt( "Supporter holen ("+ SupportID +")")
				tmpString=TicketDoc.GetItemValue("supporter")
				LogIt( "Supporter schreiben ("+ SupportID +")")
				Call SupportDoc.ReplaceItemValue("supporter",tmpString)
				
				LogIt( "Dok speichern ("+ SupportID +")")
				Call SupportDoc.Save(True, True)				
				Goto EndeIf
			End If			
		Wend
EndeIf:	
		LogIt( "Nächstes SupportDoc holen")
		Set SupportDoc = SupportView.GetNextDocument(SupportDoc)
		iCounterX = iCounterX +1
	Wend
	
	LogIt("Beenden des Agenten")	
	
ErrHandler:                 ' Error-handling routine
	If (Err <> 0) Then
		LogIt( "Fehler in Zeile " & Erl & " Fehler: " & Error$)
		Print "Error " & Error$ & " at line number " &Erl
		Exit Sub		
	End If
End Sub
 
Sub LogIt(strText)
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim currentLog As NotesLog
	Set db = session.CurrentDatabase
	Set agent = session.CurrentAgent
	Set currentLog = New NotesLog ( agent.Name + "-Agent in Datenbank " + db.Title + " auf " + db.Server )
	Call currentLog.OpenNotesLog( "Maria_Notes/Maria-Hilf GmbH", "agentlog.nsf" )
	currentLog.LogAction(strText)
	Print agent.Name & "  ||  " & strText
	Call currentLog.Close
End Sub
 

Wie man dem Code entnehmen kann, habe ich gar nicht so viel geändert!
Ich habe nur die folgenden Klassen ausgelassen:
 - NotesDirectory
 - NotesViewEntryCollection
 - NotesViewEntry

Ergo hat sich nicht so viel verändert; aber scheinbar genug um den Agenten am run zu hindern.

Trotz allem möchte ich mich an dieser Stelle für die tatkräftige Unterstützung der beteiligten Personen bedanken.

Gruß aus Krefeld =)