Agent Cacheproblem

[Bert]

Hallo,
ich habe folgendes Problem mit Lotus Notes 6.5
Ich starte aus einer Ansicht einen Agenten, der das aktuelle Dokumente auf Feldinhalt etc. überprüft und bei fehlerhaftem Inhalt einen Fehler ausgibt.
Nach einer Änderung des Dokumentes und nochmalogem Start des Agenten bleibt der Cach-Inhalt im Agenten immer noch gleich, d.h. er greift nicht auf das geänderte Dokument zurück. Erst wenn ich den Agent auf einem anderem Dokument starte oder die DB neu öffne, wird der Cache aktualisiert.

Wie kann ich dem Agenten "beibringen" auf das aktuelle Dok zuzugreifen.
(Ich habe bereits den Agenten als Aktion oder auf als Agenten gestarten - kein Unterschied)

Danke
Bert

[ata]

... wie ist der Agent getriggert?
... verwendest du einfache Aktionen oder wie sieht der Code des Agenten aus?

Toni

[Bert]

Hallo ata,

der Agent steht unter gemeinsame Aktionen und per Menue aus der Asicht aufgerufen.
Aufgerufen wird der Agent:

Sub Click(Source As Button)
   Dim ses As New notessession
   Dim db As notesdatabase
   Dim col As notesdocumentcollection
   Set db = ses.currentdatabase
   Set col = db.unprocesseddocuments
   Set doc = col.getfirstdocument
   ....
                (Untersuchung z.B. der  Felder "PB_info")
                If doc.PB_info(0)<>"" Or doc.MBV_link<>"" Then
      test(23)="OK"
                else
                                test(23)="Fehler"
   End If

es kommt immer zum Fehler


Gruß Bert

[ata]

... bei mir gibt es keine Shared Actions - die meide ich wie der Teufel das Weihwasser  - probier den Code in einer direkten Masken-Aktion - könnte sein, daß dann dein Cache-Problem gelöst ist...

Toni

[koehlerbv]

Ist das
doc.MBV_link<>""
aus dem Originalcode? Denn dies würde zu einem Laufzeitfehler führen.

Bernhard

[Bert]

Hallo Ata,

ich habe den kompletten Script in einen "normalen" Agenten gespeichert und rufe diesen aus der Ansicht mit @Command ([ToolsRunMacro]; "Doc_Freigabe") auf.
Dennoch habe ich das gleiche Problem.
Wenn ich den Inhalt des aktuellen Dokumentes anzeigen lasse - über Eigenschaften - sehe ich den korrekten Wert, der Agent nimmt dennoch irgendwelche Cache-Daten.

Danke
Bert

[Bert]

Hallo Bernhard,

der script

 doc.MBV_link<>""

führt bei mir zu keinem Fehler.
Bei MBV_Link handelt es sich um ein RT Feld. Ich überprüfe lediglich an dieser Stelle, ob in den Feld (Text, oder Link) steht.

Gruß Bert

[ata]

... auf Felder greift man aber als Array zu

If Cstr( doc.Feldname(0) ) <> "" Then ...

Toni

[Bert]

Hallo Toni,

danke , werde ich berücksichtigen.
Aber den Fehler beseitigt es nicht!
Ich habe übrigend mein Notes neu gestartet - und siehe da- der Agent funktioniert mehrfach richtig. Dann wieder nicht.
Jetzt wird das Problem zu einem echten Problem.
Mal cahed es die Feldinhalte mal nicht !
Da finde mal einer den Fehler

Gruß Bert

[ata]

... das sieht etwas obskur aus. 

Ich hatte durchaus auch schon solche Erscheinungen in Notes, die auf versteckte Fehler hindeuten. Mach mal einen Recompile in der Datenbank und schu mal, ob es Fehler gibt - bzw. wie sie sich dann verhält... 

Toni

[Bert]

Hallo Toni,
auch da brachte bisher keinen Erfolg:

"Der komplette Code wurde erfolgreich kompiliert"

-geht -  geht nicht --
--ratlos-

Kann ich irgendwie beim Aufruf des Agenten den Cache beeinflussen ? , oder gar löschen ?

Gruß Bert

[Driri]

Mit welchem Client wurde rekompiliert ? Es gab in einer Version des 6.5er Designers einen Bug, so daß der Code eben nicht neu kompiliert wurde (glaub 6.5.5 ?).

[m3]

1) Läuft der Agent durch oder bricht er ab?
2) Hast Du Fehlerbehandlung (On Error ...) drinnen?
3) Welches Ziel hat der Agent (Alle ausgewählten Dokumente, Alle Dokumente in der View, ...)
4) Schaust Du ev. in einer anderen Replik (z.B. am Server) nach, obwohl der Agent am Client läuft und Du siehst die Änderungen nicht, weil die beiden DBs nicht miteinander repliziert haben?
5) Was machst Du mit dem doc? Änderst Du da auch Werte und speicherst es dann? Wenn ja, poste doch etwas mehr Code, damit wir nicht im Trüben fischen müssen.

[ata]

Ich habe übrigend mein Notes neu gestartet - und siehe da- der Agent funktioniert mehrfach richtig. Dann wieder nicht.

... war dazwischen noch was anderes?

Toni

[koehlerbv]

Der Fehler muss im Agent liegen, da Dokumente (ausser ProfileDocs) gar nicht gecached werden.

Bernhard

[ata]

... Profildokumente scheiden aus, da die Collection mit Unprocessed gezogen wird. Daher denke ich auch, daß in dem Agent Dinge passieren, die irgendwas anstellen...

Toni

[Andrew Harder]

Ändere doch bitte einmal die Abfrage

