script.mts

QTP实例源码（完整）

Browser("Browser_3").Page("Page").WebEdit("FEE_COMMENT").Set "Agency Testing" @@ script infofile_;_ZIP::FEE_COMMENT_ssf90.inf_;_hightlight id_;_Browser("Browser 3").Page("Page").WebEdit("FEE COMMENT")_;_NFB_;_882276_;_
Browser("Browser_3").Page("Page").Image("Submit").Click 10,5 @@ script infofile_;_ZIP::Submit_ssf91.inf_;_hightlight id_;_Browser("Browser 3").Page("Page").Image("Submit")_;_NFB_;_882276_;_
wait(3)
strTemp = trim(Browser("Accela Automation:_21").Page("Accela Automation:_2").WebTable("Fee Calculator").GetCellData(4,9))
If strTemp="Voided" Then
    Call objTestLib.printfile(file,4)
Else
	Call objTestLib.printfile(file,5,"cannot find the voided comment!")
End If

Browser("Accela Automation:_21").Page("Accela Automation:_6").WebCheckBox("fee1").Set "ON"
Browser("Accela Automation:_21").Page("Accela Automation:_2").Image("Invoice Fee").Click @@ script infofile_;_ZIP::Invoice_Fee_ssf86.inf_;_hightlight id_;_Browser("Accela Automation: 21").Page("Accela Automation: 2").Image("Invoice Fee")_;_NFB_;_862273_;_
Browser("Accela Automation:_21").Dialog("Microsoft Internet").WinButton("OK").Click
wait(5)

'Browser("Accela Automation:_21").Page("Accela Automation:_6").Link("Menu").Click @@ script infofile_;_ZIP::Menu_ssf92.inf_;_hightlight id_;_Browser("Accela Automation: 21").Page("Accela Automation: 6").Link("Menu")_;_NFB_;_892278_;_
Browser("Accela Automation:").Page("Accela Automation:").Link("Menu").Click
'=====6. Cahier payment
Call objTestLib.printfile(file,3,"   6. Cahier payment")
objmsgbox.SQAMsgbox "6. Cahier payment","AA Auto Test",3,0
Browser("Accela Automation:").Page("Accela Automation:").Link("Payment").Click @@ script infofile_;_ZIP::Payment_ssf94.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("Payment")_;_NFB_;_902288_;_
strValue = Browser("Accela Automation:_22").Page("Accela Automation:").WebTable("Total Invoice").GetCellData(3,2)
strValue = replace(strValue,"$","")
strValue = replace(strValue,",","")
'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:_22").Page("Accela Automation:").Image("Payment").Click @@ script infofile_;_ZIP::Payment_ssf95.inf_;_hightlight id_;_Browser("Accela Automation: 22").Page("Accela Automation:").Image("Payment")_;_NFB_;_902289_;_
Browser("Accela Automation:_23").Page("Accela Automation:").WebEdit("vpayment").Set "1" @@ script infofile_;_ZIP::vpayment_ssf96.inf_;_hightlight id_;_Browser("Accela Automation: 23").Page("Accela Automation:").WebEdit("vpayment")_;_NFB_;_912291_;_
Browser("Accela Automation:_23").Page("Accela Automation:").WebList("Payment_Method").Select "Check" @@ script infofile_;_ZIP::Payment_Method_ssf97.inf_;_hightlight id_;_Browser("Accela Automation: 23").Page("Accela Automation:").WebList("Payment Method")_;_NFB_;_912291_;_
Browser("Accela Automation:_23").Page("Accela Automation:").WebEdit("vcomment").Set "Agency Testing" @@ script infofile_;_ZIP::vcomment_ssf98.inf_;_hightlight id_;_Browser("Accela Automation: 23").Page("Accela Automation:").WebEdit("vcomment")_;_NFB_;_912291_;_
Browser("Accela Automation:_23").Page("Accela Automation:").Image("Submit").Click @@ script infofile_;_ZIP::Submit_ssf99.inf_;_hightlight id_;_Browser("Accela Automation: 23").Page("Accela Automation:").Image("Submit")_;_NFB_;_912291_;_
Browser("Accela Automation:_24").Page("Accela Automation:").Image("Pay All").Click @@ script infofile_;_ZIP::Pay_All_ssf100.inf_;_hightlight id_;_Browser("Accela Automation: 24").Page("Accela Automation:").Image("Pay All")_;_NFB_;_912293_;_
Browser("Accela Automation:_24").Page("Accela Automation:").Image("Submit").Click 32,8 @@ script infofile_;_ZIP::Submit_ssf101.inf_;_hightlight id_;_Browser("Accela Automation: 24").Page("Accela Automation:").Image("Submit")_;_NFB_;_912293_;_
If Browser("Accela Automation:_24").Dialog("Microsoft Internet").WinButton("OK").Exist Then
    Call objTestLib.printfile(file,4)
	Browser("Accela Automation:_24").Dialog("Microsoft Internet").WinButton("OK").Click @@ script infofile_;_ZIP::Microsoft_Internet_Explorer_ssf102.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:_24").Page("Accela Automation:").WebEdit("payamt1").Set "1" @@ script infofile_;_ZIP::payamt1_ssf103.inf_;_hightlight id_;_Browser("Accela Automation: 24").Page("Accela Automation:").WebEdit("payamt1")_;_NFB_;_912293_;_
