Views mit Lotusscript erstellen

[jofa]

Hallo zusammen,

ich erstelle mit folgendem Script einen View, wenn dieser nicht schon existiert:

Code

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
   Dim s As New NotesSession
   Dim viewPriv As NotesView
   Dim viewTemplate As NotesView
   
   Set viewPriv = s.CurrentDatabase.GetView("VSdata")
   
   If viewPriv Is Nothing Then
      
      Set viewTemplate = s.CurrentDatabase.GetView("pVSdata")
      
      Dim formula As String
      
      formula = |jahr := @Text(@Year(t1)); | & _
      |_monat := @Month(t1); | & _
      |monat := @If( _monat<10; | & _
      |"0" + @Text(_monat); | & _
      |@Text(_monat)); | & _
      |jahr + " - " + monat; | & _
      |SELECT jahr = "| & uidoc.FieldGetText("sJahr") & |" & monat = "| & uidoc.FieldGetText("sMonat") & |";|
      
      Set viewPriv = s.CurrentDatabase.CreateView("VSdata", formular, viewTemplate, False)
      
   End If
   
End Sub

Mein Wunsch nun wäre daraus einen priv. View zu machen, da jeder User über eine Aktion seine Selektion ändern kann.
Da dieses für jeden inividuell sein soll, müsste ich private Views erstellen, aber wie lässt sich das machen ?

Hat von Euch evtl. einer einen Tip ?

Gruss JoFa

[TMC]

Eine private View zu erstellen geht afaik wohl nur über C API.

[animate]

nur ne Idee

lass doch jeden User seine privaten Views über die Standard Notes-Aktion erstellen und ihn dann die Formel nach gusto anpassen.

nur aus Interesse: haben deine User Designerrechte oder lässt du das einen Agent machen, der die entsprechenden Rechte hat?

[koehlerbv]

... oder aus einer vorgefertigten Ansicht shared private on first use, in der Dein Button schon drin ist.
Die Frage nach Rechten von Thomas ist natürlich sehr berechtigt.

Bernhard

[jofa]

Vielen Dank @all,

meine Benutzer sind Designer auf dieser DB, es ist eine Statistik DB, welche eine Mail-IN DB auswertet.
Aus diesen Views wird mit dem ChartApplet von jNotes dynamisch eine Grafik erzeugt. Und dort kann man in der Maske per Button den ViewSelect ändern, so dass die Grafik auf eine entsprechend andere Auswahl gebildet wird..

Ich werde es mal mit einer "vorgefertigten Ansicht shared private on first use" versuchen.

Danke :-)))

Gruss JoFa

[jofa]

Hallo,

hat leider nicht wie gewünscht funktioniert.

Leider scheint "notesview.Refresh" nicht zu funktionieren, denn die Anscht muss erst manuell mit <Shift-F9> aktualisiert werden, damit die private ansicht mitbekommt, dass andere Daten selektiert werden. Obwohl in den Ansichtoptionen die Indexaktualisierung auf autom. steht.

Ich habe es nun mit persönlichen Views gemacht, welche anhand des Namens gebildet werden und das Applet greift ausschliesslich auf die persönliche Ansicht zu :-)))


Gruss JoFa