QTP Framework:- Web common functions sampel examples using QTP

Web common functions using QTP

' Function Name :Invoke_URL
' In Parameters :
' Out Parameters :
' Description :Invokes Url
'*******************************************************************************************************************************************************************************************
Option Explicit   ' Force explicit variable declaration.

Function Invoke_URL(param_array)
On Error resume next

    'f_log.WriteLine "INFO <Invoke_URL>Entering the keyword Invoke_URL"
    'Fetch the URL
    site = param_array
        'Format the URL by removing the spaces and converting the string to lowercase
    'site = FormatInput(site)
        'Create an IE browser object and invoke the URL
        Set Brow_invok = createobject("InternetExplorer.Application")
        Brow_invok.Visible = True
        Brow_invok.Navigate site
        wait(2)
        'Close the security Alert If popped up.
    Maximize (Brow_invok)
    'f_log.WriteLine "INFO <Invoke_URL>Exiting the keyword Invoke_URL"
End Function

'*******************************************************************************************************************************************************************************************
' Function Name :Maximize
' In Parameters :
' Out Parameters :
' Description :Maximises Window
'*******************************************************************************************************************************************************************************************
Function Maximize(windw)
    'f_log.WriteLine "INFO <Maximize>Entering the keyword Maximize"
    On Error resume next
   If Browser(windw).Exist Then
       hwnd = Browser(windw).GetROProperty("hwnd")
       Browser("hwnd:=" & hwnd).FullScreen
    Report "PASS", "NewScale RequestCenter Browser", "NewScale RequestCenter Browser displayed successfully"
    Else
    Report "FAIL", "NewScale RequestCenter Browser", "NewScale RequestCenter Browser was not Displayed"
   End If
    'f_log.WriteLine "INFO <Maximize>Exiting the keyword Maximize"        
End Function

''**************************************************************************************************
''Function Name: Select_Combo
''Parameter    : Action Name, Drop Down Object, Value   
''Author          :
''Description  :
''**************************************************************************************************
'Public Function Select_Combo(Combo_Object, Combo_Value)
'    'f_log.WriteLine "INFO <Select_Combo>Entering the keyword Select_Combo"
'    objectName=Combo_Object.GetROproperty("name")
'    stepName="Select Drop Down List"
'    passDesc=objectName+Combo_Value+"was selected from the List"
'    failDesc=objectName+"Drop Down List object was not found"
'
'    If Combo_Object.Exist then
'        If  Combo_Object.GetROProperty("disabled") = False Then
'       
'          Combo_Object.Select Combo_Value
'            Report "Pass",stepName,passDesc
'            'f_log.WriteLine "PASS <"&passDesc&">"
'    else
'            'f_log.WriteLine "FAIL < Combo List  field object is disabled>"
'            Report "Fail",stepName, objectName+" Combo List  field object is disabled"
'    End If
'    Else
'            'f_log.WriteLine "FAIL <"&failDesc&">"
'              Report "Fail",stepName,failDesc
'    end if   
'   
'    'f_log.WriteLine "INFO <Select_Combo>Exiting the keyword Select_Combo"
'End Function

'**************************************************************************************************
'Function Name: Select_Combo
'Parameter : Action Name, Drop Down Object, Value
'Author :
'Description :
'**************************************************************************************************
Public Function Select_Combo(Combo_Object, Combo_Value)
'f_log.WriteLine "INFO <Select_Combo>Entering the keyword Select_Combo"
objectName=Combo_Object.GetROproperty("name")
stepName="Select Drop Down List"
passDesc=objectName+Combo_Value+"was selected from the List"
failDesc=objectName+"Drop Down List object was not found"

If Combo_Object.Exist then
If Combo_Object.GetROProperty("disabled") = False Then
all_items = Combo_Object.GetROProperty("all items")
item_value = Split(all_items, ";")
Number_items = Ubound(item_value)
'msgbox Number_items
For i=0 to Ubound(item_value)
'msgbox item_value(i)
If cstr(trim(Combo_Value)) = cstr(Trim(item_value(i))) Then

Combo_Object.Select Combo_Value
Report "Pass",stepName,passDesc
Exit For
Else
Reporter.ReportEvent micDone,"Item Specified", "Item Specified was not Found in the list"
End If
Next
else
'f_log.WriteLine "FAIL < Combo List field object is disabled>"
Report "Fail",stepName, objectName+" Combo List field object is disabled"
End If
Else
'f_log.WriteLine "FAIL <"&failDesc&">"
Report "Fail",stepName,failDesc
end if

'f_log.WriteLine "INFO <Select_Combo>Exiting the keyword Select_Combo"
End Function

'*******************************************************************************************************************************************************************************************
' Function Name :Close_Browsers
' In Parameters :
' Out Parameters :
' Description :Closes the Browser
'*******************************************************************************************************************************************************************************************

