cls_Validation_Class.qfl

Public Validation
Set Validation = ValidationInstance
'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'
Class clsValidation
	'------------------------------------------------------------------------------------------------------------------
	Private Sub Class_Initialize
	End Sub
	'------------------------------------------------------------------------------------------------------------------
	Public Sub ValidateExchange(strDB)
	Dim objRS
    Dim dictCountries
	Dim iHeader
	Dim blnCorrect
	iHeader = 1
	iRow = 2

	'	See if we're already connected to the database
	If DB.Connected(strDB) = False Then
		'	Declarations
		DB.ConnectToDB strDB
	End If

	Set dictCountries = CreateObject("Scripting.Dictionary")

	Set objRS = DB.ReturnRecordSet("select * from Exchanges_A_to_J")
	iColumns = objRS.Fields.Count
	For n = 0 To iColumns - 1
		strCountry = objRS.Fields(n).Name
		objRS.MoveFirst
		If dictCountries.Exists(strCountry) = False Then
			Do While Not objRS.EOF
				If objRS.Fields(n).Value <> ""  Then
					strExchange = strExchange & ";" & objRS.Fields(n).Value
				Else
					Exit Do
				End If
				objRS.MoveNext
			Loop
			strExchange = Mid(strExchange, 2)
			dictCountries.Add strCountry, strExchange
			strExchange = ""
		End If
	Next
	Set objRS = DB.ReturnRecordSet("select * from Exchanges_K_to_Z")
	iColumns = objRS.Fields.Count
	For n = 0 To iColumns - 1
		strCountry = objRS.Fields(n).Name
		objRS.MoveFirst
		If dictCountries.Exists(strCountry) = False Then
			Do While Not objRS.EOF
				If objRS.Fields(n).Value <> ""  Then
					strExchange = strExchange & ";" & objRS.Fields(n).Value
				End If
				objRS.MoveNext
			Loop
			strExchange = Mid(strExchange, 2)
			dictCountries.Add strCountry, strExchange
			strExchange = ""
		End If
	Next

	'	Start reporting
	Reporter.StartReporting "Validation of Exchanges Start", ""

	'	Do basic search
	WebButton.Click "New EM Request"
	GenericObject.HandlePopUp "OK"
	WebList.SelectItem "Search Entity Category", "Non-Individual"
	WebList.SelectItem "Search Entity Type", "Organisation"
	WebList.SelectItem "Search By","GRID"
	WebEdit.SetText "Search GRID", "1"
	WebButton.Click "Search"
	GenericObject.HandlePopUp "OK"

	'	Now create
	WebButton.Click "Create Entity"
	GenericObject.HandlePopUp "OK"

	'	Fill in mandatory fields
	WebList.SelectItem "Legal Entity", "Not Applicable"
	WebList.SelectItem "Requestor Location", "United Kingdom"
	WebEdit.SetText "Legal Name",  "MGB Trial Exchange 001" 
	WebList.SelectItem "Country of Incorporation", "United Kingdom" 
	WebList.SelectItem "Country Of Primary Operation", "Albania" 

	iNoCountries = WebList.GetROProperty("Exchange Country","items count")
	For i = 1 To iNoCountries -1
		blnCorrect = True
		WebList.SelectItem "Exchange Country", "#" & i
		strCountry = WebList.GetROProperty("Exchange Country", "selection")

		If dictCountries.Exists(strCountry) Then
			Do
				rc = WebList.GetROProperty("Exchange", "disabled")
			Loop While rc = 1
			WebList.Click "Exchange"
			WebList.Init "Exchange"
			strActExchanges = WebList.GetROProperty("Exchange", "all items")
			strActExchanges = Replace(strActExchanges, "Please Select...;", "")
			strActExchangesNoSpace = Replace(strActExchanges, " ", "")
			strExpExchanges = dictCountries(strCountry)
			strExpExchangesNoSpace = Replace(strExpExchanges, " ", "")

			If strActExchangesNoSpace <> strExpExchangesNoSpace Then
	
				splitAct = Split(strActExchanges, ";")
				splitExp = Split(strExpExchanges, ";")
				If UBound(splitAct) = 0  Then
					WebList.Init "Exchange"
					strActExchanges = WebList.GetROProperty("Exchange", "all items")
					strActExchanges = Replace(strActExchanges, "Please Select...;", "")
					splitAct = Split(strActExchanges, ";")
				End If
	
				If Ubound(splitAct) <> Ubound(splitExp) Then
					Reporter.ReportEvent micFail, "Different number of Exchanges", "Different number of Exchanges, expected [" & Ubound(splitExp) & "] but found [" & Ubound(splitAct) & "]. Please check."
				End If
				On Error Resume Next
				For j = 0 To UBound(splitExp)
					If Instr(1, strActExchanges, Trim(splitExp(j))) Then
						blnFound = True
					End If
					If blnFound = True Then
						blnFound = False
					Else
						Reporter.ReportEvent micFail, "Country - " & strCountry & ", Exchange missing","Expected Exchange ["& splitExp(j) & "] not found in actual list"
						blnCorrect = False
					End If
				Next
				For j = 0 To UBound(splitAct)
					If Instr(1, strExpExchanges, Trim(splitAct(j))) Then
						blnFound = True
					End If
					If blnFound = True Then
						blnFound = False
					Else
						Reporter.ReportEvent micFail, "Country - " & strCountry & ", Exchange missing","Actual Exchange ["& splitAct(j) & "] not found in expected list"
						blnCorrect = False
					End If
				Next
			Else
				blnCorrect = True
			End If
		Else
			Reporter.ReportEvent micFail, "Unexpected Country", "Country [" & strCountry & "] was found in the application but is not on the reference data. Please check."
			blnCorrect = False
		End If

		If blnCorrect = True Then
			Reporter.ReportEvent micPass, "[" & strCountry & "] - All Exchanges Correct", "All Exchanges for Country [" & strCountry & "] are correct."
		End If

	Next

	'	End reporting
	Reporter.EndReporting

	On Error GoTo 0
	
	Set dictCountries = Nothing
	Set objRS = Nothing
	End Sub
	'------------------------------------------------------------------------------------------------------------------
	Public Sub ValidateSearch(strDB)
		'	See if we're already connected to the database
		If DB.Connected(strDB) = False Then
			'	Declarations
			DB.ConnectToDB strDB
		End If

		'	Get to the search screen
		WebButton.Click "New EM Request"
		GenericObject.HandlePopUp "OK"

		'	Check correct values in list
		VerifyList "Entity_Category"
		WebList.SelectItem "Search Entity Category", "Non-Individual"
		VerifyList "Entity_Type"
		VerifyList "By"
		VerifyList "Country_Of_Incorporation"
		VerifyList "Entity_Status"
		WebList.SelectItem "Search By", "Government ID"
		VerifyList "Government_ID_Type"
		WebList.SelectItem "Search By", "Cross Reference ID"
		VerifyList "Cross_Reference_ID_Type"
		WebList.SelectItem "Search Entity Category", "Individual"
		VerifyList "Country_Of_Residence"
		

		'	Check correct fields displayed when items selected
		WebList.SelectItem "Search Entity Category", "Individual"
		WebList.SelectItem "Search By", "GRID"
		CheckField "GRID", "WebEdit", "", "Value cannot be blank"
		WebList.SelectItem "Search By", "Name"
		CheckField "First Name", "WebEdit", "", ""
		CheckField "Middle Name", "Web Edit", "", ""
		CheckField "Last Name", "Web Edit", "", "Value cannot be blank"
		CheckField "Include Alternate Names in Search", "WebCheckBox", "", ""
		CheckField "Include Former Names in Search", "WebCheckBox", "", ""
		CheckField "Data Verification Status", "WebCheckBox", "", ""
		CheckField "Select all", "WebButton", "", ""
		WebCheckBox.Tick "Include Alternate Names in Search", "OFF"
		CheckField "First Name", "WebEdit", "", "Value cannot be blank"
		CheckField "Middle Name", "Web Edit", "", ""
		CheckField "Last Name", "Web Edit", "", "Value cannot be blank"
		WebList.SelectItem "Search By", "Government ID"
		CheckField "Search Government ID Type", "WebList", "", "Value cannot be blank"
		CheckField "Search Government ID", "WebEdit", "", "Value cannot be blank"
		WebList.SelectItem "Search By", "Cross Reference ID"
		CheckField "Search Cross Reference ID Type", "WebList", "", "Value cannot be blank"
		CheckField "Search Cross Reference ID", "WebEdit", "", "Value cannot be blank"

		WebList.SelectItem "Search Entity Category", "Non-Individual"
		WebList.SelectItem "Search By", "GRID"
		CheckField "GRID", "WebEdit", "", "Value cannot be blank"
		WebList.SelectItem "Search By", "Name"
		CheckField "Legal Name", "WebEdit", "", ""
		CheckField "Include Alternate Names in Search", "WebCheckBox", "", ""
		CheckField "Include Former Names in Search", "WebCheckBox", "", ""
		CheckField "Data Verification Status", "WebCheckBox", "", ""	
		CheckField "Select all", "WebButton", "", ""
		WebList.SelectItem "Search By", "Government ID"
		CheckField "Search Government ID Type", "WebList", "", "Value cannot be blank"
		CheckField "Search Government ID", "WebEdit", "", "Value cannot be blank"
		WebList.SelectItem "Search By", "Cross Reference ID"
		CheckField "Search Cross Reference ID Type", "WebList", "", "Value cannot be blank"
		CheckField "Search Cross Reference ID", "WebEdit", "", "Value cannot be blank"

		'	Check correct error message displayed when invalid entry
		WebList.SelectItem "Search Entity Category", "Individual"
		WebList.SelectItem "Search By", "GRID"
		CheckField "GRID", "WebEdit", "alpha", "Non numeric value is not accepted"
		WebList.SelectItem "Search By", "Cross Reference ID"
		WebList.SelectItem "Search Cross Reference ID Type", "CBID"
		CheckField "Search Cross Reference ID", "WebEdit", "aa", "** Please enter min 4 and max 8 characters only." 
		CheckField "Search Cross Reference ID", "WebEdit", "0123456789", "** Please enter min 4 and max 8 characters only." 
		WebList.SelectItem "Search Cross Reference ID Type", "CDU/CIN"
		CheckField "Search Cross Reference ID", "WebEdit", "01234567890123456789", "** Please enter max 10 characters only." 
		CheckField "Search Cross Reference ID", "WebEdit", "aaa", "Non numeric value is not accepted"
		WebList.SelectItem "Search Cross Reference ID Type", "SWIFT/BIC"
		CheckField "Search Cross Reference ID", "WebEdit", "012345678901234567890", "** Please enter 8 or 11 characters."
		CheckField "Search Cross Reference ID", "WebEdit", "abcdshdgfk", "** Please enter 8 or 11 characters."


	End Sub
	'------------------------------------------------------------------------------------------------------------------
	Private Sub VerifyList(strListName)
	Dim dictValues
	Dim objRS
	Dim iNoItems
	Dim strFoundItem
	Dim blnFound
	blnFound = True

		'	Set up the dictionary that will hold the values
		Set dictValues = CreateObject("Scripting.Dictionary")

		'	See if we're doing countries
		If Instr(1, strListName, "Country") Then
			Set objRS = DB.ReturnRecordSet("Select Countries From Reference_Data")
		ElseIf strListName = "By" Then
			Set objRS = DB.ReturnRecordSet("Select Search_By From Reference_Data")
		Else
			Set objRS = DB.ReturnRecordSet("Select " & strListName & " From Reference_Data")
		End If

	   '	Check Entity Categories
		Do While Not objRS.EOF
			If objRS.Fields(0).Value <> ""  Then
				dictValues.Add objRS.Fields(0).Value, 0
			End If
			objRS.MoveNext
		Loop
		
		strListName = Replace(strListName, "_", " ")
		WebList.WaitProperty "Search " & strListName, "disabled", 0, 12000
		iNoItems = WebList.GetROProperty("Search " & strListName, "items count")
		For i = 1 To iNoItems
			strFoundItem = Trim(WebList.GetItem("Search " & strListName, i))
			If Instr(1, strFoundItem, "Please Select") = 0 Then   	
				'	See if this is found in our dictionary
				If dictValues.Exists(strFoundItem) = True Then
					dictValues.Item(strFoundItem) = 1
				Else
					Reporter.ReportEvent micWarning, "VerifyList [ " & strListName & " ]", "The dropdown list labelled [" & strListName & "] contains the option [" & strFoundItem & "]. This option has not been passed as a valid option for this list. Please check application"
				End If
			End If
		Next

        '	Put dictionary items into arrays
		arrKeys = dictValues.Keys
		arrItems = dictValues.Items

		'	Loop round the dictionary and see if we've got all 1's or still 0's
		For i = 0 To UBound(arrKeys)
			If arrItems(i) = 0  Then
				If Instr(1, arrKeys(i), "Please Select") = 0 Then
					Reporter.ReportEvent micFail, "VerifyList [ " & strListName & " ]", "Option [" & arrKeys(i) & "] was NOT found in the [" & strListName & "] dropdown list."
					blnFound = False
				End If
			End If
		Next
		If blnFound = True Then
			 Reporter.ReportEvent micPass, "VerifyList [ " & strListName & " ]", "All the expected items in the [" & strListName & "] dropdown list are present."
		End If
	End Sub
	'------------------------------------------------------------------------------------------------------------------
	Private Sub CheckField(strFieldName, strFieldType, strEnterValue, strErrorMsg)
	Dim objDesc, objElements, objElement
	Dim blnFound
	Dim iFound, iExpFound
	iFound = 0

		'	Check to see if the field exists
		Select Case strFieldType
			Case "WebEdit"
				If WebEdit.Exist("Search " & strFieldName, 5) Then
					Reporter.ReportEvent micPass, "Check Field Success", "Field [ " & strFieldName & " ] found on screen."
				Else
					Reporter.ReportEvent micFail, "Check Field Failure", "Field [" & strFieldName & " ] NOT found on screen, please check."
				End If
				If strEnterValue <> "" Then
					WebEdit.SetText "Search " & strFieldName, strEnterValue
				End If
			Case "WebList"
				If WebList.Exist("Search " & strFieldName, 5) Then
					Reporter.ReportEvent micPass, "Check Field Success", "Field [ " & strFieldName & " ] found on screen."
				Else
					Reporter.ReportEvent micFail, "Check Field Failure", "Field [" & strFieldName & " ] NOT found on screen, please check."
				End If
				If strEnterValue <> "" Then
					WebList.SelectItem "Search " & strFieldName, strEnterValue
				End If
			Case "WebCheckBox"
				If WebCheckBox.Exist(strFieldName, 5) Then
					Reporter.ReportEvent micPass, "Check Field Success", "Field [ " & strFieldName & " ] found on screen."
				Else
					Reporter.ReportEvent micFail, "Check Field Failure", "Field [" & strFieldName & " ] NOT found on screen, please check."
				End If
				If strEnterValue <> "" Then
					WebCheckBox.Tick strFieldName, strEnterValue
				End If
			Case "WebButton"
				If WebButton.Exist(strFieldName, 5) Then
					Reporter.ReportEvent micPass, "Check Field Success", "Field [ " & strFieldName & " ] found on screen."
				Else
					Reporter.ReportEvent micFail, "Check Field Failure", "Field [" & strFieldName & " ] NOT found on screen, please check."
				End If
		End Select

		'	Press Search button
		WebButton.Click "Search"		

		'	Now check for error message if required
		If strErrorMsg <> "" Then
			Set objDesc = Description.Create
			objDesc("micclass").Value = "WebElement"
			objDesc("class").Value = "iconError"
			objDesc("html id").Value = "PegaRULESErrorFlag"
			objDesc("html tag").Value = "SPAN"

			Set objElements = GenericObject.ChildObjects("RoomPane_Search", objDesc)
			For i = 0 To objElements.Count -1
				Set objElement = objElements.Item(i)
				strActVal = objElement.GetROProperty("outerhtml")
				'	See if we've got more than one to check
				If Instr(1, strErrorMsg, ";") Then
					thisSplit = Split(strErrorMsg, ";")
					iExpFound = Ubound(thisSplit)
					For Each ele In thisSplit
						If Instr(1, strActVal, ele) Then
							iFound = iFound + 1
						End If
					Next
					If iExpFound = iFound Then
						blnFound = True
					End If
				Else
					If Instr(1, strActVal, strErrorMsg) Then
						blnFound = True
						Exit For
					End If
				End If
			Next
			If blnFound = True Then
				Reporter.ReportEvent micPass, "Check Field Success", "Error message [ " & strErrorMsg & " ] found on screen."
			Else
				Reporter.ReportEvent micFail, "Check Field Failure", "Error message [ " & strErrorMsg & " ] NOT found on screen, please check."
			End If
		End If
	End Sub
	'------------------------------------------------------------------------------------------------------------------
	'------------------------------------------------------------------------------------------------------------------
	'------------------------------------------------------------------------------------------------------------------
	'------------------------------------------------------------------------------------------------------------------
	'------------------------------------------------------------------------------------------------------------------
	'------------------------------------------------------------------------------------------------------------------
	'------------------------------------------------------------------------------------------------------------------
	Private Sub Class_Terminate
	End Sub
End Class
'------------------------------------------------------------------------------------------------------------------
Public Function ValidationInstance()
   Set ValidationInstance =  New clsValidation
End Function