Create User Table

Question

Hi... pals
i want to create my usertable and userfield via DI but add method says
"Ref count for this object is higher than 0"
what does it means ??
regards
<b>toRo</b>

Answer 1

HI Ria Hantoro ,
                        Ref count  o problem will come unless u release the object  .I am giving u  the sample code .
''//**** This will create the UserTable   as 'Test '
        Dim oUserTablesMD As SAPbobsCOM.UserTablesMD
        ' Init the MetaData object
        oUserTablesMD = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserTables)
        ' set the 2 mandatory fields
        oUserTablesMD.TableName = "Test"
        oUserTablesMD.TableDescription = "TestTable"
        'Document type
        oUserTablesMD.TableType = SAPbobsCOM.BoUTBTableType.bott_Document
        lRetCode = oUserTablesMD.Add
        '//  it will return integer value if = 0 then success
        If lRetCode <> 0 Then
            oCompany.GetLastError(lErrCode, sErrMsg)
            MsgBox(sErrMsg)
        Else
            'MsgBox("Table: " & oUserTablesMD.TableName & " was added successfully")
        End If
        ' to release the object
        System.Runtime.InteropServices.Marshal.ReleaseComObject(oUserTablesMD)
              <b>      '//****NOW WE ARE READY TO ADD  USER FIELDS AS </b>
'//****  This is for Field Creation
  ' A User Fields object
        Dim oUserFieldsMD As SAPbobsCOM.UserFieldsMD
        ' Remember to free occupied resources
        GC.Collect()
        ' Init the user fields object
        oUserFieldsMD = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserFields)
        ' Adding the "DocNum" field
        ' Setting the Field's mandatory properties
        oUserFieldsMD.TableName = "@Test"
        oUserFieldsMD.Name = "DocNum"
        oUserFieldsMD.Description = "Document Number"
        oUserFieldsMD.Type = SAPbobsCOM.BoFieldTypes.db_Numeric
        oUserFieldsMD.EditSize = 11
        '// Adding the Field to the Table
        lRetCode = oUserFieldsMD.Add
        '// Check for errors
        If lRetCode <> 0 Then
            oCompany.GetLastError(lErrCode, sErrMsg)
            MsgBox(sErrMsg)
        Else
            MsgBox("Field: '" & oUserFieldsMD.Name & "' was added successfuly to " & oUserFieldsMD.TableName & " Table")
        End If
  '//****** End of Field creation
              lRetCode   is a long variable
                        The above code will help u . 
Regards
V.Rangarajan