testcomplate/SelectDialogChecking.svb at master · vadamk/testcomplate · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub SelectLayoutDialogCheking

	Dim idStrDialog, MenuItem
	idStrDialog = "qDesignLayoutSelectDialog"
	MenuItem = "Sales Order"

	Log.AppendFolder("Check all rows in the "&idStrDialog)
		Call WEBUI.NavigationBarQAD.SelectMenu(MenuItem,"")
		Call WEBUI.ToolbarQAD.ClickToolBarBtn("edit")
		Call WEBUI.ToolbarQAD.ClickToolBarDropDown("more","qDesignLayoutToolbarButton")
		Call LayoutDialog.SLDRowsChecking(FindDialog(idStrDialog))
	Log.PopLogFolder

	' Check CloseBtn
	Log.AppendFolder("Check CloseBtn in the "&idStrDialog)
    Set objDialog = FindDialog(idStrDialog)
	Set btnName = HTML.ButtonQAD.FindButton_Proximity3(objDialog, "qadLDCloseBtn")
    Call HTML.ButtonQAD.ClickBtn(btnName)
		If NOT objDialog.Exists Then
			Log.Message("Select Layout Dialog is CLOSED")
		Else
			Log.Warning("Select Layout Dialog is NOT CLOSED")
		End If
	Log.PopLogFolder

	' Check CancelBtn
	Log.AppendFolder("Check CancelBtn in the "&idStrDialog)
		Call WEBUI.ToolbarQAD.ClickToolBarDropDown("more","qDesignLayoutToolbarButton")
    Set objDialog = FindDialog(idStrDialog)
		Set btnName = HTML.ButtonQAD.FindButton_Proximity3(objDialog, "qadLDCancelBtn")
      	Call HTML.ButtonQAD.ClickBtn(btnName)
		If NOT objDialog.Exists Then
			Log.Message("Select Layout Dialog is CLOSED")
		Else
			Log.Warning("Select Layout Dialog is NOT CLOSED")
		End If
	Log.PopLogFolder

	' Check Continue
	Log.AppendFolder("Check ContinueBtn in the "&idStrDialog)
		Call WEBUI.ToolbarQAD.ClickToolBarDropDown("more","qDesignLayoutToolbarButton")
		Call LayoutDialog.SLDContinueChecking(idStrDialog, MenuItem, 2)
	Log.PopLogFolder

End sub