Browser("Accela Automation:_24").Page("Accela Automation:").Image("Submit").Click 22,11 @@ script infofile_;_ZIP::Submit_ssf104.inf_;_hightlight id_;_Browser("Accela Automation: 24").Page("Accela Automation:").Image("Submit")_;_NFB_;_912293_;_
Browser("Accela Automation:_25").Page("Accela Automation:").WebCheckBox("chkPay").Set "ON" @@ script infofile_;_ZIP::chkPay_ssf105.inf_;_hightlight id_;_Browser("Accela Automation: 25").Page("Accela Automation:").WebCheckBox("chkPay")_;_NFB_;_912295_;_
Browser("Accela Automation:_25").Page("Accela Automation:").Image("Submit").Click 37,7 @@ script infofile_;_ZIP::Submit_ssf106.inf_;_hightlight id_;_Browser("Accela Automation: 25").Page("Accela Automation:").Image("Submit")_;_NFB_;_912295_;_
Browser("Accela Automation:_26").Page("Accela Automation:").Sync @@ script infofile_;_ZIP::Accela_Automation__ssf107.inf_;_hightlight id_;_Browser("Accela Automation:_26").Page("Accela Automation:")_;_NFB_;_922298_;_
strInnerText = Browser("Accela Automation:_26").Page("Accela Automation:").WebTable("Receipt No.:").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:_26").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:_22").Page("Accela Automation:").Image("Payment").Click @@ script infofile_;_ZIP::Payment_ssf108.inf_;_hightlight id_;_Browser("Accela Automation: 22").Page("Accela Automation:").Image("Payment")_;_NFB_;_932298_;_
Browser("Accela Automation:_23").Page("Accela Automation:").WebList("Payment_Method").Select "Check" @@ script infofile_;_ZIP::Payment_Method_ssf109.inf_;_hightlight id_;_Browser("Accela Automation: 23").Page("Accela Automation:").WebList("Payment Method")_;_NFB_;_942300_;_
Browser("Accela Automation:_23").Page("Accela Automation:").WebEdit("vcomment").Set "Agency Testing" @@ script infofile_;_ZIP::vcomment_ssf110.inf_;_hightlight id_;_Browser("Accela Automation: 23").Page("Accela Automation:").WebEdit("vcomment")_;_NFB_;_942300_;_
Browser("Accela Automation:_23").Page("Accela Automation:").Image("Submit").Click @@ script infofile_;_ZIP::Submit_ssf111.inf_;_hightlight id_;_Browser("Accela Automation: 23").Page("Accela Automation:").Image("Submit")_;_NFB_;_942300_;_
Browser("Accela Automation:_24").Page("Accela Automation:").Image("Pay All").Click @@ script infofile_;_ZIP::Pay_All_ssf112.inf_;_hightlight id_;_Browser("Accela Automation: 24").Page("Accela Automation:").Image("Pay All")_;_NFB_;_942302_;_
Browser("Accela Automation:_24").Page("Accela Automation:").Image("Submit").Click 19,8 @@ script infofile_;_ZIP::Submit_ssf113.inf_;_hightlight id_;_Browser("Accela Automation: 24").Page("Accela Automation:").Image("Submit")_;_NFB_;_942302_;_
Browser("Accela Automation:_25").Page("Accela Automation:").WebCheckBox("chkPay").Set "ON" @@ script infofile_;_ZIP::chkPay_ssf114.inf_;_hightlight id_;_Browser("Accela Automation: 25").Page("Accela Automation:").WebCheckBox("chkPay")_;_NFB_;_942304_;_
Browser("Accela Automation:_25").Page("Accela Automation:").Image("Submit").Click 34,4 @@ script infofile_;_ZIP::Submit_ssf115.inf_;_hightlight id_;_Browser("Accela Automation: 25").Page("Accela Automation:").Image("Submit")_;_NFB_;_942304_;_
Browser("Accela Automation:_26").Page("Accela Automation:").Sync @@ script infofile_;_ZIP::Accela_Automation__ssf116.inf_;_hightlight id_;_Browser("Accela Automation:_26").Page("Accela Automation:")_;_NFB_;_952307_;_
strInnerText = Browser("Accela Automation:_26").Page("Accela Automation:").WebTable("Receipt No.:").GetROProperty("innertext")
If instr(strInnerText,int(Cdbl(strValue)-1)) <> 0 Then
    Call objTestLib.printfile(file,4)
