Газета под Web

Тема в разделе "Lotus - Программирование", создана пользователем yerke, 19 мар 2008.

  1. yerke

    yerke Well-Known Member

    Регистрация:
    28 авг 2007
    Сообщения:
    392
    Симпатии:
    0
    здравствуйте всем знатокам лотуса

    получил задание сделать базу газеты под веб
    выполнил следующие пункты
    1) создал новую форму "AllNews"
    туда поместил текстовое вычисляемое поле "Body"
    по двум сторонам этого поля поместил теги <html> и </html> через пас сру хтмл
    2) на ВебКвериОпен этой формы поместил агент
    3) агент делает вот это
    Код (Text):
    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)

    ПС

    знаю что необходимо юзать
    http://Host/Database/FormName?CreateDocument
    но как передать параметры КАк PHP
     
  2. medin84

    medin84 Well-Known Member

    Регистрация:
    27 июн 2007
    Сообщения:
    106
    Симпатии:
    0
    Если имеешь в виду get post то используй Query_String
     
  3. yerke

    yerke Well-Known Member

    Регистрация:
    28 авг 2007
    Сообщения:
    392
    Симпатии:
    0
    это понятно и еще Request_Content можно использовать
    но как передеть параметр
    в http://Host/Database/FormName?CreateDocument
     
  4. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
  5. yerke

    yerke Well-Known Member

    Регистрация:
    28 авг 2007
    Сообщения:
    392
    Симпатии:
    0
    http://Host/Database/MyFormName?CreateDocu...NID=56742145464
    допустим так передали параметр
    а как обработать полученный параметр MyUNID с помощью webqueryopen
    если использовать Query_String то появляется надпись форма обработана
    а мне надо чтоб агент под webqueryopen
    достал документ с базы по MyUNID
    и показал значение одного поля этого дока
     
  6. Sandr

    Sandr Гость

    yerke
    Так а что, проблема зачитать Query_String в вебквериоупен? Только не забудте на форму добавить CFD поле с именем Query_String
     
  7. KLif

    KLif Гость

    1. http://Host/Database/MyFormName?CreateDocu...NID=56742145464 - передаёте UNID
    2. дальше добираетесь до поля Query_String_Decoded (session.DocumentContext), у него последнии 32 символа - это ваш UNID
    3. отрезаете эти 32 символа и достаёте нужный док
     
  8. Sandr

    Sandr Гость

    Низя так.. потому как кроме unidа люди могут захотеть еще что-то передавать.. я к тому, что тупое отрезание 32=х символов - в корне неправильное решение...

    Код (Text):
    dim unid as variant
    Set wdc = s.DocumentContext

    Unid = Evaluate({@trim(@Right(@explode(Query_String; "&"); "unid="))}, wdc)
    unid(0) - это и будет нужный Вам унид...
     
  9. KLif

    KLif Гость

    Вы правы ;)
     
Загрузка...

Поделиться этой страницей