Function Close_Browsers
    'f_log.WriteLine "INFO <Close_Browsers>Entering the keyword Close_Browsers"
    On Error resume next
    Set service = GetObject ("winmgmts:")
     For Each Process in Service.InstancesOf ("Win32_Process")

            If Process.Name = "IEXPLORE.EXE" then
                Process.Terminate(0)
            End If
    Next
    While Browser("micClass:=browser","index:=0").Exist(5)
        Browser("micClass:=browser","index:=0").Close
    WEnd
   ' f_log.WriteLine "INFO <Close_Browsers>Exiting the keyword Close_Browsers"
End Function

'**************************************************************************************************
'Function Name: Edit_Set
'Parameter    : Text field Object, Value   
'Author       :
'Description  :
'**************************************************************************************************

Public Function Edit_Set(Edit_Object, Edit_Value)
    'f_log.WriteLine "INFO <Edit_Set>Entering the keyword Edit_Set"
    objectName=Edit_Object.GetROproperty("name")
    stepName="Enter Text Field"
    passDesc=Edit_Value+" value was entered in '"+objectName+"' Edit Field"
    failDesc=objectName+" Text field object was not found"
   
    if Edit_Value <> "" then
    If Edit_Object.Exist(5) then
          If  Edit_Object.GetROProperty("disabled") = False Then
        Edit_Object.Set Edit_Value
        'f_log.WriteLine "PASS <"&passDesc&">"
        Report "Pass",stepName,passDesc
    else
        'f_log.WriteLine "FAIL <" Text field object is disabled">"
      Report "Fail",stepName,objectName+" Text field object is disabled"
    End If
    Else
        'f_log.WriteLine "FAIL <"&failDesc&">"
        Report "Fail",stepName,failDesc
    end if   
    end if   
   
    'f_log.WriteLine "INFO <Edit_Set>Exiting the keyword Edit_Set"
End Function

'*******************************************************************************************************************************
'Function Name: Click_Button
'Parameter    : Button Object   
'Author       :
'Description  :
'*******************************************************************************************************************************

Public Function Click_Button(Button_Object)
    'f_log.WriteLine "INFO <Click_Button>Entering the keyword Click_Button"
    objectName=Button_Object.GetROproperty("name")
    stepName=objectName
    passDesc=objectName+" was Clicked successfully"
    failDesc=objectName+" object was not found "

        If Button_Object.Exist then
            If  Button_Object.GetROProperty("disabled") = False Then
            Button_Object.Click
            'f_log.WriteLine "PASS <"&passDesc&">"
            Report "Pass",stepName,passDesc
            else
              'f_log.WriteLine "FAIL <Button object is disabled>"
            Report "Fail",stepName,objectName+" Button object is disabled"
            End If
    Else
            'f_log.WriteLine "FAIL <"&failDesc&">"
            Report "Fail",stepName,failDesc
        end if
     
    'f_log.WriteLine "INFO <Click_Button>Exiting the keyword Click_Button"
End Function


'*******************************************************************************************************************************
'Function Name: Click_Link
'Parameter    : Button Object   
'Author       :
'Description  :
'*******************************************************************************************************************************

Public Function Click_Link(Link_Object)
    'f_log.WriteLine "INFO <Click_Link>Entering the keyword Click_Link"
    objectName=Link_Object.GetROProperty("name")
    stepName=objectName
    passDesc=objectName+" was Clicked successfully"
    failDesc=objectName+" object was not found "

        If Link_Object.Exist then
            If  Link_Object.GetROProperty("disabled") = False Then
            Link_Object.Click
            'f_log.WriteLine "PASS <"&passDesc&">"
            Report "Pass",stepName,passDesc
            else
             'f_log.WriteLine "FAIL< Link object is disabled>"
            Report "Fail",stepName,objectName+" Link object is disabled"
        End If
        else
            'f_log.WriteLine "FAIL<"&failDesc&">"
            Report "Fail",stepName,failDesc
        end if
       
    'f_log.WriteLine "INFO <Click_Link>Exiting the keyword Click_Link"

End Function

'*******************************************************************************************************************************
'Function Name: Click_Element
'Parameter    : Button Object   
'Author       :
'Description  :
'*******************************************************************************************************************************

Public Function Click_Element(Element_Object)
    'f_log.WriteLine "INFO <Click_Element>Entering the keyword Click_Element"
    objectName=Element_Object.GetROproperty("innertext")
    stepName=objectName
    passDesc=objectName+" was Clicked successfully"
    failDesc=objectName+" object was not found "

    If Element_Object.Exist then
         If  Element_Object.GetROProperty("disabled") = False Then
        Element_Object.Click
        'f_log.WriteLine "PASS <"&passDesc&">"
        Report "Pass",stepName,passDesc
        else
        Report "Fail",stepName,objectName+" Element object is disabled"
     End If
      Else
        'f_log.WriteLine "FAIL<"&failDesc&">"
        Report "Fail",stepName,failDesc
    end if
  
    'f_log.WriteLine "INFO <Click_Element>Exiting the keyword Click_Element"
