Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: SaSaWu am 13.06.08 - 11:07:52

Titel: User soll die Startansicht selbst festlegen!
Beitrag von: SaSaWu am 13.06.08 - 11:07:52

Ich möchte erreichen, dass der User eine individuelle Einstellung vornehmen kann, ob er beim Start einer Datenbank die Ansicht A oder B erhält.

Wie kann ich so etwas am einfachsten erreichen?

Titel: Re: User soll die Startansicht selbst festlegen!
Beitrag von: Thomas Schulte am 13.06.08 - 11:09:13

In !!HELP!! haben wir das über ein Konfigurationsdokument gelöst das allerdings nur der Admin einstellen kann.

Aber das Prinzip ist dasselbe. Schaus dir an.

Titel: Re: User soll die Startansicht selbst festlegen!
Beitrag von: SaSaWu am 13.06.08 - 11:14:14

In !!HELP!! ??? Tut mir leid, aber ist das ein Forum oder die Hilfe-Funktion oder was?

Titel: Re: User soll die Startansicht selbst festlegen!
Beitrag von: DerAndre am 13.06.08 - 11:16:17

Schau mal in den Footer von Thomas...

Titel: Re: User soll die Startansicht selbst festlegen!
Beitrag von: WernerMo am 13.06.08 - 11:16:23

Hallo

gugst Du OpentNTF. (http://www.openntf.org/Projects/pmt.nsf/ProjectLookup/!!HELP!!)

Gruß Werner
-edit-
das ist sooooooooooo ungerecht, schon wieder warst Du schneller ;-)

Titel: Re: User soll die Startansicht selbst festlegen!
Beitrag von: SaSaWu am 13.06.08 - 11:17:41

Wird Zeit, dass das Wochenende kommt! Sorry...

Titel: Re: User soll die Startansicht selbst festlegen!
Beitrag von: Axel am 13.06.08 - 11:38:43

Ich habe so was schon öfters implementiert. Dazu verwende ich Userprofile, die ich mit der Klasse UserProfile verwalte.  Siehe hier -> Klasse für Userprofile (http://www.free.dominoserver.de/computer/noteslibrary.nsf/d2d59a3d7fc73a2bc1256a6900638352/74e4b61d04ca824dc1256db20041582a!OpenDocument)

Das Öffnen der eingestellten Startansicht erfolgt dann im PostOpen-Event des DatenbankScriptes.

...
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim uidb As NotesUIDatabase
   Dim cProfile As UserProfil
   Dim strView As String      


   Set uidb = workspace.CurrentDatabase
   
   'Neue Instanz der Klasse UserProfil anlegen
   Set cProfile = New UserProfil(session.CommonUserName)
   
   'Startansicht auslesen
   strView = cProfile.GetUserProfileEntry("xProfilStartansicht")
   If strView <> "" Then
      Call workspace.SetTargetFrame("NotesView")
      Call uidb.OpenView(strView)
   End If  'If strView <> "" Then
   
   Delete cProfile
...

Axel