加入收藏 | 设为首页 | Life家族 | SCMLife | RMLife | PMLife | SQALife | TESTLife | 企业VIP专区 | 中文化荣誉殿堂

查看完整版本: cq web如何能通过脚本弹出另外一个窗口

zhangzhao 2008-1-2 13:07

cq web如何能通过脚本弹出另外一个窗口

希望能够通过脚本自动弹出一个web窗口,让用户填写信息,不知CQ能否实现,各位高手有哪位做过请多多指教!!

yunshan 2008-1-2 21:34

没有试过,不过肯定有很大的难度,代价也很大
为什么不将弹出窗口中的内容放到Form的Tab中呢?

zhangzhao 2008-1-3 09:11

目的:根据已有的记录创建一条新记录,其中的一些信息根据旧记录获取。所以想用以上方法实现

yunshan 2008-1-3 09:19

回复 板凳 的帖子

参考下面的帖子:
[url]http://www.scmlife.com/bbs/thread-9577-1-1.html[/url]

zhangzhao 2008-1-3 09:53

谢谢你,这种方法不是很方便。parent_child方法首先要执行一个动作,然后需要执行(new)按钮。然后还要对原来的记录保存。如果能够使用一个RECORD_SCRIPT_ALIAS类型的动作,让该动作执行脚本,弹出一个窗口,那就方便多了

scmtata 2008-1-3 13:37

回复 5# 的帖子

就是想在代码里调用 submit这个操作对吧?
效果就是和手动去点new后弹出一个窗口,是这样的吗?

yunshan 2008-1-3 13:48

回复 5# 的帖子

对啊,你说的不就是一个Submit了么?

scmtata 2008-1-3 13:56

回复 5# 的帖子

1. 我想zhangzhao想实现的是继承或者clone,且要求是继承时可以修改;
1.1 有个buildentity可以做,但是没有窗体,字段的值也是在代码里给定的,执行一个action就是完成了;
1.2 比较好的是parent/child,可以有窗体,可以在继承时手动修改,但操作有点麻烦。
2. 我本来是用第一个,第一个是没办法修改的,后来就改成第二种方法了,第二方法麻烦了点,但是习惯就好了,功能都一样的。
3.  我最早做这个的时候想到这个,就是在代码里直接调用submit这样的操作(action("submit")),当时也觉得这个需求好像很简单的, 但是找遍了文档都没有发现提到这样的文章,好像是没有这样的api,等待IBM改善。。。。

[[i] 本帖最后由 scmtata 于 2008-1-3 13:58 编辑 [/i]]

scmtata 2008-1-3 14:06

回复 8# 的帖子

parent/child的实现有很多文章,改改就可到达到自己的需求
[url]http://www.scmlife.com/bbs/thread-9129-1-2.html[/url]
[url]http://www.scmlife.com/bbs/thread-69-1-8.html[/url]
[url]http://www.scmlife.com/bbs/viewthread.php?tid=4206[/url]

zhangzhao 2008-1-7 12:45

谢谢楼上的支持。我的意思就是这样。看来只能这样了,我试图使用以下代码:(结果只能在CQ的客户段使用,CQweb不支持。)
    Dim objIE
    Dim pathstr
    ' Create an IE object
    Set objIE = CreateObject( "InternetExplorer.Application" )
    pathstr ="http://cqwebserver/cqweb/main?schema=*****&contextid=***&shortcut=true&command=InitNewEntity&entityDefName=********&fieldsXml=&username=admin&password=***&mainFrame=false"
    objIE.Navigate pathstr   
    Do While (objIE.Busy): Loop
    objIE.Document.Title = "Clearquest ViewRecorder"
    objIE.ToolBar        = False
    objIE.Resizable      = True
    objIE.StatusBar      = False
    objIE.Width          = 910
    objIE.Height         = 700
    ' Make the window visible
    objIE.Visible = True
    Set objIE = Nothing

[[i] 本帖最后由 zhangzhao 于 2008-1-7 12:51 编辑 [/i]]
页: [1]
查看完整版本: cq web如何能通过脚本弹出另外一个窗口