Hallo Leute,
ich habe eine Dialogbox, dort werden unter anderem Notizen hineingeschrieben. Jetzt kann ich zwar wunderbar die Notiz speichern, aber eigentlich möchte ich die tmp_Notizen sie an die bestehenden Noptizen anhängen mittels ArrayAppend.
Aber im Frontend funktioniert das nicht.
Ratlos
DOn Pasquale
Dim nDialog As Variant
Dim ws As New NotesUIWorkspace
Dim session As NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim docDialog As NotesDocument
Dim User As String
Dim uidoc As NotesUiDocument
Set session = New NotesSession
User = session.CommonUserName
Set s = New NotesSession
Set db = s.CurrentDatabase
Set docDialog = db.CreateDocument
MASKENNAME$ = "BoxSenden"
TITELTEXT$ = "Dokument weiterleiten"
sollLayoutHorizontalpassen$ = True
sollLayoutVertikalpassen$ = True
ohneCancel$ = False
keineNeuenFelder$ = False
keinFeldUpdate$ = False
mitTabelle$ = True
ReadOnly$ = False
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
nDialog = ws.dialogbox(Maskenname$,sollLayoutHorizontalpassen$,sollLayoutVertikalpassen$,ohneCancel$,keineNeuenFelder$,keinFeldUpdate$,ReadOnly$,TITELTEXT$,docDialog,mitTabelle$)
If nDialog Then
uidoc.EditMode = True
NOTIZZEILE$ = Cstr(Today) & " Von: " & USER & " An:" & docDialog.sn_An(0) & " " & docDialog.sn_Verfuegung(0) & " " & docDialog.sn_Bemerkungen(0) & Chr$(34)
Call uidoc.FieldSetText( "wfl_an" , docDialog.sn_An(0))
Call uidoc.FieldSetText( "wfl_von" , User )
Call uidoc.FieldSetText( "wfl_Deadline" , Cstr(docDialog.sn_Frist(0)))
Call uidoc.FieldSetText( "wfl_SendDate" , Cstr ( Today) )
Call uidoc.FieldSetText( "wfl_Verfuegung", docDialog.sn_Verfuegung(0))
Call uidoc.FieldSetText( "Bemerkungen", docDialog.sn_Bemerkungen(0))
Call uidoc.FieldSetText( "tmp_Notizen", NOTIZZEILE$)
Call docDialog.Save(True,True,True)
Call doc.Save(True,True,True)
Else
' NIX ?
End If
