Skip to Content
0
Former Member
Mar 02, 2009 at 04:20 PM

register UDO error

73 Views

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()