Register UDO

Private Sub Add_UDO(ByVal c_UDO As CUdo)

  Dim oUserObjectMD As SAPbobsCOM.UserObjectsMD
  Try

      Dim lErrCode As Long = 0
      Dim sErrMsg As String = ""

      oUserObjectMD = SBO_Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserObjectsMD)

      If oUserObjectMD.GetByKey(c_UDO.Code) = 0 Then

	  ' General Information
	  ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
	  oUserObjectMD.Code = c_UDO.Code ' "UDOBDGM"
	  oUserObjectMD.Name = c_UDO.Name ' "Budget Mensile"
	  oUserObjectMD.ObjectType = c_UDO.ObjectType ' SAPbobsCOM.BoUDOObjType.boud_MasterData
	  oUserObjectMD.TableName = c_UDO.TableName ' "O01_BDGTEM"

	  ' Services
	  ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
	  oUserObjectMD.CanCancel = c_UDO.CanCancel
	  oUserObjectMD.CanClose = c_UDO.CanClose
	  oUserObjectMD.CanCreateDefaultForm = c_UDO.CreateDefaultForm
	  oUserObjectMD.CanDelete = c_UDO.CanDelete
	  oUserObjectMD.CanFind = c_UDO.CanFind
	  oUserObjectMD.CanYearTransfer = c_UDO.CanYearTransfer
	  oUserObjectMD.ManageSeries = c_UDO.ManageSeries

	  ' Log
	  ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
	  If c_UDO.LogTableName.Equals("") Then
	      oUserObjectMD.CanLog = SAPbobsCOM.BoYesNoEnum.tNO
	      oUserObjectMD.LogTableName = ""
	  Else
	      oUserObjectMD.CanLog = c_UDO.CanLog
	      oUserObjectMD.LogTableName = c_UDO.LogTableName
	  End If

	  ' DLL Extension Name
	  ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
	  oUserObjectMD.ExtensionName = c_UDO.ExtensionName

	  ' Find Columns
	  ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
	  Dim i As Integer = 0
	  oUserObjectMD.FindColumns.SetCurrentLine(i)
	  oUserObjectMD.FormColumns.FormColumnAlias = "Code"
	  For Each sColName As String In c_UDO.FindFields
	      If Not sColName.Equals("Code") Then
		  i += 1
		  Call oUserObjectMD.FindColumns.Add()
		  oUserObjectMD.FindColumns.SetCurrentLine(i)
		  oUserObjectMD.FindColumns.ColumnAlias = sColName
	      End If
	  Next

	  ' Child Tables
	  ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
	  If Not oUserObjectMD.ChildTables.Count = 0 _
	  And Not c_UDO.Children Is Nothing _
	  Then
	      If c_UDO.Children.Count > 0 Then
		  Dim oUserObjectMD_ChildTables As SAPbobsCOM.UserObjectMD_ChildTables
		  oUserObjectMD_ChildTables = oUserObjectMD.ChildTables
		  i = -1
		  For Each sChildTable As String In c_UDO.Children
		      i += 1
		      If i > 0 Then
			  oUserObjectMD_ChildTables.Add()
		      End If
		      oUserObjectMD_ChildTables.SetCurrentLine(i)
		      oUserObjectMD_ChildTables.TableName = sChildTable
		  Next
	      End If
	  End If
	  ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
	  ' ADD UDO +++
	  ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
	  If oUserObjectMD.Add() <> 0 Then
	      Call SBO_Company.GetLastError(lErrCode, sErrMsg)
	      Throw New Exception("ERROR: NEW UDO [" & c_UDO.Code & ":" & c_UDO.Name & "]: " & sErrMsg)
	  Else
	      Dim str As String = ""
	      str = "UDO [" & c_UDO.Code & ":" & c_UDO.Name & "] created correct."
	      log(str)
	      Application.DoEvents()
	  End If
      Else
	  Dim strMsg As String = "UDO [" & c_UDO.Code & ":" & c_UDO.Name & "] exist'."
	  log(strMsg)
	  Application.DoEvents()
      End If
  Catch ex As Exception
      Dim s As String = "ERRORE: " & ex.Message
      log(s)
  Finally
      If Not oUserObjectMD Is Nothing Then
	  System.Runtime.InteropServices.Marshal.ReleaseComObject(oUserObjectMD)
	  oUserObjectMD = Nothing
      End If
      System.GC.Collect()
  End Try

End Sub