Domino 9 und frühere Versionen > ND6: Entwicklung

Richtextfeld wird nicht ohne uidoc.refresh gespeichert

<< < (2/3) > >>

DerAndre:
Ah, jetzt habe ich die Zeile auch gesehen. Schrift ist für meine Augen zu klein...


Hast Du das auch schon versucht:

Call notesRichTextItem.Update

Axel:
Warum die ParentDocumentUNID bei einem uidoc.Refresh verloren geht, verstehe ich nicht so ganz. Aber hast du mal versucht den Refresh mal in den Erstellen-Button zu verlagern?.


Axel

CK:
@DerAndre

Dein Vorschlag mit "Call notesRichTextItem.Update" ist leider nicht umsetzbar, weil der Zugriff auf das RT-Feld erst nach dem Refresh des uidoc möglich ist und die ParentDocumentUNID in diesem Schritt verloren geht, welche jedoch dringend benötigt wird.


Hallo Axel,

der Refresh bezieht sich auf das Frontenddokument und kann daher erst erfolgen nachdem ich es im NotesUIWorkspace geöffnet habe.

Axel:

--- Zitat von: CK am 29.01.08 - 11:53:51 ---Hallo Axel,

der Refresh bezieht sich auf das Frontenddokument und kann daher erst erfolgen nachdem ich es im NotesUIWorkspace geöffnet habe.

--- Ende Zitat ---

Ja, und wo ist da das Problem?

...
Dim uidocNew = NotesUIDocument
...

Set db = sess.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument

Set docNew = New NotesDocument( db )
Call docNew.ReplaceItemValue("Form", "Memo")         
Call docNew.MakeResponse(doc)   


Set uidocNew = uiws.EditDocument(True, docNew)
Call uidocNew.Refresh(True)

...


Axel

Thomas Schulte:
Andere Baustelle, aber ein ähnliches Problem.
Damit funktioniert es. Ohne Refresh oder Reload.

--- Code: ---Sub Click(Source As Button)
' This Aktion finds a system based on specific data located

Dim thissession As New NotesSession
Dim thiswksp As New notesuiworkspace
Dim thisdb As NotesDatabase
Dim thisuidoc As NotesUIDocument
Dim ok As Boolean
Dim userlanguage As String
Dim doc As notesdocument

Set thisdb = thissession.CurrentDatabase
Set thisuidoc = thiswksp.CurrentDocument
' should be saved before calling because it need to be a reply
If thisuidoc.IsNewDoc = True Then
Call thisuidoc.Save
End If
Set doc = thisuidoc.Document

doc.txtWflDowntime = "0"

userlanguage = findcurrentuserlanguage
OK = GetdocumentFromDatabase(thisuidoc, CALLPARAMETER, buildlanguageliststring(userlanguage,GetLanguageitem(userlanguage, "DOWNTIME ACTIONS & STRINGS")),"")

Call Doc.Save( True, False) ', True )
Doc.saveoptions="0"
Call thisuidoc.close
Set thisuidoc=thiswksp.editdocument(True,Doc,False)

End Sub

--- Ende Code ---

Dafür aber mit

--- Code: ---Case 4, 7
' this should do the trick for creating a Doclink
Set copytortitem = me_thisuidoc.Document.CreateRichTextItem(foundfield(1))
Call copytortitem.AppendDocLink(founddoc,me_founddb.Title)
Call copytortitem.update
Call copytortitem.Compact

--- Ende Code ---
Update und Compact auf dem RtItem, weil nämlich sonst beim ersten Klicken auf den Doclink der Client hasta la vista sagt.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete