Hallo, ersteinmal vielen Dank für Deine Antwort!
Ich füge den entsprechenden Code ein:
Set ns = New NotesSession
Set db = ns.CurrentDatabase
Set ws = New NotesUIWorkspace
Set uidoc = ws.CurrentDocument
Set uiview = ws.CurrentView
Call ws.ViewRefresh()
Set dc = uiview.Documents
If dc.Count = 1 Then
Set doc = dc.GetFirstDocument
End If
Set docDummy = db.CreateDocument ()
Call docDummy.MakeResponse( doc)
With docDummy
.ReplaceItemValue "txtfragen", ""
.ReplaceItemValue "dspErfasstVonAProdma",
ns.CommonUserName
.ReplaceItemValue "dspErfasstAmAProdma", Today
.ReplaceItemValue "txtNummerAUDPma", doc.diaNummerPA
(0)
.ReplaceItemValue "txtNummerAUDFRKAT",
doc.txtNummerAUDFRKAT (0)
.ReplaceItemValue "txtfragen", doc.txtalleFragen (0)
End With
'Dialogbox
rc = ws.DialogBox ( "CreateMapad",True,True,True,True,False,_
False,"Erstellen Liste",docDummy,True,True,False)
Call ws.ViewRefresh()
Das Problem tritt bei "txtfragen" auf, welche aus "doc.txtalleFragen" gefüllt werden soll. Unmittelbar vorher wurde "doc.txtalleFragen" im entsprechenden Dokument geändert. Die letzte Änderung ist in der Dialogbox dann nich vorhanden.
Vielen Dank im Voraus!