DP - redescription

[Kiana]

Hi, can anyone help me with my script?
I have function and procedure. In both of them I describe the same object, but when I call function in procedure I recive an error.
Here is script:

Code:

Function SectionButtonExist (Section, Button)
Dim oDesc, Sect, oImg

SectionButtonExist = False

    Set oClass=Description.Create()
    oclass("micclass").value="WebTable"
    oclass("innertext").value = ".*" & Section & "   .*"
    Set Sect = Browser(“Browser”).Page(“Page”).childObjects(oClass)

    If Sect.Count>0 Then
        Set Section = Sect(0)
        Set oClass=Description.Create()
        oclass("micclass").value="Image"
        oclass("html tag").value="IMG"
        oclass("alt").value= Button
       Set oImg = Section.childObjects(oClass)

        If oImg.Count >0 Then
            SectionButtonExist = True
            Else
            SectionButtonExist = False
        End If
        
    Else
    SectionButtonExist = False    
    End If

    
End Function


Sub ClickButton (Section, Button)

Dim oDesc, Sect, oImg

Set oClass=Description.Create()
    oclass("micclass").value="WebTable"
    oclass("innertext").value = ".*" & Section & "   .*"
    Set Sect = Browser(“Browser”).Page(“Page”).childObjects(oClass)
    
     If Sect.Count>0 Then
        Set Section = Sect(0)
        Set oClass=Description.Create()
        oclass("micclass").value="Image"
        oclass("html tag").value="IMG"
        oclass("alt").value= Button
       Set oImg = Section.childObjects(oClass)
If SectionButtonExist (Section, Button) Then
            If  oImg.Count >0 Then
            oImg(0).Click
            End If
End If      
  
        End If

  
End Sub

[somisays]

Hi,
I think you have to declare function as Public.

Regards
Sridhar

[Kiana]

Thank you. I already find a mistake by myself . I assaigned two object the same name.