Web Consumer  New  QA different from prod
' August 1st, 2008



age=CalculateAge
'sgbox(age)
Browser("Electric Insurance - Car").Page("Electric Insurance - Car").WebEdit("zipcode").Set DataTable("inZipcode", dtGlobalSheet)
Browser("Electric Insurance - Car").Page("Electric Insurance - Car").Image("Click here to start your").Click 5,5
Browser("Electric Insurance - Car").Page("Electric Insurance - Car").Sync


'if   Browser("Electric Insurance - Car").Page("Auto Quote...").Exist(0) Then
'Browser("Electric Insurance - Car").Close
'DataTable("outStatus")= "Not a new flow state"
'end if
if Browser("Electric Insurance - Car").Dialog("Security Information").Exist(2) Then
		Browser("Electric Insurance - Car").Dialog("Security Information").WinButton("Yes").Click
		Browser("Electric Insurance - Car").Page("Home Insurance Inquiry").Sync
		Browser("Electric Insurance - Car").Close
		DataTable("outStatus")= "Quote not available online"
		ExitTestIteration
end if

If Browser("Electric Insurance - Car").Page("Auto Quote...").Image("submit").Exist(3) then
		Browser("Electric Insurance - Car").Close
		DataTable("outStatus")= "Not a new flow state"
		ExitTestIteration
end if

If  Browser("Electric Insurance - Car").Page("Get an Auto Quote from").WebEdit("firstName").exist(0) Then
Browser("Electric Insurance - Car").Page("Get an Auto Quote from").WebEdit("firstName").Set "Thahnhahtenhtha"
Browser("Electric Insurance - Car").Page("Get an Auto Quote from").WebEdit("lastName").Set "Goldstein"
Browser("Electric Insurance - Car").Page("Get an Auto Quote from").WebEdit("email").Set "email"
Browser("Electric Insurance - Car").Page("Get an Auto Quote from").WebRadioGroup("Agreement1").Select "Yes"
Browser("Electric Insurance - Car").Page("Get an Auto Quote from").WebRadioGroup("Agreement2").Select "Yes"
Browser("Electric Insurance - Car").Page("Get an Auto Quote from").WebButton("Continue").Click
End If




myState =Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry").WebEdit("_tbRiskState").GetROProperty("Value") 
DataTable("outState")= myState
 '"*"&myState&"*"
'msgbox(myState)
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry").WebEdit("_tbRiskStreet").Set "100 Main Street"
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry").WebList("_lbPriorBI").Select "100/300 or 300 CSL"
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry").WebEdit("_tbEmail").Set "anymail@yahoo.com"
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry").Image("_continue").Click 52,11

'Vehicles
For I = 1 To DataTable("inNumberOfVehicles", dtGlobalSheet)
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_2").WebEdit("_tbVIN"&i).Set "1ZVHT84N275368771"
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_2").WebEdit("_tbMilestoWork"&i).Set "10"
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_2").WebEdit("_tbAnnualMiles"&i).Set "25000"
 If I<int(DataTable("inNumberOfVehicles", dtGlobalSheet)) Then
	Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_2").WebCheckBox("_cb_AddVehicle"&i+1).Set "ON"		
 End If
next
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_2").Image("_continue").Click 80,15

'Drivers
For I = 1 To DataTable("inNumberOfDrivers", dtGlobalSheet)
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_3").WebEdit("_tbFirstName"&i).Set DataTable("inFirstName"&i, dtGlobalSheet)
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_3").WebEdit("_tbLastName"&i).Set "Goldstein"
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_3").WebList("_ddGender"&i).Select DataTable("inGender"&i, dtGlobalSheet)
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_3").WebEdit("_tbBirthDate"&i).Set DataTable("inDriverDOB1", dtGlobalSheet)
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_3").WebEdit("_tbAgeLicensed"&i).Set "16"
If I<=int(DataTable("inNumberOfVehicles", dtGlobalSheet)) Then
	Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_3").WebList("_ddVehicleDriven"&i).Select  CInt(i-1)
