Question

嗨，我已经开始使用sap b1我在visual studio 2010中使用c＃创建了我自己的附加sap我的表单将直接向我的水晶报表发送一个值而不显示任何人可以帮助我的版本sap是9.2 我试过这段代码，但它没有工作

        //add crystalreport to my add-on

        SAPbobsCOM.ReportTypesService rptTypeService = (SAPbobsCOM.ReportTypesService)
         Menu.company.GetCompanyService().GetBusinessService(SAPbobsCOM.ServiceTypes.ReportTypesService);
        SAPbobsCOM.ReportType newType = (SAPbobsCOM.ReportType)
        rptTypeService.GetDataInterface(SAPbobsCOM.ReportTypesServiceDataInterfaces.rtsReportType);
        newType.TypeName = "CodeBarre_etat";
        newType.AddonName = "PRINT_CODEBARRE";
        newType.AddonFormType = "PRINT_CODEBARRE";
        newType.MenuID = "PRINT_CODEBARRE";
        SAPbobsCOM.ReportTypeParams newTypeParam = rptTypeService.AddReportType(newType);


        //add layout to my report 

        SAPbobsCOM.ReportLayoutsService rptService = (SAPbobsCOM.ReportLayoutsService)
         Menu.company.GetCompanyService().GetBusinessService(SAPbobsCOM.ServiceTypes.ReportLayoutsService);
        SAPbobsCOM.ReportLayout newReport = (SAPbobsCOM.ReportLayout)
        rptService.GetDataInterface(SAPbobsCOM.ReportLayoutsServiceDataInterfaces.rlsdiReportLayout);
        newReport.Author = Menu.company.UserName;
        newReport.Category = SAPbobsCOM.ReportLayoutCategoryEnum.rlcCrystal;
        newReport.Name = "PRINT_CODEBARREL";
        newReport.TypeCode = newTypeParam.TypeCode;
        SAPbobsCOM.ReportLayoutParams newReportParam = rptService.AddReportLayout(newReport);

        // Set the report layout into the report type.

        newType = rptTypeService.GetReportType(newTypeParam);
        newType.DefaultReportLayout = newReportParam.LayoutCode;
        rptTypeService.UpdateReportType(newType);




        SAPbobsCOM.BlobParams oBlobParams = (SAPbobsCOM.BlobParams)
       Menu. company.GetCompanyService().GetDataInterface(SAPbobsCOM.CompanyServiceDataInterfaces.csdiBlobParams);
        oBlobParams.Table = "OITM";
        oBlobParams.Field = "Template";
        SAPbobsCOM.BlobTableKeySegment oKeySegment = oBlobParams.BlobTableKeySegments.Add();
        oKeySegment.Name = "ItemCode";
        oKeySegment.Value = newReportParam.LayoutCode;


        FileStream oFile = new FileStream("CodeBarre_etat.rpt", System.IO.FileMode.Open);
        int fileSize = (int)oFile.Length;
        byte[] buf = new byte[fileSize];
        oFile.Read(buf, 0, fileSize);
        oFile.Dispose();
        //SAPbobsCOM.Blob oBlob = (SAPbobsCOM.Blob)
        //Menu.company.GetCompanyService().GetDataInterface(SAPbobsCOM.CompanyServiceDataInterfaces.csdiBlob);

        SAPbobsCOM.Blob oBlob = (SAPbobsCOM.Blob)(Menu.company.GetCompanyService().GetDataInterface(SAPbobsCOM.CompanyServiceDataInterfaces.csdiBlob));
        oBlob.Content = Convert.ToBase64String(buf, 0, fileSize);
        Menu.company.GetCompanyService().SetBlob(oBlobParams, oBlob);

Answer 1

不确定您的代码可能存在什么问题，但下面是您正在尝试做的工作实现（尽管在VB中，而不是在C＃中，但翻译它应该相当简单）。

以下是一个示例电话：

