Keep getting prompted for Parameter Entry.

    Public Function AccessGASR(ByVal strUserID As String, _
                               ByVal intGroupID As Integer, _
                               ByVal strInputType As String, _
                               ByVal strReportPath As String)
        Try
            rptErr.clsModule = "GroupActivitySummaryReportDLL"
 
            Dim crDoc As New rptGroupActivitySummary
 
            With crConnectionInfo
                .ServerName = "HERCULES"
                .DatabaseName = "Drip"
                .IntegratedSecurity = True
            End With
 
            If strInputType = "O" Then
                PrintGASR(crDoc, strUserID, intGroupID)
            ElseIf strInputType = "B" Then
                CreatePDFReport(crDoc)
            End If
 
        Catch ex As Exception
            rptErr.clsProcedure = "AccessGASR()"
            rptErr.clsMsg = ex.Message
            rptErr.WriteToTextFile(ErrorDirectory, "DRIP-ErrorLog.txt")
        End Try
    End Function
    '
    '
    '
    Public Sub PrintGASR(ByVal rptDoc As rptGroupActivitySummary, _
                         ByRef strUserID As String, _
                         ByRef intGroupID As Integer)
        Try
            Dim frmReport As New frmReport
 
            frmReport.WindowState = Windows.Forms.FormWindowState.Maximized
 
            For Each subReport As ReportDocument In rptDoc.Subreports
                rptDoc.SetParameterValue("@userID", strUserID)
                rptDoc.SetParameterValue("@groupID", intGroupID)
            Next subReport
 
            frmReport.crViewer.ReportSource = rptDoc
            frmReport.crViewer.DisplayGroupTree = False
            frmReport.ShowDialog()
 
        Catch ex As Exception
            rptErr.clsProcedure = "PrintGASR()"
            rptErr.clsMsg = ex.Message
            rptErr.WriteToTextFile(ErrorDirectory, "DRIP-ErrorLog.txt")
        End Try
    End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

    Public Function AccessGASR(ByVal strUserID As String, _
                               ByVal intGroupID As Integer, _
                               ByVal strInputType As String, _
                               ByVal strReportPath As String)
        Try
            rptErr.clsModule = "GroupActivitySummaryReportDLL"
            Cursor.Current = Cursors.WaitCursor
 
            Dim crDoc As New rptGroupActivitySummary
 
            With crConnectionInfo
                .ServerName = "HERCULES"
                .DatabaseName = "Drip"
                .IntegratedSecurity = True
            End With
 
            If strInputType = "O" Then
                PrintGASR(crDoc, strUserID, intGroupID)
            ElseIf strInputType = "B" Then
                CreatePDFReport(crDoc)
            End If
 
            Cursor.Current = Cursors.Arrow
 
        Catch ex As Exception
            rptErr.clsProcedure = "AccessGASR()"
            rptErr.clsMsg = ex.Message
            rptErr.WriteToTextFile(ErrorDirectory, "DRIP-ErrorLog.txt")
        End Try
    End Function
    '
    '
    '
    Private Sub CreatePDFReport(ByRef rptObj As ReportDocument)
        Try
            Dim crDOC As New ReportDocument
            Dim strGASRReport As String = ""
            Dim strReportDate As String = ""
            Dim diskOpts As DiskFileDestinationOptions = ExportOptions.CreateDiskFileDestinationOptions()
            Dim exportOpts As ExportOptions = New ExportOptions()
            Dim yr As String = ""
 
            crDOC = rptObj
 
            yr = Mid(Year(Now.Date), 3, 2)
 
            strReportDate = ""
            strReportDate = Month(Now.Date).ToString.PadLeft(2, "0") & _
                            Microsoft.VisualBasic.DateAndTime.Day(Now.Date).ToString.PadLeft(2, "0") & _
                            yr & _
                            Hour(Now) & _
                            Minute(Now) & _
                            Second(Now)
 
            exportOpts.ExportFormatType = ExportFormatType.PortableDocFormat
            exportOpts.ExportDestinationType = ExportDestinationType.DiskFile
 
            strGASRReport = ""
            strGASRReport &= "GASR_" & strReportDate & ".PDF"
            strReportDestination = strReportDirectory & strGASRReport
 
            diskOpts.DiskFileName = strReportDestination
            exportOpts.ExportDestinationOptions = diskOpts
            crDOC.Export(exportOpts) 'Exporting report to a PDF format
 
            crDOC = Nothing
 
        Catch ex As Exception
            rptErr.clsProcedure = "CreatePDFReport()"
            rptErr.clsMsg = ex.Message
            rptErr.WriteToTextFile(ErrorDirectory, "DRIP-ErrorLog.txt")
        End Try
    End Sub
    '
    '
    '
    Public Sub PrintGASR(ByVal rptDoc As rptGroupActivitySummary, _
                         ByRef strUserID As String, _
                         ByRef intGroupID As Integer)
        Try
            Dim frmReport As New frmReport
 
            frmReport.WindowState = Windows.Forms.FormWindowState.Maximized
 
            For Each subReport As ReportDocument In rptDoc.Subreports
                rptDoc.SetParameterValue("@userID", strUserID)
                rptdoc.SetParameterValue("@groupID", intGroupID)
            Next subReport
 
            frmReport.crViewer.ReportSource = rptDoc
            frmReport.crViewer.DisplayGroupTree = False
            frmReport.ShowDialog()
 
        Catch ex As Exception
            rptErr.clsProcedure = "PrintGASR()"
            rptErr.clsMsg = ex.Message
            rptErr.WriteToTextFile(ErrorDirectory, "DRIP-ErrorLog.txt")
        End Try
    End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:

