rendered paste body Dim crBalanceRegister As New Reports.BalanceRegisterRpt
RCLibrary.SetReportServerConnection(crBalanceRegister)
crBalanceRegister.RecordSelectionFormula() = sReportSQL
crBalanceRegister.SetParameterValue("Selection", sSelection)
crBalanceRegister.SetParameterValue("CompanyName", RCCentral.Get_Value("Name"))
crBalanceRegister.SetParameterValue("ShowDetail", sShowDetail)
crBalanceRegister.SetParameterValue("ShowCourseSum", sCourse)
crBalanceRegister.SetParameterValue("ShowMembershipSum", sMembership)
crBalanceRegister.SetParameterValue("ShowMerchandiseSum", sMerch)
crBalanceRegister.SetParameterValue("ShowFacilityRentalSum", sFacility)
crBalanceRegister.SetParameterValue("ShowRevenueAcctSum", sRevenueAcct)
If Me.RegisteredRadioGroup.SelectedIndex = 0 Then
SetSubReportParameter(crBalanceRegister, "@Online", Nothing)
ElseIf Me.RegisteredRadioGroup.SelectedIndex = 1 Then
SetSubReportParameter(crBalanceRegister, "@Online", False)
crBalanceRegister.Subreports("RevenueAcctSummary").SetParameterValue("@Online", False)
Else
SetSubReportParameter(crBalanceRegister, "@Online", False)
End If
SetSubReportParameter(crBalanceRegister, "@Registrar", Me.UsernameLookupEdit.EditValue)
SetSubReportParameter(crBalanceRegister, "@HeadOfHouse", Me.CustomerLookupCustomers.EditValue)
SetSubReportParameter(crBalanceRegister, "@FromDate", Me.FromDate.EditValue)
SetSubReportParameter(crBalanceRegister, "@ThruDate", Me.ThruDate.EditValue)
Select Case iDestination
Case 0
Dim preview As New PrintPreview
preview.CrystalReportViewer1.ReportSource = crBalanceRegister
preview.MdiParent = My.Forms.MainMDI
preview.Show()
Case 1
RCLibrary.EmailReport(crBalanceRegister, "BalanceRegister", "Balance Register")
Case 2
RCPrint.LoadPrintSetup(crBalanceRegister, "BalanceRegister")
crBalanceRegister.PrintToPrinter(1, True, 0, 0)
RCLibrary.CleanCrystal(crBalanceRegister)
crBalanceRegister.Close()
crBalanceRegister.Dispose()
End Select