Function is not calling from subdriver

Code:

Option explicit

Dim strfilename,strAppMap,strCompMap,strSupportfns,strTestsuite,iRowcnt,strmsgfilepath,strTestCasefile,strreportfilepath

Dim i

strfilename=Environment.ExternalFileName

If strfilename="" Then

    Environment.LoadFromFile("D:\Proof Platform\Proof2.1\Testing\Automation Script\Configuration\GlobalFiles.xml")

End If



If(strfilename=Environment.ExternalFileName)<>"" Then

    strAppMap=Environment.Value("ApplicationMap")

    strCompMap=Environment.Value("ComponentMap")

    strSupportfns=Environment.Value("SupportFunctions")

    strTestsuite=Environment.Value("TestSuite")

    strmsgfilepath=Environment.Value("MessageFile")

    strreportfilepath=Environment.Value("TestReportPath")

End If

' Loading the test suite file content to Global Data Table

DataTable.ImportSheet strTestsuite,"Test","Global"

iRowcnt=DataTable.GetSheet("Global").GetRowCount

'DataTable.ImportSheet  "D:\Dinesh\QTP\Hybrid\Sample\TestSuite\TestSuite.xls","Tests","Action1"

For i =1 to iRowcnt step 1

    DataTable.GetSheet("Global").SetCurrentRow(i)

    strTestCasefile=DataTable.GetSheet("Global").GetParameter("TestFiles").ValueByRow(i)

RunAction "SubDriver [SubDriver]", allIterations, strTestCasefile, strAppMap, strCompMap, strSupportfns, strmsgfilepath, strreportfilepath

Next

ExitAction(0)

Code:

Option Explicit

On error resume next

Dim strComponent,strBrowser,strObject,strObjectName,strAction,strParam,strParam1,strParam2,strParam3,strExpected,strResult

Dim strDataFileParam,strLibParam,arrLibrarypath,strLibrarypath,str,strAppMapParam,strCompMapParam,strSupportfnsParam,strmsgfilepathParam,strReportFilePathParam

Dim intRowCount,i,cRow,testReport,sName



'getting parameter  value from the Driver

strDataFileParam=Parameter("strTestCasefile")

strAppMapParam=Parameter("strAppMap")

strCompMapParam=Parameter("strCompMap")

strSupportfnsParam=Parameter("strSupportfns")

strmsgfilepathParam=Parameter("strmsgfilepath")

strReportFilePathParam=Parameter("strreportfilepath")



'If strAppMapParam <> "" Then

'    ExecuteFile strAppMapParam

'End If

'If strCompMapParam <> "" Then

'    ExecuteFile strCompMapParam

'End If

'If strSupportfnsParam <> "" Then

'    ExecuteFile strSupportfnsParam

'End If

'If strmsgfilepathParam <> "" Then

'    ExecuteFile strmsgfilepathParam

'End If

    

'*********************************************************

'To incllude Library Files in the Sub Driver

'arrLibrarypath=split(strLibParam,",")

'For each strLibrarypath in arrLibrarypath

'    If strLibrarypath <> "" Then

'        ExecuteFile  strLibrarypath

'    End If

'Next

'*********************************************************

'Generating Test  Report

testReport =  fntestreport (strDataFileParam,strReportFilePathParam)

'Importing the Data File.xls

DataTable.ImportSheet strDataFileParam,1,"SubDriver [SubDriver]"

'DataTable.ImportSheet strDataFileParam,"Sheet1","SubDriver[SubDriver]" 

'DataTable.ImportSheet strDataFileParam,"Sheet1","SubDriver[SubDriver]" 

'SubDriver[SubDriver].Cells(1,9).value="PassFail"

'SubDriver[SubDriver].Cells(1,9).Font.colorIndex=10

intRowCount=DataTable.GetSheet("SubDriver [SubDriver]").GetRowCount 

cRow=0

