Autor Thema: Kategorien mittels Lotus Script  (Gelesen 2614 mal)

Offline inu

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 594
  • Geschlecht: Männlich
  • Ich liebe dieses Forum!
Kategorien mittels Lotus Script
« am: 06.02.04 - 10:21:38 »
Hallo,

ich habe eine Ansicht mit 3 Spalten. Die erste Spalte ist kategorisiert. Die beiden anderen beinhalten jeweils die Anzeige einzelner Feldinhalte.

Ich benötige eine Funktion, mit der ich - ohne dass ich alle Dokumente anfassen muß - die Kategorien (namentlich) zurückerhalte.

???

klaussal

  • Gast
Re:Kategorien mittels Lotus Script
« Antwort #1 am: 06.02.04 - 10:23:01 »
... versteh ich nicht ganz  :P
was möchtest du genau ?

klaussal

  • Gast
Re:Kategorien mittels Lotus Script
« Antwort #2 am: 06.02.04 - 10:24:21 »
willst du per LS die kategorien ermitteln, ohne die docs anzufassen ?

geht nicht !

Offline inu

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 594
  • Geschlecht: Männlich
  • Ich liebe dieses Forum!
Re:Kategorien mittels Lotus Script
« Antwort #3 am: 06.02.04 - 10:25:25 »
Nunja, ich dachte ich kann da irgendwas mit der Klasse NotesView machen?

Glombi

  • Gast
Re:Kategorien mittels Lotus Script
« Antwort #4 am: 06.02.04 - 10:26:30 »
Meinst Du sowas ?

Returns the current category in the view for the current document.
Note  This property is new with Release 5.
Defined in
NotesUIView
Data type
Variant
Syntax
To get: variant = notesUIView.CaretCategory
Usage
This property is mainly used for categorized views.

klaussal

  • Gast
Re:Kategorien mittels Lotus Script
« Antwort #5 am: 06.02.04 - 10:28:01 »
@glombi,

ich glaube, er möchte alle kategorien gelistet bekommen. und das geht m.w.n. nicht. :'(

klaussal

  • Gast
Re:Kategorien mittels Lotus Script
« Antwort #6 am: 06.02.04 - 10:29:10 »
... oder dieses script "aufbohren":

Sub Initialize
    Dim db As NotesDatabase
    Dim view As NotesView
    Dim nav As NotesViewNavigator
    Dim entry As NotesViewEntry
    Dim count As Integer
    Set db = New NotesDatabase( "", "Learning LotusScript.nsf" )
    Set view = db.GetView( "By Category" )
    Set nav = view.CreateViewNav( )
    Set entry = nav.GetFirst
    count = 0
    ' begin counting categories
    ' stop when there are no more categories
    Do Until entry Is Nothing
        count = count + 1
        Set entry = nav.GetNextCategory( entry )
    Loop
    Messagebox "Number of categories = " & count,, "By Category"
End Sub

... stammt übrigens aus der designer-hilfe  ;D
« Letzte Änderung: 06.02.04 - 10:31:08 von klaussal »

Glombi

  • Gast
Re:Kategorien mittels Lotus Script
« Antwort #7 am: 06.02.04 - 10:30:24 »
Doch, ganz einfach

Dim kategorie_Array as Variant
kategorie_Array = Evaluate(|@Unique(@DbColumn("";"";"Name der Ansicht";1))| )

liefert alle Kategorien als Array zurück.

Andreas
« Letzte Änderung: 06.02.04 - 10:31:22 von Glombi »

klaussal

  • Gast
Re:Kategorien mittels Lotus Script
« Antwort #8 am: 06.02.04 - 10:39:02 »
... naja, ist halt schon freitag  :P
mann lernt eben nie aus  ;D

Offline inu

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 594
  • Geschlecht: Männlich
  • Ich liebe dieses Forum!
Re:Kategorien mittels Lotus Script
« Antwort #9 am: 06.02.04 - 10:50:46 »
Ja, sicher, ist die einfachste Lösung.

Danke :)

Glombi

  • Gast
Re:Kategorien mittels Lotus Script
« Antwort #10 am: 06.02.04 - 11:03:36 »
Ja, sicher, ist die einfachste Lösung.

Danke :)
und - noch wichtiger - die bei weitem schnellste.

Andreas

Offline inu

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 594
  • Geschlecht: Männlich
  • Ich liebe dieses Forum!
Re:Kategorien mittels Lotus Script
« Antwort #11 am: 06.02.04 - 11:04:50 »
*BrettVorDemKopfAbschraub*

 ;)

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz