Skip to Content

Hello Guys,

Greetings !!!

Kindly Find the Attached Procedure Step By Step to Creating UDF,UDT and Registering UDO in SAP Business One System Forms.

  1. Creating User Defined Fields
  2. Creating User Defined Tables
  3. Registering User Defined Objects

 

Your Source Code Template Must be Same as  Follows   https://blogs.sap.com/2017/08/03/simple-sap-b1-add-on-for-beginners/

  • To Create User Defined Tables : There are Six Types Of Tables in SAP Business One. NoObject,Document,DocumentLines,MasterData and MasterDataLines. Call Following Function in Class Main.
objUtilities.CreateTable("GOD_QCGR", "GOD Groups", SAPbobsCOM.BoUTBTableType.bott_NoObject) 

 

Just Change the Type Of Parameter to Table Type. CreateTable Function Will be as Follows. Define CreateTable Function in Utilities Class

Public Function CreateTable(ByVal TableName As String, ByVal TableDescription As String, ByVal TableType As SAPbobsCOM.BoUTBTableType) As Boolean
        Dim intRetCode As Integer
        Dim objUserTableMD As SAPbobsCOM.UserTablesMD
        objUserTableMD = GOD_Main.GOD_Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserTables)
        Try
            If (Not objUserTableMD.GetByKey(TableName)) Then
                objUserTableMD.TableName = TableName
                objUserTableMD.TableDescription = TableDescription
                objUserTableMD.TableType = TableType
                intRetCode = objUserTableMD.Add()
                If (intRetCode = 0) Then
                    GOD_Main.GOD_Application.SetStatusBarMessage(TableDescription & " User Defined Table Successfully.", SAPbouiCOM.BoMessageTime.bmt_Short, False)
                    Return True
                Else
                    GOD_Main.GOD_Application.SetStatusBarMessage(TableDescription & " Failed To Creat User Defined Table.", SAPbouiCOM.BoMessageTime.bmt_Short, True)
                End If
            Else
                Return False
            End If
        Catch ex As Exception
            GOD_Main.GOD_Application.MessageBox(ex.Message)
        Finally
            System.Runtime.InteropServices.Marshal.ReleaseComObject(objUserTableMD)
            GC.Collect()
        End Try
    End Function

 

  • For Adding Fields in User Defined No Object Table GOD_OCGR Use Following Functions For
  • We Can Add Alphanumeric,Date,Quantity and all type Of User Defined Fields in System Table and User Defined Tables also
  • I have Created 3 Types of Tables – 1.Np Object Type Table. 2.Document Type and 3. Master Type Of Table
  • Registering of User Defined Table also done in Following Code

Class Main Code will be as Follows

 

Imports System.Reflection
Imports System.Diagnostics
Imports System.Net.Mail
Imports System.Net
Imports System.Text
Imports SAPbobsCOM

Public Class clsMain

#Region "Declaration"
    Dim objChooseForm As SAPbouiCOM.Form

    Public WithEvents GOD_Application As SAPbouiCOM.Application
    Public strGetManifestResourceStreamName As String = "GOD_QC_Addon"
    Public GOD_Company As SAPbobsCOM.Company
    Public SourceRowNo1 As Integer
    'Creating Instances For Each Class

    Public objUtilities As clsUtilities
    Public objItemMaster As clsItemMaster
    Public LastErrorDescription As String
    Public LastErrorCode As Integer

    'System Forms
    Public QueryXML As New Xml.XmlDocument
    Public objChoose As clsChooseFromList
    Public strVariant As String = ""
    Public strMenuClicked As String = ""
    Public strTmp As String = ""
    Public GOD_SourceForm As SAPbouiCOM.Form
    Public GOD_Static As SAPbouiCOM.StaticText
    Public GOD_Rec As SAPbobsCOM.Recordset
    'For UI
    Public GOD_Matrix As SAPbouiCOM.Matrix
    Public GOD_Edit As SAPbouiCOM.EditText
    Public GOD_Item As SAPbouiCOM.Item
    Public GOD_Combo As SAPbouiCOM.ComboBox
    Private referencedFormUID As String
    'For DI
    Public oDBs_Head As SAPbouiCOM.DBDataSource
    Public oDBs_Detail As SAPbouiCOM.DBDataSource
    'Objects
    Public GOD_ChkBox As SAPbouiCOM.CheckBox
    Public GOD_Column1 As SAPbouiCOM.ColumnTitle
    Public isAddConnected As Boolean = False
    Public GOD_RS As SAPbobsCOM.Recordset
    Public oRec As SAPbobsCOM.Recordset
    Public str As String = ""
    Public strTemp As String = ""
    'For Updating Sub User Details in SAP Activity Master
    Dim sCode As String = ""
    'For Sending Internal Messages in SAP Business one
    Public oCmpSrv As SAPbobsCOM.CompanyService
    Public oMessageService As MessagesService
