My problem change now,
Here is the code:
Sub Initialize
Dim w As New NotesUIWorkspace
Dim uidoc, uidocnew As NotesUIDocument
Dim curdoc As NotesDocument
Dim rtitemA As Variant
Dim rtitemB As Variant
Set uidoc = w.CurrentDocument
Set curdoc = uidoc.Document
Call curdoc.ReplaceItemValue("pjtenr","0")
Call uidoc.Save
If curdoc.HasItem("ifmjnd") Then
Set rtitemA = curdoc.GetFirstItem( "ifmjnd_1" )
Set rtitemB = curdoc.GetFirstItem( "ifmjnd" )
Call curdoc.ReplaceItemValue ("ifmjnd_1", "")
Call rtitemA.AppendRTItem( rtitemB )
curdoc.SaveOptions = "0"
Call curdoc.Save(True, False)
End If
Set uidocNew = w.EditDocument(False, curdoc, , , , True)
Delete uidoc
Call uidocnew.Close(True)
End Sub
Now it is looking like this:
(this is a print screen)
You see the second line outside of the field. There is nothing under that field.
Very strange.
Return to top
. . . . RE: AppendRTItem and return> value... (Charles-André B... 15.Apr.08) 
Print this page
