|
6#
楼主 |
发表于 2010-5-13 10:45:31
|
只看该作者
以下是脚本部分代码:
Dim title,regex,QID
QID = Right(quoteId,10)
'regex = "Copy-Quote From ""eId
'msgbox DataTable.Value("bAmount","Action1")
title = "Copy-Quote From ""eId
bname = quoteId&"(Quote) MYRO Electronic Control Devices Inc. [Admin Manager] - MyRO ERP 3.0"
Browser("title:=Quote List - MYRO Electronic").Window("text:="&title).Page("title:="&title).WebButton("name:= Next >>").Click
Browser("Quote List - MYRO Electronic").Window("Copy-Quote From Q1005128696").Window("Specification Modify -").Page("Specification Modify -").WebEdit("expect_lead_time").Set "12"
Browser("Quote List - MYRO Electronic").Window("Copy-Quote From Q1005128696").Window("Specification Modify -").Page("Specification Modify -").WebButton("Submit").Click
Browser("Quote List - MYRO Electronic").Window("Copy-Quote From Q1005128696").Window("Specification Modify -_2").Page("Specification Modify -").WebEdit("expect_lead_time").Set "11"
Browser("Quote List - MYRO Electronic").Window("Copy-Quote From Q1005128696").Window("Specification Modify -_2").Page("Specification Modify -").WebButton("Submit").Click
Browser("Quote List - MYRO Electronic").Window("Copy-Quote From Q1005128696").Page("Copy-Quote From Q1005128696").WebButton("Finished").Click
Browser("Quote List - MYRO Electronic").Page("Quote List - MYRO Electronic").Link("Quote List").Click |
|