on 01-17-2011 7:50 AM
Hello Experts !!!!!
I have created a User Defined Form through SDK. I have created a Crystal Report also for that Form. Now on the click of Preview Menu of SBO I want to open my Crystal report. For this I have called the following function in Menu Event.....
Private Function LoadCrViewer(ByVal crxReport As CRAXDDRT.Report) As Boolean
Dim SBOFormCreationParams As SAPbouiCOM.FormCreationParams
Dim SBOCRViewer As SAPbouiCOM.ActiveX
Dim SBOForm As SAPbouiCOM.Form
Dim SBOItem As SAPbouiCOM.Item
Dim strFormCount As String
SBOFormCreationParams = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_FormCreationParams)
SBOFormCreationParams.BorderStyle = SAPbouiCOM.BoFormBorderStyle.fbs_Sizable
SBOFormCreationParams.FormType = "XX_INCRPT01"
strFormCount = SBO_Application.Forms.Count.ToString
SBOFormCreationParams.UniqueID = "XX_INCRPT01" & strFormCount.PadLeft(3, "0")
'Add new form
SBOForm = SBO_Application.Forms.AddEx(SBOFormCreationParams)
SBOForm.Left = 0
SBOForm.Top = 0
SBOForm.Width = SBO_Application.Desktop.Width
SBOForm.Height = SBO_Application.Desktop.Height
SBOForm.Title = "inCentea - Mapas"
'Add CRViewer item
SBOItem = SBOForm.Items.Add("XX_CR01", SAPbouiCOM.BoFormItemTypes.it_ACTIVE_X)
SBOItem.Left = 0
SBOItem.Top = 0
SBOItem.Width = SBOForm.ClientWidth
SBOItem.Height = SBOForm.ClientHeight
' Create the new activeX control
SBOCRViewer = SBOItem.Specific
SBOCRViewer.ClassID = "CrystalReports13.ActiveXReportViewer.1"
Dim SBOCRViewerOBJ
SBOCRViewerOBJ = SBOCRViewer.Object
SBOCRViewerOBJ.EnablePrintButton = False
Dim MyProcs() As Process
Dim i, ID As Integer
Dim a As System.IntPtr
'Try Send the handle of SAP window
SBO_Application.Desktop.Title = "SBO under " + SBO_Application.Company.UserName
MyProcs = Process.GetProcessesByName("SAP Business One")
For i = 0 To MyProcs.Length - 1
If MyProcs(i).MainWindowTitle = SBO_Application.Desktop.Title Then
ID = MyProcs(i).Id()
a = MyProcs(i).MainWindowHandle
crxReport.SetDialogParentWindow(a.ToInt32)
'crxReport.PrinterSetup(a.ToInt32)
'crxReport.PrintOut(False)
End If
Next
SBOCRViewerOBJ.ViewReport()
SBOForm.Visible = True
Return True
End Function
But this Code is throwing an exception "No report to view." on the statement "SBOCRViewerOBJ.ViewReport()"
Please let me know where is the problem? And if possible then please rectify the Code.
hello,
I have same issue as yours,
If you have found the solution for the same, please post the solution here, so that we can refer to it.
Thanks in advance for your help.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
| User | Count |
|---|---|
| 2 | |
| 2 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.