For  i=1 to intRowCount step 1

    'DataTable.GetSheet("ActionA").GetParameter("Destination").ValueByRow(4) 

    DataTable.SetCurrentRow(i)

    strComponent=DataTable.GetSheet("SubDriver [SubDriver]").GetParameter("Component").ValueByRow(i)

    strBrowser=DataTable.GetSheet("SubDriver [SubDriver]").GetParameter("Browser").ValueByRow(i)

    strObject=DataTable.GetSheet("SubDriver [SubDriver]").GetParameter("Object").ValueByRow(i)

    strObjectName=DataTable.GetSheet("SubDriver [SubDriver]").GetParameter("ObjectName").ValueByRow(i)

    strAction=DataTable.GetSheet("SubDriver [SubDriver]").GetParameter("Action").ValueByRow(i)

    strParam=DataTable.GetSheet("SubDriver [SubDriver]").GetParameter("Param").ValueByRow(i)

    strParam1=DataTable.GetSheet("SubDriver [SubDriver]").GetParameter("Param1").ValueByRow(i)

    strParam2=DataTable.GetSheet("SubDriver [SubDriver]").GetParameter("Param2").ValueByRow(i)

    strParam3=DataTable.GetSheet("SubDriver [SubDriver]").GetParameter("Param3").ValueByRow(i)

    strExpected=DataTable.GetSheet("SubDriver [SubDriver]").GetParameter("Expected").ValueByRow(i)

    strChkpoint=DataTable.GetSheet("SubDriver [SubDriver]").GetParameter("Checkpoint").ValueByRow(i)

    Select Case strComponent

        Case "Web"

            Call fnAppMap (strBrowser,strObject,strObjectname)    

                Select Case strObject

                    Case "Browser"

                       Call  fnbrowser (WebBrowserDesc, WebPageDesc, strAction, strParam, strExpected)

                    Case "WebEdit"

                        Call fnedit(WebBrowserDesc,WebPageDesc,WebEditDesc,strAction,strParam,strExpected,strObject)

                    Case "MLWebEdit"

                        Call fnedit(WebBrowserDesc,WebPageDesc,WebEditDesc,strAction,strParam,strExpected,strObject)

                    Case "WebElement"

                        Call fnelement(WebBrowserDesc,WebPageDesc,WebElementDesc,strAction,strParam,strExpected,strObject)

                    Case "WebButton"     

                        Call fnbutton(WebBrowserDesc,WebPageDesc,WebButtonDesc,strAction,strParam,strExpected,strObject)

                    Case "WebButtonSW"     

                        Call fnbuttonSW(WebBrowserDesc,WebPageDesc,WebButtonDesc,strAction,strParam,strExpected,strObject)

                    Case "WebLink"     

                        Call fnlink(WebBrowserDesc,WebPageDesc,WebLinkDesc,strAction,strParam,strExpected,strObject)    

                    Case "WebList"     

                        Call fnlist(WebBrowserDesc,WebPageDesc,WebListDesc,strAction,strParam,strExpected,strObject)     

                    Case "WebListSW"     

                        Call fnlistSW(WebBrowserDesc,WebPageDesc,WebListDesc,strAction,strParam,strExpected,strObject)     

                    Case "WebCheckBox"     

                        Call fncheckbox(WebBrowserDesc,WebPageDesc,WebCheckBoxDesc,strAction,strParam,strExpected,strObject)            

                    Case "WebFile"     

                        Call fnfile(WebBrowserDesc,WebPageDesc,WebFileDesc,strAction,strParam,strExpected)            

                    Case "WebRadioGroup"    

                        Call fnradiogroup(WebBrowserDesc,WebPageDesc,WebRadioGroupDesc,strAction,strParam,strExpected,strObject)    

                    Case "WebTable"      

                        Call fnwebtable(WebBrowserDesc,WebPageDesc,WebTableDesc,strAction,strParam,strParam1,strParam2,strParam3,strExpected,strObject)

                    Case "Image"    

                        Call fnimage(WebBrowserDesc,WebPageDesc,WebRadioGroupDesc,strAction,strParam,strExpected,strObject)          

                    Case "Sleep"    

                        Call fnSleep(strAction,strParam)        

                    Case "Replay"    

                        Call fnReplay(strAction,strParam)

                    Case "InstAdd"    

                        Browser("PROOF").Page("PROOF").WebButton("ctl00$ContentPlaceHolder1$Proc").Click

                    Case "AddGridRow"    

                        Browser("PROOF").Page("PROOF").WebButton("ctl00$ContentPlaceHolder1$User").Click

                    End Select

        Case "DBCheck"

                    Call fndbcheck(strObjectname,strAction,strParam,strExpected)             

        End Select

Next

DataTable.ExportSheet testReport,"Report"

'Call fnsetcolor(strParam,strActual,strChkPoint,strObject)

'Call fnResColor(testReport)

ExitAction (1)