EvaluateXPath

Hi Tanya



Thanks for your response



Now work

Solution:



-----------------------------------------------



Function EvaluateXPath_object(page, location, typeID, name)



  EvaluateXPath_object = False



  Dim Attr

  Set Attr = Log.CreateNewAttributes

  Attr.Bold = True



  Dim object, arr, Counter

 

  Sys.Refresh()

 

  Counter = 0



  Do

    counter = counter + 1

    

    Sys.Refresh()

 

    object = location.FindAllChildren(typeID,name,20000, True)

    arr = page.EvaluateXPath("(//*[text()='"+name+"'])")

      

      If IsEmpty(arr) or IsNull(arr) Then

        EvaluateXPath_object = False

        aqUtils.Delay(3000)

        Sys.Refresh()

        Log.Message("Doesn't find - '"+name+"'")

      Else

          If UBound(arr) >=0 and arr(0).VisibleOnScreen = True Then

          Set button = arr(0)

          EvaluateXPath_object = True

          Log.Message "Click - '"+name+"'",,, Attr

          cels.Click

          Call Saglaba_Bildi(name)

          Call page.Wait

        Else

          EvaluateXPath_object = False

          aqUtils.Delay(3000)

          Sys.Refresh()

          Log.Message("Doesn't find - '"+name+"'")

        End if

      End if

 

  Loop Until EvaluateXPath_object = True or counter > 25

    

End Function



-----------------------------------------------



Regards



Armands