script.mts

来自「QTP实例源码（完整）」· MTS 代码 · 共 793 行 · 第 1/5 页

MTS
793 行
字号
12345
Browser("Accela Automation:").Page("Accela Automation:").Link("Payment").Click @@ script infofile_;_ZIP::Payment_ssf72.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("Payment")_;_NFB_;_761011_;_
Call GetBalance40()
If Err_Flag=False Then
   Call Payment40()
End If

Function GetBalance40 ()
	Err_Flag = True
	strValue = Browser("Accela Automation:_18").Page("Accela Automation:").WebTable("Total Invoice").GetCellData(3,2)
	strValue = replace(strValue,"$","")
	strValue = replace(strValue,",","")
	If IsNumeric(strValue)=True Then
	   Err_Flag = False
	End If
End Function

Function Payment40 ()
	'a.pay a partial amount and pay all, verify the error 
	Call objTestLib.printfile(file,3,"      a.pay a partial amount and pay all, verify the error")
	'Browser("Accela Automation:_18").Page("Accela Automation:").Image("Payment").Click @@ script infofile_;_ZIP::Payment_ssf73.inf_;_hightlight id_;_Browser("Accela Automation: 18").Page("Accela Automation:").Image("Payment")_;_NFB_;_761012_;_
	Browser("Accela Automation:_18").Page("Accela Automation:_2").Image("Payment").Click @@ script infofile_;_ZIP::Payment_ssf241.inf_;_hightlight id_;_Browser("Accela Automation: 18").Page("Accela Automation: 2").Image("Payment")_;_NFB_;_1851367_;_
	Browser("Accela Automation:_19").Page("Accela Automation:").WebEdit("vpayment").Set "1" @@ script infofile_;_ZIP::vpayment_ssf74.inf_;_hightlight id_;_Browser("Accela Automation: 19").Page("Accela Automation:").WebEdit("vpayment")_;_NFB_;_771014_;_
	Browser("Accela Automation:_19").Page("Accela Automation:").WebEdit("CC_EXPIR_DATE1").Set "12/31/"& Year(Date)
	Browser("Accela Automation:_19").Page("Accela Automation:").WebList("Payment_Method").Select "Check" @@ script infofile_;_ZIP::Payment_Method_ssf75.inf_;_hightlight id_;_Browser("Accela Automation: 19").Page("Accela Automation:").WebList("Payment Method")_;_NFB_;_771014_;_
	Browser("Accela Automation:_19").Page("Accela Automation:").Image("Submit").Click @@ script infofile_;_ZIP::Submit_ssf76.inf_;_hightlight id_;_Browser("Accela Automation: 19").Page("Accela Automation:").Image("Submit")_;_NFB_;_771014_;_
	Browser("Accela Automation:_20").Page("Accela Automation:").Image("Pay All").Click @@ script infofile_;_ZIP::Pay_All_ssf77.inf_;_hightlight id_;_Browser("Accela Automation: 20").Page("Accela Automation:").Image("Pay All")_;_NFB_;_771016_;_
	Browser("Accela Automation:_20").Page("Accela Automation:").Image("Submit").Click 32,6 @@ script infofile_;_ZIP::Submit_ssf78.inf_;_hightlight id_;_Browser("Accela Automation: 20").Page("Accela Automation:").Image("Submit")_;_NFB_;_771016_;_
	If Browser("Accela Automation:_20").Dialog("Microsoft Internet").WinButton("OK").Exist(5) Then
        Call objTestLib.printfile(file,4)
		Browser("Accela Automation:_20").Dialog("Microsoft Internet").WinButton("OK").Click @@ script infofile_;_ZIP::Microsoft_Internet_Explorer_ssf79.inf_;_hightlight id_;_2_;_
	Else
		Call objTestLib.printfile(file,5,"cannot find error message dialog!")
	End If
	'b.pay for the partial amount and verify the fee, payment description and history
	Call objTestLib.printfile(file,3,"      b.pay for the partial amount and verify the fee, payment descriptioan and history")
	Browser("Accela Automation:_20").Page("Accela Automation:").WebEdit("payamt1").Set "1" @@ script infofile_;_ZIP::payamt1_ssf80.inf_;_hightlight id_;_Browser("Accela Automation: 20").Page("Accela Automation:").WebEdit("payamt1")_;_NFB_;_771016_;_
	Browser("Accela Automation:_20").Page("Accela Automation:").Image("Submit").Click 20,8 @@ script infofile_;_ZIP::Submit_ssf81.inf_;_hightlight id_;_Browser("Accela Automation: 20").Page("Accela Automation:").Image("Submit")_;_NFB_;_771016_;_
	Browser("Accela Automation:_21").Page("Accela Automation:").WebCheckBox("chkPay").Set "ON" @@ script infofile_;_ZIP::chkPay_ssf82.inf_;_hightlight id_;_Browser("Accela Automation: 21").Page("Accela Automation:").WebCheckBox("chkPay")_;_NFB_;_771018_;_
	Browser("Accela Automation:_21").Page("Accela Automation:").Image("Submit").Click 24,13 @@ script infofile_;_ZIP::Submit_ssf83.inf_;_hightlight id_;_Browser("Accela Automation: 21").Page("Accela Automation:").Image("Submit")_;_NFB_;_771018_;_
	Browser("Accela Automation:_22").Page("Accela Automation:").Sync @@ script infofile_;_ZIP::Accela_Automation__ssf84.inf_;_hightlight id_;_Browser("Accela Automation:_22").Page("Accela Automation:")_;_NFB_;_781020_;_
	strInnerText = Browser("Accela Automation:_22").Page("Accela Automation:").WebTable("Total Invoice").GetROProperty("innertext")
	If instr(strInnerText,"$1.00") <> 0 Then
	    Call objTestLib.printfile(file,4)
	Else
		Call objTestLib.printfile(file,5,"cannot find the just payment money!")
	End If
	Browser("Accela Automation:_22").Close
	'c.pay for the rest amount and verify the fee, payment descriptioan and history
	Call objTestLib.printfile(file,3,"      c.pay for the rest amount and verify the fee, payment descriptioan and history")
	Browser("Accela Automation:_18").Page("Accela Automation:").Image("Payment").Click @@ script infofile_;_ZIP::Payment_ssf85.inf_;_hightlight id_;_Browser("Accela Automation: 18").Page("Accela Automation:").Image("Payment")_;_NFB_;_791020_;_
	strValue = Browser("Accela Automation:_19").Page("Accela Automation:").WebEdit("vpayment").GetROProperty("text")
	Browser("Accela Automation:_19").Page("Accela Automation:").WebList("Payment_Method").Select "Check" @@ script infofile_;_ZIP::Payment_Method_ssf86.inf_;_hightlight id_;_Browser("Accela Automation: 19").Page("Accela Automation:").WebList("Payment Method")_;_NFB_;_801022_;_
	Browser("Accela Automation:_19").Page("Accela Automation:").WebEdit("CC_EXPIR_DATE1").Set "12/31/"& Year(Date)
	Browser("Accela Automation:_19").Page("Accela Automation:").Image("Submit").Click @@ script infofile_;_ZIP::Submit_ssf87.inf_;_hightlight id_;_Browser("Accela Automation: 19").Page("Accela Automation:").Image("Submit")_;_NFB_;_801022_;_
	Browser("Accela Automation:_20").Page("Accela Automation:").Image("Pay All").Click @@ script infofile_;_ZIP::Pay_All_ssf88.inf_;_hightlight id_;_Browser("Accela Automation: 20").Page("Accela Automation:").Image("Pay All")_;_NFB_;_801024_;_
	Browser("Accela Automation:_20").Page("Accela Automation:").Image("Submit").Click 25,5 @@ script infofile_;_ZIP::Submit_ssf89.inf_;_hightlight id_;_Browser("Accela Automation: 20").Page("Accela Automation:").Image("Submit")_;_NFB_;_801024_;_
	Browser("Accela Automation:_21").Page("Accela Automation:").WebCheckBox("chkPay").Set "ON" @@ script infofile_;_ZIP::chkPay_ssf90.inf_;_hightlight id_;_Browser("Accela Automation: 21").Page("Accela Automation:").WebCheckBox("chkPay")_;_NFB_;_801026_;_
	Browser("Accela Automation:_21").Page("Accela Automation:").Image("Submit").Click 18,7 @@ script infofile_;_ZIP::Submit_ssf91.inf_;_hightlight id_;_Browser("Accela Automation: 21").Page("Accela Automation:").Image("Submit")_;_NFB_;_801026_;_
	wait(5) @@ script infofile_;_ZIP::Accela_Automation__ssf92.inf_;_hightlight id_;_Browser("Accela Automation:_22").Page("Accela Automation:")_;_NFB_;_811029_;_
	strInnerText = Browser("Accela Automation:_22").Page("Accela Automation:").WebTable("Total Invoice").GetROProperty("text")
	If instr(strInnerText,strValue) <> 0 Then
	    Call objTestLib.printfile(file,4)
	Else
		Call objTestLib.printfile(file,5,"cannot find the just payment money!")
	End If
	Browser("Accela Automation:_22").Close