Else
	Call objTestLib.printfile(file,5,"cannot find the just payment money!")
End If
Browser("Accela Automation:_26").Close

'Browser("Accela Automation:_22").Page("Accela Automation:").Link("Menu").Click @@ script infofile_;_ZIP::Menu_ssf130.inf_;_hightlight id_;_Browser("Accela Automation: 22").Page("Accela Automation:").Link("Menu")_;_NFB_;_992313_;_
Browser("Accela Automation:").Page("Accela Automation:").Link("Menu").Click
'=====7. Fees
Call objTestLib.printfile(file,3,"   7. Fees")
objmsgbox.SQAMsgbox "6. Fees","AA Auto Test",3,0 @@ script infofile_;_ZIP::Accela_Automation__ssf131.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:")_;_NFB_;_992314_;_
Browser("Accela Automation:").Page("Accela Automation:").Link("Fees").Click @@ script infofile_;_ZIP::Fees_ssf132.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("Fees")_;_NFB_;_1002316_;_
Browser("Accela Automation:_21").Page("Accela Automation:_7").Link("Valuation Calc").Click @@ script infofile_;_ZIP::Valuation_Calc_ssf133.inf_;_hightlight id_;_Browser("Accela Automation: 21").Page("Accela Automation: 7").Link("Valuation Calc")_;_NFB_;_1002317_;_
'a.Add two different Valuation caluators
Call objTestLib.printfile(file,3,"      a.Add two different Valuation caluators")
Call AddNewJob("Apartment Houses")
Call VerifyOccupancy("Apartment Houses")

Call AddNewJob("Banks")
Call VerifyOccupancy("Banks")

Function AddNewJob (strCalSched)
		 Browser("Accela Automation:_27").Page("Accela Automation:").Image("Add new job").Click @@ script infofile_;_ZIP::Add_new_job_ssf138.inf_;_hightlight id_;_Browser("Accela Automation: 27").Page("Accela Automation:").Image("Add new job")_;_NFB_;_1022321_;_
		 wait(3)
		 Browser("Accela Automation:_28").Page("Accela Automation:").WebList("txtSelect").Select strCalSched @@ script infofile_;_ZIP::txtSelect_ssf139.inf_;_hightlight id_;_Browser("Accela Automation: 28").Page("Accela Automation:").WebList("txtSelect")_;_NFB_;_1032322_;_
		 Browser("Accela Automation:_28").Page("Accela Automation:_2").WebEdit("txtName1").Set "1" @@ script infofile_;_ZIP::txtName1_ssf140.inf_;_hightlight id_;_Browser("Accela Automation: 28").Page("Accela Automation: 2").WebEdit("txtName1")_;_NFB_;_1032323_;_
		 Browser("Accela Automation:_28").Page("Accela Automation:_2").Image("Calculate Job").Click 55,4 @@ script infofile_;_ZIP::Calculate_Job_ssf141.inf_;_hightlight id_;_Browser("Accela Automation: 28").Page("Accela Automation: 2").Image("Calculate Job")_;_NFB_;_1032323_;_
		 Browser("Accela Automation:_30").Dialog("Microsoft Internet").WinButton("OK").Click @@ script infofile_;_ZIP::Microsoft_Internet_Explorer_ssf142.inf_;_hightlight id_;_2_;_
		 wait(3)