End Function

'*******************************************************************************************************************************
'Function Name: Click_Image
'Parameter    : Button Object   
'Author       :
'Description  :
'*******************************************************************************************************************************

Public Function Click_Image(Image_Object)
    'f_log.WriteLine "INFO <Click_Image>Entering the keyword Click_Image"
    objectName=Image_Object.GetROproperty("alt")
    stepName=objectName
    passDesc=objectName+" was Clicked successfully"
    failDesc=objectName+" object was not found "

    If Image_Object.Exist then
        If  Image_Object.GetROProperty("disabled") = False Then
        Image_Object.Click
       
        'f_log.WriteLine "PASS <"&passDesc&">"
        Report "Pass",stepName,passDesc
        else
         'f_log.WriteLine "FAIL<Element object is disabled>"
        Report "Fail",stepName,objectName+" Image object is disabled"
     End If
        Else
        'f_log.WriteLine "FAIL<"&failDesc&">"
        Report "Fail",stepName,failDesc
    end if
   
    'f_log.WriteLine "INFO <Click_Image>Exiting the keyword Click_Image"
End Function

'*******************************************************************************************************************************
'Function Name: Set_CheckBox
'Parameter    : Tab Object, Value    
'Author          :
'Description  :
'*******************************************************************************************************************************

Public Function Set_CheckBox(Check_Object,Check_Value)
    'f_log.WriteLine "INFO <Set_CheckBox>Entering the keyword Set_CheckBox"
    objectName=Check_Object.GetROProperty("name")
    stepName="Set Check Box"
    passDesc=objectName+Check_Value+" was Selected successfully"
    failDesc=objectName+" object was not found "
  
     if Check_Value <> "" then
         If Check_Object.Exist then
             If  Check_Object.GetROProperty("disabled") = False Then
            Check_Object.Set Check_Value
            'f_log.WriteLine "PASS <"&passDesc&">"
            Report "Pass",stepName,passDesc
            else
            
            Report "Fail",stepName,objectName+" Check Box object is disabled"
        End If
         else
            'f_log.WriteLine "FAIL <"&failDesc&">"
            Report "Fail",stepName,failDesc
            end if
           end if
    'f_log.WriteLine "INFO <Set_CheckBox>Exiting the keyword Set_CheckBox"
End Function

'*******************************************************************************************************************************
'Function Name: Select_Radiobutton
'Parameter    :  Object, Value    
'Author          :
'Description  :
'*******************************************************************************************************************************

Public Function Select_Radiobutton(Radio_Object, Radio_Value)
    'f_log.WriteLine "INFO <Select_Radiobutton>Entering the keyword Select_Radiobutton"
    objectName=Radio_Object.GetROProperty("name")
    stepName="Select Radio Button"
    passDesc=objectName+" was Selected successfully"
    failDesc=objectName+" object was not found "
  
    if objectName <> "" then
        If Radio_Object.Exist then
             If  Radio_Object.GetROProperty("disabled") = False Then
            Radio_Object.Select Radio_Value
            'f_log.WriteLine "PASS <"&passDesc&">"
            Report "Pass",stepName,passDesc
            else
            'f_log.WriteLine "FAIL <"&objectName&"Radio Button object is disabled>"
             Report "Fail",stepName,objectName+" Radio Button object is disabled"
        End If
        Else
            'f_log.WriteLine "FAIL <"&failDesc&">"
            Report "Fail",stepName,failDesc
        end if
        end if
    'f_log.WriteLine "INFO <Select_Radiobutton>Exiting the keyword Select_Radiobutton"
End Function

'*******************************************************************************************************************************
'Function Name: Verify_Edit
'Parameter    :
'Author          :
'Description  :
'*******************************************************************************************************************************

Public Function Verify_Edit(Edit_Object,Edit_Value)
    'f_log.WriteLine "INFO <Verify_Edit>Entering the keyword Verify_Edit"
    objectName=Edit_Object.getROProperty("name")
If  objectName=" " then
    objectName=Edit_Object.getROProperty("html id")
    end if
   
    stepName="Verification of "+objectName+" Edit Field"

    If Edit_Object.Exist then
        If  Edit_Object.GetROProperty("disabled") = False Then
        ret=Edit_Object.GetROProperty("value")
            if instr(ret,Edit_Value) > 0 then
        'f_log.WriteLine "PASS <INFO>Expected Result of Edit Field is same as Actual Result value is "&ret
               Report "Pass",stepName,"Expected Result of    "&Edit_Value&"  in " & objectName& "   Edit Field  matched  with the Actual Result Value is "&ret
                elseif Edit_Value = ret then
                'f_log.WriteLine "PASS <INFO>Expected Result of Edit Field is same as Actual Result value>"
               Report "Pass",stepName,"Expected Result of    "&Edit_Value&"   in " & objectName& "   Edit Field  matched  with the Actual Result Value is "&ret
                else
                'f_log.WriteLine "FAIL <INFO>Expected Result of Edit Field did not match with the Actual Result value is "&ret
                Report "Fail",stepName,"Expected Result of     "&Edit_Value&"   in " & objectName& "   Edit Field did not match  with the Actual Result Value is "&ret
            end if   

    else
      Report "Fail",stepName,"Expected     "&Edit_Object&"    Edit Field object is disabled"
        End If
        Else
        'f_log.WriteLine "FAIL < Edit Field was not found for Verification>"
        Report "Fail",stepName," Edit Field " &Edit_Object&"was not found for Verification"
    end if
    'f_log.WriteLine "INFO <Verify_Edit>Exiting the keyword Verify_Edit"
End Function

'*******************************************************************************************************************************
'Function Name: Verify_Combo
'Parameter    :
'Author          :
'Description  :
'*******************************************************************************************************************************

Public Function Verify_Combo(Combo_Object, Combo_Value)
    'f_log.WriteLine "INFO <Verify_Combo>Entering the keyword Verify_Combo"
     objectName=Combo_Object.GetROproperty("name")
     stepName="Verification of "+objectName+" drop down combo"
  
    If Combo_Object.Exist then
        If  Combo_Object.GetROProperty("disabled") = False Then
        ret=Combo_Object.GetROProperty("value")
        if instr(ret,Combo_Value) > 0 then
        'f_log.WriteLine "PASS <Expected Result of List Field is same as Actual Result, value is "&ret&">"
        Report "Fail",stepName,"Expected Result of List Field  " &Combo_Object&"is "  &Combo_Value&"   matched  with the Actual Result, value is "+ret
            else
        'f_log.WriteLine "FAIL <Expected Result of List Field did not match with the Actual Result, value is "+ret+">"
        Report "Fail",stepName,"Expected Result of List Field  " &Combo_Object&"is "  &Combo_Value&"   did not match with the Actual Result, value is "+ret
        end if
            else
          'f_log.WriteLine "FAIL <Drop Down combo object is disabled>"
        Report "Fail",stepName,objectName+" Drop Down combo object is disabled"
        End If
        Else
        'f_log.WriteLine "FAIL <Drop Down combo object  not found for Verification>"
        Report "Fail",stepName,"Drop Down combo object  not found for Verification"
    end if
    'f_log.WriteLine "INFO <Verify_Combo>Exiting the keyword Verify_Combo"
End Function

'*******************************************************************************************************************************
'Function Name: Verify_Button
'Parameter    :
'Author          :
'Description  :
'*******************************************************************************************************************************

Public Function Verify_Button(Button_Object, Button_Name)
    'f_log.WriteLine "INFO <Verify_Button>Entering the keyword Verify_Button"
    If Button_Object.Exist then
        If  Button_Object.GetROProperty("disabled") = False Then
            ret=Button_Object.GetROProperty("name")
             If instr(ret,Button_Name) > 0 then
            'f_log.WriteLine "PASS <Expected Result of Button is same as Actual Result, value is "&ret&">"
            Report "Pass","Verification of "+Button_Name+" Button ","Expected Result of Button is same as Actual Result, value is "+ret
            else
             'f_log.WriteLine "FAIL <Expected Result of Button did not match with the Actual Result, value is "&ret&">"
            Report "Fail","Verification of "+Button_Name+" Button ","Expected Result of Button did not match with the Actual Result, value is "+ret
            end if   
   
        else
        'f_log.WriteLine "FAIL <Button object is disabled>"
        Report "Fail",stepName,objectName+" Button object is disabled"
        End If
    else
        'f_log.WriteLine "FAIL <Button object was not found for Verification>"
        Report "Fail","Button Object ","Button Object was not found for Verification"
    end if
     'f_log.WriteLine "INFO <Verify_Button>Exiting the keyword Verify_Button"
End Function

'*******************************************************************************************************************************
'Function Name: Verify_Link
'Parameter    :
'Author          :
'Description  :
'*******************************************************************************************************************************

Public Function Verify_Link(Link_Object)
   objectname = Link_Object.GetROproperty("name")
    If Link_Object.Exist then
        If  Link_Object.GetROProperty("disabled") = False Then
        Report "Pass","Link name "&objectname&""," Link name "&objectname&" was found for Verification"
    else
         'f_log.WriteLine "FAIL <Link object is disabled>"
        Report "Fail",objectName,objectName+" Link object is disabled"
        End If
        else
        Report "Fail","Link name "&objectname&""," Link name "&objectname&" was not found for Verification"
    end if

