Domino 9 und frühere Versionen > ND6: Entwicklung

Query Paste Event in einer View

(1/2) > >>

LisaS:
Hallo,
Ich habe ein Script welches im Query-Paste-Event in einer View ist.
Dieses Script funktioniert aber nur wenn ich die Dokumente vor dem kopieren mit einem Häkchen markiert habe.
Wenn ich nur den Curser auf einem Dokument habe und dann kopiere und ein füge bekomme ich keine dc -> Collection.
Frage: Was kann ich da tun?

Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim dc As NotesDocumentCollection
   Dim dctmp As NotesDocumentCollection
   Dim doc As NotesDocument
   
   Dim run_state As String
   Dim flag As Integer
   
   Set db = session.CurrentDatabase
   Set dc = source.Documents  'alle einzufügenen Dokumente
   Set doc = dc.GetFirstDocument()
   While Not(doc Is Nothing)
      If doc.HasItem("run_state") = True And _
      (doc.form(0) = "Timesheet" Or _
      doc.form(0) = "TimesheetSummery") Then
         run_state=doc.run_state(0)
         flag = run_state
         'Set TempDoc = doc
         If flag < 5 Then
            Set doc =dc.GetNextDocument(doc)
         Else
            continue = False
            Messagebox "Sie haben ein freigegebenes Dokument aus gewählt!", MB_OK, "Achtung"
            End
         End If        
      Else
         Set doc =dc.GetNextDocument(doc)
      End If
   Wend

Gruß
Hitcher

TMC:

--- Zitat von: Hitcher am 21.04.04 - 16:44:18 ---Set dc = source.Documents  'alle eingefügten Dokumente
--- Ende Zitat ---

Der Kommentar stimmt so nicht, denn es heißt ja Query und nicht Post.

Daher solltest Du den PostPaste - Event nehmen.

Glombi:
Gibt es im QueryPaste nicht bereits als Argument die Dokumente? Habe leider momentan keinen Designer...

Andreas

TMC:
Nö, leider ned:


--- Code: ---Sub Querypaste(Source As Notesuiview, Continue As Variant)
Sub Postpaste(Source As Notesuiview)
--- Ende Code ---

LisaS:
schieb nach oben  ::)

ich hab immer noch keine Idee wie das klappen könnte.
Postpaste könnte man benutzen und dann einfach das Dok löschen welches eingefügt wurde,
aber der Haken ist das die User keine Lösch-Berechtigung haben und somit diese Lösung auch flach fällt.
Vieleicht hat ja einer ne Idee.
Gruß
Hitcher

Navigation

[0] Themen-Index

[#] Nächste Seite