To get getTableData
Function for CountRecords
convNumb
ConvNumbWCents
Function handle unexpected Window on Page
checkStringLength(strBrowser, strPage ,strTable, ReqNum)
Page Wait specify time in intTime parametr
verifyWebElement(strBrowser, strPage, strName, strTag)
Function getRandomNum(RandNum)
dropDowngetValue Get value from dropdown list
For initial sorting function get dataType
Function getRandomNum(RandNum)
clickRadio
GetColumnNumber
ValidateCellData
Function generates random number
Function CompareStrings
Function getLookUp
Select Multiple items from the Web ListTo get getTableDataFunction getTableData(strBrowser, strPage, strTableID, strFind, strFindMore)
Dim objBr, objPg, objTbl
Dim intCount, intRow, intCol, blnFound
On Error Resume Next
getTableData = -1
Set objBr = Browser("name:=" & strBrowser)
Set objPg = objBr.Page("title:=" & strPage)
Set objTbl = objPg.WebTable("html id:=" & strTableID, "html tag:=TABLE")
If objTbl.Exist = False Then
Set objTbl = objPg.WebTable("name:=" & strTableID, "html tag:=TABLE")
If objTbl.Exist = False Then
Err.Clear
Exit Function
End If
End If
intCount = objTbl.RowCount
blnFound = False
For intRow = 1 To intCount
For intCol = 1 To objTbl.ColumnCount(intRow)
If InStr(objTbl.GetCellData(intRow, intCol),strFind) > 0 Then
If Len(strFindMore) > 0 Then
For intF = intCol To objTbl.ColumnCount(intRow)
If InStr(objTbl.GetCellData(intRow,intF),strFindMore) > 0 Then
blnFound = True
getTableData = 0
Exit For
End If
Next
Else
blnFound = True
getTableData = 0
End If
End If
If blnFound Then Exit For
Next
If blnFound Then Exit For
Next
If Err.Number <> 0 Then
Err.Clear
End If
End Function
'===========================================
Function for CountRecordsPublic Function CountRecords(strBrowser, strPage, strHTML, intExpected, outResult)
On error resume Next
CountRecords = -1
Set objPage = Browser("name:="&strBrowser).Page("title:="&strPage)
objPage.sync
Set objCount = objPage.Object.all.Tags(strHTML)
intActual = objCount.length
If abs(intExpected) = abs(intActual) Then
outResult = "<< PASS >> expected " & intExpected & " , actual result " & intActual & " records."
Err.clear
CountRecords = 0
Exit Function
else
outResult = "<< COMMENT >> expected " & intExpected & ", actual result " & intActual & " records."
Err.clear
CountRecords = 0
Exit Function
End If
'Err.clear
End Function
convNumbFunction convNumbWN(inpNum,outNum)
On Error Resume Next
Dim iSLen, iComma, iComma1,i,j,k
Dim sWork
inpNum=Trim(inpNum)
If InStr(1,inpNum,".") =0 Then
iSLen=Len(inpNum)
iComma = iSLen\3
iComma1 = iSLen/3
outNum=""
If iComma=iComma1 Then
iComma=iComma-1
End If
For i=1 to iComma
j=i*3
sWork=Mid(inpNum,iSLen-j+1,3)
outNum=","&sWork&outNum
Next
k=iSLen-j
sWork=Mid(inpNum,1,k)
If outNum="" and sWork="" Then
outNum="0"
End If
outNum=sWork&outNum
else
outNum=inpNum
end if
On Error Resume Next
convNumb=0
If Err.Number <> 0 Then
convNumb=-1
Err.clear
Else
convNumb= 0
End If
Err.Clear
End Function
ConvNumbWCents Function ConvNumbWCents(inpNum,outNum)
Dim sWork,sWork2,sWork3
Dim i
i=InStr(1,inpNum,".")
sWork2=Mid(inpNum,1,i-1)
sWork=Mid(inpNum,i,3)
convNumbWN sWork2,sWork3
outNum=sWork3&sWork
End Function
'
Function handle unexpected Window on Page' strBrowser - Name of the Browser
' strPage - Title of the Page
'
''' s = UnexpectedWindow("Cv Portal","CV Portal",strOutput)
public Function UnexpectedWindow(strBrowser,strPage)
On error resume next
Set objPage = Browser("name:="&strBrowser)
objPage.sync
Set unexpectedWin = objPage.Dialog("regexpwndtitle:=Microsoft Internet Explorer")
If unexpectedWin.exist Then
unexpectedWin.WinButton("regexpwndtitle:=OK").Click
UnexpectedWindow = 0
Else
UnexpectedWindow = -1
End If
IF Err.Number > 0 Then
Err.Clear
End IF
End Function
''' ================================================
'''
checkStringLength(strBrowser, strPage ,strTable, ReqNum)''' ================================================
Function checkStringLength(strBrowser, strPage ,strTable, ReqNum)
On error resume next
checkStringLength = -1
Set objPage = Browser("name:="&strBrowser).Page("title:="&strPage)
strCell = objPage.WebTable("html id:="&strTable).GetCellData(4, 5)
If Len(strCell) <= ReqNum Then
checkStringLength = 0
End If
If Err.number > 0 Then
Err.Clear
End If
End Function
'''
Page Wait specify time in intTime parametr''' ================================================
Function pageWait(intTime)
On error resume next
wait (intTime)
If Err.Number <> 0 Then
Err.Clear
End If
pageWait = 0
End Function
''
verifyWebElement(strBrowser, strPage, strName, strTag)''' ================================================
Function verifyWebElement (strBrowser, strPage, strName, strTag)
On error resume next
verifyWebElement = -1
Set objPage = Browser("name:="&strBrowser).Page("title:="&strPage)
Set objTags = objPage.Object.all.Tags(strTag)
For each Element in objTags
If inStr (Element.innertext, strName) > 0 Then
verifyWebElement = 0
Err.Clear
Exit Function
End If
Next
If Err.number > 0 Then
Err.Clear
End If
End Function
Function getRandomNum(RandNum)Function getRandomNum(RandNum)
RandNum = RandomNumber (100000000, 999999999)
Err.Clear
getRandomNum = 0
End Function
''' dropDowngetValue Get value from dropdown list''' ================================================
Function dropDowngetValue (strBrowser, strPage, strName, strValue)
Dim objPage, objPageTags
On error resume next
Set objPage = Browser("name:="&strBrowser).Page("title:="&strPage)
Set objPageTags = objPage.Object.all.Tags("option")
For each Element in objPageTags
If Trim( Element.innertext) = Trim(strValue) Then
If Trim(Element.value) = Trim(strValue) Then
dropDowngetValue = 0
Err.clear
Exit Function
End If
End If
Next
dropDowngetValue = -1
Reporter.ReportEvent 1, "Fail", strValue & "does not exist"
Err.clear
End Function
'''
For initial sorting function get dataType''' =================================================
Function getDatatype(rulesString, delimeter)
Dim arRule
On error resume next
arRule = Split (rulesString, delimeter)
If err.number > 0 Then
getRulesType = -1
err.clear
Exit Function
End If
getDatatype = arRule
End Function
Function getRandomNum(RandNum)Function closeAllBrowsers()
Dim n
set oDesc = Description.Create()
oDesc("micclass").Value = "Browser"
Set bs = Desktop.ChildObjects(oDesc)
n = bs.count
For i = 0 to n-1
if not bs(i).GetROProperty("title")="Mercury Quality Center" then bs(i).Stop : bs(i).close()
Next
end Function
clickRadioFunction clickRadio(strBrowser, strPage, strValue)
''' c = clickRadio("CreditView Portal", "CreditView Portal", "portlet_creditProd_overviewwlw-radio_button_group_key:{actionForm.creditProductDetailsVO.guaranteesCollateralCodeFlag}")
On error resume next
Dim objPage
Set objPage = Browser("name:="&strBrowser).Page("title:="&strPage)
objPage.sync
Set objPageTagInput = objPage.Object.all.Tags("input")
For each Element in objPageTagInput
If Trim(Element.value) = Trim(strValue) or Trim(Element.id) = Trim(strValue) or Trim(Element.name) = Trim(strValue) Then
Element.click
clickRadio = 0
Err.clear
Exit Function
End If
Next
clickRadio = -1
Err.clear
End Function
GetColumnNumber(GetColumnNumberFunction GetColumnNumber(strBrowser, strPage, strTableID, strHeader)
Dim objBr, objPg, objTbl
Dim intR, intC, blnFound
On Error Resume Next
GetColumnNumber = -1
Set objBr = Browser("name:=" & strBrowser)
Set objPg = objBr.Page("title:=" & strPage)
blnFound = False
Set objTbl = objPg.WebTable("html id:=" & strTableID, "html tag:=TABLE")
If objTbl.Exist =false Then
Set objTbl = objPg.WebTable("name:=" & strTableID, "html tag:=TABLE")
End If
For intR = 1 To objTbl.RowCount
If Not blnFound Then
For intC = 1 To objTbl.ColumnCount(intR)
If Trim(objTbl.GetCellData(intR, intC)) = strHeader Then
blnFound = True
GetColumnNumber = intC
Exit For
End If
Next
End If
Next
If Err.Number <> 0 Then
Err.Clear
End If
End Function
ValidateCellDataPublic Function ValidateCellData(strBrowser, strPage, strTable, strFind, blnSelect, strHeader, strEspected )
On error resume next
Dim objBr, objPg, objTbl, data
ValidateCellData = -1
strRow = GetRowNumber(strBrowser, strPage, strTable, strFind, FALSE )
' msgbox strRow
strCol=GetColumnNumber(strBrowser, strPage, strTable, strHeader)
'msgbox strCol
Set objPg = Browser("name:="& strBrowser).Page("title:="& strPage)
Set objTbl = objPg.WebTable("html id:=" & strTable, "html tag:=TABLE")
strActual = objTbl.ChildItem(strRow, strCol, "WebEdit", 0).GetROProperty("value")
If abs(strActual) = abs(strEspected) Then
ValidateCellData = 0
End If
'objTbl.ChildItem(strRow, strCol, "WebEdit",0).GetROProperty("value").Set(123456)
If Err.Number <> 0 Then
Err.Clear
End If
End Function
'
Function generates random number , based on parameters
' intIndex - length of number
' strOutPut - output number
' function returns 0 -success, -1 - failure
'============================================================================================
Function RndNum(intIndex, strOutPut)
On Error Resume Next
Dim intFirst, intLast, intRest, intTimes, strTemp
RndNum = 0
If intIndex < 1 Then
strOutPut = 0
Exit Function
End If
'find reminder
intRest = intIndex Mod 9
' find how many times by 9 needs to be executed
intTimes = intIndex - intRest
If intTimes > 0 Then
intTimes = (intIndex - intRest)/9
End If
If intTimes = 0 Then
intFirst = CLng(1 & String(intIndex-1,"0"))
intLast = CLng(String(intIndex,"9"))
strTemp = RandomNumber(intFirst,intLast)
Else
For i =1 to intTimes
strTemp = strTemp & RandomNumber(100000000,999999999)
Next
If intRest > 0 Then
intFirst = CLng(1 & String(intRest-1,"0"))
intLast = CLng(String(intRest,"9"))
strTemp = strTemp & RandomNumber(intFirst,intLast)
End If
End If
strOutPut = strTemp
If Err.Number <> 0 Then
RndNum = -1
End If
End Function
Function CompareStrings======================================================================
Public Function CompareStrings(strBrowser, strPage, strTable, strFirst, strSecond, strThird, strOutput)
On error resume next
CompareStrings = -1
Set objPg = Browser("name:="& strBrowser).Page("title:="& strPage)
Set objTbl = objPg.WebTable("name:=" & strTable & ".*")
intRowCount = objTbl.RowCount - 2 ' the last record
'intColCount = objTbl.ColumnCount(intRowCount)
strActual = trim(objTbl.GetCellData(intRowCount,5))
strExpected =trim( "Min"&strFirst&",Inc"&strSecond&",Max"&strThird)
If instr(strActual, strExpected) <> 0 Then
strOutput = "PASS. Pricing option validation pass." & vbCrLf & "Expected result: <" & strExpected & ">" & vbCrLf & "Actual result: < " & strActual & "> are matched"
else
strOutput = "FAIL. Pricing option validation fail" & vbCrLf & "Expected result: <" & strExpected & vbCrLf & "and Actual result:<" & strActual & "> are not matched"
End If
CompareStrings=0
If Err.Number <> 0 Then
Err.Clear
End If
End Function
Function CloseBrowser
'Browser("title:=Popup Select").Close
'end Function
Function closeBrowser()
On Error Resume Next
browser("index:=0").close
if not Err.Number = 0 then
closeBrowser = -1
Err.clear
exit function
end if
closeBrowser = 0
End Function
Function getLookUpPublic Function getLookUp(strBrowser, strPage, strRadioGroup, strSimple, strOutput)
On error resume next
Dim objPage, objTagsString, objTagsRadio, Element,objTagsSpan,arrayElement(),counter
Dim testArrayLinks
Set objPage = Browser("name:="&strBrowser).Page("title:="&strPage)
objPage.sync
' Set objTagsRadio = objPage.Object.all.Tags("input")
Set objTagsSPAN = objPage.Object.all.Tags("SPAN")
If objTagsSPAN.length <> 0 Then
counter = objTagsSPAN.length
ReDim arrayElement(counter)
' ReDim arrayInputs(counter)
For i = 0 to counter - 1
arrayElement(i) = objTagsSPAN.item(i).innertext
' arrayInputs(i) = objTagsRadio.item(i).value
Next
y = 0
For each Element in objTagsSPAN
If instr(Element.innertext, strSimple)<>0 Then
strOutput= Left(Element.innertext,Instr(Element.innertext,"#")-2)
Set r = Element.ParentNode.ParentNode.GetElementsByTagName("input")
If r(0).checked = FALSE Then
' r(0).checked = TRUE
r(0).Click
getLookUp = 0
err.clear
Exit Function
else
Reporter.ReportEvent 1, "Radio Button was not found", strName & "Was not found on the page."
getLookUp = -1
err.clear
Exit Function
End If
End If
y = y+1
Next
End If
End Function
''
Select Multiple items from the Web List.''' ============================================================
Function selectAllitems(strBrowser, strPage, strListName, strFlag, strName, outPut)
'''' c = selectAllitems(" Portal", " Portal", "portlet_collateral_detailswlw-select_key:{actionForm.selectedPledges}", "One", "Customer 4",outPut)
On error resume next
Dim itemCount
selectAllitems = -1
Set obj = Browser("name:=" & strBrowser).Page("title:=" & strPage)
Set objList = obj.WebList("name:=" & strListName)
itemCount = obj.WebList("name:=" & strListName).GetRoProperty("items count")
If itemCount <= 0 Then
selectAllitems = 0
outPut = "<< ERROR >> No Items found in the List to Select."
Exit Function
else
Select Case strFlag
Case "All"
For i = 0 to itemCount - 1
objList.ExtendSelect ("#" & i )
Next
selectAllitems = 0
outPut = "<< COMMENT >> " & itemCount & " items found and selected in the List."
Case "One"
objList.ExtendSelect (strName)
selectAllitems = 0
outPut = "<< COMMENT >> " & strName & " found and selected in the List."
End Select
End If
If err.number <> 0 Then
outPut = err.description
err.clear
End If
End Function
