Error -5002 when adding a UDF, with B1 9.1

Question

Hello,
in the past I wrote some addons for SAP B1 9.0 and worked well.
Now I just upgraded our SAP B1 32-bit client from 9.0 to 9.1.
If I try to run any of my addons and I get error code -5002, with description "Nessun record dati" ("No data records" in English).
It occures in this piece of code that creates UDFs, when doing Add() the result is -5002 instead of 0:
UserFieldsMD md = (UserFieldsMD)Global.oCompany.GetBusinessObject(BoObjectTypes.oUserFields);
string realFieldName = "U_NS_MYFIELD";
// Setting the Field's properties
md.TableName = "RDR1";
md.Name = "NS_MYFIELD";
md.Description = "My field";
md.Type = BoFieldTypes.db_Alpha;
md.SubType = BoFldSubTypes.st_None;
md.EditSize = 254;
md.Mandatory = BoYesNoEnum.tNO;
// Adding the Field to the Table
int result = md.Add();
Global.ReleaseComObject(md);
This occures both keeping the old 9.0 version of SAPbobsCOM.dll and changing it to the new 9.1 version...
Maybe the mechanism for creating UDFs has been changed? The reference (REFDI.chm) doesn't tell it.
Kind regards

Answer 1

This function is how I create UDF. I'm using it since SAP 8.8
Function CreateUDF(ByVal TableName As String, ByVal FieldName As String, ByVal FieldDescription As String, Optional ByVal UDFLength As Integer = 10, Optional ByVal FieldType As SAPbobsCOM.BoFieldTypes = SAPbobsCOM.BoFieldTypes.db_Alpha, Optional ByVal DefaultValue As Object = "", Optional ByVal ShowMessage As Boolean = False, Optional ByVal dtValidValues As Data.DataTable = Nothing, Optional ByVal LinkedTable As String = "", Optional ByVal FieldSubType As SAPbobsCOM.BoFldSubTypes = Nothing, Optional ByVal isMandatory As SAPbobsCOM.BoYesNoEnum = SAPbobsCOM.BoYesNoEnum.tNO, Optional ByVal isUpdateExisting As Boolean = False) As Boolean
        Try
            Dim FieldID As Integer = GetUDFId(TableName, FieldName)
            oRecset = oDICompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
            If Not IsNothing(oRecset) Then
                System.Runtime.InteropServices.Marshal.ReleaseComObject(oRecset)
                oRecset = Nothing
                GC.Collect()
            End If
            Dim oUserFields As SAPbobsCOM.UserFieldsMD
            oUserFields = oDICompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserFields)
            Dim isExists As Boolean = False
            'LSC 10/20/2013
            If Not FieldID = -1 Then 'oUserFields.GetByKey(TableName, FieldID) Then
                '  oUserFields.Remove()
                ' If Not isUpdateExisting Then Return True
                Return True
                'oUserFields.Remove()
            End If
            With oUserFields
                If Not isExists Then
                    .TableName = TableName
                    .Name = FieldName
                    .Description = FieldDescription
                    .Type = FieldType
                End If
                .EditSize = UDFLength
                .Mandatory = isMandatory
                Select Case oUserFields.Type
                    Case 4
                        .SubType = FieldSubType
                End Select
                If FieldType = SAPbobsCOM.BoFieldTypes.db_Alpha Or FieldType = SAPbobsCOM.BoFieldTypes.db_Float Or FieldType = SAPbobsCOM.BoFieldTypes.db_Numeric Or FieldType = SAPbobsCOM.BoFieldTypes.db_Date Then
                    If Not DefaultValue = "" Then .DefaultValue = DefaultValue
                End If
                If Not LinkedTable = "" Then .LinkedTable = LinkedTable
                If Not IsNothing(dtValidValues) Then
                    For Loops As Integer = 0 To dtValidValues.Rows.Count - 1
                        .ValidValues.Value = dtValidValues.Rows(Loops).Item("Value")
                        .ValidValues.Description = dtValidValues.Rows(Loops).Item("Description")
                        If Loops <= dtValidValues.Rows.Count - 1 Then .ValidValues.Add()
                    Next
                End If
                If isExists Then
                    If Not .Update = 0 Then
                        If ShowMessage Then SetMessage(oDICompany.GetLastErrorDescription)
                        Return False
                    End If
                Else
                    If Not .Add = 0 Then
                        If ShowMessage Then SetMessage(oDICompany.GetLastErrorDescription)
                        Return False
                    End If
                End If
            End With
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oUserFields)
            oUserFields = Nothing
            GC.Collect()
            Return True
        Catch ex As Exception
            SetMessage(ex)
            Return False
        End Try
    End Function