|
本帖最后由 xieyuee 于 2013-1-31 10:56 编辑
系统上手动增加文件保存成功,为什么用QTP操作时一切正常,但老是提示“保存失败”
代码如下:
Browser("基建项目管理系统").Page("基建项目管理系统_5").Link("档案管理").Click
Browser("基建项目管理系统").Page("基建项目管理系统_2").WebElement("文件分类").Click
Browser("基建项目管理系统").Page("基建项目管理系统_3").WebElement("招标-服务类").Click
Browser("基建项目管理系统").Page("基建项目管理系统_3").Link("设计策划顾问").Click
Browser("基建项目管理系统").Page("基建项目管理系统_4").Frame("Frame").WebElement("录入").Click
'Browser("基建项目管理系统").Page("基建项目管理系统_6").Frame("Frame").WebEdit("项目计划内容").
'Step 1
Wait 3
Browser("基建项目管理系统").Page("基建项目管理系统_6").Frame("Frame").WebEdit("项目计划内容").Object.value="前期工作"
SelProPlan=Browser("基建项目管理系统").Page("基建项目管理系统_6").Frame("Frame").WebEdit("项目计划内容").Object.value
If SelProPlan = "前期工作" Then
Reporter.ReportEvent micPass,"Step 1","Pass"
Else
Reporter.ReportEvent micFail,"Step 1","Fail"
End If
Browser("基建项目管理系统").Page("基建项目管理系统_4").Frame("Frame_2").WebRadioGroup("来源").Select "1"
Wait 1
Browser("基建项目管理系统").Page("基建项目管理系统_4").Frame("Frame_2").WebEdit("文件题名").Set "设计策划顾问"
Wait 1
Browser("基建项目管理系统").Page("基建项目管理系统_4").Frame("Frame_2").WebEdit("形成单位").Set "Tencent"
Wait 1
Browser("基建项目管理系统").Page("基建项目管理系统_4").Frame("Frame_2").WebEdit("产生日期").Set "2012-01-03"
Wait 1
Browser("基建项目管理系统").Page("基建项目管理系统_4").Frame("Frame_2").WebButton("选择介质").Click
Wait 1
Browser("基建项目管理系统").Page("基建项目管理系统_4").Frame("Frame_2").WebCheckBox("电子").Object.checked="1"
Wait 1
Media=Browser("基建项目管理系统").Page("基建项目管理系统_4").Frame("Frame_2").WebCheckBox("电子").Object.disabled
Wait 1
Browser("基建项目管理系统").Page("基建项目管理系统_4").Frame("Frame_2").WebElement("介质确定").Click
Wait 1
Browser("基建项目管理系统").Page("基建项目管理系统_4").Frame("Frame_2").WebElement("保存").Click
Wait 1 |
|