End Function

'*******************************************************************************************************************************
'Function Name: Verify_Element
'Parameter    :
'Author          :
'Description  :
'*******************************************************************************************************************************

Public Function Verify_Element(Element_Object)
   objectname = Element_Object.GetROproperty("name")
  
    If Element_Object.Exist then
         If  Element_Object.GetROProperty("disabled") = False Then
        Report "Pass","Verification of  "&objectname&" Element ","Element Object  "&objectname&" was  found for Verification"
        else
      'f_log.WriteLine "FAIL <Link object is disabled>"
        Report "Fail",objectName,objectName+" Link object is disabled"
           End If
     Else      
        Report "Fail","Element Object  "&objectname&"","Element Object  "&objectname&" was not found for Verification"
    end if

End Function

'*******************************************************************************************************************************
'Function Name: Verify_CheckBox
'Parameter    :
'Author          :
'Description  :
'*******************************************************************************************************************************

Public Function Verify_CheckBox(Link_Object, Link_Name)
    Objectname = Link_Name
  
    If Link_Object.Exist then
       
        If  Link_Object.GetROProperty("disabled") = "1" Then

             Report "Pass", Objectname, "is Disabled"
           
            Else
        Dim CheckBoxButtonValue_Array(2)
            CheckBoxButtonValue_Array(0) = "ON"
            CheckBoxButtonValue_Array(1) = "OFF"
            checkedStatus =  Link_Object.GetROProperty("value")
            Report "Pass", Objectname, "is "&CheckBoxButtonValue_Array(checkedStatus)
       
        End if
     End If
End Function

'*******************************************************************************************************************************
'Function Name: Verify_Radio
'Parameter    : Radio button object, Expected selection item index
'Author          : Testing czars
'Description  : This function verifies the expected and actual 'selected item index ' of the web radio button object
'*******************************************************************************************************************************

Public Function Verify_Radio(Radio_Object, Radio_Value)

Objectname = Radio_Object.GetROProperty("name") 
Select_Value = Radio_Object.GetROPreperty("selected item index")
If  Select_Value = Radio_Value Then

                Report "Pass", Objectname, "For "& Objectname &"The selected item index is '"& Radio_Value &"'."
Else

                Report "Fail", Objectname, "For "& Objectname &"The selected item index is '"& Radio_Value &"', but the expected is '"& Select_Value &"'."               
End If
End Function

'*******************************************************************************************************************************
'Function Name: FormatInput
'Parameter    : Tab Object, Value    
'Author          :
'Description  :
'*******************************************************************************************************************************
Public Function FormatInput(input_string)
   'f_log.WriteLine "INFO <FormatInput>Entering the keyword FormatInput"
    'On Error resume next
    'remove the spaces
    input_string = replace(input_string," ","")
    'convert the string to lower case
    input_string = lcase(input_string)
   
    If instr(input_string,"[comment]") > 0 Then
        input_string = "comment"
    End If
    Set FormatInput = Description.Create
    FormatInput = input_string
    'f_log.WriteLine "INFO <FormatInput>Entering the keyword FormatInput"
End Function

'*******************************************************************************************************************************
'Function Name: Report
'Parameter    :
'Author          :
'Description  :
'*******************************************************************************************************************************

Public Function Report(status,stepName,stepDescription)

If status="Pass" Then
Reporter.ReportEvent micPass,stepName,stepDescription

'This is for writing results to excel
            strStep = stepName
            strActRes = stepDescription
            strStatus = "PASS"
            reportResult dtsSheet
           
elseIf status = "Fail" Then
Reporter.ReportEvent micFail,stepName,stepDescription

'This is for writing results to excel
            strStep = stepName
            strActRes = stepDescription
            strStatus = "FAIL"
            reportResult dtsSheet
End If
End Function

'*******************************************************************************************************************************************************************************************
' Function Name : newScaleLogin
' In Parameters : 
' Out Parameters :
' Description : Logs In to the NewScale RequestCenter  Application
'*******************************************************************************************************************************************************************************************
Public Function newScaleLogin(username,password)
 'f_log.WriteLine "INFO <newScaleLogin>Entering the keyword newScaleLogin"
 Set Edit_Object= Browser("newScale RequestCenter").Page("newScale - Login").WebEdit("NSA_LOGIN_NAME")
 Edit_Value = username
 Edit_Set Edit_Object, Edit_Value

 Set Edit_Object=Browser("newScale RequestCenter").Page("newScale - Login").WebEdit("NSA_PASSWORD")
 Edit_Value = password
 Edit_Set Edit_Object, Edit_Value

 Set Button_Object = Browser("newScale RequestCenter").Page("newScale - Login").WebButton("Login")
