Das Notes Forum

Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: ch am 20.06.06 - 10:02:41

Titel: Datenbankressource PostOpen
Beitrag von: ch am 20.06.06 - 10:02:41
Guten Morgen Ihr Wissenden,
ich versuche einen Agenten nach dem Datenbank öffnen laufen zu lassen.
Beim Debuggen hab ich festgestellt, daß er die "uiview" nicht vom Workspace erstellen kann. Wenn ich aber jetzt vor den Agentenaufruf ein "@Prompt" setze funktioniert die Sache.
Kann mir jemand von euch erklären warum das so ist???

----
Es scheint ein Zeitproblem zu sein,
wenn ich den Code Schritt für Schritt debugge funktioniert es.
Wahrscheinlich wird der ws zu früh initialisiert, wenn das frontend noch nicht aufgebaut ist.

--

lg claudia

Post Open (funktioniert ..):[/:

@Prompt([Ok]; "Zeit.."; @Text(@Now; "T1S1"));
@Command([RunAgent] ; "AG" );
@All

Post Open (funktioniert nicht ..):
@Command([RunAgent] ; "AG" );
@All

AG:
@SetTargetFrame("r_Inhalt");
@Command( [ViewCollapseAll] ) ;
@SetTargetFrame("r_Inhalt");
@Command([RunAgent] ; "SelectDoc1" );
@Command( [ViewExpand] );
@All

SelectDoc1:
Sub Initialize
   Dim ws As New NotesUIWorkspace
   Dim uiview As NotesUIView
   Set uiview = ws.CurrentView
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim var, var2 As Variant
   
   Dim session As New NotesSession
   Set db = session.CurrentDatabase
   Dim agent As NotesAgent
   
   Set view = db.GetView("Category")
   Set doc = db.GetDocumentByUNID( "88D1ED8A2001CA04C1257192002ADA2C" )
   Call uiview.SelectDocument( doc )


End Sub[/size]
Titel: Re: Datenbankressource PostOpen
Beitrag von: ch am 20.06.06 - 16:23:46
Habe den Fehler selbst gefunden.
UIworkspace war noch nicht initialisiert. Habe es unter Postopen der Ansicht abgelegt und schon funzt das ganze.

lg claudia