Update UDT

Question

Hi Experts,
I want to protect my udt using VB.net and SDK code so that the user can update it. The udt can only be updated by a certain super user i.e. manager.
Please help me to provide the code. I will appreciate it so much.
Rgds,
John

Answer 1

Hi
Try this
Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent
        Try
            Dim oForm As SAPbouiCOM.Form = SBO_Application.Forms.Item(FormUID)
            If (FormUID = "yourformuid") Then
                If (pVal.Before_Action = False) Then
                    If pVal.EventType = SAPbouiCOM.BoEventTypes.et_FORM_DATA_LOAD Then
                        'Here write your code
                        'if the user is not a super user then just disable all the controls in the form and set form mode to ok mode
                          Dim oSQLRS As SAPbobsCOM.Recordset = SBO_Application.diCompany.GetBusinessObject(BoObjectTypes.BoRecordset)
                Dim SQLString As String
                SQLString ="SELECT T0.UserID FROM OUSR T0 WHERE T0.SUPERUSER = 'Y' "
                if  oSQLRS.DoQuery(SQLString) = SBO_Application.Company.UserName  then
              else
                      DisableForm(oForm)
                     oForm.Mode = SAPbouiCOM.BoFormMode.fm_OK_MODE
                 end if
                    End If
                End If
            End If
        Catch ex As Exception
        End Try
    End Sub
Public Function DisableForm(ByVal _form As SAPbouiCOM.Form) As Boolean
            Try
                Dim itemCollection As ArrayList
                itemCollection = getItems(_form)
                Dim oItem As SAPbouiCOM.Item
                _form.Freeze(True)
                For Each tempLoopVar_oItem As SAPbouiCOM.Item In itemCollection
                    If tempLoopVar_oItem.Type = BoFormItemTypes.it_FOLDER Or tempLoopVar_oItem.Type = BoFormItemTypes.it_STATIC Or tempLoopVar_oItem.Type = BoFormItemTypes.it_LINKED_BUTTON Then
                        oItem = tempLoopVar_oItem
                        oItem.Enabled = True
                    Else
                        oItem = tempLoopVar_oItem
                        'for excluding button 1, 2 and txtTemp
                        If oItem.UniqueID = "1" Or oItem.UniqueID = "2" Or oItem.UniqueID = "txtTemp" Then
                            If oItem.UniqueID <> "txtTemp" Then
                                oItem.Enabled = True
                            End If
                        Else
                            oItem.Enabled = False
                        End If
                    End If
                Next
                _form.Freeze(False)
                Return True
            Catch ex As Exception
                MessageBox.Show(ex.ToString())
                _form.Freeze(False)
                Return True
            End Try
        End Function
Public Function getItems(ByRef _form As SAPbouiCOM.Form) As ArrayList
            Try
                Dim oItemCollection As New ArrayList()
                Dim oItem As SAPbouiCOM.Item
                For Each tempLoopVar_oItem As SAPbouiCOM.Item In _form.Items
                    oItem = tempLoopVar_oItem
                    oItemCollection.Add(oItem)
                Next
                Return oItemCollection
            Catch ex As Exception
                MessageBox.Show(ex.ToString())
                Return Nothing
            End Try
        End Function
for this code to work correctly place an edittext box in to your form with unique id txtTemp and set its width and hieght to 0
Regards
Arun