End Function @@ script infofile_;_ZIP::Add_new_job_ssf143.inf_;_hightlight id_;_Browser("Accela Automation: 27").Page("Accela Automation:").Image("Add new job")_;_NFB_;_1042325_;_

Function VerifyOccupancy (strCalSched)
	Browser("Accela Automation:_27").Page("Accela Automation:").Link("Occupancy").SetTOProperty "text",strCalSched
	If Browser("Accela Automation:_27").Page("Accela Automation:").Link("Occupancy").Exist Then
	    Call objTestLib.printfile(file,4)
	Else
		Call objTestLib.printfile(file,5,"Adding Valuation Calculator failed!")
	End If
End Function

'b.Delete the two created Valuation caluators
Call objTestLib.printfile(file,3,"      b.Delete the two created Valuation caluators")
While Browser("Accela Automation:_27").Page("Accela Automation:").WebTable("Occupancy").RowCount <> 1
	  Browser("Accela Automation:_27").Page("Accela Automation:").Image("Delete Valuation").Click @@ script infofile_;_ZIP::Delete_Valuation_ssf148.inf_;_hightlight id_;_Browser("Accela Automation: 27").Page("Accela Automation:").Image("Delete Valuation")_;_NFB_;_1062329_;_
	  Browser("Accela Automation:_27").Dialog("Microsoft Internet").WinButton("OK").Click @@ script infofile_;_ZIP::Microsoft_Internet_Explorer_ssf149.inf_;_hightlight id_;_2_;_
Wend

'Browser("Accela Automation:_27").Page("Accela Automation:_2").Link("Menu").Click @@ script infofile_;_ZIP::Menu_ssf154.inf_;_hightlight id_;_Browser("Accela Automation: 27").Page("Accela Automation: 2").Link("Menu")_;_NFB_;_1062332_;_
Browser("Accela Automation:").Page("Accela Automation:").Link("Menu").Click
'=====8. Workflow
Call objTestLib.printfile(file,3,"   8. WorkFlow")
objmsgbox.SQAMsgbox "8. WorkFlow","AA Auto Test",3,0 @@ script infofile_;_ZIP::Accela_Automation__ssf155.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:")_;_NFB_;_1062333_;_
'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_ssf156.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("History")_;_NFB_;_1072334_;_
strInnerText = Browser("Accela Automation:_31").Page("Accela Automation:").WebTable("Task").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:_31").Page("Accela Automation:").Link("Menu").Click @@ script infofile_;_ZIP::Menu_ssf157.inf_;_hightlight id_;_Browser("Accela Automation: 31").Page("Accela Automation:").Link("Menu")_;_NFB_;_1072335_;_

'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 ") @@ script infofile_;_ZIP::Accela_Automation__ssf158.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:")_;_NFB_;_1072336_;_
Browser("Accela Automation:").Page("Accela Automation:").Link("Update Workflow").Click @@ script infofile_;_ZIP::Update_Workflow_ssf160.inf_;_hightlight id_;_Browser("Accela Automation:").Page("Accela Automation:").Link("Update Workflow")_;_NFB_;_1072337_;_
Browser("Accela Automation:_32").Page("Accela Automation:").Image("TaskFlag").Click @@ script infofile_;_ZIP::APPLICATION_ssf161.inf_;_hightlight id_;_Browser("Accela Automation: 32").Page("Accela Automation:").WebElement("APPLICATION")_;_NFB_;_1072338_;_
'(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:_33").Page("Accela Automation:").Image("Select current").Click
wait(4)