Y
yerke
здравствуйте всем знатокам лотуса
получил задание сделать базу газеты под веб
выполнил следующие пункты
1) создал новую форму "AllNews"
туда поместил текстовое вычисляемое поле "Body"
по двум сторонам этого поля поместил теги <html> и </html> через пас сру хтмл
2) на ВебКвериОпен этой формы поместил агент
3) агент делает вот это
Вопрос:
с помошью ссылки как открыть (создать) документ на основе определенной формы
и как передать этому документу UniversalID другого дока
(причем созданный документ должен обработать полученный UniversalID с помощью WebQueryOpen)
ПС
знаю что необходимо юзать
но как передать параметры КАк PHP
получил задание сделать базу газеты под веб
выполнил следующие пункты
1) создал новую форму "AllNews"
туда поместил текстовое вычисляемое поле "Body"
по двум сторонам этого поля поместил теги <html> и </html> через пас сру хтмл
2) на ВебКвериОпен этой формы поместил агент
3) агент делает вот это
Код:
Sub Initialize
Dim ses As NotesSession
Dim curdb As NotesDatabase
Dim curdoc As NotesDocument
Dim dcol As NotesDocumentCollection
Dim tdoc As NotesDocument
Dim ss As String
'=
Set ses = New NotesSession
Set curdb=ses.CurrentDatabase
Set curdoc=ses.DocumentContext
'=
Set dcol=curdb.Search({SELECT Form="News"}, Nothing, 0)
If dcol.Count<=0 Then
Call curdoc.ReplaceItemValue("Body", "No news found")
Exit Sub
End If
'=
ss=""
Set tdoc=dcol.GetFirstDocument
While Not(tdoc Is Nothing)
ss=ss+{<b>}+tdoc.Title(0)+{</b><br>}+_
+tdoc.Texts(0)+{<br>}+_
+{<a href="Этот линк должен открыть 2-ю форму и передать ей tdoc.UniversalID">Подробнее</a>}
Set tdoc=dcol.GetNextDocument(tdoc)
Wend
Call curdoc.ReplaceItemValue("Body", ss)
End Sub
Вопрос:
с помошью ссылки как открыть (создать) документ на основе определенной формы
и как передать этому документу UniversalID другого дока
(причем созданный документ должен обработать полученный UniversalID с помощью WebQueryOpen)
ПС
знаю что необходимо юзать
Ссылка скрыта от гостей
но как передать параметры КАк PHP