Code

If doc.PB_info(0)<>"" Or doc.MBV_link<>"" Then

in

Code

Dim sPB_info as string
Dim sMBV_link as string

...

sPB_info = doc.GetFirstItem( "PB_info" ).text
sMBV_link = doc.GetFirstItem( "MBV_link" ).text

If not ( len( sPB_info ) = 0 or len( sMBV_link ) = 0 ) then

Vorteil: Du siehst im Debugger gleich den Textinhalt der Felder.

Ansonsten zusätzlich zu Martins Post: Was passiert alles, bevor Du Dir das nächste Dokument holst (Codezeilen).

[Bert]

Hallo,
erst einmal Danke für die ganzen Hinweise,
ich werde diese gleich in meinen Agenten einbauen.
Hier erst einmal ein Auszug aus dem Agenten:

                Dim dc As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim ses As New notessession
   Dim db As notesdatabase
   Dim col As notesdocumentcollection
   Set db = ses.currentdatabase
   Set col = db.unprocesseddocuments
   Set doc = col.getfirstdocument
   
   Dim Feld(4) As String
   Dim Feldinfo(4) As String
   Dim test(10) As Variant
   Dim ausdruck (14) As Variant
   Dim item As notesrichtextitem   
   Dim rtitem As Variant
   On Error Resume Next
   a=""
   f=0
   
   'RTFeldgrösse berechenen
   Feld(0)="SachLL" 'RTFELDER
   Feld(1)="PCode"
   Feld(2)="PGTest"
   Feld(3)="L_Ver_PIInst"
   Feld(4)="L_Ver_PIInfo"
   
   ' sub zur Berechnung der Feldgrösse !
                ' Rückgabe String wenn Feldgröße erreicht (Dokumentationsmenge)
   For r=0 To 4
     FG= feldgrösse(Feld(r))
     If FG<>"" Then FG=Feldinfo(r)+Chr$(10)
     fehler=fehler+FG
   Next
   
   If fehler<>"" Then
    ausgabe=Chr$(10)+"Bei folgenden 'Dokumentationsreitern' wurde nicht die geforderte
                                  Dokumentationsmenge angegeben:"+Chr$(10)+Fehler+_
      "Bitte mehr dokumentieren!"+Chr$(10)+Chr$(10)+Chr$(10)
      f=f+1
   End If
   
   '______________________
   test(1)=doc.PRGNAME(0)
   test(2)=doc.Aktenführer(0)
   test(3)=doc.verantwMA(0)
   test(4)=doc.PRGKategorie(0)
   test(5)=doc.PRGKlasse(0)
   test(6)=doc.Lizenzart(0)
   
   If Cstr(doc.PQ_info(0))<>"" Or Cstr(doc.MAQ_link(0))<>"" Then
      test(7)="OK"
   End If

   If Cstr(doc.PQ_info(0))<>"" Or Cstr(doc.MAK_link(0))<>"" Then
      test(="OK"
   End If

   If Cstr(doc.PB_info(0))<>"" Or Cstr(doc.MBV_link(0))<>"" Then
      test(9)="OK"
   End If

   If Cstr(doc.P_info(0))<>"" Or Cstr(doc.PPV_link(0))<>"" Then
      test(10)="OK"
   End If
   
   ausdruck(1) ="Fehlerhinweise..."
   ausdruck(2) ="Fehlerhinweise..."
   ausdruck(3) ="Fehlerhinweise..."
   ......
   
   
   
   For x = 1 To 10
     If Trim(test(x))="" Then
       f=f+1         
       ausgabe = ausgabe + ausdruck(x)+Chr$(10)
     End If
   Next
   
   
       If f>0 Then
          If F=1 And Fehler<>"" Then
    meldung="Es wurde " + Str(f) + "   Fehler  beim Check gefunden ! - Freigabe möglich "+_
                                   Chr$(10)+"Bitte prüfen Sie den entsprechenden Inhalt !"+Chr$(10)+_
                                   Chr$(10)+ausgabe
     Messagebox  meldung ,"16", "Ergebnis des Checks"
           Else
     meldung="Es wurden " + Str(f) + "   Fehler  beim Ceck gefunden ! - Eine Freigabe "+_
                                  "nicht möglich.   " + Chr$(10)+Chr$(10)+ausgabe
     Messagebox  meldung ,"16", "Ergebnis des Checks:"
         Exit Sub
           End If
      End If


Ich denke mir, wenn der Fehler in dem Agenten selbst liegt, kann es nur in der Dokumentenauswahl liegen, oder?


Gruß
Bert

[Bert]

Hallo Driri,
es haldelt sich nin der Tat um die Version 6.5.5. Ist dort ein BUG im System.
Wird dieses erst mit der 7er Version beseitigt. Wäre echt schlecht, da unser ganzes Haus mit
Ver 6. arbeitet.

Hallo m3,
also:
- der Agent läuft durch - auch mit Debugger kein (erkennbarer) Fehler
- Agent läuft für ausgewählte Dokumente
- mit einer Replik kann es nicht zu tun haben, da ich die DB schon von sämtlichen Repliken
  entkoppelt habe (vollkommen separate DB)
- Mit dem Agent will ich keine Dokumente ändern, sondern einfach nur deren Inhalte checken!
  Die Bearbeitung soll dann im Dokument erfolgen.
  Erst wenn der Check erfolgreich war, erfolgt eine Weiterarbeitung - Freigabe etc...-

Gruß
Bert

[koehlerbv]

Wegen Recompile guckst Du Funktioniert mit 6.5.6 "Werkzeuge-Lotus Sript vollständig neu kompilieren" ?

Bernhard