Function for RowValid,ObjectExist,ColumnValid and SetTextValue

'Function ObjectExist
Public function ObjectExist ( objExpected )
boolnObjExist = false
if (objExpected.Exist) Then
boolnObjExist = True
End if
IsObjectExist = boolnObjExist
End function

'Function RowValid
Public function RowValid ( objTable, intRowNumber )
boolnRowValid = false
intTblRows = CInt(objTable.GetROProperty("rows"))
intRowNumber = CInt(intRowNumber)
if ((intRowNumber > -1) and (intRowNumber < intTblRows)) Then
boolnRowValid = True
End if
IsRowValid = boolnRowValid
End function

Function ColumnValid
Public function ColumnValid ( objTable, intColumnNumber )
boolnColnValid = false
intTblCols = CInt(objTable.GetROProperty("cols"))
intColumnNumber = CInt(intColumnNumber)

If ((intColumnNumber > -1) and (intColumnNumber < intTblCols)) Then
boolnColnValid = True
End if

IsColumnValid = boolnColnValid
End function

Function SetTextValue
Public function SetTextValue ( objEdit,strData )
boolSuccess = True
on Error Resume Next
objEdit.Object.requestFocus
objEdit.Object.setText strData
objEdit.Object.nextFocus
If Err.Number <> 0 then
Reporter.ReportEvent micFail, "General Java Functions: SetTextValue" , Err.Description
Err.Clear
boolSuccess = false
End if
SetTextValue = boolSuccess
End function