CPD Search functionality

Sub Test1






End Sub

'// Picking random value from available records in grid





Sub Test2
Dim cpd
Dim ultraGrid
Dim r
dim v(5)
Set cpd = Aliases.CPD
Set ultraGrid = cpd.frmCPDMain.MdiClient.frmPerson.ctrlChildView.ugChild

'finding a random row in grid
r=Random(0,ultraGrid.Rows.Count-1)

v(0)= ultragrid.wValue(r,"Child ID")
v(1)= ultragrid.wValue(r,"UNHCR Id")
v(2)= ultragrid.wValue(r,"ICRC Id")


Call ultraGrid.ClickCellXY(0, "Status", 37, 9)
Call ultraGrid.ClickCellXY(0, 1, 65, 6)
cpd.frmChild_CaseData.Close


End Sub




function Random(min,max)

Randomize()
Random =Int ((max-min+1)*rnd+min)

end Function



Sub Test3
Dim cpd
Dim frmLogin
Dim textBox
dim textBox_fn
Dim frmChangePassword
Dim tabControl
Dim tabPage
Dim frmCPDMain
Dim frmPerson
dim v(5)
'Call Aliases.Explorer.wndShell_TrayWnd.ReBarWindow32.MSTaskSwWClass.ToolbarWindow32.CheckItem("CPD", True, False)
'Call TestedApps.CPD.Run(1, True)
'TestedApps.CPD.Run()
TestedApps.CPD2.Run()
Set cpd = Aliases.CPD
Set ultraGrid = cpd.frmCPDMain.MdiClient.frmPerson.ctrlChildView.ugChild
Set frmLogin = cpd.frmLogin
Set textBox = frmLogin.txtUserName
textBox.wText = "admin"
Call textBox.Keys("[Tab]")
Set textBox = frmLogin.txtPassword
textBox.wText = "admin"
Call textBox.Keys("[Tab]")
Call frmLogin.btnOK.Keys("[Enter]")

' Set frmChangePassword = cpd.frmChangePassword
' Set tabControl = frmChangePassword.tabControl1
' Call tabControl.ClickTab("User")
' Set tabPage = tabControl.tpUser
' Set textBox = tabPage.txtOldPassword
' Call textBox.Click(40, 12)
' textBox.wText = "admin"
' Call textBox.Keys("[Tab]")
' Set textBox = tabPage.txtNewPassword
' textBox.wText = "admin"
' Call textBox.Keys("[Tab]")
' Set textBox = tabPage.txtConfirmPassword
' textBox.wText = "admin"
' Call textBox.Keys("[Tab]")
' Call frmChangePassword.btnSave.Keys("[Enter]")
' Call cpd.dlgInterAgencyChildProtectionDatabase.btnOK.Keys("[Enter]")


Set frmCPDMain = cpd.frmCPDMain
Call frmCPDMain.StripMainMenu.Click("Children")


Set frmPerson = frmCPDMain.MdiClient.frmPerson
Call frmPerson.toolStripChild.ClickItem("Search")


Set textBox = frmPerson.ctrlChildView.pnlSearch.splitContainer1.SplitterPanel.grpBoxChild.txtPersonId
Call textBox.Click(93, 10)

set texBox_fn = frmPerson.ctrlChildView.pnlSearch.splitContainer1.SplitterPanel.grpBoxChild.txtChildFName
set texBox_mn = frmPerson.ctrlChildView.pnlSearch.splitContainer1.SplitterPanel.grpBoxChild.txtChildMName
set texBox_ln = frmPerson.ctrlChildView.pnlSearch.splitContainer1.SplitterPanel.grpBoxChild.txtChildLName

r=Random(0,ultraGrid.Rows.Count-1)

v(0)= CStr(ultragrid.wValue(r,"Child ID"))

textBox.wText = Trim(CStr(v(0)))

frmPerson.ctrlChildView.pnlSearch.btnSearch.ClickButton

flag = search_results(v(0),ultragrid,"Child ID")

if flag= 1 Then
Log.Message("Correct Search Results | Child ID ")
Else
Log.Message( "Incorrect Search Results | Child ID")

End If

'Clear Child id textbox
textBox.wText = ""
set texBox_fn = frmPerson.ctrlChildView.pnlSearch.splitContainer1.SplitterPanel.grpBoxChild.txtChildFName
call textBox_fn.click(93,10)
frmPerson.ctrlChildView.pnlSearch.btnSearch.ClickButton


v(1)= ultragrid.wValue(r,"First Name")
While IsNull(v(1))
r=Random(0,ultraGrid.Rows.Count-1)
v(1)= ultragrid.wValue(r,"First Name")
Wend

textBox_fn.wText = Trim(CStr(v(1)))
frmPerson.ctrlChildView.pnlSearch.btnSearch.ClickButton

flag = search_results(v(0),ultragrid,"First Name")
if flag= 1 Then
Log.Message("Correct Search Results | First Name ")
Else
Log.Message( "Incorrect Search Results | First Name")

End If





v(2)= ultragrid.wValue(r,"Middle Name")
v(3)= ultragrid.wValue(r,"Last Name")



End Sub





function search_results(p_value, grid,colid)

row = Null
row1=grid.rows.count

for row = 0 to row1
if Trim(CStr(grid.wValue(row,colid))) = CStr(p_value) Then
search_results = 1
Else
search_results = 0
exit For

end If
'MsgBox(grid.wValue(row,colid))
Next

End Function






Sub Test4
Dim panel
Dim textBox
Set panel = Aliases.CPD.frmCPDMain.MdiClient.frmPerson.ctrlChildView.pnlSearch
Set textBox = panel.splitContainer1.SplitterPanel.grpBoxChild.txtPersonId
Call textBox.Click(94, 10)
textBox.wText = "QA-ED-214"
panel.btnSearch.ClickButton


End Sub

Sub Test5
Dim groupBox
Set groupBox = Aliases.CPD.frmCPDMain.MdiClient.frmPerson.ctrlChildView.pnlSearch.splitContainer1.SplitterPanel.grpBoxChild
Call groupBox.txtChildFName.Click(60, 8)
Call groupBox.txtChildMName.Click(57, 9)
Call groupBox.txtChildLName.Click(53, 6)
End Sub