Set Default Layout DI API

[Former Member]

    Public Sub setDefaultLayout(_LayoutCode As String, _ReportCode As String, _UserID As Integer)

        Dim oCmpSrv As SAPbobsCOM.CompanyService

        Dim oReportLayoutService As ReportLayoutsService

        Dim oDefaultReportParams As DefaultReportParams

        'Get report layout service

        oCmpSrv = B1Connections.diCompany.GetCompanyService

        oReportLayoutService = oCmpSrv.GetBusinessService(ServiceTypes.ReportLayoutsService)

        'Set parameters

        oDefaultReportParams = oReportLayoutService.GetDataInterface(ReportLayoutsServiceDataInterfaces.rlsdiDefaultReportParams)

        oDefaultReportParams.LayoutCode = _LayoutCode

        oDefaultReportParams.ReportCode = _ReportCode

        oDefaultReportParams.UserID = _UserID

        'Set the report as default

        oReportLayoutService.SetDefaultReport(oDefaultReportParams)

    End Sub