periodischer Agent

[Ralph]

hab ein großes Problem.
Ich hab ein LSkript für die Datenübernahme aus einer anderen Datenbank und muß dieses  mit einem Agenten starten.
1. Wenn ich den Agenten manuell starte funktioniert auch alles bestens.
2. sobald er es periodisch alleine machen soll, läuft er zwar laut Protokoll aber er liest keine Daten ein.

Was mache ich verkehrt ?
Hier der Code ( ist in Zusammenarbeit mit ATA entstanden )

Sub Click(Source As Button)
   ' # #### Übernahme von Adressen #####
' # Denkbar in einer Ansichts-Aktion oder einem Button...
   Dim ws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim dbThis As NotesDatabase
   Dim dbNAB As NotesDatabase
   Dim vwParDocID As NotesView
   Dim dc As NotesDocumentCollection
   Dim sSearch As String
   Dim dateTime As NotesDateTime
   Set dateTime = New NotesDateTime("01/01/1990")
   
   Dim docNew As NotesDocument
   Dim i As Integer
   
   Set dbThis = session.CurrentDatabase
   Set vwParDocID = dbThis.getView("PersonByParDocId")
   Call vwParDocID.Refresh
   Set dbNAB = session.GetDatabase("pcoi4","names_test.nsf")
   sSearch = | Select Form = "Person" |
   Set dc = dbNAB.Search (sSearch ,dateTime,0)
   'Set dc = ws. PickListCollection(1,True,"pcoi4","names_test.nsf","People","Auswahl der Dokumente","Wählen Sie die gewünschten Dokumente")
   If dc.Count > 0 Then
      Set docNAB = dc.GetFirstDocument
      For i = 1 To dc.Count
      ' # Überprüfen. ob es dieses Dokument bereits gibt
         Set docNew = vwParDocID.GetDocumentByKey(docNAB.UniversalID)
         If docNew Is Nothing Then
        ' # Die Adresse ist noch nicht vorhanden
            Set docNew = dbThis.CreateDocument
            With docNew
               .Form = "TeleMask"
               .ParDocID = docNAB.UniversalID
               .LastName = docNAB.LastName
               .FirstName = docNAB.FirstName
               .OfficePhoneNumber = docNAB.OfficePhoneNumber
               .OfficeFaxPhoneNumber = docNAB.OfficeFaxPhoneNumber
               .FullName = docNAB.FullName
               .CompanyName = docNAB.CompanyName
               .Department = docNAB.Department
               .Location = docNAB.Location
               .MailDomain = docNAB.MailDomain
               .MailAdress = docNAB.Address
               .InternetAddress = docNAB.InternetAddress
   ' # ... die gewünschten Felder eben...
               Call .Save(True, True)
            End With      
         Else
        ' # Die Adresse gibt es bereits - überspringen
         End If        
         Set docNAB = dc.GetNextDocument(docNAB)
         
         
      Next      
   Else
   ' # Es wurden keine Dokumente gewählt      
   End If
' # #### ENDE: Übernahme von Adressen #####
   
End Sub

[ata]

... in einem periodischen Agent kann das eigentlich nicht funktionieren...,

... denn du verwendest eine PickList, daß ist UI - und damit kann der Agent nicht...


ata

[Ralph]

Hi Ata,

nein Picklist ist auskommentiert,
ich wähle die Dokumente so aus

sSearch = | Select Form = "Person" |
   

[ata]

... nimm in die Deklaration des ws heraus, vielleicht stört er sich daran...

ata

[Till_21]

nicht nur vielleicht

[ata]

@Till_21

... danke für den Beistand - bei mir is wieder mal Kaffee angesagt...

ata

[Ralph]

 ???
war es leider nicht.

[ata]

.. kannst du mir ein Exemplarder DB zukommen lassen, dann kann ich mich mal durch-debuggen...

ata

[Axel]

Hi,

findet er überhaupt Dokumente, d.h. ist der Search-String richtig ?

Du hast geschrieben, dass der Agent, wenn du ihn manuell aufrufst sauber funktioniert. Hast du es da nur mit der Picklist versucht oder auch mit Search?


Axel

[Ralph]

auch mit search
er findet die documente in meiner DB aber scheinbar übernimmt er keine von der names.nsf
wie gesagt manuell kein Problem

[ata]

... hast du die erforderlichen Rechte im Server-Dokument des Servers?

... du kannst die DB auch mit der ID des Servers unterzeichnen, auch das könnte Abhilfe schaffen - vorausgesetzt der Server hat die Berechtigung...

ata

[ata]

... ich denke ich bin der Sache auf der Spur. Ich habe die Situation bei mir nachgestellt - da sind Denkfehler bezüglich der Positionierung des Agenten drin...

... soweit ich das übersehe muß der periodische Agent vom Adressbuch aus gestartet werden um dann die Dokumente in deiner Address.DB aktualisieren, bzw. zu exportieren, wenn neue Adressen vorhanden sind...

Wenn ich es heute noch schaffe (hab gerade loose), dann lege ich dir morgen eine Demo vor, so wild ist der Umbau nicht...

ata

[ata]

Hallo Ralph,

meine Vermutung war richtig. Der Agent muß aus dem Adressbuch heraus die Dokumente in deiner Zieldatenbank aktualisieren, bzw. hinzufügen.

Ich habe den unteren Code in einen zeitgesteuerten Agent im Initialize eingefügt.
Der Agent gilt für alle Dokumente in der Datenbank, den Terminplan kannst du entsprechend wählen, wie du es brauchst.

Meine Zieldatenbank befindet sich auf demselben Server im Data-Verzeichnis und heißt "Address.nsf" - hier muß du also noch deine Anpassungen fahren.

