Private Sub ShowReport()
Dim stackTrace As New StackTrace(New StackFrame(True))
Dim methodBase As MethodBase = stackTrace.GetFrame(0).GetMethod
Dim strlogerror As String = ""
Try
Dim dtMain As DataTable = Nothing
Dim strSortBy As String = SortOrder
Dim intTsp_id As Integer = TSPId
Dim myReport As IFacilityCriteria = Nothing
FormReportFromFolderInfoObject(myReport, FolderId)
If IsNothing(myReport) = False Then
'CONSTRUCTING "where clause" USING THE QUERYSTRING PARAMETERS
Dim strExtraWC As String = ClsRptParameters.ConstructQueryString(myCollection, FolderName)
Dim dsMain As DataSet = Nothing
Dim fServer As New ImplFilterServer
If (SortOrder = "Default") Then
strSortBy = "Companyname"
End If
Dim dtstartdate As Date = FormatDateTime(StartDate, DateFormat.ShortDate)
Dim dtendate As Date = FormatDateTime(EndDate, DateFormat.ShortDate)
Dim intTimeZoneVal As Integer = TimeZoneValue
dsMain = fServer.GetDataFromFolderCriteria(myReport, GetLoggedInUser, myAppTitle, strExtraWC, dtstartdate, dtendate, intTimeZoneVal, strSortBy, TSPId)
'dsMain.Tables.Count > 0
If dsMain.Tables(0).Rows.Count > 0 Then
'Dim strSortBy As String = GroupBy & " " & SortOrder
'Dim dvReport As New DataView(dsMain.Tables(0), "", strSortBy, DataViewRowState.OriginalRows)
Dim dvReport As New DataView(dsMain.Tables(0), "", "", DataViewRowState.OriginalRows)
Dim dsReportMRT As New DataSet
dsReportMRT.Tables.Add(dvReport.ToTable)
'lblReoordCount.Text = "Total " & dvReport.ToTable.Rows.Count & " Record/s. "
LoadReport(dsReportMRT)
'End If
Else
Response.Redirect("NoRecord.aspx")
End If
End If
Catch ex As Exception
Dim strClass As String = stackTrace.GetFrame(0).GetFileName.ToString
LogError(strClass, methodBase.Name, "", ex, LogType.ERROR)
End Try
End Sub
===================================================
Private Sub LoadReport(ByVal dsReport As DataSet)
Dim stackTrace As New StackTrace(New StackFrame(True))
Dim methodBase As MethodBase = stackTrace.GetFrame(0).GetMethod
Dim strlogerror As String = ""
Try
Dim strPrintFilePath As String = ""
Dim strGrpBy As String = GroupBy
Dim MyReportModule As enumReportModules
Dim startdtforlog As String = "LoadReport Details Local: Start Date: " & Convert.ToString(Date.Now)
Dim enddatebeforeloadingpath As String = ""
Dim enddateafterloadingreport As String = ""
strlogerror = strlogerror & startdtforlog
Select Case AppModuleId
Case 1
Select Case strGrpBy
Case "None"
MyReportModule = enumReportModules.LineCount
Case "Companyname"
MyReportModule = enumReportModules.LineCountComp
Case "Departmentname"
MyReportModule = enumReportModules.LineCountDept
Case "Username"
MyReportModule = enumReportModules.LineCountDoctor
End Select
'Case 2
' MyReportModule = enumReportModules.ActualLineCount
Case 5
MyReportModule = enumReportModules.ActualLineCountDS
Case 6
MyReportModule = enumReportModules.ActualLineCountTSPName
Case 7
MyReportModule = enumReportModules.ActualLineCountSummary
Case 8
Select Case strGrpBy
'Case "None"
' MyReportModule = enumReportModules.ACL
Case "DSName"
MyReportModule = enumReportModules.ACLDS
Case "TSPName"
MyReportModule = enumReportModules.ACLTSP
'Case "GroupName"
' MyReportModule = enumReportModules.ACLGrp
End Select
End Select
strPrintFilePath = GetPrintFilePath(MyReportModule, strGrpBy)
Dim ssoftRpt As New Stimulsoft.Report.StiReport
ssoftRpt.Load(Server.MapPath(strPrintFilePath))
ssoftRpt.RegData("MyTable", dsReport)
ssoftRpt.Compile()
ssoftRpt("DateRangeFilter") = "Date Range: " & StartDate & " - " & EndDate
'ssoftRpt.Dictionary.Variables("DateRangeFilter").Value = "Date Range: " & StartDate & " - " & EndDate
ssoftRpt.Render(False)
svwrReport.Report = ssoftRpt
'ssoftRpt.Dictionary.DataStore.ClearReportDatabase()
'ssoftRpt.CompiledReport.DataStore.ClearReportDatabase()
Dim strClass As String = stackTrace.GetFrame(0).GetFileName.ToString
Catch ex As Exception
Dim strClass As String = stackTrace.GetFrame(0).GetFileName.ToString
LogError(strClass, methodBase.Name, "", ex, LogType.ERROR)
End Try
End Sub
![Image]()