end if
'Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_3").WebList("_ddVehicleDriven"&i).Select "#1"
If I<=int(DataTable("inNumberOfVehicles", dtGlobalSheet)) Then
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_3").WebList("_ddVehicleDriven"&i).Select  CInt(i-1)
End If
If I<int(DataTable("inNumberOfDrivers", dtGlobalSheet)) Then
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_3").WebCheckBox("_cb_AddDriver"&i+1).Set "ON"
	If I<int(DataTable("inNumberOfVehicles", dtGlobalSheet)) Then
	Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_3").WebCheckBox("_cbPrincipalDriver"&i+1).Set "ON"
	End If
End If
Next
if (DataTable("inNumberOfDrivers", dtGlobalSheet)>1) and  (DataTable("inMarriedDriver1", dtGlobalSheet))="Yes" Then
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_3").WebList("_ddMarried1").Select "Y"
Browser("Electric Insurance - Car").Dialog("Windows Internet Explorer").WinButton("OK").Click
end if
  
if  (DataTable("inViolations", dtGlobalSheet))="Yes" Then
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_3").WebRadioGroup("_rbHaveClaims").Select "1"
end if
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_3").Image("_imgContinueDriver").Click 51,17


'only one type of accident per person .. please make so person cannot enter a driver that does not exist in the table
DriverAtFault (DataTable("inDriverAtFault", dtGlobalSheet))
if  (DataTable("inViolations", dtGlobalSheet))="Yes" Then
if  (DataTable("inAccident", dtGlobalSheet))="Yes" Then
Browser("Electric Insurance - Car").Page("Auto Incidents").WebList("_lbIncidentType1").Select "Accident"
Browser("Electric Insurance - Car").Page("Auto Incidents").WebList("_lbIncidentAtFault1").Select "YES"
Browser("Electric Insurance - Car").Page("Auto Incidents").WebList("_lbIncidentDesc1").Select "Changing Lanes"

Browser("Electric Insurance - Car").Page("Auto Incidents").WebEdit("_tbIncidentDate1").Set DataTable("inDriverDOB1", dtGlobalSheet)
Browser("Electric Insurance - Car").Page("Auto Incidents").WebEdit("_tbIncidentAmount1").Set "725"
else if (DataTable("ininComprehensive", dtGlobalSheet))="Yes" Then
Browser("Electric Insurance - Car").Page("Auto Incidents").WebList("_lbIncidentType1").Select "Comprehensive Claims"
Browser("Electric Insurance - Car").Page("Auto Incidents").WebList("_lbIncidentDesc1").Select "Glass"
Browser("Electric Insurance - Car").Page("Auto Incidents").WebEdit("_tbIncidentDate1").Set "09/09/2007"
Browser("Electric Insurance - Car").Page("Auto Incidents").WebEdit("_tbIncidentAmount1").Set "1000"
else
Browser("Electric Insurance - Car").Page("Auto Incidents").WebList("_lbIncidentType1").Select "Violation/Ticket"
Browser("Electric Insurance - Car").Page("Auto Incidents").WebList("_lbIncidentDesc1").Select "Speeding - 15 or more mph over limit"
Browser("Electric Insurance - Car").Page("Auto Incidents").WebEdit("_tbIncidentDate1").Set "03/03/1970"
end if
end if ' why are there 2 here? 
Browser("Electric Insurance - Car").Page("Auto Incidents").Image("_btnContinue").Click 100,12
end if

Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_4").WebEdit("_tbSSN1").Set "034"
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_4").WebEdit("_tbSSN2").Set "22"
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_4").WebEdit("_tbSSN3").Set "2222"
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_4").WebEdit("_tbPhone").Set "6175551212"
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_4").WebList("_lbEstimatedCredit").Select "Excellent"
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_4").WebList("_lbResidenceType").Select "Owner- Single Family Home"
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_4").WebEdit("_tbYearsAtResidence").Set "5"
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_4").WebList("_lbPolicyHolderOccupation").Select "Business Owner"
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_4").WebList("_lbPolicyHolderEducation").Select "Post Graduate Degree"
if (DataTable("inNumberOfDrivers", dtGlobalSheet)>1) and  (DataTable("inMarriedDriver1", dtGlobalSheet))="Yes" Then
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_4").WebList("_lbSpouseOccupation").Select "Homemaker"
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_4").WebList("_lbSpouseEducation").Select "Post Graduate Degree"
end if
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_4").WebRadioGroup("_rbEicHomePolicy").Select "N"

