Sub Click(Source As Button)
Dim uiws As New Notesuiworkspace
Dim db As NotesDatabase
Dim uidoc As Notesuidocument
Dim doc As NotesDocument
Dim dialogdoc As Notesdocument
Dim varOk As Variant
Set db = uiws.currentdatabase.database
Set uidoc = uiws.Currentdocument
Set doc = uiws.currentdocument.document
Set dialogdoc = db.createdocument
dialogdoc.DocArt = "hinzufügen"
Forall entry In doc.getItemValue("Supportgroup")
dialogdoc.DocInhalt = dialogdoc.getItemValue("DocInhalt")(0) + entry + Chr(10)
End Forall
varOk = uiws.DialogBox( "dlgSupportgruppen" , False , False , True , False , False , False , "Supportgruppen bearbeiten", dialogdoc, True, True )
If ((varOk = True)) Then
doc.Supportgroup = ""
Forall entry In dialogdoc.getitemvalue("DocInhalt")
doc.Supportgroup = doc.getitemvalue("Supportgroup")(0) + entry + Chr(10)
End Forall
End If
Call uidoc.Refresh
Call uidoc.Refresh
End Sub
Document command is not availible
@Command([Compose];"frmProblem")