Hi,
I am facing a problem with report generation.
Problem with logon parameters.
I can gneerate 1 report easily.Unable to get data in to the other report.
Need to generate both reports separately on single click event.
Call genFunction.statistics_PaperWork(txtPWdate.Text, txtPWdate.Text)
rptSource = "\Report\MYSQL-REPORT\DOTS2_DailyPaperWork.rpt"
rsRptDt = sqlHelper.ExecuteDataTable(CommandType.Text, SqlStr)
SetReport(rptSource, rsRptDt)
Call genFunction.Employee_Process_EmpRecap(txtPWdate.Text, "", "")
SqlStr = genFunction.Find_Time_Diff_EmpRecap(txtPWdate.Text, txtPWdate.Text, "")
rptSource = "\Report\MYSQL-REPORT\DOTS2-Employee_Recap.rpt"
rsRptDt = sqlHelper.ExecuteDataTable(CommandType.Text, SqlStr)
SetReport(rptSource, rsRptDt)
End Sub
Private Sub SetReport(ByVal strPath As String, ByVal rptDt As DataTable)
Dim myTable As CrystalDecisions.CrystalReports.Engine.Table
Dim myLogin As CrystalDecisions.Shared.TableLogOnInfo
If strPath = "\Report\MYSQL-REPORT\DOTS2_DailyPaperWork.rpt" Then
objRpt = New ReportDocument
objRpt.Load(Server.MapPath("~/") & strPath)
For Each myTable In objRpt.Database.Tables
myLogin = myTable.LogOnInfo
myLogin.ConnectionInfo.ServerName = ConfigurationManager.AppSettings("Server")
myLogin.ConnectionInfo.DatabaseName = ConfigurationManager.AppSettings("DataBase")
myLogin.ConnectionInfo.Password = ConfigurationManager.AppSettings("Password")
myLogin.ConnectionInfo.UserID = ConfigurationManager.AppSettings("UserID")
myLogin.ConnectionInfo.IntegratedSecurity = "True"
myTable.ApplyLogOnInfo(myLogin)
Next
objRpt.SetDataSource(rptDt)
objRpt.DataDefinition.FormulaFields.Item("rptGenBy").Text = "totext('This report is generated by DOTS2.')"
objRpt.DataDefinition.FormulaFields.Item("rptPrintDate").Text = "'" & "Date : " & Format(Now(), "dd/MM/yyyy") & "'"
objRpt.DataDefinition.FormulaFields.Item("rptPrintedBy").Text = "'" & "Printed By : " & ConnectionInfo.LoggedInUser.UserID & "'"
objRpt.DataDefinition.FormulaFields.Item("rptPrintTime").Text = "'" & "Time : " & Format(Now(), "HH:mm:ss") & "'"
objRpt.DataDefinition.FormulaFields.Item("storeid").Text = "'" & "Store #:" & glob_Storeid & "'"
objRpt.DataDefinition.FormulaFields.Item("reportdate").Text = "'" & "Date : " & Format(Now(), "DD/MM/YYYY") & "'"
objRpt.DataDefinition.FormulaFields.Item("reporttime").Text = "'" & "Time : " & Format(Now(), "HH:MM:SS AM/PM") & "'"
objRpt.DataDefinition.FormulaFields.Item("FromDate").Text = "'" & modGlobal.RetFormatDate(txtPWdate.Text, "dd/MM/yyyy") & "'"
If strenddate <> "" Then
objRpt.DataDefinition.FormulaFields.Item("ToDate").Text = "'" & modGlobal.RetFormatDate(txtPWdate.Text, "dd/MM/yyyy") & "'"
Else
objRpt.DataDefinition.FormulaFields.Item("ToDate").Text = "'" & modGlobal.RetFormatDate(txtPWdate.Text, "dd/MM/yyyy") & "'"
End If
If Glob_Rpt_Final = True Then
objRpt.DataDefinition.FormulaFields.Item("rpttitle").Text = "totext('DAILY PAPERWORK (FINAL)')"
Else
objRpt.DataDefinition.FormulaFields.Item("rpttitle").Text = "totext('DAILY(PaperWork)')"
End If
crptTemplate.ReportSource = objRpt
objRpt.PrintToPrinter(1, True, 0, 0)
End If
If strPath = "\Report\MYSQL-REPORT\DOTS2-Employee_Recap.rpt" Then
objRpt1 = New ReportDocument
objRpt1.Load(Server.MapPath("~/") & strPath)
For Each myTable In objRpt.Database.Tables
myLogin = myTable.LogOnInfo
myLogin.ConnectionInfo.ServerName = ConfigurationManager.AppSettings("Server")
myLogin.ConnectionInfo.DatabaseName = ConfigurationManager.AppSettings("DataBase")
myLogin.ConnectionInfo.Password = ConfigurationManager.AppSettings("Password")
myLogin.ConnectionInfo.UserID = ConfigurationManager.AppSettings("UserID")
myLogin.ConnectionInfo.IntegratedSecurity = "True"
myTable.ApplyLogOnInfo(myLogin)
Next
objRpt1.SetDataSource(rptDt)
objRpt1.DataDefinition.FormulaFields.Item("rptGenBy").Text = "totext('This report is generated by DOTS2.')"
objRpt1.DataDefinition.FormulaFields.Item("rptPrintDate").Text = "'" & "Date : " & Format(Now(), "dd/MM/yyyy") & "'"
objRpt1.DataDefinition.FormulaFields.Item("rptPrintedBy").Text = "'" & "Printed By : " & ConnectionInfo.LoggedInUser.UserID & "'"
objRpt1.DataDefinition.FormulaFields.Item("rptPrintTime").Text = "'" & "Time : " & Format(Now(), "HH:mm:ss") & "'"
objRpt1.DataDefinition.FormulaFields.Item("storeid").Text = "'" & "Code: " & glob_Storeid & "'"
objRpt1.DataDefinition.FormulaFields.Item("FromDate").Text = "'" & modGlobal.RetFormatDate(txtPWdate.Text, "dd/MM/yyyy") & "'"
If strenddate <> "" Then
objRpt1.DataDefinition.FormulaFields.Item("ToDate").Text = "'" & modGlobal.RetFormatDate(txtPWdate.Text, "dd/MM/yyyy") & "'"
Else
objRpt1.DataDefinition.FormulaFields.Item("ToDate").Text = "'" & modGlobal.RetFormatDate(txtPWdate.Text, "dd/MM/yyyy") & "'"
End If
If Glob_Rpt_Final = True Then
objRpt1.DataDefinition.FormulaFields.Item("rpttitle").Text = "totext('EMPLOYEE RECAP (FINAL)')"
Else
objRpt1.DataDefinition.FormulaFields.Item("rpttitle").Text = "totext('EMPLOYEE RECAP')"
End If
crptTemplate.ReportSource = objRpt1
objRpt1.PrintToPrinter(1, True, 0, 0)
End If
End Sub