I have created a report for the user form and saved.How to load the report through coding for the user form.For CR2008,it is adding a default folder(CrystalReports) for all the module.How to bring this default folder to my addon.
Public Sub DisplayReport()
Dim objRep As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim dstemp, dstemp2 As DataSet
dstemp = dsReportData
dstemp2 = dsReportData
objRep.Load(System.Windows.Forms.Application.StartupPath & "\CrystalReports\rptDocumentProdTypeB.rpt")
Dim frmRepDisp As New frmReportDisplay ' This is the windows form added to my code.
frmRepDisp.WindowState = FormWindowState.Maximized
objRep.SetDataSource(dsReportData) 'I'm passing the data to my report in the form of a data source.
frmRepDisp.CrystalReportViewer1.ReportSource = objRep 'Here i am setting the report for the report viewer control in the Windows form.
frmRepDisp.CrystalReportViewer1.Refresh()
frmRepDisp.ShowDialog()
dsReportData.Clear()
End Sub
In the above case as i have many reports to display i am sending the path of the report file u can do it without that also.
And i call the above prcedure in the Item pressed event after loadng my dataset with data.
Case SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED
If pVal.ItemUID = "11" Then
LoadDatatoReport(aForm) 'Fill the data in the data sets.
DisplayReport() 'Display the report.
End If
While using showdialog i can't able to access other forms.Is there any alternate solution for this?I u use show() the report content will not be displayed.
I've got my reporting system up and running, but I'm not using DataSets or XSD files.
I created a Windows form with a CrystalReportViewer control, and in run time I just have to set the report filename, the title and formulas (if any).
My question is, do you think I'll stomp into any limitation with this approach?
I'm using the following code:
Public Class ADAT_Crystal
Private DBUserid As String = "sa"
Private DBPassword As String = "XXYYZZ"
Private rptPath As String = ""
Private rptConnectionInfo As ConnectionInfo
Private rptDocument As ReportDocument
Private rptCrystalForm As CrystalForm
Private SelectionString As String = ""
Public Function LoadCrystal(ByRef oCompany As SAPbobsCOM.Company, ByRef oApplication As SAPbouiCOM.Application, _
ByRef Titulo As String, ByRef ReportName As String, ByRef Parametros As String, ByRef Formulas As String) As Boolean
LoadCrystal = False
Try
rptPath = sPath & "reports" & ReportName
SelectionString = Formulas
SetDBConnection(oApplication, oCompany)
SetReportDocument(oApplication)
SetDBLogonForReport(oApplication)
SetCrystalForm(oApplication, Titulo)
LoadCrystal = True
Catch ex As Exception
End Try
End Function
Private Sub SetDBConnection(ByRef oApplication As SAPbouiCOM.Application, ByRef oCompany As SAPbobsCOM.Company)
Try
rptConnectionInfo = New ConnectionInfo()
rptConnectionInfo.DatabaseName = oCompany.CompanyDB
rptConnectionInfo.UserID = DBUserid ' GetDBUserdID()
rptConnectionInfo.Password = DBPassword ' GetDBUserPassword()
rptConnectionInfo.ServerName = oCompany.Server
Catch ex As Exception
oApplication.StatusBar.SetText(TranslateStr(oApplication, Error_) & ex.Message)
End Try
End Sub
Private Sub SetReportDocument(ByRef oApplication As SAPbouiCOM.Application)
Try
rptDocument = New ReportDocument
rptDocument.Load(rptPath)
rptDocument.DataDefinition.RecordSelectionFormula = SelectionString
Catch ex As Exception
oApplication.StatusBar.SetText(TranslateStr(oApplication, Error_) & ex.Message)
End Try
End Sub
Private Sub SetDBLogonForReport(ByRef oApplication As SAPbouiCOM.Application)
Try
Dim myTables As Tables = rptDocument.Database.Tables
For Each myTable As Table In myTables
Dim myTableLogonInfo As TableLogOnInfo = myTable.LogOnInfo
myTableLogonInfo.ConnectionInfo = rptConnectionInfo
myTable.ApplyLogOnInfo(myTableLogonInfo)
Next
Catch ex As Exception
oApplication.StatusBar.SetText(TranslateStr(oApplication, Error_) & ex.Message)
End Try
End Sub
Private Sub SetCrystalForm(ByRef oApplication As SAPbouiCOM.Application, ByRef Titulo As String)
Try
rptCrystalForm = New CrystalForm()
rptCrystalForm.Text = Titulo
rptCrystalForm.oCrystalReportViewer.ReportSource = rptDocument
rptCrystalForm.oCrystalReportViewer.Refresh()
rptCrystalForm.ShowDialog()
Catch ex As Exception
oApplication.StatusBar.SetText(TranslateStr(oApplication, Error_) & ex.Message)
End Try
End Sub
Handling the PrintPreview click
Case "519"
Dim SelectionString As String = "{ONP.DocNum} = " & Trim(oForm.Items.Item("DocNum").Specific.Value) & ""
Dim oCrystal As New ADAT_Crystal
oCrystal.LoadCrystal(oCompany, oApplication, "Nota de Produção", "rptNotaProd.rpt", "", SelectionString)
Return False
If u have opened a new thread i could have got some points but anyways.... i'll share..
The problem with the above approach is that we need to have the Physical .RPT file at the system in the default folder. So if we miss the file we get a file not found error.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.