Basic FrameWork Functions: Webmethods Overloading

RegisterUserFunc "Link","ClickNew","ClickNew"
RegisterUserFunc "WebEdit","SetNew","SetNew"
RegisterUserFunc "Webbutton","ClickNew","ClickNew"

Function SetNew(obj,Parameter)
On Error Resume Next
ParameterValue=Datatable.Value(cstr(Parameter))

If Ucase(trim(ParameterValue))="<SKIP>" Then

Else

obj.Set ParameterValue
If Err.Number<>0 Then


objectname.ReportEvent1 "1","Could not write "&ParameterValue,""&err.description
'objectname.ReportEvent1 "0","clicking link","Cliked "&strLogicalName

Else

objectname.ReportEvent1 "2","Entered "&ParameterValue &"in "&obj.GetTOProperty("name"),"enter value"

'objectname.ReportEvent1 "0","Login Step","Login Success"
End If

End If

End Function

Function ClickNew(objlink)
       On Error Resume Next
    objlink.Click
    strLogicalName= objlink.GetTOProperty("name")
If err.number<>0 Then

' msgbox Err.Description&""

objectname.ReportEvent1 "1","clicking link",""&err.Description

Else
objectname.ReportEvent1 "0","clicking link","Cliked "&strLogicalName

End If



End Function