#End Region

#Region "New"
    Public Sub New()
        'Object Initialization 19042017 - Mahendrakumar
        objUtilities = New clsUtilities
        objItemMaster = New clsItemMaster
    End Sub
#End Region

#Region "Initialise"
    Public Function Initialise() As Boolean
        GOD_Application = objUtilities.GetApplication()
        objUtilities.ShowSuccessMessage("Please wait for the System Form Manipulation Addon Icon to appear in menu. It may take few minutes based on Server and Network speed.")
        GOD_Company = objUtilities.GetCompany(GOD_Application)
        Call CreateTables()
        Call createObjects()
        objUtilities.ShowSuccessMessage("System Form Manipulation Add-on Connected. You may now proceed to use addon.")
        Return True
    End Function
#End Region

#Region "Create Objects"
    Private Sub createObjects()
        objChoose = New clsChooseFromList
    End Sub
#End Region


#Region "Register UDO"
    Private Sub RegisterUDO()
        'For Document Type Table
        Dim findAliasNDescription = New String(,) {{"DocEntry", "DocEntry"}} 'For Find in Default Form - DocEntry Column
        findAliasNDescription = New String(,) {{"DocEntry", "DocEntry"}}
        If Not objUtilities.UDOExists("GOD_OQCG") = True Then
            objUtilities.registerUDO("GOD_OQCG", "GOD QC Master", SAPbobsCOM.BoUDOObjType.boud_Document, findAliasNDescription, "GOD_OQCG", "GOD_QCG1", "", "", "", "", "", "", "", SAPbobsCOM.BoYesNoEnum.tNO)
        End If
     
        'For Master Data Type Table Registration
        findAliasNDescription = New String(,) {{"Code", "Code"}} 'For Find in Default Form - Code and Name For Master Type Of User Defined Table
        If Not objUtilities.UDOExists("GOD_OREC") = True Then
            objUtilities.registerUDO("GOD_OREC", "GOD Receiver", SAPbobsCOM.BoUDOObjType.boud_MasterData, findAliasNDescription, "GOD_OREC", "GOD_REC1", "", "", "", "", "", "", "", SAPbobsCOM.BoYesNoEnum.tNO)
        End If
    End Sub
#End Region
    Public Sub CLFHeader(ByVal ItemUID As String, ByVal FormUID As String, ByVal CFLName As String, ByVal FormTypeEx As String)
        clsChooseFromList.ItemUID = ItemUID
        clsChooseFromList.SourceFormUID = FormUID
        clsChooseFromList.CFLChoice = CFLName
        Dim objChooseForm As SAPbouiCOM.Form
        If objUtilities.FormExist(FormTypeEx) = True Then
            'Do Nothing
        Else
            GOD_Main.objUtilities.LoadForm("GOD_CFLHeader.xml", "GOD_CFLHeader", "GOD_CFLHeader", ResourceType.Embeded)
            objChooseForm = GOD_Main.GOD_Application.Forms.ActiveForm
            objChoose.databound(objChooseForm, GOD_SourceForm, oDBs_Detail, oDBs_Detail, "", SourceRowNo1)
        End If
    End Sub

#Region "Create Table"
    Public Sub CreateTables()
        Try
            'No Object Type Table
            objUtilities.CreateTable("GOD_OMGF", "GOD Mgf Catalog No", SAPbobsCOM.BoUTBTableType.bott_NoObject)

            'Document Type Table
            objUtilities.CreateTable("GOD_OQCG", "GOD QC Master", SAPbobsCOM.BoUTBTableType.bott_Document)
            objUtilities.CreateTable("GOD_QCG1", "GOD QC Master-Rows", SAPbobsCOM.BoUTBTableType.bott_DocumentLines)

            'Master Data Table
            objUtilities.CreateTable("GOD_OREC", "GOD Receiver", SAPbobsCOM.BoUTBTableType.bott_MasterData)
            objUtilities.CreateTable("GOD_REC1", "GOD Receiver-Rows", SAPbobsCOM.BoUTBTableType.bott_MasterDataLines)

            'Adding Fields in System Table -e.g. Item Master
            objUtilities.AddAlphaField("OITM", "Instrmnt", "Instrument", 1)

            'Adding Fields in User Defined Table
            objUtilities.AddFloatField("@GOD_OQCG", "Qty", "Qty", BoFldSubTypes.st_Quantity)
            objUtilities.AddDateField("@GOD_OQCG", "QCDate", "QC Date", BoFldSubTypes.st_None)
        Catch ex As Exception
            GOD_Main.GOD_Application.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning)
        Finally
        End Try
    End Sub
#End Region

#Region "Item Event"
    Public Sub ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles GOD_Application.ItemEvent
        Try
            Select Case pVal.FormTypeEx
                Case "GOD_CFLHeader" 'For Choose From List at Header Level
                    objChoose.ItemEvent(FormUID, pVal, BubbleEvent)
                Case "GOD_CFLDetail" 'For Choose From List At Detail Level
                    objChoose.ItemEvent(FormUID, pVal, BubbleEvent)
                Case "150" 'For Item Master Item Event Calling
                    objItemMaster.ItemEvent(FormUID, pVal, BubbleEvent)
            End Select
        Catch ex As Exception
            GOD_Application.MessageBox(ex.Message)
        End Try
    End Sub
#End Region

#Region "Application Event"
    Private Sub ApplicationEvent(ByVal EventType As SAPbouiCOM.BoAppEventTypes) Handles GOD_Application.AppEvent
        If (EventType = SAPbouiCOM.BoAppEventTypes.aet_CompanyChanged Or EventType = SAPbouiCOM.BoAppEventTypes.aet_ServerTerminition Or EventType = SAPbouiCOM.BoAppEventTypes.aet_ShutDown) Then
            CloseApp()
        End If
    End Sub
#End Region

End Class



 

Class Utitilies Will be as Follows

 

Imports System.Reflection
Public Class clsUtilities
    Public strLastErrorCode As String
    Public strLastError As String
    Public GOD_Form As SAPbouiCOM.Form
    Public objEdit As SAPbouiCOM.EditText
    Public strAddMenu As String = ""
    Private strThousSep As String = ","
    Private strDecSep As String = "."
    Private intQtyDec As Integer = 3
    Private objForm As SAPbouiCOM.Form
    Dim GOD_RecSet As SAPbobsCOM.Recordset
    Dim Crores, Lakhs, Rupees, Paise, Temp
    Dim DecimalPlace As Long, Count As Long
    Dim myLakhs, myCrores As String
    Dim Place(9) As String
    Public Sub AddAlphaField(ByVal TableName As String, ByVal ColumnName As String, ByVal ColDescription As String, ByVal Size As Integer, Optional ByVal DefaultValue As String = "")
        Try
            addField(TableName, ColumnName, ColDescription, SAPbobsCOM.BoFieldTypes.db_Alpha, Size, SAPbobsCOM.BoFldSubTypes.st_None, "", "", DefaultValue)
        Catch ex As Exception
            GOD_Main.GOD_Application.StatusBar.SetText(ex.Message & " Field Name is " & ColDescription, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning)
        End Try
    End Sub
    Public Sub AddDateField(ByVal TableName As String, ByVal ColumnName As String, ByVal ColDescription As String, ByVal SubType As SAPbobsCOM.BoFldSubTypes)
        Try
            addField(TableName, ColumnName, ColDescription, SAPbobsCOM.BoFieldTypes.db_Date, 0, SubType, "", "", "")
        Catch ex As Exception
            GOD_Main.GOD_Application.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning)
        End Try
    End Sub

    Public Sub AddFloatField(ByVal TableName As String, ByVal ColumnName As String, ByVal ColDescription As String, ByVal SubType As SAPbobsCOM.BoFldSubTypes)
        Try
            addField(TableName, ColumnName, ColDescription, SAPbobsCOM.BoFieldTypes.db_Float, 0, SubType, "", "", "")
        Catch ex As Exception
            GOD_Main.GOD_Application.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning)
        End Try
    End Sub

    Public Sub AddNumericField(ByVal TableName As String, ByVal ColumnName As String, ByVal ColDescription As String, ByVal Size As Integer, ByVal ValidValues As String, ByVal ValidDescriptions As String, ByVal DefultValue As String)
        Try
            addField(TableName, ColumnName, ColDescription, SAPbobsCOM.BoFieldTypes.db_Numeric, Size, SAPbobsCOM.BoFldSubTypes.st_None, ValidValues, ValidDescriptions, DefultValue)
        Catch ex As Exception
            GOD_Main.GOD_Application.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning)
        End Try
    End Sub

    Public Sub AddNumericField(ByVal TableName As String, ByVal ColumnName As String, ByVal ColDescription As String, ByVal Size As Integer)
        Try
            addField(TableName, ColumnName, ColDescription, SAPbobsCOM.BoFieldTypes.db_Numeric, Size, SAPbobsCOM.BoFldSubTypes.st_None, "", "", "")
        Catch ex As Exception
            GOD_Main.GOD_Application.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning)
        End Try
    End Sub

    Public Sub addFieldWithLinkedTable(ByVal TableName As String, ByVal ColumnName As String, ByVal ColDescription As String, ByVal FieldType As SAPbobsCOM.BoFieldTypes, ByVal Size As Integer, ByVal SubType As SAPbobsCOM.BoFldSubTypes, ByVal LinkedTableName As String, ByVal EditSize As Integer)
        Dim objUserFieldMD As SAPbobsCOM.UserFieldsMD
        objUserFieldMD = GOD_Main.GOD_Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserFields)
        Try
            If (Not isColumnExist(TableName, ColumnName)) Then
                objUserFieldMD.Name = ColumnName
                objUserFieldMD.Type = FieldType
                objUserFieldMD.EditSize = 8
                objUserFieldMD.Description = ColDescription
                objUserFieldMD.SubType = SubType
                objUserFieldMD.LinkedTable = LinkedTableName
                objUserFieldMD.TableName = TableName
                If (objUserFieldMD.Add() <> 0) Then
                    GOD_Main.GOD_Application.StatusBar.SetText(GOD_Main.GOD_Company.GetLastErrorDescription)
                End If
            End If
        Catch ex As Exception
            GOD_Main.GOD_Application.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning)
        Finally
            System.Runtime.InteropServices.Marshal.ReleaseComObject(objUserFieldMD)
            GC.Collect()
        End Try
    End Sub
#Region "Create Table"
    Public Function CreateTable(ByVal TableName As String, ByVal TableDescription As String, ByVal TableType As SAPbobsCOM.BoUTBTableType) As Boolean
        Dim intRetCode As Integer
        Dim objUserTableMD As SAPbobsCOM.UserTablesMD
        objUserTableMD = GOD_Main.GOD_Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserTables)
        Try
            If (Not objUserTableMD.GetByKey(TableName)) Then
                objUserTableMD.TableName = TableName
                objUserTableMD.TableDescription = TableDescription
                objUserTableMD.TableType = TableType
                intRetCode = objUserTableMD.Add()
                If intRetCode = 0 Then
                    GOD_Main.objUtilities.ShowSuccessMessage(TableName & " Table Created Successfully.")
                    Return True
                Else
                    GOD_Main.objUtilities.ShowSuccessMessage(TableName & " Table Not Created Successfully.")
                    Return False
                End If
            Else
                Return False
            End If
        Catch ex As Exception
            GOD_Main.GOD_Application.StatusBar.SetText(TableName & " Table is not Created Successfully." & ex.Message)
        Finally
            System.Runtime.InteropServices.Marshal.ReleaseComObject(objUserTableMD)
            GC.Collect()
        End Try
    End Function
#End Region

    Public Function FormExistTypeEx(ByVal FormUID As String) As Boolean
        Dim intLoop As Integer
        For intLoop = GOD_Main.GOD_Application.Forms.Count - 1 To 0 Step -1
            If Trim(FormUID) = Trim(GOD_Main.GOD_Application.Forms.Item(intLoop).TypeEx) Then
                Return True
            End If
        Next
        Return False
    End Function

#Region "GetApplication"
    'To Get SAP Business One Application
    Public Function GetApplication() As SAPbouiCOM.Application
        Dim objApp As SAPbouiCOM.Application
        Dim objSboGuiApi As New SAPbouiCOM.SboGuiApi
        Dim strConnectionString As String = Environment.GetCommandLineArgs.GetValue(1)
        objSboGuiApi = New SAPbouiCOM.SboGuiApi
        objSboGuiApi.Connect(strConnectionString)
        objApp = objSboGuiApi.GetApplication()
        Return objApp
    End Function
#End Region

#Region "GET COMPANY"
    'To Connect to SAP SAP Business One Company
    Public Function GetCompany(ByVal SBOApplication As SAPbouiCOM.Application) As SAPbobsCOM.Company
        Dim GOD_Company As SAPbobsCOM.Company
        Dim strCookie As String
        Dim strCookieContext As String
        Try
            GOD_Company = New SAPbobsCOM.Company
            strCookie = GOD_Company.GetContextCookie
            strCookieContext = SBOApplication.Company.GetConnectionContext(strCookie)
            GOD_Company.SetSboLoginContext(strCookieContext)
            If GOD_Company.Connect <> 0 Then
                strLastError = "Connection Error"
                SBOApplication.StatusBar.SetText("GOD Quality Control Addon Connection Error. Error is " & GOD_Main.GOD_Company.GetLastErrorDescription, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error)
                Return Nothing
            End If
            Return GOD_Company
        Catch ex As Exception
            SBOApplication.MessageBox(ex.Message)
            Return Nothing
        End Try
    End Function
