How Can I create a SAP form that contains activeX report viewer?

Question

I'm trying to create a SAP form that contains a ActiveX control to view a Crystal Report. Can anyone Help?
Thanks,
Ezequiel.

Answer 1

Thanks Ludek, I use this a sub to create a report document and report viewer in sap bussines one form.
Running this code shows the sap business one form with the report viewer but then closes SAP Business One Application.
which may be the problem?.
Private Sub CreateFormWithActiveX()
    Dim CP As SAPbouiCOM.FormCreationParams
    Dim fTree As SAPbouiCOM.Form
    Dim AcXTree As SAPbouiCOM.ActiveX
    Dim oItem As SAPbouiCOM.Item
    Dim CRapp As CRAXDDRT.Application
    Dim CRRep As CRAXDDRT.Report
    'Dim CRepDoc as
    ' Set the form creation parameters
    CP = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_FormCreationParams)
    CP.BorderStyle = SAPbouiCOM.BoFormBorderStyle.fbs_Sizable
    CP.FormType = "ACXTree"
    CP.UniqueID = "ACTree1"
    fTree = SBO_Application.Forms.AddEx(CP)
    fTree.Left = 10
    fTree.Top = 10
    fTree.Width = 800
    fTree.Height = 600
    fTree.Title = "Crystal Report Viewer - Argentis"
    fTree.AutoManaged = True
    ' Add the TreeView Control to the form
    oItem = fTree.Items.Add("Tree", SAPbouiCOM.BoFormItemTypes.it_ACTIVE_X)
    oItem.Left = 1
    oItem.Top = 1
    oItem.Width = 800
    oItem.Height = 600
    ' Create the new activeX control
    AcXTree = oItem.Specific
    CRapp = New CRAXDDRT.Application
    CRRep = CRapp.OpenReport("C:\Projects\Crystal Report ActiveX Viewer\Crystal\Indumetaria\Reportes\ARInvoiceMatrix_portrait.rpt", 1)
    'CRRep.RecordSelectionFormula = "{OINV.DocEntry} = {?doc_num}"
    For i As Integer = 1 To CRRep.Database.Tables.Count
      Dim ConnectionInfo As CRAXDDRT.ConnectionProperties
      ConnectionInfo = CRRep.Database.Tables(i).ConnectionProperties
      ConnectionInfo.Delete("Integrated Security")
      ConnectionInfo.Delete("Provider")
      ConnectionInfo.Delete("Data Source")
      ConnectionInfo.Delete("Initial Catalog")
      ConnectionInfo.Delete("User ID")
      ConnectionInfo.Delete("Password")
      ConnectionInfo.Add("Provider", "SQLOLEDB")
      ConnectionInfo.Add("Data Source", "Ezequiel")
      ConnectionInfo.Add("Initial Catalog", "SITKA")
      ConnectionInfo.Add("Integrated Security", 0)
      ConnectionInfo.Add("User ID", "sa")
      ConnectionInfo.Add("Password", "sa2005")
    Next
    AcXTree.ClassID = "CrystalReports102.ActiveXReportViewer.1"
    'oTreeView = AcXTree.Object
    oViewer = AcXTree.Object
    oViewer.EnableToolbar = True
    oViewer.EnableStopButton = True
    oViewer.EnableSelectExpertButton = True
    oViewer.EnableSearchControl = True
    oViewer.EnableRefreshButton = True
    oViewer.EnableProgressControl = True
    oViewer.EnablePrintButton = True
    oViewer.EnablePopupMenu = True
    oViewer.EnableGroupTree = False
    oViewer.DisplayGroupTree = True
    oViewer.ReportSource = CRRep
    oViewer.ViewReport()
    fTree.Freeze(True)
    ' Make the form visible
    fTree.Visible = True
  End Sub
Regards.