Adding a Report to the webpage

First of all there has to be crystal report behind the scene with a Store procedure working on its back. Now to dynamically provide Paramater values to the cystal report here is the code to be followed

documentReport = New ReportDocument()
reportPath = Server.MapPath("MonthlySalesReportCustomerwise.rpt")
documentReport.Load(reportPath)
Dim dtDocument As Data.DataTable
dtDocument = Report.GetSales_CustomerWise(Common.GetDBDate(tbxFrom.Text), Common.GetDBDate(tbxTo.Text), ddlCustomerType.SelectedValue)
documentReport.Database.Tables(0).SetDataSource(dtDocument)

'Get the collection of parameters from the report
Dim crParameterFieldDefinitions1 As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinitions
crParameterFieldDefinitions1 = documentReport.DataDefinition.ParameterFields
Dim crParameterFieldDefinitions2 As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinitions
crParameterFieldDefinitions2 = documentReport.DataDefinition.ParameterFields
Dim crParameterFieldDefinitions3 As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinitions
crParameterFieldDefinitions3 = documentReport.DataDefinition.ParameterFields


'Access the specified parameter from the collection

Dim crParameter1 As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinition
crParameter1 = crParameterFieldDefinitions1.Item("@FromDate")
Dim crParameter2 As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinition
crParameter2 = crParameterFieldDefinitions2.Item("@ToDate")
Dim crParameter3 As CrystalDecisions.CrystalReports.Engine.ParameterFieldDefinition
crParameter3 = crParameterFieldDefinitions3.Item("@CustomerTypeID")


Dim crParameter1Values As CrystalDecisions.Shared.ParameterValues
crParameter1Values = crParameter1.CurrentValues
Dim crParameter2Values As CrystalDecisions.Shared.ParameterValues
crParameter2Values = crParameter2.CurrentValues
Dim crParameter3Values As CrystalDecisions.Shared.ParameterValues
crParameter3Values = crParameter3.CurrentValues

''Set the current values for the parameter field
Dim crDiscrete1Value As ParameterDiscreteValue = New ParameterDiscreteValue
crDiscrete1Value.Value = Common.GetDBDate(tbxTo.Text)
Dim crDiscrete2Value As ParameterDiscreteValue = New ParameterDiscreteValue
crDiscrete2Value.Value = Common.GetDBDate(tbxFrom.Text)
Dim crDiscrete3Value As ParameterDiscreteValue = New ParameterDiscreteValue
crDiscrete3Value.Value = ddlCustomerType.SelectedValue

''Add the first current value for the parameter field
crParameter1Values.Add(crDiscrete1Value)
crParameter2Values.Add(crDiscrete2Value)
crParameter3Values.Add(crDiscrete3Value)

crParameter1.ApplyCurrentValues(crParameter1Values)
crParameter2.ApplyCurrentValues(crParameter2Values)
crParameter3.ApplyCurrentValues(crParameter3Values)
DocumentViewer.ReportSource = documentReport

Comments

Post a Comment

Popular posts from this blog

SPFx: Develop using SharePoint Framework without Installing all the dependecies.

Image
SharePoint Framework (SPFx) has been around for more than 5 years now with being Generally available since Feb 2017.  In the recent times, its been possible to develop webparts for SharePoint on-prem as well using SPFx and with that it is getting harder to maintain multiple versions of required toolchains. e.g. Node. For M365 you can use the latest version of SPFx but probably you know, if you aim to develop webparts for the SharePoint Server 2016 platform, for instance, you need to use the SharePoint Framework v1.1.0 due to the server-side version dependencies. So yet another challenge is using the correct version of the SPFx and Nodejs for the particular project . Although I personally used to like Node Version Manager which lets you manage multiple installations of node.js on a Windows computer but still one needs to isolate SharePoint Framework dependencies if you are targeting multiple platform from on PC. 2nd Problematic scenario begins when you start developing SPFx extensi...
Read more

SharePoint Online: Elevated Permissions....with love

Image
Remember the good old days! when using RunWithElevatedPrivileges(SPSecurity.CodeToRunElevated), in the SharePoint server-side object model, would let us run our code (Full trust code) with full control i.e. granting us higher permission (as System Account) and letting us performs tasks that waren't permited to do in current user context.  Now, that, we have SharePoint addin and SharePoint online webparts, one still wonders if there is still a way of achieving that. Since there are use cases where a user needs a higher permission, for instance.  Changing a status of a field in a list where the current logged in user has read only permission.  Reading member of a SharePoint group.  In Workflows  like SharePoint Designer workflow you used to have App step, in Nintex workflow you have elevated permission and in MS Flow Impersonation is possible using connectors in Flow triggered by HTTP request can run under System account as show in the video below:  Other wa...
Read more

Powershell: Filling up an Existing Excel Sheet with data from SQL Server

Situation: The client required to have data from their SQL Server 2012 Database filled in to an existing Excel Sheet. This sheet had a table with around 40 columns of which 12 where to be filled by us and rest from different departments. I tried different solution for that since the requirements were not initially clear. Forexample OPENROWSET was tried. In this regards this link really helpful. Although this requires few configuration to be made on the server or to install e.g. ACE.OLEDB driver on server which was not possible in our case. So we decided to write a Powershell script and access SQL Now about the script: Take the file TestExcel.xlsx from C:\Temp folder Create its copy with the current date appended to its name.  Start reading the Excel file from Sheet "Specified Sheet Name" From Columns 1, it will take the name of the system.  Based on the name fill the excel sheet by executing the queries, here are the columns that are going to ...
Read more