Software Quality Assurance Forums: 501-Illegal assignment error on QTP Results

Here is the code:

Sub SCF_CreateOutputTable(strRefNo)

Dim objFSFile
Set objFSFile = Createobject("Scripting.FileSystemObject")

Dim strTemplateFile, strResultFile, strSheetName, intRowCount
strSheetName = "Data_Output"
strResultFile = g_strTestSuitePath & "\Application\" & g_strApplicationName & "\Data Definitions\" & g_strApplicationName & "_Output.xls"
strTemplateFile = g_strTestSuitePath & "\Framework\Dictionary\" & g_strApplicationName & "_Output.xls"
DataTable.AddSheet strSheetName
If Not objFSFile.FileExists(strResultfile) Then ' To create a data sheet named User_Data
DataTable.ImportSheet strTemplateFile,1,strSheetName
Else
DataTable.ImportSheet strResultfile,strSheetName,strSheetName
End if

'DataTable.ImportSheet strTemplateFile,1,strSheetName

Dim strTempKey
' strSheetName = "Data_Output"
intRowCount = DataTable.GetSheet(strSheetName).GetRowCount ' To get the total rowCount
'msgbox intRowCount
For jintIndex = 1 To intRowCount
'msgbox jintIndex
DataTable.SetCurrentRow( jintIndex )
strTempKey = DataTable.Value(g_strKeyColumn,strSheetName)
'msgbox strTempKey
If strTempKey = strRefNo Then
Exit For
End If
Next
'DataTable.SetCurrentRow(jintIndex)

End Sub

Sub SCF_WriteDataOutput ( strKey, strFieldName, strValue )

Dim intRowCount, strSheetName, intIndex, strTempKey
strSheetName = "Data_Output"
intRowCount = DataTable.GetSheet(strSheetName).GetRowCount ' To get the total rowCount
For intIndex = 1 To intRowCount
DataTable.SetCurrentRow( intIndex )
strTempKey = DataTable.Value(g_strKeyColumn,strSheetName)
If strTempKey = strKey Then
Exit For
End If
Next
DataTable.SetCurrentRow(jintIndex) ' To set the current row

'msgbox jintIndex
'msgbox g_strKeyColumn
'msgbox strKey
' msgbox strFieldName

'msgbox strValue

'DataTable.Value(g_strKeyColumn,strSheetName) = strKey
DataTable.Value(strFieldName,strSheetName) = strValue

End Sub

Sub SCF_SaveOutputTable()

Dim strResultFile, strSheetName
strSheetName = "Data_Output"
strResultFile = g_strTestSuitePath & "\Application\" & g_strApplicationName & "\Data Definitions\" & g_strApplicationName & "_Output.xls"
DataTable.ExportSheet strResultFile, strSheetName

End Sub

'Function to Update the captured app status into O/P Sheet.
Function Update_APP_Status(strAPP_GTINoAvail, strAPPval,str_APPComment)

strRefNo = g_strTCNO

Call SCF_CreateOutputTable(strRefNo)

Call SCF_WriteDataOutput ( strRefNo, "AD_GTI_NO", strAPP_GTINoAvail)
Call SCF_WriteDataOutput ( strRefNo, "APP_Status", strAPPval)
Call SCF_WriteDataOutput ( strRefNo, "Comments", str_APPComment)
Call SCF_WriteDataOutput ( strRefNo, "Act_Status_APP", APP_PymtStatus)
Call SCF_WriteDataOutput ( strRefNo, "Exp_Status_APP", str_ExpectedAPP)
If Trim(str_ExpectedAPP)=Trim( APP_PymtStatus)Then
Call SCF_WriteDataOutput ( strRefNo,"APP_FinalStatus","Pass")
Else
Call SCF_WriteDataOutput ( strRefNo,"APP_FinalStatus","Fail")
End if
Call SCF_SaveOutputTable()

End Function