Document was modified or corrupt since it was signed

From: alejo@mecon.ar
Category: Category 1
Date: 08 Apr 1998
Time: 18:21:54
Remote Name: 168.101.134.69

Comments

I built a script that creates a new document in the current database, then signs the document. Evrything works fine, but when I add a RichTextField to the document I get the subject message. Can anybody help me? Thanks a lot. Code looks like this:

Sub Click(Source As Button)

Dim db As Notesdatabase Dim Session As New NotesSession Dim workspace As New NotesUIWorkspace Dim UIDoc As NotesUIDocument Dim Doc As NotesDocument Dim rtitem As NotesRichTextItem Dim Objeto As NotesEmbeddedObject Dim verifyName As String

Set UIDoc = Workspace.CurrentDocument Set db = session.CurrentDatabase Set doc = New NotesDocument (db) Set rtitem = New NotesRichtextItem (doc, "txtDoc")

doc.Form = "frmPrueba" doc.txtFecha = Cdat(UIDoc.FieldGettext("txtFecha")) doc.txtTema = UIDoc.FieldGettext("txtTema") Set Objeto = rtitem.EmbedObject ( EMBED_OBJECT,"","C:\Program Files\WS_FTP\license.wri","Documento")

Call doc.Sign Call doc.Save (True,True)

End Sub