Public Sub SetDefaultReport( _ ByVal ppIDefaultReportParams As DefaultReportParams _ )
Dim oCmpSrv As SAPbobsCOM.CompanyService Dim oReportLayoutService As ReportLayoutsService Dim oDefaultReportParams As DefaultReportParams 'Get report layout service oCmpSrv = oCompany.GetCompanyService oReportLayoutService = oCmpSrv.GetBusinessService(ServiceTypes.ReportLayoutsService) 'Set parameters oDefaultReportParams = oReportLayoutService.GetDataInterface(ReportLayoutsServiceDataInterfaces.rlsdiDefaultReportParams) oDefaultReportParams.LayoutCode = "POR20005" oDefaultReportParams.ReportCode = "POR2" oDefaultReportParams.UserID = 1 'Set the report as default oReportLayoutService.SetDefaultReport(oDefaultReportParams)
ReportLayoutsService Object