Skip to Content
0
Former Member
Mar 12, 2008 at 03:23 PM

Form Setting

44 Views

I am using the code below to change a column setting on a system form. There has no error when I run it, but the "For Loop" just not looping and then I found out "oColsPreferences.Count" is always = 0, does anyone help me out here?

Dim oCmpSrv As SAPbobsCOM.CompanyService

Dim oFormPreferencesService As SAPbobsCOM.FormPreferencesService

Dim oColsPreferences As SAPbobsCOM.ColumnsPreferences

Dim oColPreferencesParams As SAPbobsCOM.ColumnsPreferencesParams

Dim i As Integer

oCmpSrv = oCompany.GetCompanyService

oFormPreferencesService = oCmpSrv.GetBusinessService(SAPbobsCOM.ServiceTypes.FormPreferencesService)

oColPreferencesParams = oFormPreferencesService.GetDataInterface(SAPbobsCOM.FormPreferencesServiceDataInterfaces.fpsdiColumnsPreferencesParams)

oColPreferencesParams.FormID = "133"

oColPreferencesParams.User = 1

oColsPreferences = oFormPreferencesService.GetColumnsPreferences(oColPreferencesParams)

For i = 0 To oColsPreferences.Count - 1

If oColsPreferences.Item(i).ItemNumber = "5" Then 'for example "5"

oColsPreferences.Item(i).VisibleInForm = SAPbobsCOM.BoYesNoEnum.tYES

oColsPreferences.Item(i).EditableInForm = SAPbobsCOM.BoYesNoEnum.tYES

End If

Next

oFormPreferencesService.UpdateColumnsPreferences(oColPreferencesParams, oColsPreferences)