Hallo liebe Notes Gemeinde,
ich habe ein Antwortdokument im Backend erzeigt und Autorenfelder autom.
eingepflegt.
Wenn der User das Antwortdokument öffnen möchte passiert nichts.
Nach einem Refresh über das Dokument klappt alles.
Nun habe ich in der Hilfe nur refresh, reload etc. gefunden die sich auf das
Frontend beziehen.
Gibt es nicht auch eine Updatemethode für das backend?
lg claudia
Sub Click(Source As Button)
'speichert das Dokument hängt die Signaturantworten an
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim docB As NotesDocument
REM UI - Frontend
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
REM Übergabe aus Frontend
Set docB = uidoc.Document
Call uidoc.Document.Save( True, True )
Ub= Ubound(docB.GetFirstItem("MA_pruefer").Values)
For i = 0 To Ub 'Anzahl der Prüfer
Set doc = db.CreateDocument
doc.MA_pruefer = docb.MA_pruefer (i)
doc.MA_Leerzeichen = " "
doc.Aktiv = "Yes"
doc.Subject = doc.MA_Leerzeichen(0) & "Signatur " & doc.MA_pruefer(0)
doc.form= "Signatur"
Call doc.MakeResponse(docB)
Call doc.Save( True, True )
Next
Call uidoc.Document.Save( True, True )
End Sub
