group driver

Public Function OXP11_CT(strGroupSheet)
On Error Resume Next
intRowCount = Datatable.GetSheet(strGroupSheet).GetRowCount
Environment.Value("Sheet") = strGroupSheet
Environment.Value("TimeStamp")  = Now
intStartTimeUC = Timer
Print "Use Case Started At - "&intStartTime &"On -" & Now
For i = 1 to intRowCount
DataTable.SetCurrentRow(i)
If DataTable.Value("Execute",strGroupSheet) = "Y" Then
                Environment.Value("TCStatus") = "True"
Environment.Value("strTestCaseID") = DataTable.Value("TestCase_ID",strGroupSheet) 'strTestCaseID
Environment.Value("strTestCaseName") = DataTable.Value("TestCase_Name",strGroupSheet)'strTestCaseName
fnReportingManager "Information", "Start Test Case - " & Environment.Value("strTestCaseID") ,Environment.Value("strTestCaseName") ,"", Environment.Value("GroupName")
strTestCaseFunName = Environment.Value("strTestCaseID")&"()"

Call Eval(strTestCaseFunName)

If Environment.Value("TCStatus") = "True" Then
fnReportingManager "TCPass", "Execution Complete for Test Case : " & Environment.Value("strTestCaseID") ,Environment.Value("strTestCaseName") ,"", Environment.Value("GroupName")
Else
fnReportingManager "TCFail", "Execution Complete for Test Case : " & Environment.Value("strTestCaseID") ,Environment.Value("strTestCaseName") ,"", Environment.Value("GroupName")
End If

End If
Next
intEndTimeUC = Timer
Call fnTCExecutionTimeReporter(Cint(intEndTimeUC) - Cint(intStartTimeUC), 2500)
End Function

Public Function OXP11_CT_TC001()
On Error Resume Next
End Function