End Function

'Browser("Accela Automation:_18").Page("Accela Automation:").Image("tab_menu").Click @@ script infofile_;_ZIP::tab_menu_ssf93.inf_;_hightlight id_;_Browser("Accela Automation: 18").Page("Accela Automation:").Image("tab menu")_;_NFB_;_821029_;_
Browser("Accela Automation:").Page("Accela Automation:").Image("tab_menu").Click @@ script infofile_;_ZIP::Accela_Automation__ssf94.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:")_;_NFB_;_821030_;_

'=====7. Workflow
Call objTestLib.printfile(file,3,"   7. WorkFlow")
objmsgbox.SQAMsgbox "7. WorkFlow","AA Auto Test",3,0
'a.Verify the workflow page exist
Call objTestLib.printfile(file,3,"      a.Verify the workflow page exist")
Browser("Accela Automation:").Page("Accela Automation:").Link("History").Click @@ script infofile_;_ZIP::History_ssf101.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("History")_;_NFB_;_841037_;_
strInnerText = Browser("Accela Automation:_23").Page("Accela Automation:").WebTable("History").GetROProperty("innertext")
If instr(strInnerText,"No Workflow history exists for this Application") <> 0 Then
    Call objTestLib.printfile(file,4)
Else
	Call objTestLib.printfile(file,5,"cannot find workflow history page")