Click_Button Button_Object

Browser("newScale RequestCenter").Page("newScale - Login").Sync

 If   Browser("newScale RequestCenter").Page("newScale RequestCenter").WebElement("newScale RequestCenter").Exist Then
      'f_log.WriteLine "PASS <"&username&" loginid and "&password&" password was logged in sucessfully>" 
     Report "Pass", "New Scale Login", username&" loginid and "&password&" password was logged in sucessfully"
    Else
    'f_log.WriteLine "FAIL<"&username&" loginid and "&password&" password was incorrect and Login was unsucessfull>"
    Report "Fail", "New Scale Login", username&" loginid and "&password&" password was incorrect and Login was unsucessfull"
    End If

 'f_log.WriteLine "INFO <newScaleLogin>Exiting the keyword newScaleLogin"   
End Function

'*******************************************************************************************************************************
'Function Name: newscaleRequestCenter_Logout
'Parameter    :  Table_Name
'Description  :
'*******************************************************************************************************************************
Public Function newscaleRequestCenter_Logout
    'f_log.WriteLine "INFO <newscaleRequestCenter_Logout>Exiting the keyword newscaleRequestCenter_Logout"
   
   'Calling Function for Clicking Link Logout
   Set Link_Object = Browser("newScale RequestCenter").Page("newScale RequestCenter_3").Link("Logout")
   Click_Link Link_Object

   'Verifying the Login button displayed after LogOut
    Set Button_Object = Browser("newScale RequestCenter").Page("newScale - Login").WebButton("Login")
    Verify_Button Button_Object, Button_Name

    'Calling Function for clicking on Login Button
    Set Button_Object = Browser("newScale RequestCenter").Page("newScale - Login").WebButton("Login")
    Click_Button Button_Object

    If Browser("newScale RequestCenter").Page("newScale - Login").Exist Then
        Browser("newScale RequestCenter").Close
    End If

    Close_Browsers
   'f_log.WriteLine "INFO <newscaleRequestCenter_Logout>Exiting the keyword newscaleRequestCenter_Logout"
End Function

'********************************************************************************************************************************************************************************************************************
'Funcition Name : WebTable_VerifyLink
'parameters: parameter one - table_object hireachry,parameter two - link name,parameter three - Number of pages to search example : 24/10 = 3 pages
'Description -  Used to Verify Link text  for Organisation Unit, People, Queues, ROles, Groups, Functional Positions on left hand side of the page
'
'********************************************************************************************************************************************************************************************************************

Function WebTable_VerifyLink(table_Object,linkname,pagecount,module)
'Set table_Object=tbl_obj
'Set table_object=Browser("newScale RequestCenter").Page("newScale RequestCenter_2").WebTable("Name")
For i=1 to pagecount'-1
rcount=table_object.RowCount
For k=2 to rcount
    'msgbox rcount
'    ccount=Browser("newScale RequestCenter").Page("newScale RequestCenter").WebTable("Name").ColumnCount(k)
'    For j=1 to ccount
        Set lnk = table_object.ChildItem(k,1,"Link",0)
        txt=lnk.GetROproperty("text")
        'msgbox txt
'        If txt Then
'        End If
        If Instr(linkname,txt) > 0 Then
            stpName="Link Name Verification - "&linkname
            stpDesc=linkname&" was checked in "&module
            'report "Pass",stpName,stpDesc
            Reporter.ReportEvent micPass,stpName,stpDesc
            Flag = True
             Exit For
        End If
    'Next
    Next
    If Flag Then
        Exit For
    End If
    Browser("newScale RequestCenter").Page("newScale RequestCenter_2").Image("pageRight").Click
Next

    If Flag = False Then
        report "Fail", "Display Link", linkname & " weblink was not displayed on the page"
    End If
    
End Function
'********************************************************************************************************************************************************************************************************************
'Funcition Name : WebTable_LinkClick
'parameters: parameter one - table_object hireachry,parameter two - link name,parameter three - Number of pages to search example : 24/10 = 3 pages
'Description -  Used to Click links for Organisation Unit, People, Queues, ROles, Groups, Functional Positions on left hand side of the page
'
'*****************************************************

Function WebTable_LinkClick(table_object,linkname,pagecount,module)

'Set table_object=Browser("newScale RequestCenter").Page("newScale RequestCenter_2").WebTable("Name")
pagecount=2
For i=0 to pagecount
 rcount=table_object.RowCount
 For k=2 to rcount
    'msgbox rcount