#End Region

#Region "Register UDO"
    '*****************************************************************
    'Type               : Function    
    'Name               : registerUDO
    'Parameter          : UDOCode,UDOName,UDOType,findAliasNDescription,parentTableName,childTable1,childTable2,childTable3,childTable4,LogOption,DefFormOption,MenuItem,MenuCaption,FatherMenuId,Position
    'Return Value       : Boolean
    'Author             : Mahendrakumar 
    'Created Date       : 21042017
    'Last Modified By   : 
    'Modified Date      : 
    'Purpose            : To Register Use Defined Object in SAP Business One
    '*****************************************************************
    Function registerUDO(ByVal UDOCode As String, ByVal UDOName As String, ByVal UDOType As SAPbobsCOM.BoUDOObjType, ByVal findAliasNDescription As String(,), ByVal parentTableName As String, Optional ByVal childTable1 As String = "", Optional ByVal childTable2 As String = "", Optional ByVal childTable3 As String = "", Optional ByVal childTable4 As String = "", Optional ByVal childTable5 As String = "", Optional ByVal childTable6 As String = "", Optional ByVal childTable7 As String = "", Optional ByVal childTable8 As String = "", Optional ByVal LogOption As SAPbobsCOM.BoYesNoEnum = SAPbobsCOM.BoYesNoEnum.tNO, Optional ByVal DefFormOption As SAPbobsCOM.BoYesNoEnum = SAPbobsCOM.BoYesNoEnum.tNO, Optional ByVal MenuItem As SAPbobsCOM.BoYesNoEnum = SAPbobsCOM.BoYesNoEnum.tNO, Optional ByVal MenuCaption As String = "", Optional ByVal FatherMenuId As String = "", Optional ByVal Position As Integer = 0) As Boolean
        Dim actionSuccess As Boolean = False
        Try
            registerUDO = False
            Dim v_udoMD As SAPbobsCOM.UserObjectsMD
            v_udoMD = GOD_Main.objUtilities.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserObjectsMD)
            v_udoMD.CanCancel = SAPbobsCOM.BoYesNoEnum.tNO
            v_udoMD.CanClose = SAPbobsCOM.BoYesNoEnum.tNO
            v_udoMD.CanCreateDefaultForm = SAPbobsCOM.BoYesNoEnum.tNO
            v_udoMD.CanDelete = SAPbobsCOM.BoYesNoEnum.tYES
            v_udoMD.CanFind = SAPbobsCOM.BoYesNoEnum.tYES
            v_udoMD.CanLog = LogOption
            v_udoMD.CanYearTransfer = SAPbobsCOM.BoYesNoEnum.tYES
            v_udoMD.ManageSeries = SAPbobsCOM.BoYesNoEnum.tYES
            v_udoMD.Code = UDOCode
            v_udoMD.Name = UDOName
            v_udoMD.TableName = parentTableName
            If LogOption = SAPbobsCOM.BoYesNoEnum.tYES Then
                v_udoMD.LogTableName = "A" & parentTableName
            End If
            If DefFormOption = SAPbobsCOM.BoYesNoEnum.tYES Then
                v_udoMD.CanCreateDefaultForm = SAPbobsCOM.BoYesNoEnum.tYES
                v_udoMD.MenuItem = SAPbobsCOM.BoYesNoEnum.tYES
                v_udoMD.MenuCaption = MenuCaption
                v_udoMD.FatherMenuID = FatherMenuId
                v_udoMD.Position = Position
            End If
            v_udoMD.ObjectType = UDOType
            For i As Int16 = 0 To findAliasNDescription.GetLength(0) - 1
                If i > 0 Then v_udoMD.FindColumns.Add()
                v_udoMD.FindColumns.ColumnAlias = findAliasNDescription(i, 0)
                v_udoMD.FindColumns.ColumnDescription = findAliasNDescription(i, 1)
            Next
            If childTable1 <> "" Then
                v_udoMD.ChildTables.TableName = childTable1
                v_udoMD.ChildTables.Add()
            End If
            If childTable2 <> "" Then
                v_udoMD.ChildTables.TableName = childTable2
                v_udoMD.ChildTables.Add()
            End If
            If childTable3 <> "" Then
                v_udoMD.ChildTables.TableName = childTable3
                v_udoMD.ChildTables.Add()
            End If
            If childTable4 <> "" Then
                v_udoMD.ChildTables.TableName = childTable4
                v_udoMD.ChildTables.Add()
            End If
            If v_udoMD.Add() = 0 Then
                registerUDO = True
                GOD_Main.GOD_Application.StatusBar.SetText("Successfully Registered UDO >" & UDOCode & ">" & UDOName & ".", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success)
            Else
                GOD_Main.GOD_Application.StatusBar.SetText("Failed to Register UDO >" & UDOCode & ">" & UDOName & " >" & GOD_Main.GOD_Company.GetLastErrorDescription, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error)
                registerUDO = False
            End If
            System.Runtime.InteropServices.Marshal.ReleaseComObject(v_udoMD)
            v_udoMD = Nothing
            GC.Collect()
        Catch ex As Exception
            GOD_Main.GOD_Application.MessageBox(ex.Message)
        End Try
    End Function