'  Please fix this so it reflects the person's age
age=CalculateAge

For I = 1 To DataTable("inNumberOfDrivers", dtGlobalSheet)
If age<=21 Then
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_4").WebList("_lbDriverCertificate"&i).Select "Driver Training"
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_4").WebEdit("_tbDrvCertDate"&i).Set "01/01/2007"
End if
If   i>1Then
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_4").WebRadioGroup("_rb100MileStudent"&i).Select "1"
End If
' also PA
if (age<=25) and (myState<>"NY") and (myState<>"PA") then 
Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_4").WebRadioGroup("_rbGoodStudent"&i).Select "1"
End If

Next


Browser("Electric Insurance - Car").Page("Auto Insurance Inquiry_4").Image("_btnContinue").Click 113,11

'Browser("Electric Insurance - Car").Page("Page_2").Image("_btnBuyOnline").Click 224,33
'If  not Browser("Electric Insurance - Car").Page("Page_2").Image("coverages_return").Exist(10) Then

if not Browser("Electric Insurance - Car").Page("Page_2").Image("_btnBuyOnline").Exist(10) then
'if  not Browser("Electric Insurance - Car").Page("Page_2").WebList("_lbVehBI").Exist(10) Then
Browser("Electric Insurance - Car").Close
DataTable("outStatus")= "Not eligible for coverage or web error"
else
Browser("Electric Insurance - Car").Page("Page_2").Image("coverages_return").Click


If  (DataTable("inCoverages", dtGlobalSheet))="Yes" Then
Coverages myState

For I = 1 To DataTable("inNumberOfVehicles", dtGlobalSheet)
Browser("Electric Insurance - Car").Page("Page_3").WebList("_lbVehCOMP"&i).Select cInt (DataTable ("inVehCOMP", dtGlobalSheet))
Browser("Electric Insurance - Car").Page("Page_3").WebList("_lbVehCOLL"&i).Select cInt(DataTable ("inVehCOLL", dtGlobalSheet))
Browser("Electric Insurance - Car").Page("Page_3").WebList("_lbVehRENT"&i).Select cInt(DataTable ("inVehRENT", dtGlobalSheet))
Browser("Electric Insurance - Car").Page("Page_3").WebList("_lbVehTOW"&i).Select cInt(DataTable ("inVehTOW", dtGlobalSheet))

Next
end if











Browser("Electric Insurance - Car").Page("Page_3").Image("_continue").Click 95,17

If  not Browser("Electric Insurance - Car").Page("Page_2").Image("coverages_return").Exist(10) Then
Browser("Electric Insurance - Car").Close
DataTable("outStatus")= "Incorrect Coverage Selected"
else
	CellValue = Browser("Electric Insurance - Car").Page("Page_2").WebTable("The estimated monthly").GetCellData(1,2)
	 Dim str,  MyArray
	str = CellValue
	MyArray = split( str, "$", -1, 1 ) 
	strPrefix = MyArray(0) 
	IntYearlyPremium = MyArray(2)
	DataTable("outYearlyPrem")=  IntYearlyPremium
	Browser("Electric Insurance - Car").Page("Page_2").Sync
Browser("Electric Insurance - Car").Close
	end if
'end if


end if
'end if