'    ccount=Browser("newScale RequestCenter").Page("newScale RequestCenter").WebTable("Name").ColumnCount(k)
'    For j=1 to ccount
        Set lnk = table_object.ChildItem(k,1,"Link",0)
        txt=lnk.GetROProperty("text")
        'msgbox txt
        If Instr(linkname,txt) > 0 Then
            lnk.click
             stpName=" Verification of Click Link- "&linkname
            stpDesc=linkname&" was clicked in "&module
            report "Pass",stpName,stpDesc
            Flag = True
            Exit For
        End If
    'Next
    Next

    If Flag Then
        Exit For
    End If
    Browser("newScale RequestCenter").Page("newScale RequestCenter_2").Image("pageRight").Click
Next

    If Flag = False Then
        report "Fail", "Display Link", linkname & " weblink was not displayed on the page"
    End If
End Function

'*******************************************************************************************************************************

'Function Name: Select_RadioTable

'Parameter    :  Table_Name

'Description  :

'******************************************************************************************************************************
Public Function Select_RadioTable(Table_Name)

'Calling Function to enter Text in Search Text Field

Set Edit_Object = Browser("newScale RequestCenter_2").Page("newScale RequestCenter").WebEdit("scou_search_string")

Edit_Value = Table_Name

Edit_Name = "Search"

Edit_Set Edit_Object, Edit_Value

 'Calling Function To Click on Search Button

Set Button_Object = Browser("newScale RequestCenter_2").Page("newScale RequestCenter").WebButton("Search")

Button_Name = "Search"

Click_Button Button_Object

 wait(1)
  
rowcnt = Browser("newScale RequestCenter_2").Page("newScale RequestCenter").WebTable("**Resource: Select is").RowCount

For i = 2 To rowcnt
                    
                        Organizationunit_Name = Browser("newScale RequestCenter_2").Page("newScale RequestCenter").WebTable("**Resource: Select is").GetCellData(i,2)

                        'msgbox Organizationunit_Name
                      
                        If Trim(Table_Name) = Trim(Organizationunit_Name) Then
                     
            R_Value = Browser("newScale RequestCenter_2").Page("newScale RequestCenter").WebTable("**Resource: Select is").ChildItem(i, 1, "WebRadioGroup", 0).GetROproperty("value")

                                    'msgbox Radio_Value
                                 
                                    'Browser("newScale RequestCenter_2").Page("newScale RequestCenter").WebTable("**Resource: Select is").ChildItem(i, 1, "WebRadioGroup", 0).Select Radio_Value

                                    Set R_Object = Description.Create()

                                    R_Object("micclass").Value = "WebRadioGroup"


                                    Set Radio_Object = Browser("newScale RequestCenter_2").Page("newScale RequestCenter").WebTable("**Resource: Select is").WebRadioGroup(R_Object)

                                    Radio_Value = R_Value

                                    Radio_Name = "Organization Unit"

                                    Set_Radiobutton Radio_Object, Radio_Value, Radio_Name

Exit For

End If
                     
Next
                                        
'Calling Function to Click on Add Button

Set Button_Object = Browser("newScale RequestCenter_2").Page("newScale RequestCenter").WebButton("Add")

Button_Name = "Add"

Click_Button Button_Object

End FUnction

'*******************************************************************************************************************************

'Function Name: Set_Radiobutton

'Parameter    :  Object, Value     

'Author        :

'Description  :

'*******************************************************************************************************************************

Function Set_Radiobutton(Radio_Object, Radio_Value, Radio_Name)

            objectName=Radio_Name

            stepName="SetRadio Button"

            passDesc=objectName+" was Selected successfully"

            failDesc=objectName+" object was not found "

            if objectName <> "" then

                        if Radio_Object.Exist then

' replaced set

                                    Radio_Object.Select  Radio_Value

                                    Report "Pass",stepName,passDesc

                                    else

                                    Report "Fail",stepName,failDesc

                        end if

            end if

End Function

