Hello. Upon registering the UDO says "Ref count for this object is higher then 0." Â What could be the problem?. Here is my code. Thank you.
Dim oUserObjectMD As SAPbobsCOM.UserObjectsMD
oUserObjectMD = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserObjectsMD)
If oUserObjectMD.GetByKey("BPAR1") = 0 Then
'////////////////////////////////////////////////////////
'/ OUDO /
'////////////////////////////////////////////////////////
oUserObjectMD.Code = "BPAR1"
oUserObjectMD.Name = "Conceptos sujetos a Retención (IVA)"
oUserObjectMD.TableName = "TGV_TVATW_INSTAL"
oUserObjectMD.ObjectType = SAPbobsCOM.BoUDOObjType.boud_MasterData
oUserObjectMD.ManageSeries = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.CanDelete = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.CanClose = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.CanCancel = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.ExtensionName = ""
oUserObjectMD.CanFind = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.CanYearTransfer = SAPbobsCOM.BoYesNoEnum.tNO
oUserObjectMD.CanCreateDefaultForm = SAPbobsCOM.BoYesNoEnum.tNO
oUserObjectMD.CanLog = SAPbobsCOM.BoYesNoEnum.tNO
oUserObjectMD.OverwriteDllfile = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.UseUniqueFormType = SAPbobsCOM.BoYesNoEnum.tYES
'/////////////////////////////////////////////////////////
'/ UDO1 /
'/////////////////////////////////////////////////////////
oUserObjectMD.ChildTables.TableName = "TGV_TVATW_INSHIS"
'/////////////////////////////////////////////////////////
'/ UDO2 /
'/////////////////////////////////////////////////////////
oUserObjectMD.FindColumns.ColumnAlias = "Code"
oUserObjectMD.FindColumns.ColumnDescription = "Id Concepto"
oUserObjectMD.FindColumns.Add()
oUserObjectMD.FindColumns.ColumnAlias = "Name"
oUserObjectMD.FindColumns.ColumnDescription = "Descripción"
oUserObjectMD.FindColumns.Add()
'/////////////////////////////////////////////////////////
'/ UDO3 /
'/////////////////////////////////////////////////////////
oUserObjectMD.FormColumns.SonNumber = "0"
oUserObjectMD.FormColumns.FormColumnAlias = "Code"
oUserObjectMD.FormColumns.FormColumnDescription = "Id Concepto"
oUserObjectMD.FormColumns.Add()
oUserObjectMD.FormColumns.SonNumber = "0"
oUserObjectMD.FormColumns.FormColumnAlias = "Name"
oUserObjectMD.FormColumns.FormColumnDescription = "Descripción"
oUserObjectMD.FormColumns.Add()
oUserObjectMD.FormColumns.SonNumber = "1"
oUserObjectMD.FormColumns.FormColumnAlias = "U_TGV_FVATW_CODE"
oUserObjectMD.FormColumns.FormColumnDescription = "Cod. Regimen"
oUserObjectMD.FormColumns.Add()
oUserObjectMD.FormColumns.SonNumber = "1"
oUserObjectMD.FormColumns.FormColumnAlias = "U_TGV_FVATW_IDVALUE"
oUserObjectMD.FormColumns.FormColumnDescription = "Valor Alicuota IVA disc."
oUserObjectMD.FormColumns.Add()
oUserObjectMD.FormColumns.SonNumber = "1"
oUserObjectMD.FormColumns.FormColumnAlias = "U_TGV_FVATW_NDVALUE"
oUserObjectMD.FormColumns.FormColumnDescription = "Valor Alicuota sin IVA disc."
oUserObjectMD.FormColumns.Add()
oUserObjectMD.FormColumns.SonNumber = "1"
oUserObjectMD.FormColumns.FormColumnAlias = "U_TGV_FVATW_INI_DATE"
oUserObjectMD.FormColumns.FormColumnDescription = "Fecha Desde"
oUserObjectMD.FormColumns.Add()
oUserObjectMD.FormColumns.SonNumber = "1"
oUserObjectMD.FormColumns.FormColumnAlias = "U_TGV_FVATW_TAX_CODE"
oUserObjectMD.FormColumns.FormColumnDescription = "Fc B - Reproweb 2,4,5"
oUserObjectMD.FormColumns.Add()
If oUserObjectMD.Add() <> 0 Then
Dim ErrMsg As String = Nothing
Dim ErrCode As Long
oCompany.GetLastError(ErrCode, ErrMsg)
MsgBox("Error Registrando UDO BPAR1" & vbCrLf & ErrMsg)
System.Runtime.InteropServices.Marshal.ReleaseComObject(oUserObjectMD)
oUserObjectMD = Nothing
End If
End If
System.Runtime.InteropServices.Marshal.ReleaseComObject(oUserObjectMD)
System.Windows.Forms.Application.DoEvents()