Imports System.Windows.Forms
Imports System.Data.SqlClient
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
 
Public Class clsGASR
    Private daIRStatus As SqlDataAdapter
    Private daOver3Days As SqlDataAdapter
    Private daTotalByAssignees As SqlDataAdapter
 
    Private dsIRStatus As New DataSet
    Private dsOver3Days As New DataSet
    Private dsTotalByAssignees As New DataSet
 
    Private resp As Exception
    Private crConnectionInfo As New ConnectionInfo
    Private rptErr As New ErrorHandler.clsErrorHandler
 
    Private strReportDestination As String = ""
 
    Public Function AccessGASR(ByVal cn As SqlConnection, _
                               ByVal strUserID As String, _
                               ByVal intGroupID As Integer, _
                               ByVal strInputType As String, _
                               ByVal strReportPath As String) As Exception
        Try
            rptErr.clsModule = "GroupActivitySummaryReportDLL"
            Cursor.Current = Cursors.WaitCursor
 
            LoadIRStatusSubReportCommands(cn, strUserID, intGroupID)
            LoadOver3DaysSubReportCommands(cn, strUserID, intGroupID)
            LoadTotalByAssigneesSubReportCommands(cn, strUserID, intGroupID)
 
            Dim crDoc As New rptGroupActivitySummary
 
            With crConnectionInfo
                .ServerName = "HERCULES"
                .DatabaseName = "Drip"
                .IntegratedSecurity = True
            End With
 
            If strInputType = "O" Then
                PrintGASR(crDoc, strUserID, intGroupID)
            ElseIf strInputType = "B" Then
                CreatePDFReport(crDoc)
            End If
 
            Cursor.Current = Cursors.Arrow
 
        Catch ex As Exception
            rptErr.clsProcedure = "AccessGASR()"
            rptErr.clsMsg = ex.Message
            rptErr.WriteToTextFile(ErrorDirectory, "DRIP-ErrorLog.txt")
        End Try
    End Function
    '
    '
    '
    Private Sub CreatePDFReport(ByRef rptObj As ReportDocument)
        Try
            Dim crDOC As New ReportDocument
            Dim strGASRReport As String = ""
            Dim strReportDate As String = ""
            Dim diskOpts As DiskFileDestinationOptions = ExportOptions.CreateDiskFileDestinationOptions()
            Dim exportOpts As ExportOptions = New ExportOptions()
            Dim yr As String = ""
 
            crDOC = rptObj
 
            yr = Mid(Year(Now.Date), 3, 2)
 
            strReportDate = ""
            strReportDate = Month(Now.Date).ToString.PadLeft(2, "0") & _
                            Microsoft.VisualBasic.DateAndTime.Day(Now.Date).ToString.PadLeft(2, "0") & _
                            yr & _
                            Hour(Now) & _
                            Minute(Now) & _
                            Second(Now)
 
            exportOpts.ExportFormatType = ExportFormatType.PortableDocFormat
            exportOpts.ExportDestinationType = ExportDestinationType.DiskFile
 
            strGASRReport = ""
            strGASRReport &= "GASR_" & strReportDate & ".PDF"
            strReportDestination = strReportDirectory & strGASRReport
 
            diskOpts.DiskFileName = strReportDestination
            exportOpts.ExportDestinationOptions = diskOpts
            crDOC.Export(exportOpts) 'Exporting report to a PDF format
 
            crDOC = Nothing
 
        Catch ex As Exception
            rptErr.clsProcedure = "CreatePDFReport()"
            rptErr.clsMsg = ex.Message
            rptErr.WriteToTextFile(ErrorDirectory, "DRIP-ErrorLog.txt")
        End Try
    End Sub
    '
    '
    '
    Public Sub PrintGASR(ByVal rptDoc As rptGroupActivitySummary, _
                         ByRef strUserID As String, _
                         ByRef intGroupID As Integer)
        Try
            Dim frmReport As New frmReport
 
            frmReport.WindowState = Windows.Forms.FormWindowState.Maximized
 
            For Each subReport As ReportDocument In rptDoc.Subreports
                If subReport.Name = "IRStatus" Then
                    subReport.SetDataSource(dsIRStatus)
                ElseIf subReport.Name = "Over3Days" Then
                    subReport.SetDataSource(dsOver3Days)
                ElseIf subReport.Name = "TotalByAssignees" Then
                    subReport.SetDataSource(dsTotalByAssignees)
                End If
            Next subReport
 
            frmReport.crViewer.ReportSource = rptDoc
            frmReport.crViewer.DisplayGroupTree = False
            frmReport.ShowDialog()
 
        Catch ex As Exception
            rptErr.clsProcedure = "PrintGASR()"
            rptErr.clsMsg = ex.Message
            rptErr.WriteToTextFile(ErrorDirectory, "DRIP-ErrorLog.txt")
        End Try
    End Sub
    '
    '
    '
    Private Function LoadIRStatusSubReportCommands(ByRef cn As SqlConnection, _
                                                   ByRef strUserID As String, _
                                                   ByRef intGroupID As Integer) As Exception
        Try
            'SELECT SQL Command
            Dim cmdSelect As New SqlCommand("prcSelectGASR", cn)
            cmdSelect.CommandType = CommandType.StoredProcedure
 
            cmdSelect.Parameters.Add(New SqlParameter("@userID", SqlDbType.VarChar, 25, "userID"))
            cmdSelect.Parameters.Add(New SqlParameter("@groupID", SqlDbType.Int, 0, "groupID"))
 
            cmdSelect.Parameters("@userID").Value = strUserID
            cmdSelect.Parameters("@groupID").Value = intGroupID
 
            daIRStatus = New SqlDataAdapter(cmdSelect)
            daIRStatus.SelectCommand = cmdSelect
            dsIRStatus.Clear()
            daIRStatus.Fill(dsIRStatus)
 
            Return Nothing
 
        Catch ex As Exception
            rptErr.clsProcedure = "LoadIRStatusSubReportCommands()"
            rptErr.clsMsg = ex.Message
            rptErr.WriteToTextFile(ErrorDirectory, "DRIP-ErrorLog.txt")
        End Try
    End Function
    '
    '
    '
    Private Function LoadOver3DaysSubReportCommands(ByRef cn As SqlConnection, _
                                                    ByRef strUserID As String, _
                                                    ByRef intGroupID As Integer) As Exception
        Try
            'SELECT SQL Command
            Dim cmdSelect As New SqlCommand("prcSelectGASR_NoActivity", cn)
            cmdSelect.CommandType = CommandType.StoredProcedure
 
            cmdSelect.Parameters.Add(New SqlParameter("@userID", SqlDbType.VarChar, 25, "userID"))
            cmdSelect.Parameters.Add(New SqlParameter("@groupID", SqlDbType.Int, 0, "groupID"))
 
            cmdSelect.Parameters("@userID").Value = strUserID
            cmdSelect.Parameters("@groupID").Value = intGroupID
 
            daOver3Days = New SqlDataAdapter(cmdSelect)
            daOver3Days.SelectCommand = cmdSelect
            dsOver3Days.Clear()
            daOver3Days.Fill(dsOver3Days)
 
            Return Nothing
 
        Catch ex As Exception
            rptErr.clsProcedure = "LoadOver3DaysSubReportCommands()"
            rptErr.clsMsg = ex.Message
            rptErr.WriteToTextFile(ErrorDirectory, "DRIP-ErrorLog.txt")
        End Try
    End Function
    '
    '
    '
    Private Function LoadTotalByAssigneesSubReportCommands(ByRef cn As SqlConnection, _
                                                           ByRef strUserID As String, _
                                                           ByRef intGroupID As Integer) As Exception
        Try
            'SELECT SQL Command
            Dim cmdSelect As New SqlCommand("prcSelectGASR_TotalByAssignees", cn)
            cmdSelect.CommandType = CommandType.StoredProcedure
 
            cmdSelect.Parameters.Add(New SqlParameter("@userID", SqlDbType.VarChar, 25, "userID"))
            cmdSelect.Parameters.Add(New SqlParameter("@groupID", SqlDbType.Int, 0, "groupID"))
 
            cmdSelect.Parameters("@userID").Value = strUserID
            cmdSelect.Parameters("@groupID").Value = intGroupID
 
            daTotalByAssignees = New SqlDataAdapter(cmdSelect)
            daTotalByAssignees.SelectCommand = cmdSelect
            dsTotalByAssignees.Clear()
            daTotalByAssignees.Fill(dsTotalByAssignees)
 
            Return Nothing
 
        Catch ex As Exception
            rptErr.clsProcedure = "LoadTotalByAssigneesSubReportCommands()"
            rptErr.clsMsg = ex.Message
            rptErr.WriteToTextFile(ErrorDirectory, "DRIP-ErrorLog.txt")
        End Try
    End Function
End Class

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220: