Webquerysave Не Отрабатывает Print

Тема в разделе "Lotus - Программирование", создана пользователем lmike, 7 дек 2012.

  1. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.081
    Симпатии:
    300
    чета я в тупке - Print с адресом ничё не дает (возвращает на туже форму с Seq=1) или просто сделать $Return ?
     
  2. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.081
    Симпатии:
    300
    нашел в старых своих кодах @Command([FileCloseWindow]);@Command([FileSave])
    если просто @Command([FileSave]) - не будет работать вывод из агента
     
  3. afest

    afest Well-Known Member

    Регистрация:
    16 июн 2009
    Сообщения:
    78
    Симпатии:
    0
    попробуй сохранение документа перед печатью...
    если аттачем файл идет, то сделай сохранение и перезагрузку UIDoc
     
  4. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.081
    Симпатии:
    300
    afest обращаем внимание на контекст вопроса :( (какбе намекает на веб)
     
  5. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.081
    Симпатии:
    300
    дополнительно поясню...
    Код (LotusScript):
    Dim url As String
    url=db.HttpURL
    If Len(id)<1 Then
    'close write access to parent
    parent.ReplaceItemValue(USER_FLD,doc.GetItemValue(USER_FLD)).IsAuthors=False
    parent.ReplaceItemValue(USER_FLD,doc.GetItemValue(USER_FLD)).IsReaders=True
    Call parent.Save( True, False)
    'web part
    'break frameset
    url=|<html><script>if (top.location != location) {top.location="| &url &|?EditDocument";}</script></html>|
    Else
    'web part
    url={[} &OpenTest(parent, id) &{]}
    End If
    If clientType = {Web} Then Print url
    это кусок кода исполняемый на WQS
    док (в кот. жмется кнопка) открыт по ...?Edit Document
    если просто вызвать сабмит в копке, @Command([FileSave]), то переход по урлу не состоится (будет ...?Edit Documen&Seq=1)
    прямой вызов агента (ToolsRunMacro, а не сабмита и, соответ. - WQS), из кнопки, не сохранит изменения в доке (а они нужны) (doc.Save не поможет)
     
  6. NetWood

    NetWood Lotus team
    Lotus team

    Регистрация:
    17 апр 2008
    Сообщения:
    308
    Симпатии:
    0
    Однозначно Ватсон. Без поля $$Return по сабмиту будет ?Edit Documen&Seq=1. С полем $$Return будет уходить на агент и из него на $$Return если в агенте не указано иное.

    Букварь http://codeby.net/ipb.html?s=&sh...st&p=186951
     
  7. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.081
    Симпатии:
    300
    в том и фокус что указано другое и в хэлпе это явно прописано! что приоретет Print из агента
    НО он не работает без FileCloseWindow (я в это и воткнулся)
     
Загрузка...

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