The following is a VB.NET sample that retrieves the company information.

GetCompanyInfo (Visual Basic)

Copy Code

Dim oCompanyInfo As CompanyInfo Dim oCompanyService As SAPbobsCOM.CompanyService 'get company service oCompanyService = oCompany.GetCompanyService 'Get company info oCompanyInfo = oCompanyService.GetCompanyInfo 'Set the Auto Create Customer Equipment Card (1=yes ,0=No) oCompanyInfo.AutoCreateCustomerEqCard = BoYesNoEnum.tYES 'Set Block Stock Negative Quantity(1=yes ,0=No) oCompanyInfo.BlockStockNegativeQuantity = = BoYesNoEnum.tYES 'Update the company info oCompanyService.UpdateCompanyInfo(oCompanyInfo)