Webquerysave Не Отрабатывает Print
- Автор темы lmike
- Дата начала
попробуй сохранение документа перед печатью...
если аттачем файл идет, то сделай сохранение и перезагрузку UIDoc
если аттачем файл идет, то сделай сохранение и перезагрузку UIDoc
(какбе намекает на веб)
- 27.08.2008
- 8 008
- 613
дополнительно поясню...
это кусок кода исполняемый на WQS
док (в кот. жмется кнопка) открыт по ...?Edit Document
если просто вызвать сабмит в копке, @Command([FileSave]), то переход по урлу не состоится (будет ...?Edit Documen&Seq=1)
прямой вызов агента (ToolsRunMacro, а не сабмита и, соответ. - WQS), из кнопки, не сохранит изменения в доке (а они нужны) (doc.Save не поможет)
Код:
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док (в кот. жмется кнопка) открыт по ...?Edit Document
если просто вызвать сабмит в копке, @Command([FileSave]), то переход по урлу не состоится (будет ...?Edit Documen&Seq=1)
прямой вызов агента (ToolsRunMacro, а не сабмита и, соответ. - WQS), из кнопки, не сохранит изменения в доке (а они нужны) (doc.Save не поможет)
NetWood
Lotus Team
- 17.04.2008
- 565
- 96
Однозначно Ватсон. Без поля $$Return по сабмиту будет ?Edit Documen&Seq=1. С полем $$Return будет уходить на агент и из него на $$Return если в агенте не указано иное.
Букварь
Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab
Похожие темы
- Статья
- Статья
Hacker Lab
Категории
Наши курсы