Und hier der Code:

Code

' # #### Export von Adressen #####
   Dim session As New NotesSession
   Dim dbExport As NotesDatabase
   Dim dbNAB As NotesDatabase
   Dim docNAB As NotesDocument
   Dim vwParDocID As NotesView
   Dim dc As NotesDocumentCollection
   Dim sSearch As String
   Dim dateTime As NotesDateTime
   Set dateTime = New NotesDateTime("01/01/1990")
   
   Dim docNew As NotesDocument
   Dim i As Integer
   
   Set dbNAB = session.CurrentDatabase   
   
   Set dbExport = session.GetDatabase(dbNAB.Server,"address.nsf")
   If dbExport Is Nothing Then
      Print "Keine Export-DB gefunden"
      Exit Sub
   End If
   
   Set vwParDocID = dbExport.getView("PersonByParDocId")
   sSearch = | Select Form = "Person" |
   Set dc = dbNAB.Search (sSearch ,dateTime,0) ' # alle Personen-Dokumente aus dem NAB
   If dc.Count > 0 Then
      Set docNAB = dc.GetFirstDocument
      For i = 1 To dc.Count
      ' # Überprüfen. ob es dieses Dokument bereits gibt
         Set docNew = vwParDocID.GetDocumentByKey(docNAB.UniversalID)
         If docNew Is Nothing Then
        ' # Die Adresse ist noch nicht vorhanden
            Set docNew = dbExport.CreateDocument
            With docNew
               .Form = "TeleMask"
               .ParDocID = docNAB.UniversalID
               .LastName = docNAB.LastName
               .FirstName = docNAB.FirstName
               .OfficePhoneNumber = docNAB.OfficePhoneNumber
               .OfficeFaxPhoneNumber = docNAB.OfficeFaxPhoneNumber
               .FullName = docNAB.FullName
               .CompanyName = docNAB.CompanyName
               .Department = docNAB.Department
               .Location = docNAB.Location
               .MailDomain = docNAB.MailDomain
               .MailAdress = docNAB.Address
               .InternetAddress = docNAB.InternetAddress
  ' # ... die gewünschten Felder eben...
               Call .Save(True, True)
            End With      
         Else
        ' # Die Adresse gibt es bereits - akzualisieren
            With docNew               
               .LastName = docNAB.LastName
               .FirstName = docNAB.FirstName
               .OfficePhoneNumber = docNAB.OfficePhoneNumber
               .OfficeFaxPhoneNumber = docNAB.OfficeFaxPhoneNumber
               .FullName = docNAB.FullName
               .CompanyName = docNAB.CompanyName
               .Department = docNAB.Department
               .Location = docNAB.Location
               .MailDomain = docNAB.MailDomain
               .MailAdress = docNAB.Address
               .InternetAddress = docNAB.InternetAddress
               
               Call .Save(True, True)            
            End With
         End If        
         Set docNAB = dc.GetNextDocument(docNAB)         
      Next      
   Else
  ' # Es wurden keine Dokumente gewählt      
   End If
' # #### ENDE: Übernahme von Adressen #####

Viel Spaß ...

ata

[Ralph]

 
Danke hat alles geklappt.
Da soll nun einer draufkommen das der Agent in der Quell DB laufen muß. Wobei mir das noch nicht einleuchtet warum es andersrum manuell aber nicht automatisch funktioniert. Vielleich habe ich auch zu einfach gedacht.
Meine Gedanken waren das der periodische Agent "im Prinzip für mich auf den Button clickt " habe ich wohl falsch gedacht

[ata]

... machmal ist es besser nicht alles zu verstehen, es lässt einen ruhiger schlafen...

ata

[Ralph]

Hi ata,
ist zwar schon ein bischen her aber ich bin der sache auf die spur gekommen. Unter Datei /vorgaben/Benutzervorgaben muß man den periodischen Agenten explizit aktivieren, hab ich gemach und siehe da er startet und erfüllt seine aufgaben auch von der zieldb aus.

aus unserem anfänglichen quellcode der datenübernahme ist mitlerweile eine ziemlich umfangreiche sache geworden " mit einigem luxus für den anwender" ich werd morgen mal den cod reinstellen, ist bestimmt für andere anfänger auch interessant.

jetzt noch eine Frage.
ich möchte mir gedanken um eine urlaubsplanung machen, habe auch in der downloadarea einen hinweis gefunden leider funzt der link nicht, kannst du mir zu einen gedanken verhelfen.

gruß ralph

[ata]

... an die Benutzervorgaben hätte ich auch denken können... na super, daß du das lösen konntest...

... ich habe vor einiger Zeit mal eine DB zur Urlaubsplanung geschrieben. Wenn ich die wieder finde, dann kann ich sicherlich Ausschnitte davon ins Forum stellen.

... wenn du schneller 'ne Antwort brauchst, dann solltest du mal beschreiben, was das Ding können muß:

- Genehmigungsworkflow? Wieviele Positionen?
- zeitkritische Überwachung des Antrages?
- Urlaubs und Zeitkontenverwaltung?
- einheitliche Urlaubsregelug, oder wie im BAT altersgestaffelt...
- Behinderte haben 5 Tage Sonderurlaub
- Resturlaub-Handling:
- - Wieviele Tage dürfen ins neue Jahr genommen werden
- - Gibt es ein Verfalldatum für alten Urlaub z.B. 31.03....
- - Wie werden Ausnahmen gehandelt
- Grafische Ausgaben => Excel?
- Web-fähige Ausgabe?

... du siehst, das Thema kann recht kompliziert werden...

ata