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
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 | |
2 | |
2 | |
1 | |
1 | |
1 | |
1 | |
1 | |
1 |