#End Region

#Region "Check for UDO Exists"
    'Purpose            : To Check If User Defined Object already exists or not
    Public Function UDOExists(ByVal code As String) As Boolean
        GC.Collect()
        Dim v_UDOMD As SAPbobsCOM.UserObjectsMD
        Dim v_ReturnCode As Boolean
        v_UDOMD = GOD_Main.objUtilities.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserObjectsMD)
        v_ReturnCode = v_UDOMD.GetByKey(code)
        System.Runtime.InteropServices.Marshal.ReleaseComObject(v_UDOMD)
        v_UDOMD = Nothing
        Return v_ReturnCode
    End Function
#End Region

#Region "Add Column"
    'Purpose            : Add User Defined Field to Table
    Private Sub addCol(ByVal strTab As String, ByVal strCol As String, ByVal strDesc As String, ByVal nType As Integer, Optional ByVal nEditSize As Integer = 10, Optional ByVal nSubType As Integer = 0)
        Dim oUFields As SAPbobsCOM.UserFieldsMD
        Dim nError As Integer
        oUFields = GOD_Main.GOD_Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserFields)
        oUFields.TableName = strTab
        oUFields.Name = strCol
        oUFields.Type = nType
        oUFields.SubType = nSubType
        oUFields.Description = strDesc
        oUFields.EditSize = nEditSize
        nError = oUFields.Add()
        System.Runtime.InteropServices.Marshal.ReleaseComObject(oUFields)
        GC.Collect()
        GC.WaitForPendingFinalizers()
        If nError <> 0 Then
            'MsgBox(strCol & " table could not be added")
        End If
    End Sub
#End Region

#Region "Field Creations"
    'Purpose            : Add Alphabet Field to Table
    Public Sub AddAlphaField(ByVal TableName As String, ByVal ColumnName As String, ByVal ColDescription As String, ByVal Size As Integer, ByVal SubType As SAPbobsCOM.BoFldSubTypes, Optional ByVal DefaultValue As String = "")
        Try
            addField(TableName, ColumnName, ColDescription, SAPbobsCOM.BoFieldTypes.db_Alpha, Size, SAPbobsCOM.BoFldSubTypes.st_None, "", "", DefaultValue)
        Catch ex As Exception
            GOD_Main.GOD_Application.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning)
        End Try
    End Sub

    'Purpose            : Add Field to Table 
    Public Sub addField(ByVal TableName As String, ByVal ColumnName As String, ByVal ColDescription As String, ByVal FieldType As SAPbobsCOM.BoFieldTypes, ByVal Size As Integer, ByVal SubType As SAPbobsCOM.BoFldSubTypes, ByVal ValidValues As String, ByVal ValidDescriptions As String, ByVal SetValidValue As String)
        Dim intLoop As Integer
        Dim strValue, strDesc As Array
        Dim objUserFieldMD As SAPbobsCOM.UserFieldsMD
        objUserFieldMD = GOD_Main.GOD_Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserFields)
        Try
            strValue = ValidValues.Split(Convert.ToChar(","))
            strDesc = ValidDescriptions.Split(Convert.ToChar(","))
            If (strValue.GetLength(0) <> strDesc.GetLength(0)) Then
                Throw New Exception("Invalid Valid Values")
            End If
            If (Not isColumnExist(TableName, ColumnName)) Then
                objUserFieldMD.TableName = TableName
                objUserFieldMD.Name = ColumnName
                objUserFieldMD.Description = ColDescription
                objUserFieldMD.Type = FieldType
                If (FieldType <> SAPbobsCOM.BoFieldTypes.db_Numeric) Then
                    objUserFieldMD.Size = Size
                Else
                    objUserFieldMD.EditSize = Size
                End If
                objUserFieldMD.SubType = SubType
                If strValue.Length > 1 Then
                    For intLoop = 0 To strValue.GetLength(0) - 1
                        objUserFieldMD.ValidValues.Value = strValue(intLoop)
                        objUserFieldMD.ValidValues.Description = strDesc(intLoop)
                        objUserFieldMD.ValidValues.Add()
                    Next
                    objUserFieldMD.DefaultValue = SetValidValue
                Else
                    If SetValidValue.Length > 0 Then
                        objUserFieldMD.DefaultValue = SetValidValue
                    End If
                End If
                If (objUserFieldMD.Add() <> 0) Then
                    GOD_Main.GOD_Application.StatusBar.SetText(GOD_Main.GOD_Company.GetLastErrorDescription)
                Else
                    GOD_Main.GOD_Application.StatusBar.SetText(objUserFieldMD.Name + " Created Successfully.", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_None)
                End If
            End If
        Catch ex As Exception
            GOD_Main.GOD_Application.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Warning)
        Finally
            System.Runtime.InteropServices.Marshal.ReleaseComObject(objUserFieldMD)
            GC.Collect()
        End Try
    End Sub