'
'Function Select_Module(mod_Name)
'    'f_log.WriteLine "INFO <Select_Module>Entering the keyword Select_Module"
'
'Select Case lcase(mod_Name)
'  Case "servicedesigner"
'      If Browser("newScale - Login").Page("newScale RequestCenter").WebElement("newScale RequestCenter").Exist Then
'          Browser("newScale - Login").Page("newScale RequestCenter").WebElement("newScale RequestCenter").Click
'          If Browser("newScale - Login").Page("newScale RequestCenter").Link("ServiceDesigner").Exist Then
'             Browser("newScale - Login").Page("newScale RequestCenter").Link("ServiceDesigner").Click
'             Reporter.ReportEvent micPass,"Select Module",mod_name&" was selected"   
'        end if     
'    else
'   
'    End If
'  Case "servicecommunity"     
'     If Browser("newScale RequestCenter").Page("newScale RequestCenter").WebElement("newScale RequestCenter").Exist Then
'         Browser("newScale RequestCenter").Page("newScale RequestCenter").WebElement("newScale RequestCenter").Click
'         If Browser("newScale RequestCenter").Page("newScale RequestCenter").Link("Service Community2").Exist Then
'            Browser("newScale RequestCenter").Page("newScale RequestCenter").Link("Service Community2").Click
'            Reporter.ReportEvent micPass,"Select Module",mod_name&" was selected"
'         End If
'    else
'       
'    End If
'Case "myservice"
'    If     Browser("newScale - Login").Page("newScale RequestCenter").WebElement("newScale RequestCenter").Exist Then
'         Browser("newScale - Login").Page("newScale RequestCenter").WebElement("newScale RequestCenter").Click
'         if Browser("newScale - Login").Page("newScale RequestCenter").Link("MyServices").Exist then
'            Browser("newScale - Login").Page("newScale RequestCenter").Link("MyServices").Click
'            Reporter.ReportEvent micPass,"Select Module",mod_name&" was selected"
'        end if    
'    else
'   
'    End If
'Case "servicemanager"
'    If        Browser("newScale - Login").Page("newScale RequestCenter").WebElement("newScale RequestCenter").Exist Then
'            Browser("newScale - Login").Page("newScale RequestCenter").WebElement("newScale RequestCenter").Click
'            If Browser("newScale - Login").Page("newScale RequestCenter").Link("ServiceManager").Exist Then
'               Browser("newScale - Login").Page("newScale RequestCenter").Link("ServiceManager").Click
'                   Reporter.ReportEvent micPass,"Select Module",mod_name&" was selected"
'            End If
'    else
'
'    End If
'    Case else
'
'End Select
'    'f_log.WriteLine "INFO <Select_Module>Exiting the keyword Select_Module"
'End Function
--------------------

'a=Browser("QA 120 - Misys Confirmation").Page("QA 120 - Misys Confirmation").WebEdit("atxtPassword")

Set xl=CreateObject("Excel.Application")
Set wb=xl.Workbooks.Open("p:\1.xls")
Set ws=wb.Worksheets("sheet1")
a=ws.cells(1,2)
b=ws.cells(2,2)
CALL enter (a, b)
wb.Application.quit
'place a in excel sheet

----------------
Function enter (byval a, byval strInput)
    c = a+".set " & strInput
    strCmd =  "runTimeValue = " + a + ".Exist(0)"
    Execute strCmd   
   msgbox c
   b = "msgbox c"
   Execute b
   Execute c
End Function

Popular posts from this blog

Online Tricentis Tosca Automation Training with Real Time Scenarios

ONLINE TRICENTIS TOSCA AUTOMATION TRAINING WITH REAL TIME SCENARIOS TOSCA COURSE CONTENT (40 Hours) Tosca has become an leading Automation tool in market migrating most of the existing projects to tosca, which has an excellent flexibility to handle script-free automation tool. This training helps the team to write complex/simple automation scripts very easily and can able to handle any type of scenarios. Here with providing the list of topics covered under this course: Tosca Introduction  (Duration 2 Hours) Brief about Tricentis Tosca Testsuite Overview and concept Business dynamic TestCases and test automation System Requirements for Tricentis Tosca Testsuite Installing Tosca Installation process Unattended installation  License administration Node Locked License Floating License Commuter License Cloud License Specific License Files and directories Maintaining the Tosca installation (Duration 2 Hours) Working Features in TOSCA The Men...
Continue Reading »

Online Selenium Training With Real Time Scenario

SELENIUM TRAINING COURSE CONTENT Introduction ü What is automation testing ü When to go for automation ü Different automation tools (vendor & open source tools) ü Advantages of  automation ü Difference between manual testing & Automation testing process                                     Introduction to selenium ü What is selenium Tool ü Use of selenium tool in automation ü Features of selenium tool ü Differences  between selenium and other tools Selenium Components ü Selenium IDE ü Selenium RC ü Selenium WebDriver ü Selenium  Grid Configuration of selenium IDE & Dev. Scripts ü Installing/Downloading Selenium IDE ü Features of Selenium IDE ü Recording/Creating your first test with Selenium IDE ü Script Debugging in Selenium IDE. ...
Continue Reading »

How to move application from development server to production server

Hi friends today I am talking about how to move code from development to a production server this is nothing but release management life cycle but it is an important aspect for tester. The Release management discipline covers moving code form a developer’s machine to production.  This will be done in this way: Developer develops code and runs unit test, integration tests review the code prior to putting it in to the main build, which then leads to Install and build test server, this is where the install team install the code which has come out of the build, if the build does not work then the release manager knows there is a problem, most companies have a code curfew where they make sure developers don’t submit code for the nights build unless they have tested it. If the install is ok a regression test is run and if this passes, then the code is release to the test team, on one or more ideally two test servers. The testers then run their test scripts against the test plan and tes...
Continue Reading »