End If
'Browser("Accela Automation:_23").Page("Accela Automation:").Image("tab_menu").Click @@ script infofile_;_ZIP::tab_menu_ssf102.inf_;_hightlight id_;_Browser("Accela Automation: 23").Page("Accela Automation:").Image("tab menu")_;_NFB_;_841038_;_
Browser("Accela Automation:_23").Page("Accela Automation:").Image("tab_menu").Click
'b.update the work flow by performing the first task 
Call objTestLib.printfile(file,3,"      b.update the work flow by performing the first task ")
Browser("Accela Automation:").Page("Accela Automation:").Link("Update Workflow").Click
Call UpdateFirstTask(2,"Agency Testing - First Modify")
'c.use the "Supervisor only" button to roll back the task
Call objTestLib.printfile(file,3,"      c.use the [Supervisor only] button to roll back the task")
Call WFSupervisor()
'd.Edit the first task by changing some information
Call objTestLib.printfile(file,3,"      d.Edit the first task by changing some information")
Call UpdateFirstTask(3,"Agency Testing - Second Modify")
'Browser("Accela Automation:_25").Page("Accela Automation:").Image("tab_menu").Click @@ script infofile_;_ZIP::tab_menu_ssf140.inf_;_hightlight id_;_Browser("Accela Automation: 25").Page("Accela Automation:").Image("tab menu")_;_NFB_;_921065_;_
Browser("Accela Automation:").Page("Accela Automation:").Image("tab_menu").Click
'e.Delete the task
Call objTestLib.printfile(file,3,"        e.Delete the task")
Call DeleteTask()

Function UpdateFirstTask (intNumber,strComment)
	Browser("Accela Automation:_24").Page("Accela Automation:").Image("TaskFlag").Click @@ script infofile_;_ZIP::active_ssf107.inf_;_hightlight id_;_Browser("Accela Automation: 24").Page("Accela Automation:").Image("active")_;_NFB_;_841043_;_
	'(1). select staff by selecting dept & staff
	Call objTestLib.printfile(file,3,"      (1). select staff by selecting dept & staff")
	call SelectDept()
	call VerifyUser()
	'(2). select staff by clicking current user button
	Call objTestLib.printfile(file,3,"      (2). select staff by clicking current user button")
	Browser("Accela Automation:_25").Page("Accela Automation:").Image("Select current").Click
	wait(5)
	call VerifyUser()
	'(3). select the first status
	Call objTestLib.printfile(file,3,"      (3). select the first status") @@ script infofile_;_ZIP::Select_current_ssf123.inf_;_hightlight id_;_Browser("Accela Automation: 25").Page("Accela Automation:").Image("Select current")_;_NFB_;_901054_;_
	strTemp = Browser("Accela Automation:_25").Page("Accela Automation:").WebList("NEW_SD_APP_DES").GetItem(IntNumber)
	Browser("Accela Automation:_25").Page("Accela Automation:").WebList("NEW_SD_APP_DES").Select strTemp @@ script infofile_;_ZIP::NEW_SD_APP_DES_ssf124.inf_;_hightlight id_;_Browser("Accela Automation: 25").Page("Accela Automation:").WebList("NEW SD APP DES")_;_NFB_;_901054_;_
	'(4). update the status date and due date and submit
	Call objTestLib.printfile(file,3,"      (4). update the status date and due date and submit")
	Browser("Accela Automation:_25").Page("Accela Automation:").WebEdit("StatusDate").Set date+1 @@ script infofile_;_ZIP::StatusDate_ssf125.inf_;_hightlight id_;_Browser("Accela Automation: 25").Page("Accela Automation:").WebEdit("StatusDate")_;_NFB_;_901054_;_
	Browser("Accela Automation:_25").Page("Accela Automation:").WebEdit("DueDate").Set date+10 @@ script infofile_;_ZIP::DueDate_ssf126.inf_;_hightlight id_;_Browser("Accela Automation: 25").Page("Accela Automation:").WebEdit("DueDate")_;_NFB_;_901054_;_
	Browser("Accela Automation:_25").Page("Accela Automation:_2").WebEdit("Comment").Set strComment
	Browser("Accela Automation:_25").Page("Accela Automation:").Image("Save").Click 21,11 @@ script infofile_;_ZIP::Save_ssf127.inf_;_hightlight id_;_Browser("Accela Automation: 25").Page("Accela Automation:").Image("Save")_;_NFB_;_901054_;_
	If Browser("Accela Automation:_27").Page("Accela Automation:").Image("Cancel").Exist(5) Then
        Browser("Accela Automation:_27").Page("Accela Automation:").Image("Cancel").Click @@ script infofile_;_ZIP::Cancel_ssf128.inf_;_hightlight id_;_Browser("Accela Automation: 27").Page("Accela Automation:").Image("Cancel")_;_NFB_;_901056_;_
	End If
	strInnerText = Browser("Accela Automation:_25").Page("Accela Automation:_2").WebTable("Task Details").GetROProperty("innertext")
	If instr(strInnerText,strTemp) <> 0 Then
        Call objTestLib.printfile(file,4)
	Else
		Call objTestLib.printfile(file,5,"cannot find the status in task details table!")
	End If
