Domino 9 und frühere Versionen > ND9: Entwicklung

Frage zu RichtextFeld

(1/2) > >>

arieger:
Hallo,

habe ein Frage zum Thema Richtextfeld. Wenn ich ein Richtextfeld in ein anderes Richtextfeld übernehme, klappt das soweit ganz gut mit dem "AppendRTItem". Allerdings ist der neueste Eintrag dann immer unten. (append-klar).

Nun möchte ich aber den neuesten Eintrag im ganz oben im Ziel-RTFeld haben ????

Hat mir jemand einen Tipp?

Viele Grüße
Anton


Sub Click(Source As Button)
   Dim w As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim docA As NotesDocument
   Dim rtitemA As Variant
   Dim rtitemB As Variant
   Dim rtnav As NotesRichTextNavigator
   Set uidoc = w.CurrentDocument
   Set docA = uidoc.Document
   Call uidoc.Save
   
   Set rtitemA = docA.GetFirstItem( "Serviceauftrag" )
   Set rtitemB = docA.GetFirstItem( "Historie" )
   
   Call rtitemB.AddNewLine(1)   
   Call rtitemB.AppendText( "-> aktualisiert am " + Now + ":  ======" )
   Call rtitemB.AddNewLine(1)      
   Call rtitemB.AppendRTItem( rtitemA )
   
'''''''''
   Set rtItem = docA.ReplaceItemValue("Serviceauftrag", "")
   docA.SaveOptions = "0"
   Call docA.Save(False, True)
   'Call uidoc.Close
   
End Sub

Klafu:
Guck dir mal die BeginInsert Methode in der Designer Hilfe an.

--- Zitat ---Changes the insertion position from the end of the rich text item to the beginning or end of a specified element.
Hinweis  This method is new with Release 6.
Defined in
NotesRichTextItem
Syntax
Call notesRichTextItem.BeginInsert( element, [ after ] )
--- Ende Zitat ---

Chris

arieger:
Hallo Chris,
danke für die Info. Daran bin ich schon am testen. Klapp aber noch nicht so ganz, vor allem wenn ein RTF leer ist. Versuche es einfach weiter.
Viele Grüße Anton

Tode:
AppendRTItem ignoriert das begininsert.
Du könntest mit NotesUIDocument.ImportItem arbeiten, und mittels uidoc.GotoField( "Body" ) versuchen, den Cursor ganz nach oben zu stellen... Sonst musst Du das RTItem komplett neu aufbauen:
- Hilfsdokument erstellen
- Hilfsrichtextitem erstellen
- Dein RTItem appenden
- Original RTItem appenden
- Hilfsrichtext zurück ins Dokument bringen (geht über SelectAll und ImportItem oder per ReOpen...

arieger:
Hallo Thorsten,
danke für die Info. Das mit dem UI geht nicht ganz so gut. Ich versuche es zu erklären:
das ist eine Datenbank , in der man Serviceaufträge erfasst. Das UIDoc ist geöffnet, dann kommt ein RTITEM_A, das ist bearbeitbar, hier gibt der User seinen Text oder Hardcopies ein.
Dann drückt er den Aktualisierungsbutton.

Nun soll das RTITEM_A komtplett nach RTITEM_B geschrieben werden und zwar so, das immer der aktuellste Eintrag oben ist. (deswegen scheitere ich mit append).

Das RTITEM_B muß berechnet sein, damit man nach der Eingabe nichts mehr ändern kann und auch eine Historie aufbaut.

Wäre das RTITEM_B bearbeitbar, ginge auch diese Formel:
@Command([EditGotoField];"BodySource");
@Command([EditSelectAll]);
@Command( [EditCopy] );
@Command([EditGotoField];"BodyTarget");
@Command( [EditPaste] )

Leider ist das RTITEM_B berechntet.

Das mit den Hilfedoc, meinst Du da Profildokumente oder ein Echtes erzeugen udn wieder löschen? (stark frequentierte DB ???)
Viele Grüße   Anton

Navigation

[0] Themen-Index

[#] Nächste Seite