Domino 9 und frühere Versionen > Entwicklung

Problem in einem Agenten

<< < (2/4) > >>

braincrusha:
Der hängt nirgends der Debugger läuft durch, der Agent lässt sich auch starten aber er gibt nicht aus was ich will. Er gibt gar keine Dokumente aus obwohl eigentlich Dokumente ausgegeben werden sollten..

ata:
... hat er denn überhaupt ein Dokument initialisiert? Vor Do while sollte das Dokument bereits initialisiert sein, sonst geht er erst gar nicht in die Schlaufe...

ata

braincrusha:
ja werden sie weiter vorne... es klappt ja alles wunderbar wenn ich auf no klicke und er es ohne diesen "And Not(Isempty(TT2)" macht...

und wenn ich dann ja klicke und er den unteren teil nimmt funktioniert gar nix mehr

Also glaub ich nicht dass am Anfang en Fehler bei der Initialisierung ist

"
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim voi_Auslieferungsdoc As NotesDocument
   Dim oh_document As NotesDocument
   Dim temp As NotesDocument
   Dim vrzfilename As Variant
   Dim Server As New notesdbdirectory ("")
   Dim ak As Variant
   Dim tempdate As Variant    
   PrintDate = Date()
   Dim AuslieferungDatum As Variant    
   Dim bis_date As Variant
   Dim von_date As Variant
   Set session = New NotesSession
   Set db = session.CurrentDatabase
   Set view = db.GetView("NextAuslieferung")
   Set oh_document = view.GetFirstDocument
   vrzfilename = Inputbox("Dateiname mit Pfadangabe:", "Dateiauswahl", "F:\Auslieferungsdokument.html")
   Open vrzfilename For Output As #1
"

Don Pasquale:
Pack doch mal nur das Wesentliche in einen Klickbutton
und poste dann mal den gesamten Code.
Und beschreibe ganz langsam, was passieren soll.
Benutze Kommas !

Ciao
Don Pasquale

braincrusha:
Also ich habe einen Agenten welcher Dokumente durchsuchen soll und bei denen bei denen an bestimmten Stellen Haken gesetzt sind bezw. was bestimmtes drin steht sollen benützt werden um eine HTML mit bestimmtem Inhalt zu erzeugen!

Soweit noch alles klar???

Dieser Agent funktioniert auch einbahnfrei!!!!!

Jetzt habe ich noch was eingebaut! Und zwar eine Abfrage

Dim ak As Variant
ak = Messagebox("Sollen nur Calls mit Aktivität augelistet werden?",  4 + 32 + 0 + 4096, "Nur Aktivitäten?")

Wenn ich nun auf Nein klicke müsste er mir eine 7 zurückgeben falls ich dass richtig kapiert habe


falls er eine sieben zurückgibt soll er den normalen Ablauf den ich ja schon hatte durchführen

If(ak = 7) Then
   Do While Not (oh_document Is Nothing)
   Set temp = view.GetNextDocument(oh_document)
   If (bla bla bla) Then
           
            Print #1, "BlaBla "
               End If      
         Set oh_document = temp
      Loop


falls er ein andere Zahl zurückbekommt soll er weiter mit der Elseanwendung machen an die ich dieses Argument in der If-Schleife angefügt habe

Else      
      Do While Not (oh_document Is Nothing)
         Set temp = view.GetNextDocument(oh_document)
         If (blabla And Not(Isempty(TT2))) Then
           
            Print #1, "BlaBla"
                  End If      
         Set oh_document = temp
      Loop
   End If




Also wenn in dem Feld TT2 etwas drinsteht soll er sie ausgeben!

Das Problem ist dass er dann keine Dokumente findet obwohl dort eins drin stehen sollte!!!!

Kommatas?? Was sind das?? Kommentare oder , ;???

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete