Dokument mit Script in View suchen und öffnen

[Woschi]

Hallo erstmal an alle LN-Cracks

Ich bin hier ganz frisch und hab noch jede Menge Probleme mit  Script!

Ich probiere aus einem Doc heraus, mittesl einem Feld "ProductGrou" über einen Button in einer View (selbe DB) ein Doc zu suchen und dann zu öffnen. Die View ist nach "ProductGroup" sortiert und irgendwie sollte das ja kein Problem darstellen, aber Script ist halt noch net so mein Ding.

Kann jemand helfen?

Gruß
Woschi

[ata]

... die erste Spalte der View muß sortiert sein. Auf meiner Homepage habe ich einen Script-Kurs, dort findest du Beispiele, wie du Dokumente initialisieren kannst, oder du suchst in der Entwicklerhilfe unter "GetDocumentByKey" - dann findest du ein entsprechendes Beispiel das funzt...

http://www.anton-tauscher.de/LotusScript

ata

[Woschi]

Hallo vielen Dank für den Tipp!

Ich hab jetzt folgenden Code verwendet, bin mir aber nicht sicher, ob ich das Feld "CProductGroup" in meinem geöffneten Dokument direkt als "Key" benutzen kann.

Sub Click(Source As Button)
   Dim uiws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   
   Set db = session.CurrentDatabase
   Set view = db.GetView("Product Group")
   Set doc = view.GetDocumentByKey(CProductGroup)
   
   Dim ws As New NotesUIWorkspace
   Call ws.EditDocument(doc)
   
End Sub
Ich versprech auch, ich meld mich mit solchen Problemen erst wieder, wenn ich im Februar meinen Script-Kurs besucht hab

Gruß
Woschi

[ata]

... das Feld aus dem aktuellen Dokument mußt du zuerst noch initialisieren, hier der Code...

Sub Click(Source As Button)
   Dim uiws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim docThis As NotesDocument
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim doc As NotesDocument
   
   Set db = session.CurrentDatabase
   Set docThis = uiws.CurrentDocument.Document
   Set view = db.GetView("Product Group")
   Set doc = view.GetDocumentByKey(docThis.CProductGroup(0) , True)
   
   ' # Dim ws As New NotesUIWorkspace
   Call uiws.EditDocument(doc)
   
End Sub

... ich habe meine Veränderungen in Fettschrift markiert...

ata

... hier ist noch kein Handling eingebaut, daß überprüft, ob die Objekte auch wirklich da sind, wie

    If Not doc Is Nothing Then...

oder

   If Not view Is Nothing Then...

ata