End Function

Function SelectDept ()
	Wait(5)
	Browser("Accela Automation:_25").Page("Accela Automation:").Image("Select Department").Click
	Wait(5)
	Browser("Accela Automation:_26").Page("Accela Automation:").Frame("toc").Link("Organization.").Click
	Browser("Accela Automation:_26").Page("Accela Automation:").Frame("toc2").Image("Submit").Click 30,6 @@ script infofile_;_ZIP::Submit_ssf121.inf_;_hightlight id_;_Browser("Accela Automation: 26").Page("Accela Automation:").Frame("toc2").Image("Submit")_;_NFB_;_891053_;_
	Browser("Accela Automation:_26").Page("Accela Automation:_2").Frame("toc3").Link("admin  admin").Click @@ script infofile_;_ZIP::admin__admin_ssf122.inf_;_hightlight id_;_Browser("Accela Automation: 26").Page("Accela Automation: 2").Frame("toc3").Link("admin  admin")_;_NFB_;_891054_;_
End Function

Function VerifyUser ()
	Dim  strFName,strLName
	strFName = Browser("Accela Automation:_25").Page("Accela Automation:").WebEdit("StaffFName").GetROProperty("value")
	strLName = Browser("Accela Automation:_25").Page("Accela Automation:").WebEdit("StaffLName").GetROProperty("value")
	If Len(strFName) > 0 And len(strLName) > 0 Then
	     Call objTestLib.printfile(file,4)
	Else
	 	 Call objTestLib.printfile(file,5,"the staff doesn't exist!")
	End If
End Function

Function WFSupervisor ()
	Browser("Accela Automation:_25").Page("Accela Automation:_2").Image("Supervisor Only").Click @@ script infofile_;_ZIP::Supervisor_Only_ssf130.inf_;_hightlight id_;_Browser("Accela Automation: 25").Page("Accela Automation: 2").Image("Supervisor Only")_;_NFB_;_901058_;_
	wait(5)
	Browser("Accela Automation:_44").Page("Accela Automation:").WebList("TaskActive").Select "YES" @@ script infofile_;_ZIP::TaskActive_ssf244.inf_;_hightlight id_;_Browser("Accela Automation: 44").Page("Accela Automation:").WebList("TaskActive")_;_NFB_;_1931381_;_
	Browser("Accela Automation:_44").Page("Accela Automation:").WebList("taskCompleted").Select "NO" @@ script infofile_;_ZIP::taskCompleted_ssf245.inf_;_hightlight id_;_Browser("Accela Automation: 44").Page("Accela Automation:").WebList("taskCompleted")_;_NFB_;_1931381_;_
	Browser("Accela Automation:_44").Page("Accela Automation:").Image("Save").Click 17,7 @@ script infofile_;_ZIP::Save_ssf246.inf_;_hightlight id_;_Browser("Accela Automation: 44").Page("Accela Automation:").Image("Save")_;_NFB_;_1931381_;_
12345

script.mts - 源码说明

本页面展示了「QTP实例源码（完整）」中的 script.mts 源码文件，采用 MTS 编程语言编写，共 793 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与QTP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?