#End Region

#Region " Column Exist or Not "
    Private Function isColumnExist(ByVal TableName As String, ByVal ColumnName As String) As Boolean
        Dim objRecordSet As SAPbobsCOM.Recordset
        Dim strTemp As String = ""
        objRecordSet = GOD_Main.GOD_Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
        Try
            strTemp = "SELECT COUNT(*) FROM CUFD WHERE TableID = '" & TableName & "' AND AliasID = '" & ColumnName & "'"
            objRecordSet.DoQuery(strTemp)
            If (Convert.ToInt16(objRecordSet.Fields.Item(0).Value) = 0) Then
                Return False
            Else
                Return True
            End If
        Catch ex As Exception
            Throw ex
        Finally
            System.Runtime.InteropServices.Marshal.ReleaseComObject(objRecordSet)
            GC.Collect()
        End Try
    End Function
#End Region

    '-------------------------------------------------------------------------------------------
#Region "DI /UI Methods"
    Sub LoadForm(ByVal XMLFile As String, ByVal FormType As String, ByVal FormUID As String, Optional ByVal FileType As ResourceType = ResourceType.Content)
        Try
            Dim xmldoc As New Xml.XmlDocument
            Dim Streaming As System.IO.Stream = Assembly.GetExecutingAssembly().GetManifestResourceStream("BSPL_Beam_Manufacturing." + XMLFile)
            Dim StreamRead As New System.IO.StreamReader(Streaming, True)
            xmldoc.LoadXml(StreamRead.ReadToEnd)
            StreamRead.Close()
            Dim r As New Random
            r.Next(1000)
            If Not xmldoc.SelectSingleNode("//form") Is Nothing Then
                xmldoc.SelectSingleNode("//form").Attributes.GetNamedItem("uid").Value = xmldoc.SelectSingleNode("//form").Attributes.GetNamedItem("uid").Value & "_" & r.Next
                GOD_Main.GOD_Application.LoadBatchActions(xmldoc.InnerXml)
            End If
        Catch ex As Exception
            GOD_Main.GOD_Application.MessageBox(ex.Message)
        End Try
    End Sub
#Region "GetDateTime"
    Public Function GetDateTimeValue(ByVal DateString As String) As DateTime
        Dim objBridge As SAPbobsCOM.SBObob
        objBridge = GOD_Main.GOD_Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoBridge)
        Return objBridge.Format_StringToDate(DateString).Fields.Item(0).Value
    End Function
    Public Function GetDateToString(ByVal DateString As String) As DateTime
        Dim objBridge As SAPbobsCOM.SBObob
        objBridge = GOD_Main.GOD_Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoBridge)
        Return objBridge.Format_DateToString(DateString).Fields.Item(0).Value
    End Function
    Public Function GetSBODateString(ByVal DateVal As DateTime) As String
        Dim objBridge As SAPbobsCOM.SBObob
        objBridge = GOD_Main.GOD_Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoBridge)
        Return objBridge.Format_DateToString(DateVal).Fields.Item(0).Value
    End Function
#End Region

#Region "Number Conversions"
    Public Function GetQtyValue(ByVal QtyString As String) As Double
        Dim dblValue As Double
        QtyString = QtyString.Replace(strThousSep, "")
        QtyString = QtyString.Replace(strDecSep, System.Globalization.NumberFormatInfo.CurrentInfo.NumberDecimalSeparator)
        dblValue = Convert.ToDouble(QtyString)
        Return dblValue
    End Function
    Public Function GetQtyString(ByVal QtyVal As Double) As String
        GetQtyString = QtyVal.ToString()
        GetQtyString.Replace(",", strDecSep)
    End Function
