Item - The item is not a user-defined item

Question

I have added a user defined field in Marketing Documents -> Title.In short I have added a user defined field at the header level.I have used this field for certain calculations while adding inventory transfer.I have created a combo for this field and added values as,
Private Sub AddSeries()
        Dim ddlSeries As SAPbouiCOM.ComboBox
        Dim objDTSeries As New DataTable
        Dim intI As Integer
        Try
            objForm = SBO_Application.Forms.GetForm("-940", 1)
            ddlSeries = objForm.Items.Item("U_ProdSeries").Specific
            strQuery = "Select Series,SeriesName FROM NNM1 WHERE ObjectCode=13"
            objDTSeries = GetData(strQuery)
            If objDTSeries.Rows.Count > 0 And ddlSeries.ValidValues.Count = 1 Then
                For intI = 0 To objDTSeries.Rows.Count - 1
                    ddlSeries.ValidValues.Add(objDTSeries.Rows(intI).Item("Series"), objDTSeries.Rows(intI).Item("SeriesName"))
                Next
            End If
        Catch ex As Exception
            SBO_Application.MessageBox("AddSeries()=" & ex.Message)
        End Try
    End Sub
Also,I want to clear the combo for certain condition.For clearing the combo I have used the code as,
Private Sub DeleteSeries()
        Dim ddlSeries As SAPbouiCOM.ComboBox
        Dim intI As Integer
        Try
            objForm = SBO_Application.Forms.GetForm("-940", 1)
            ddlSeries = objForm.Items.Item("U_ProdSeries").Specific
            While ddlSeries.ValidValues.Count > 0
                ddlSeries.ValidValues.Remove(0, SAPbouiCOM.BoSearchKey.psk_Index)
            End While
        Catch ex As Exception
            SBO_Application.MessageBox("DeleteSeries()=" & ex.Message)
        End Try
    End Sub
While Removing the value it gives error as,
Item - The item is not a user-defined item

Answer 1

Hello dilip
try this code .i hope yure problem may be solved
Private Sub AddSeries()
        Dim ddlSeries As SAPbouiCOM.ComboBox
        Dim objDTSeries As New DataTable
        Dim intI As Integer
        Dim oItem As SAPbouiCOM.Item
        Dim Rs As SAPbobsCOM.Recordset
        Try
            objForm = SBO_Application.Forms.GetForm("-940", 1)
            Rs = objMain.objCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
            oItem = objForm.Items.Item("ITEM ID").Specific
            ddlSeries = oItem.Specific
            strQuery = "Select Series,SeriesName FROM NNM1 WHERE ObjectCode=13"
            Rs.DoQuery(strQuery)
            Rs.MoveFirst()
            For k As Integer = ddlSeries.ValidValues.Count - 1 To 0 Step -1
                ddlSeries.ValidValues.Remove(k, SAPbouiCOM.BoSearchKey.psk_Index)
            Next
            If (ddlSeries.ValidValues.Count >= 0) Then
                While Rs.EoF = False
                    ddlSeries.ValidValues.Add(Rs.Fields.Item("Series").Value, Rs.Fields.Item("SeriesName").Value)
                    Rs.MoveNext()
                End While
            End If
        Catch ex As Exception
            SBO_Application.MessageBox("AddSeries()=" & ex.Message)
        End Try
    End Sub