Compiler Error Message: BC30311: Value of type 'Integer' cannot be converted to 'Date
I wrote a report in crystal reports, version 11 and wrote a .aspx page as a user interface for users to input data for their report selection. When I click on the link to take me to my .aspx page, I get the Compiler Error Message: BC30311: Value of type 'Integer' cannot be converted to 'Date'. This report is currently working in our live version, but not test. The report and the code behind remain unmodified as far as I know. Can someone please look at the the code I have attached? The lines in bold are where the error is occurring. Any comments/suggestions would be appreciated. Thank you in advance!
Code:
Code:
Public Sub GenerateReport()
Dim dsProposalRecs As DataSet
Dim dsRptRecs As New DataSet
Dim drProposalRec As DataRow
Dim strSQL As String
Dim strErr As String
Dim strHTMLErr As String
Dim strStatusSelection As String
Dim strDateSelection As String
Dim intDateSelection As Integer
Const strMethodName As String = "GenerateReport"
Try
If (Me.rdoEffectiveDate.Checked) Then
intDateSelection = 1
strDateSelection = "Effective Date"
ElseIf (Me.rdoProposalDate.Checked) Then
intDateSelection = 2
strDateSelection = "Proposal Date"
ElseIf (Me.rdoStatusDate.Checked) Then
intDateSelection = 3
strDateSelection = "Status Date"
Else
intDateSelection = 0
strDateSelection = ""
End If
strStatusSelection = Me.ddlStatus.SelectedValue
If (BlankField(strStatusSelection)) Then
strStatusSelection = "NONE"
End If
If ((BlankField(Request.Form("txtFrom"))) And (BlankField(Request.Form("txtTo")))) Then
dsProposalRecs = ReportsDB.GetActivityReportData(0, _
0, _
0, _
Convert.ToDateTime(Date.Now), _
intDateSelection, _
strStatusSelection, _
Application("cpConnection"), _
Application, Session, Response)
Else
dsProposalRecs = ReportsDB.GetActivityReportData(0, _
0, _
0, _
Convert.ToDateTime(Request.Form("txtFrom")), _
intDateSelection, _
strStatusSelection, _
Application("cpConnection"), _
Application, Session, Response)
End If
strSQL = "Exec spDeleteProposalActivityReportTableByID "
strSQL += ReturnFieldArgument("@UserID", Session("LoginID"), False)
RunStoredProcedure(strSQL, Application("rptConnection"), Application, Session, Response)
For Each drProposalRec In dsProposalRecs.Tables("ActivityRecs").Rows
strSQL = "Exec spInsertProposalActivityReportTable "
strSQL += ReturnFieldArgument("@CaseName", drProposalRec.Item("CASENAME"), True)
strSQL += ReturnFieldArgument("@HeadState", drProposalRec.Item("HEADQUARTERSTATE"), True)
strSQL += ReturnFieldArgument("@NAICS", drProposalRec.Item("NAICSCODE"), True)
strSQL += ReturnFieldArgument("@NAICSDesc", drProposalRec.Item("NAICSDESCRIPTION"), True)
strSQL += ReturnFieldArgument("@ProdDesc", drProposalRec.Item("PRODUCTDESCRIPTION"), True)
strSQL += ReturnFieldArgument("@LFID", drProposalRec.Item("LAKEFORESTPROPOSALID"), True)
strSQL += ReturnFieldArgument("@Status", drProposalRec.Item("STATUS"), True)
strSQL += ReturnFieldArgument("@TotalLives", drProposalRec.Item("TOTALNUMBEROFLIVES"), True)
strSQL += ReturnFieldArgument("@DateQuoted", drProposalRec.Item("DATEQUOTED"), True)
strSQL += ReturnFieldArgument("@StatusDate", drProposalRec.Item("STATUSDATE"), True)
strSQL += ReturnFieldArgument("@EffectiveDate", drProposalRec.Item("EFFECTIVEDATE"), True)
strSQL += ReturnFieldArgument("@SalesDirName", drProposalRec.Item("SALESDIRECTORNAME"), True)
'strSQL += ReturnFieldArgument("@SalesVPName", drProposalRec.Item("SALESVPNAME"), True)
strSQL += ReturnFieldArgument("@ProducerName", drProposalRec.Item("producerfullname"), True)
If (Not (IsDBNull(drProposalRec.Item("target")))) Then
If (drProposalRec.Item("target") = "N") Then
strSQL += ReturnFieldArgument("@TargetProducer", 0, True)
Else
strSQL += ReturnFieldArgument("@TargetProducer", 1, True)
End If
End If
strSQL += ReturnFieldArgument("@ProducerPhone", drProposalRec.Item("phone"), True)
'If (Me.rdoVicePresident.Checked) Then
'strSQL += ReturnFieldArgument("@PageBreak1", drProposalRec.Item("SALESVPNAME"), True)
'strSQL += ReturnFieldArgument("@PageBreak2", drProposalRec.Item("SALESDIRECTORNAME"), True)
'strSQL += ReturnFieldArgument("@PageBreak3", drProposalRec.Item("producerfullname"), True)
'strSQL += ReturnFieldArgument("@PageBreak4", drProposalRec.Item("CASENAME"), True)
'strSQL += ReturnFieldArgument("@PageBreak1Label", "Regional Vice President:", True)
'strSQL += ReturnFieldArgument("@PageBreak2Label", "Regional Sales Director:", True)
'strSQL += ReturnFieldArgument("@PageBreak3Label", "Producer:", True)
'strSQL += ReturnFieldArgument("@PageBreak4Label", "Case Name:", True)
If (Me.rdoProducer.Checked) Then
strSQL += ReturnFieldArgument("@PageBreak1", drProposalRec.Item("producerfullname"), True)
strSQL += ReturnFieldArgument("@PageBreak4", drProposalRec.Item("CASENAME"), True)
strSQL += ReturnFieldArgument("@PageBreak1Label", "Producer:", True)
strSQL += ReturnFieldArgument("@PageBreak4Label", "Case Name:", True)
ElseIf (Me.rdoCase.Checked) Then
strSQL += ReturnFieldArgument("@PageBreak1", drProposalRec.Item("CASENAME"), True)
strSQL += ReturnFieldArgument("@PageBreak2", drProposalRec.Item("SALESDIRECTORNAME"), True)
strSQL += ReturnFieldArgument("@PageBreak3", drProposalRec.Item("producerfullname"), True)
strSQL += ReturnFieldArgument("@PageBreak1Label", "Case Name:", True)
strSQL += ReturnFieldArgument("@PageBreak2Label", "Regional Sales Director:", True)
strSQL += ReturnFieldArgument("@PageBreak3Label", "Producer:", True)
End If
If (Not (BlankField(strDateSelection))) Then
strSQL += ReturnFieldArgument("@Criteria1", "From " & Request.Form("txtFrom") & " thru " & Request.Form("txtTo"), True)
strSQL += ReturnFieldArgument("@Criteria2", "Based on: " & strDateSelection, True)
End If
If (strStatusSelection <> "NONE") Then
strSQL += ReturnFieldArgument("@Criteria3", "Status Selected: " & strStatusSelection, True)
End If
strSQL += ReturnFieldArgument("@Criteria4", "By All", True)
strSQL += ReturnFieldArgument("@UserID", Session("LoginID"), False)
RunStoredProcedure(strSQL, Application("rptConnection"), Application, Session, Response)
Next
Catch ex As Exception
If (ex.Message = "Collection is read-only.") Then
Else
strErr = Now() & sSpace & ex.Message & sSpace & _
"Has Occurred in " & Replace(Err.Source, "|", vbCrLf) & vbCrLf & "In " & Convert.ToString(Application("AppVirtualDir")) & ":" & _
strMethodName & vbCrLf & ex.StackTrace
SendError(strErr, Application, Session, Response)
strHTMLErr = strErr.Replace(vbCrLf, "<br>")
If (Not (System.Diagnostics.EventLog.SourceExists(Convert.ToString(Application("AppVirtualDir")), "."))) Then
System.Diagnostics.EventLog.CreateEventSource(Convert.ToString(Application("AppVirtualDir")), "Application")
End If
Dim appLog As New System.Diagnostics.EventLog("Application", ".", Convert.ToString(Application("AppVirtualDir")))
appLog.WriteEntry(strErr, System.Diagnostics.EventLogEntryType.Error)
Response.Write(strHTMLErr)
Response.End()
End If
End Try
Session("ReportName") = "ProposalActivityReport.rpt"
Session("ExportName") = "ActivityRpt"
Session("ReportTitle") = "Activity Report"
Session("PrevPage") = "Blank.aspx"
Session("NextPage") = "CRReports-Dynamic.aspx"
Session("spCall") = "spSelectProposalActivityReportTableByID "
bytLoadOpt = 1
End Sub
|