setCrystalReport(REPORT_TITLE_SUMMARY, My.Settings.ReportsPath.TrimEnd("\") & "\" & "comm_report_summary.rpt", _
                    oForm, "myFormTypeID", "My Add-On Name", "MENU_ID_VALUE")

功能：

    'Returns new CR TypeCode
Private Function setCrystalReport(ByVal rptName As String, ByVal rptPath As String, ByRef oForm As SAPbouiCOM.Form, ByVal formType As String, _
                                  ByVal addOnName As String, ByVal menuID As String) As String
    Try
        '1. Ad a new report type => ReportTypesService (8.81+ only)
        Dim rptTypeService As SAPbobsCOM.ReportTypesService
        Dim newType As SAPbobsCOM.ReportType

        rptTypeService = SBO_Company.GetCompanyService().GetBusinessService(SAPbobsCOM.ServiceTypes.ReportTypesService)
        newType = rptTypeService.GetDataInterface(SAPbobsCOM.ReportTypesServiceDataInterfaces.rtsReportType)

        newType.TypeName = rptName
        newType.AddonName = addOnName
        newType.AddonFormType = formType
        newType.MenuID = menuID
        Dim newTypeParam As SAPbobsCOM.ReportTypeParams
        newTypeParam = rptTypeService.AddReportType(newType)

        '2. Add a new report layout => ReportLayoutService
        Dim rptService As SAPbobsCOM.ReportLayoutsService
        Dim newReport As SAPbobsCOM.ReportLayout

        rptService = SBO_Company.GetCompanyService().GetBusinessService(SAPbobsCOM.ServiceTypes.ReportLayoutsService)
        newReport = rptService.GetDataInterface(SAPbobsCOM.ReportLayoutsServiceDataInterfaces.rlsdiReportLayout)
        newReport.Author = SBO_Company.UserName
        newReport.Category = SAPbobsCOM.ReportLayoutCategoryEnum.rlcCrystal
        newReport.Name = rptName
        newReport.TypeCode = newTypeParam.TypeCode

        Dim newReportParam As SAPbobsCOM.ReportLayoutParams
        newReportParam = rptService.AddReportLayout(newReport)

        '3. Set the report layout into the report type
        newType = rptTypeService.GetReportType(newTypeParam)
        newType.DefaultReportLayout = newReportParam.LayoutCode
        rptTypeService.UpdateReportType(newType)

        '4. Link the Report layout code to the Crystal Report file
        Dim oBlobParams As SAPbobsCOM.BlobParams
        Dim oKeySegment As SAPbobsCOM.BlobTableKeySegment

        oBlobParams = SBO_Company.GetCompanyService().GetDataInterface(SAPbobsCOM.CompanyServiceDataInterfaces.csdiBlobParams)
        oBlobParams.Table = "RDOC"
        oBlobParams.Field = "Template"

        oKeySegment = oBlobParams.BlobTableKeySegments.Add()
        oKeySegment.Name = "DocCode"
        oKeySegment.Value = newReportParam.LayoutCode

        Dim oFile As New FileStream(rptPath, System.IO.FileMode.Open)
        Dim fileSize As Integer
        fileSize = oFile.Length
        Dim buf(fileSize) As Byte
        oFile.Read(buf, 0, fileSize)
        oFile.Dispose()

        Dim oBlob As SAPbobsCOM.Blob
        oBlob = SBO_Company.GetCompanyService().GetDataInterface(SAPbobsCOM.CompanyServiceDataInterfaces.csdiBlob)

        oBlob.Content = Convert.ToBase64String(buf, 0, fileSize)
        SBO_Company.GetCompanyService().SetBlob(oBlobParams, oBlob)

        '5. Link the new report type to your form
        Return newType.TypeCode
    Catch ex As Exception
        Dim exString As String = ""
        exString = "Exception caught in setCrystalReport Method. Details: " & ex.Message
        If Not ex.InnerException Is Nothing Then
            exString += "  Inner Exception: " + ex.InnerException.Message
        End If
        SBO_Application.StatusBar.SetText(exString, SAPbouiCOM.BoMessageTime.bmt_Medium, _
                           SAPbouiCOM.BoStatusBarMessageType.smt_Error)
        Return "-1"
    End Try
End Function

如何将crystalreport与我自己的表单附加sap

1 个答案: