Report Layout Service in 2005

Question

Hi
I'm trying to use the report layout service to delete a layout, but it is always giving a error. I'm most probably doing something silly,here is the code. Please let me know if you see a problem
Try
Dim oReportLayout As SAPbobsCOM.ReportLayout
Dim oReportParam As SAPbobsCOM.ReportLayoutParams
'get report params
oReportParam = oReportLayoutService.GetDataInterface(SAPbobsCOM.ReportLayoutsServiceDataInterfaces.rlsdiReportLayoutParams)
oReportParam.LayoutCode = "QUT20006"
'get the default layout of the specific document
oReportLayout = oReportLayoutService.GetReportLayout(oReportParam)
oReportLayout.Author = "manager"
oReportLayout.Name = "Sales Quotation_Test"
oReportLayoutService.DeleteReportLayout(oReportLayout)
sErrMsg = oCompany.GetLastErrorDescription()
If sErrMsg = Nothing Then
MsgBox("Completed succesffully")
Else
MsgBox("Error:" & sErrMsg)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
Thanks in advance

Answer 1

Hi Marco Antonio Blanco Freja 
Thank you for answering my thread. Really appreciate it. I did declare them, here is a insert again, ive moved it to a place where you can see it.
'Global Variable
Public oCompanyService As SAPbobsCOM.CompanyService
Dim oReportLayoutService As SAPbobsCOM.ReportLayoutsService
'in procedure
try
Dim oReportLayout As SAPbobsCOM.ReportLayout
Dim oReportParam As SAPbobsCOM.ReportLayoutParams
oCompanyService = oCompany.GetCompanyService
'get report service
oReportLayoutService = oCompanyService.GetBusinessService(SAPbobsCOM.ServiceTypes.ReportLayoutsService)
            'get report params
oReportParam = oReportLayoutService.GetDataInterface(SAPbobsCOM.ReportLayoutsServiceDataInterfaces.rlsdiReportLayoutParams)
oReportParam.LayoutCode = "QUT20006"
'get the default layout of the specific document
oReportLayout = oReportLayoutService.GetReportLayout(oReportParam)
oReportLayout.Author = "manager"
oReportLayout.Name = "Sales Quotation_Test"
oReportLayoutService.DeleteReportLayout(oReportLayout)
sErrMsg = oCompany.GetLastErrorDescription()
If sErrMsg = Nothing Then
MsgBox("Completed succesffully")
Else
MsgBox("Error:" & sErrMsg)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
It gives an error by oReportLayoutService.DeleteReportLayout(oReportLayout) and the error is "Specified cast is not valid". We usually get this error when something was not done correctly...i can't spot the problem. Can You???
Thanks again