Заголовок+html код с данными из документовТеперь сделать то же самое, только строки таблицы заполнить данными из респонсов и посмотреть, что формируется в этом случае.
Заголовок+html код с данными из документовТеперь сделать то же самое, только строки таблицы заполнить данными из респонсов и посмотреть, что формируется в этом случае.
И? Таблица с данными из респонсов отображается? Если нет, то надо просто сравнить, чем структура полученного во втором случае html отличается от структуры первого и искать, где косяк.Заголовок+html код с данными из документов
<STYLE TYPE="text/css">
<!--
table {margin-left:1px; margin-right:1px}
th {border:1px solid black; font-family:"Default serif, serif"; font-size:8pt; font-weight:normal; color:"#000000"; text-align:center; vertical-align:middle}
td {border:1px solid black; font-family:"Default MultiLingual, Default sans serif, sans-serif"; font-size:8pt; font-weight:normal; color:"#000000"; text-align:center; vertical-align:middle;}
-->
</STYLE>
<TABLE>
<Computed Value>
</TABLE>
Dim ie As Variant
Dim htmldoc As Variant
Set ie = CreateObject("InternetExplorer.Application")
Call ie.Navigate("about:blank")
Set htmldoc = ie.Document
htmldoc.WriteLn("<B>Привет</B>")
Call htmldoc.Close()
Call ie.ExecWB(6, 2, 2)
Call ie.Quit()
Msgbox("Отправлен на печать")
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim stream As NotesStream
Dim body As NotesMIMEEntity
Dim html As Variant
Dim prindDoc As NotesDocument
Dim prindUIDoc As NotesUIDocument
Set prindDoc = db.CreateDocument()
Call prindDoc.ReplaceItemValue("Form", "($PrintForm)")
' ($PrintForm) - это форма с ричтекстовым полем Body(стоит галка Store contents as HTML and MIME) и SaveOptions="0"
html = html + "<B>Привет</B>"
Set stream = session.CreateStream
session.ConvertMIME = False
Set body = prindDoc.CreateMIMEEntity
Call stream.WriteText(html)
Call body.SetContentFromText(stream, {text/html; charset="UTF-8"}, ENC_IDENTITY_BINARY)
Call prindDoc.ComputeWithForm(False, False)
Set prindUIDoc = ws.EditDocument(False, prindDoc, False)
Call prindUIDoc.Print()
Call prindUIDoc.Close
session.ConvertMIME = True
Они обязательно должны быть вычисляемые?Выше текста вычисляемые поля MyTableHeader с заголовком и MyTable со строками
В принципе нет. В отладочных целях их можно сделать редактируемыми, править в них html и смотреть результат по F9. Но в итоге то должна получаться форма для печати с SaveOptions = "0", в ней по идее не должно быть редактируемых полей.Они обязательно должны быть вычисляемые?
Разумеется. Я ж сразу писал, что в QueryOpen вешать надо.скрипт который заполняет поле с хтмл, висит на PostOpen, а не на QueryOpen. Может быть в этом проблема?
nvy
ТОгда подскажи как заполнять поле в этом событии?
на постопен через ui а тут как?
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
call Source.Document.ReplaceItemValue("MyField", "MyValue")
End Sub
Это если документ новый, то Source.Document = Nothing. Но если есть респонсы, как он может быть новым?пробовал, пишет Object variable not set
Я так понимаю, что новый - это временный документ, который создаётся для печати методом Compose, вот потому на QO Source.Document = Nothing.Это если документ новый, то Source.Document = Nothing. Но если есть респонсы, как он может быть новым?
Обучение наступательной кибербезопасности в игровой форме. Начать игру!