Domino 9 und frühere Versionen > ND6: Entwicklung

Agent tut nichts

(1/3) > >>

lakin:
Hallo Leute.

Ich habe einen Agenten Serverseitig laufen. Jedoch tut der gute nichts. Wenn ich dann im Designer das Protokoll betrachte steht da folgendes:

Started running agent 'Agnt1' on 20.07.2005 09:58:36
Running on all documents in database: 2065 total
Found 2065 document(s) that match search criteria
Ran LotusScript code
Done running agent 'TextExport' on 20.07.2005 09:58:36

Wenn ich den Agenten Lokal laufen lasse dann Funktioniert er super.

Was kann da los sein?

robertpp:
Hast du UIDoc oder UIWorkspace in deinen Agent verwendet?

ascom40:
Hallo lakin,

hast du Frontend-Klassen verwendet ? Vielleicht mal ein bisschen von dem Code scripten, alles andere ist Kaffeesatzleserei, das Protokoll meldet ja keinen Fehler.

Edit: robertpp war schneller

Jo

lakin:
....soweit ich weiss keine Front-End Klasse vorhanden

Sub Initialize
   
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim tmpCount As Integer
   Dim session As New NotesSession, _
   Dim se As New NotesSession
   Dim dbPath As String
   Dim dbserv As String
   Dim i As Integer
   Dim j As Long, DBtit As String
   
   dbserv = "sv1"
                dbPath = "db.nsf"
   fname = "Exp_02.txt"
            
      
   Dim fileNum As Integer
   Dim fileName As String
   fileNum% = Freefile()
   fileName$ = "\\server\ordner\ordner2\ordner3\" + fname(a)
      
   Open fileName$ For Output As fileNum%
      
            
   Set db = se.GetDatabase(dbserv, dbPath)
   DBtit = db.Title
   Set view = db.GetView("vwEExp")
   ViewName = view.Name
         
   'Add the table labels
   
   Forall c In view.Columns
   Print #fileNum%, c.title + ";";
   End Forall      
   Print #fileNum%, Chr(13)
   
         
   Set doc = view.GetFirstDocument
         
   While Not ( doc Is Nothing )
   RowCount = 0

   For x= 1 To view.Columncount

   'Schauen ob Spaltenwert ein Array ist
   Dim wert, wert1, wert2 As String

        If Isarray(doc.ColumnValues(RowCount)) Then
             wert = doc.ColumnValues(RowCount)
             wert1 = wert(0)
        Else
             wert1 = doc.ColumnValues(RowCount)
        End If
   
                wert2 = Cstr(wert1)
   Print #fileNum%, wert2 + ";";
   RowCount=RowCount+1
   Next
            
   Print #fileNum%, Chr(13)
   Set doc = view.GetNextDocument(doc)
            
   Wend
         
         
   Close fileNum%
      
      
      
End Sub

diali:
was hast Du bei den Sicherheitsoptionen eingestellt?

Mit Operationen auf Dateiebene muss es glaube ich 2 oder 3 sein.

Navigation

[0] Themen-Index

[#] Nächste Seite