Error in SetDefaultReport with normal users

Question

I have to change default report for the invoices. I try to use the ReportLayoutsService.SetDefaultReport method but i only have sucess if the user that I'm using at the moment is one Super User. If the user is not SU I have the following error: Internal Error (-10) Occurred.
My code is:
Try
                            Dim oCmpSrv As SAPbobsCOM.CompanyService
                            Dim oReportLayoutService As SAPbobsCOM.ReportLayoutsService
                            Dim oReportParam As SAPbobsCOM.DefaultReportParams
                            oCmpSrv = oCompany.GetCompanyService
                            oReportLayoutService = oCmpSrv.GetBusinessService(SAPbobsCOM.ServiceTypes.ReportLayoutsService)
                            oReportParam = oReportLayoutService.GetDataInterface(SAPbobsCOM.ReportLayoutsServiceDataInterfaces.rlsdiDefaultReportParams)
                            oReportParam.CardCode = "-1" 'For all BPs
                            oReportParam.ReportCode = oDocCode
                            oReportParam.LayoutCode = oDocLayOut
                            oReportParam.UserID = oUserID
                            oReportLayoutService.SetDefaultReport(oReportParam)
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
I already try to use:
oReportParam.UserID = 1
Trying make the change with user manager but i have the same error.
How can I this work with normal Users. That no have authorization to change the layout.
Best Regards for all.

Answer 1

Olá Vitor,
O problema é que se não conseguir instanciar auxCompany também não vou conseguir alterar o layout de impressão. Acho que a solução aqui é perceber porque é que falha quando está a instanciar auxCompany. Será por causa de outros utilizadores estarem a fazer o mesmo? Visto que estamos a falar de uma empresa com 7 filiais, o numero de documentos criados é muito elevado
Mesmo tendo vários utilizadores a trabalhar ao mesmo tempo a instanciação de auxCompany não devia funcionar correctamente?
Será por não estar a livertar correctamente o objecto no final da operação?
auxCompany.Disconnect()
auxCompany = Nothing
Também coloquei uma validação para o caso de auxCompany já estar conectado na base de dados.
If auxCompany.Connected = True Then
                                            Try
                                                Dim oCmpSrv As SAPbobsCOM.CompanyService
                                                Dim oReportLayoutService As SAPbobsCOM.ReportLayoutsService
                                                Dim oReportParam As SAPbobsCOM.DefaultReportParams
                                                oCmpSrv = auxCompany.GetCompanyService
                                                oReportLayoutService = oCmpSrv.GetBusinessService(SAPbobsCOM.ServiceTypes.ReportLayoutsService)
                                                oReportParam = oReportLayoutService.GetDataInterface(SAPbobsCOM.ReportLayoutsServiceDataInterfaces.rlsdiDefaultReportParams)
                                                oReportParam.CardCode = "-1"
                                                oReportParam.ReportCode = oDocCode
                                                oReportParam.LayoutCode = oDocLayOut
                                                oReportParam.UserID = oUserID
                                                oReportLayoutService.SetDefaultReport(oReportParam)
                                            Catch ex As Exception
                                                MsgBox(ex.ToString())
                                            End Try
End If
Será esta validação que está a causar-me problemas?
Pelo que viste do meu código, achas que estou a abordar o assunto da forma correcta?
Muito Obrigado,
Cumprimentos,
Luis Duarte