Пытаюсь "на лету" создать кнопку, но жосткая ошибка валит весь лотус на строчке:
dmp.Process
Подскажите, в чем может быть проблема?
Может у кого есть код с dxl, где в форме, в ричтекст поле создается какой-либо элемент (лучше кнопочка).
Заранее спасибо!
dmp.Process
Подскажите, в чем может быть проблема?
Может у кого есть код с dxl, где в форме, в ричтекст поле создается какой-либо элемент (лучше кнопочка).
Заранее спасибо!
Код:
...
txtStream2 = {<&xml version='1.0' encoding='utf-8' ?>
<database xmlns= "http://www.lotus.com/dxl" version="1.01">
<databaseinfo replicaid="} + this_db.ReplicaID + {"/> <document form="tmpButtonProfile">
<item name='tmpButtonBody'> <richtext> <par>
<button width="2in" widthtype="fitcontent" wraptext="true" bgcolor="system" name="AccessButton" type="normal" default="false" edge= "rounded" readingorder="lefttoright">
<font size="9pt" style="bold" name="Arial" pitch="variable" truetype="true" familyid="20" /> <code event="options">
<lotusscript>Option Explicit</lotusscript></code> <code event="click"><lotusscript>
Sub Click(Source As Button)
Messagebox "Hi All!!!"
Exit Sub
</lotusscript></code>Open
Database</button>
</par>
</richtext>
</item>
</document>
</database>
}
MsgBox txtStream2
' Build the DXL document including the Button In the Rich Text Field
Call stream.WriteText(txtStream2, EOL_CRLF)
' Import new document with button into current database
Set dmp = s.CreateDXLImporter(stream, this_db)
dmp.DocumentImportOption = DXLIMPORTOPTION_CREATE
dmp.Process
...