#End Region

#Region "Business Objects"
    Public Function GetBusinessObject(ByVal ObjectType As SAPbobsCOM.BoObjectTypes) As Object
        Return GOD_Main.GOD_Company.GetBusinessObject(ObjectType)
    End Function

#Region "Filling the values in the Combo"
    Public Sub FillDocvalues(ByVal GOD_Form As SAPbouiCOM.Form, ByVal comboid As String)
        Dim oRS As SAPbobsCOM.Recordset = GOD_Main.objUtilities.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
        Dim objCombo As SAPbouiCOM.ComboBox
        oRS.DoQuery("Select Code, Name from [@FCA_DOC]")
        objCombo = GOD_Form.Items.Item(comboid).Specific
        If (objCombo.ValidValues.Count <= 0) Then
            For i As Integer = 0 To oRS.RecordCount - 1
                objCombo.ValidValues.Add(oRS.Fields.Item(0).Value, oRS.Fields.Item(1).Value)
                oRS.MoveNext()
            Next
        End If
        Dim objItem As SAPbouiCOM.Item = GOD_Form.Items.Item(comboid)
        objItem.DisplayDesc = True
    End Sub
#End Region

    Public Function CreateUIObject(ByVal Type As SAPbouiCOM.BoCreatableObjectType) As Object
        Return GOD_Main.GOD_Application.CreateObject(Type)
    End Function

#End Region

#Region "Form Objects"
    Public Function GetForm(ByVal FormUID As String) As SAPbouiCOM.Form
        Return GOD_Main.GOD_Application.Forms.Item(FormUID)
    End Function
    Public Function GetForm(ByVal Type As String, ByVal Count As Integer) As SAPbouiCOM.Form
        Return GOD_Main.GOD_Application.Forms.GetForm(Type, Count)
    End Function
#End Region

#Region "GetEditTextValue"
    Public Function GetEditText(ByVal aForm As SAPbouiCOM.Form, ByVal aUID As String) As String
        objEdit = aForm.Items.Item(aUID).Specific
        Return Convert.ToString(objEdit.Value)
    End Function
    Public Function GetEditText(ByVal aFormUID As String, ByVal aUID As String) As String
        GOD_Form = GOD_Main.GOD_Application.Forms.Item(aFormUID)
        objEdit = GOD_Form.Items.Item(aUID).Specific
        Return Convert.ToString(objEdit.Value)
    End Function
#End Region

#Region "SetEditTextValue"
    Public Sub SetEditText(ByVal aForm As SAPbouiCOM.Form, ByVal aUID As String, ByVal aVal As String)
        objEdit = aForm.Items.Item(aUID).Specific
        objEdit.Value = aVal
    End Sub
    Public Sub SetEditText(ByVal aFormUID As String, ByVal aUID As String, ByVal aVal As String)
        GOD_Form = GOD_Main.GOD_Application.Forms.Item(aFormUID)
        objEdit = GOD_Form.Items.Item(aUID).Specific
        objEdit.Value = aVal
    End Sub
#End Region
#End Region
    Public Function GetCode(ByVal sTableName As String) As String
        Dim oRecSet As SAPbobsCOM.Recordset
        Dim sQuery As String
        oRecSet = GOD_Main.GOD_Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
        sQuery = "SELECT Top 1 Code  FROM " & sTableName + " ORDER BY Convert(Int,Code) desc"
        oRecSet.DoQuery(sQuery)
        If Not oRecSet.EoF Then
            GetCode = Convert.ToInt32(oRecSet.Fields.Item(0).Value.ToString()) + 1
        Else
            GetCode = "1"
        End If
    End Function
    Public Function ShowSuccessMessage(ByVal Message As String)
        GOD_Main.GOD_Application.StatusBar.SetText(Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success)
        Return Nothing
    End Function
    Public Function FormExist(ByVal FormUID As String) As Boolean
        Dim intLoop As Integer
        For intLoop = GOD_Main.GOD_Application.Forms.Count - 1 To 0 Step -1
            If Trim(FormUID) = Trim(GOD_Main.GOD_Application.Forms.Item(intLoop).UniqueID) Then
                Return True
            End If
        Next
        Return False
    End Function

End Class

Public Enum ResourceType
    Embeded
    Content
End Enum


 

Thanks and Regards,

Mahendrakumar

To report this post you need to login first.

Be the first to leave a comment

You must be Logged on to comment or reply to a post.

Leave a Reply