Domino 9 und frühere Versionen > Entwicklung

Autor öffnet Dialogbox und darf nichts ändern

<< < (4/4)

Semeaphoros:
Na, ich hab ja auch den Vorteil gehabt, als letzter zu antworten und hab dadurch auch bessere Karten gehabt ...  ;)

TMC:
Hier noch die umgesetzte Lösung:


--- Zitat ---Sub Click(Source As Button)
   'Öffnet Reminder Dialogbox.
   'Dabei wird ein neues Temporäres Doc erzeugt, in das u.a. der aktuelle User als Autor eingetragen wird,
   'damit die Dialogbox bearbeitbar ist.
   
   Dim uiws As New NotesUIWorkspace
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim docDialog As NotesDocument
   Dim uidoc As NotesUIDocument       
   
   Set db = s.CurrentDatabase
   Set uidoc = uiws.CurrentDocument
   Set doc = uidoc.Document
   
   Set docDialog = db.CreateDocument
   docDialog.Reminder_unid = doc.Reminder_unid
   docDialog.Reminder_Subject = doc.Reminder_Subject
   
   Dim autorenItem  As New NotesItem( docDialog, "AutorenfeldTemp", s.username  )
   
   Call  uiws.DialogBox( "box_Wiedervorlage", True, True, False, True, True, False, "Reminder", docDialog, False, False)
   
End Sub

--- Ende Zitat ---


Gruß
TMC

Navigation

[0] Themen-Index

[*] Vorherige Sete