Skip to Content
0
Former Member
Jun 30, 2009 at 06:03 PM

CompanyService Issue

41 Views

When running the last line of code below, I get a system message:

"Invalid folder path [(----) 3539-48]"

The code had worked yesterday and before. Is there a condition that could created by code prior to running this code that would cause the error here?

Thanks,

Mike

[Code]----


Dim oCompanyService As SAPbobsCOM.CompanyService = oCompany.GetCompanyService

Dim oAdminInfo As SAPbobsCOM.AdminInfo

Dim AutoITWSpecified As Integer

'Disable Auto-Add All Warehouses indicator.

oAdminInfo = oCompanyService.GetAdminInfo

AutoITWSpecified = oAdminInfo.SetItemsWarehouses

oAdminInfo.SetItemsWarehouses = SAPbobsCOM.BoYesNoEnum.tNO

oCompanyService.UpdateAdminInfo(oAdminInfo)