GetAllDocumentsByKey

[skywook]

Kann ich eigentlich die gefundenen Docs von GetAllDocumentsByKey in einer Picklist oder einem Prompt anzeigen lassen (ohne diese vorher in einen Ordner zu verschieben). Wobei der User dann die Möglichkeit haben sollte, einen Eintrag auszuwählen.

Für einen Tipp wäre ich dankbar.

[TMC]

Prinzipiell: ja.
Ohne jetzt tiefer zu überlegen:
Ich würde die aus der doc-Collection via einer Forall-Schleife den Dokumenten-Titel auslesen und in ein Array schreiben.
Das Array zeigst Du dann via uiws.Prompt in an, damit der User ein Dok auswählt.
Hab mir das jetzt nicht näher angesehen (gerade kein Notes-Client greifbar), aber damit kannst Du Dir dann das selektierte Doc greifen. Notfalls musst Du in das Array noch die UNID des Doks mitübergeben (mit langem Trennzeichen - z.B. einige Spaces - damit dies der User aus optischen Gründen nicht sieht) und holst Dir dann damit das selektierte Dokument.

[animate]

in einer eingebetteten Ansicht könntest du die anzeigen (Stichwort: ShowSingleCategory). Auswählen kann der Benutzer die auch. Ich weiß allerdings nicht mehr genau, ob du jetzt programmiertechnisch auf die ausgewählten Dokumente zugreigen kannst bzw. herausfinden kannst, welche ausgewählt sind.

[TMC]

Wenn ich so mein Posting lese, habe ich seeeehr verkürzt geschrieben :-)

Daher nochmal Step by Step:
- Du hast mit GetAllDocumentsByKey eine Doc.-Collection, das ist schon mal fein
- Loope mit Forall durch diese Collection und schreibe den doc.Title(0) in ein Array. Da hängst Du noch gleich die UNID mit dran (& "-- (ein paar Spaces etc.) ---" & doc.UniversalID)
- mache nun ein uiws.Prompt. User wählt dann was aus.
- aus dem Rückgabewert ziehst Du Dir die UNID raus (Right - Funktion, du holst Dir die letzten 32 Ziffern). Mit GetDocumentByUNID holst Du Dir dann das vom User selektierte Dokument.

[skywook]

Wie bekomme ich den die Daten (dabei handelt sich nur um eine Feld der Doc-Collection) in einen Array damit ich diese in einem Prompt anzeigen kann?

[TMC]

Indem Du durch Deine Collection loopst, z.B.

Code

Dim nCounter As Long

Set doc = dc.GetFirstDocument
nCounter = 1
While Not(doc Is Nothing)
   Redim Preserve strMeinArray(nCounter)
   strMeinArray(nCounter) = doc.MEINFELD(0) & "         " & doc.UniversalID
   nCounter = nCounter + 1
   Set doc = dc.GetNextDocument(doc)
Wend

[koehlerbv]

Zwei Anmerkungen:
Bei der (durchaus üblichen) Methode, für ein NotesUIWorkspace.Prompt ein Array zu bilden, muss man darauf achten, dass die 64k-Grenze für das Array nicht überschritten wird.

Das Redim Preserve ist bei der von Matthias vorgestellten Variante unnötig. Mit NotesDocumentCollection.Count kennen wir ja bereits die Dimension des erforderlichen Arrays, daher reicht ein
Redim strMeinArray (dc.Count - 1) (wenn Option Base 0 ist).

Bernhard

[TMC]

daher reicht ein
Redim strMeinArray (dc.Count - 1) (wenn Option Base 0 ist).

Ähm, dann aber trotzdem mit "Preserve" oder?

Matthias

[koehlerbv]

Nö, wir müssen ja vorab nix "preserven" - wir pumpen die Daten ja erst nach dem Redim ins Array.

Bernhard

[TMC]

Ach jetzt weiß ich was Du meinst.

Du setzt vorher den U- und LBound mit Redim ...(dc.Count), aber arbeitest nach wie vor mit dem Counter.
Klar, so macht das (auch performance-seitig) Sinn.

@skywook:
Ich hoffe wir haben Dich jetzt nicht zu sehr verwirrt  

[koehlerbv]

Über Performance brauchen wir uns in diesem Kontext m.E. keinen Rüssel zu machen - wir können so ja sowieso nur 64k füllen  

@skywook:
Ich hoffe wir haben Dich jetzt nicht zu sehr verwirrt

Ooops - wohl doch. Vorhin war er noch da, jetzt hat entweder Mutti geschimpft, oder er hat sich 'ne Bolus-Injektion Whiskey gesetzt, damit er doch noch schlafen kann  

Was mir aber noch nicht so gefällt, ist das Array, das auch gleich die UNID mit aufnimmt. Wenn die anzuzeigenden Begriffe eineindeutig sind, dann sollten die UNIDs in einem zweiten, gleichdimensionierten Array liegen und nach Auswahl abgegriffen werden.
Basteln kann man aber auch mit Aliasen "Begriff | UNID" (Feld entsprechend füllen und dieses dann für den Prompt angreifen, danach ggf. wieder löschen).

Bernhard

[TMC]

Wäre auch eine schicke Alternative, Bernhard.

Klar, was da immer kommen kann sind die 64K die vielleicht doch erreicht werden.

Sollte das evtl. so sein, dann doch lieber mit einem Folder lösen und diesen dann via PickListStrings Methode anzeigen.

[koehlerbv]

Wenn die 64k-Grenze droht, dann bleibt nix als ein persönlicher Ordner, glaube ich. Und der schadet ja auch nix  

Bernhard

[skywook]

Jetzt bin ich doch leider etwas verwirrt. Könntet Ihr mir ein kleines Beispiel einstellten?
Das Alternative mit dem Ordner ist mir klar. Aber das mit dem Redim habe ich nicht ganz verstanden.

[Axel]

Hi,

hier mal ein kleines Beispiel:

...

Dim strArray As String()
Dim idx As Integer
...

Set collection = view.GetAllDocumentsByKey(...

Redim strArray(collection.Count)  'Dimensionieren des Arrays
'Füllen des Arrays
For idx = 1 to collection.Count
  Set doc = collection.GetNthDocument(idx)
  strMeinArray(idx) = doc.MEINFELD(0) & "        " & doc.UniversalID
Next
...


So könnte das aussehen.

Axel

[skywook]

Danke! Funktioniert!
Habe noch das Problem: Im Prompt wird zusätzlich, zu den Daten, noch eine Leerstring angezeigt.

[Axel]

Hi,

das liegt am Handling des Arrays. der Index fängt immer bei 0 an.

Passe deinen Code wie folgt an:

Redim strArray(collection.Count-1)  'Dimensionieren des Arrays
'Füllen des Arrays
For idx = 0 to collection.Count-1
  Set doc = collection.GetNthDocument(idx+1)
  strMeinArray(idx) = doc.MEINFELD(0) & "        " & doc.UniversalID
Next
...

Axel