System forms

Question

hi kings
i m trying to change the system opportunity forms. i just add one folder the folder contain matrix... i take the example programs(system manipulation)..the folder added.. the matrix also added.. but unfortunately the matrix not allow to enter the data and how to save the data .... here i pasted full codings....please any one help me...
Code....
Public Class SystemForm
    Private WithEvents SBO_Application As SAPbouiCOM.Application
    Private oOrderForm As SAPbouiCOM.Form
    Private oNewItem As SAPbouiCOM.Item
    Private oItem As SAPbouiCOM.Item
    Private oFolderItem As SAPbouiCOM.Folder
    Private oOptionBtn As SAPbouiCOM.OptionBtn
    Private oCheckBox As SAPbouiCOM.CheckBox
    Private oMatrix As SAPbouiCOM.Matrix
    Private oColumns As SAPbouiCOM.Columns
    Private oColumn As SAPbouiCOM.Column
    Private i As Integer '// to be used as a counter
    Private Sub SetApplication()
        Dim SboGuiApi As SAPbouiCOM.SboGuiApi
        Dim sConnectionString As String
        SboGuiApi = New SAPbouiCOM.SboGuiApi()
        sConnectionString = Command
        SboGuiApi.Connect(sConnectionString)
        '// get an initialized application object
        SBO_Application = SboGuiApi.GetApplication()
    End Sub
    Private Sub AddItemsToOrderForm()
        oOrderForm.DataSources.UserDataSources.Add("OpBtnDS", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)
        oOrderForm.DataSources.UserDataSources.Add("CheckDS1", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)
        oOrderForm.DataSources.UserDataSources.Add("CheckDS2", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)
        oOrderForm.DataSources.UserDataSources.Add("CheckDS3", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)
        oItem = oOrderForm.Items.Item("7")
        For i = 1 To 3
            oNewItem = oOrderForm.Items.Add("CheckBox" & i, SAPbouiCOM.BoFormItemTypes.it_CHECK_BOX)
            oNewItem.Left = oItem.Left
            oNewItem.Width = 100
            oNewItem.Top = oItem.Top + (i - 1) * 19
            oNewItem.Height = 19
            oNewItem.Visible = False
            oNewItem.FromPane = 5
            oNewItem.ToPane = 5
            oCheckBox = oNewItem.Specific
            '// set the caption
            oCheckBox.Caption = "Check Box" & i
            '// binding the Check box with a data source
            oCheckBox.DataBind.SetBound(True, "", "CheckDS" & i)
        Next i
        '// Adding Option button items
        '// use an existing item to place youe item on the form
        'oItem = oOrderForm.Items.Item("44")
        For i = 1 To 3
            oNewItem = oOrderForm.Items.Add("OpBtn" & i, SAPbouiCOM.BoFormItemTypes.it_OPTION_BUTTON)
            oNewItem.Left = oItem.Left
            oNewItem.Width = 100
            oNewItem.Top = oItem.Top + (i - 1) * 25
            oNewItem.Height = 19
            oNewItem.Visible = False
            '// set the Item's Pane Level.
            '// this value will determine the Items visibility
            '// according to the Form's pane level
            oNewItem.FromPane = 9
            oNewItem.ToPane = 9
            oOptionBtn = oNewItem.Specific
            '// set the caption
            oOptionBtn.Caption = "Option Button" & i
            If i > 1 Then
                oOptionBtn.GroupWith("OpBtn" & i - 1)
            End If
            oOptionBtn.DataBind.SetBound(True, "", "OpBtnDS")
        Next i
    End Sub
    Private Sub AddMatrixToForm()
        '// we will use the following object to add items to our form
        Dim oItem As SAPbouiCOM.Item
        '// we will use the following object to set a linked button
        Dim oLink As SAPbouiCOM.LinkedButton
        '// Adding a Matrix item
        oItem = oOrderForm.Items.Item("7")
        oItem = oOrderForm.Items.Add("Matrix1", SAPbouiCOM.BoFormItemTypes.it_MATRIX)
        oItem.Left = 35
        oItem.Width = 400
        oItem.Top = oItem.Top + (i - 1) * 60
        oItem.Height = 125
        oMatrix = oItem.Specific
        oColumns = oMatrix.Columns
        oItem.FromPane = 9
        oItem.ToPane = 9
        '// Adding Culomn items to the matrix
        oColumn = oColumns.Add("#", SAPbouiCOM.BoFormItemTypes.it_EDIT)
        oColumn.TitleObject.Caption = "#"
        oColumn.Width = 30
        oColumn.Editable = False
        '// Add a column for BP Card Code
        oColumn = oColumns.Add("DSCardCode", SAPbouiCOM.BoFormItemTypes.it_LINKED_BUTTON)
        oColumn.TitleObject.Caption = "Item Code"
        oColumn.Width = 150
        oColumn.Editable = True
        '// Link the column to the BP master data system form
        oLink = oColumn.ExtendedObject
        oLink.LinkedObject = SAPbouiCOM.BoLinkedObject.lf_BusinessPartner
        '// Add a column for BP Card Name
        oColumn = oColumns.Add("DSCardName", SAPbouiCOM.BoFormItemTypes.it_EDIT)
        oColumn.TitleObject.Caption = "Description"
        oColumn.Width = 150
        oColumn.Editable = True
        'oColumn.DataBind.SetBound(true, "TableName", "U_ItemNo")
        '// Add a column for BP Card Phone
        oColumn = oColumns.Add("DSPhone", SAPbouiCOM.BoFormItemTypes.it_EDIT)
        oColumn.TitleObject.Caption = "Quantity"
        oColumn.Width = 70
        oColumn.Editable = True
    End Sub
    Public Sub New()
        MyBase.New()
        SetApplication()
    End Sub
    Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent
        If ((pVal.FormType = 320 And pVal.EventType <> SAPbouiCOM.BoEventTypes.et_FORM_UNLOAD) And (pVal.Before_Action = True)) Then
            '// get the event sending form
            oOrderForm = SBO_Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount)
            If ((pVal.EventType = SAPbouiCOM.BoEventTypes.et_FORM_LOAD) And (pVal.Before_Action = True)) Then
                '// add a new folder item to the form
                oNewItem = oOrderForm.Items.Add("UserFolder", SAPbouiCOM.BoFormItemTypes.it_FOLDER)
                oItem = oOrderForm.Items.Item("7")
                oNewItem.Top = oItem.Top
                oNewItem.Height = oItem.Height
                oNewItem.Width = oItem.Width
                oNewItem.Left = oItem.Left + oItem.Width
                oFolderItem = oNewItem.Specific
                oFolderItem.Caption = "User Folder"
                '// group the folder with the desired folder item
                oFolderItem.GroupWith("7")
                '// add your own items to the form
                AddItemsToOrderForm()
                AddMatrixToForm()
                oOrderForm.PaneLevel = 1
            End If
            If pVal.ItemUID = "UserFolder" And pVal.EventType = SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED And pVal.Before_Action = True Then
                oOrderForm.PaneLevel = 9
            End If
        End If
    End Sub
    Private Sub SBO_Application_AppEvent(ByVal EventType As SAPbouiCOM.BoAppEventTypes)
        Select Case EventType
            Case SAPbouiCOM.BoAppEventTypes.aet_ShutDown
                '// Take care of terminating your AddOn application
                SBO_Application.MessageBox("A Shut Down Event has been caught" & _
                    vbNewLine & "Terminating 'Order Form Manipulation' Add On...")
                End
        End Select
    End Sub
End Class
Thanks & Best Regards
B.Lakshmi Narayanan

Answer 1

Events Part
Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent
        If ((pVal.FormType = 320 And pVal.EventType <> SAPbouiCOM.BoEventTypes.et_FORM_UNLOAD) And (pVal.Before_Action = True)) Then
            '// get the event sending form
            oOrderForm = SBO_Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount)
            If ((pVal.EventType = SAPbouiCOM.BoEventTypes.et_FORM_LOAD) And (pVal.Before_Action = True)) Then
                '// add a new folder item to the form
                oNewItem = oOrderForm.Items.Add("UserFolder", SAPbouiCOM.BoFormItemTypes.it_FOLDER)
                '// use an existing folder item for grouping and setting the
                '// items properties (such as location properties)
                '// use the 'Display Debug Information' option (under 'Tools')
                '// in the application to acquire the UID of the desired folder
                oItem = oOrderForm.Items.Item("7")
                oNewItem.Top = oItem.Top
                oNewItem.Height = oItem.Height
                oNewItem.Width = oItem.Width
                oNewItem.Left = oItem.Left + oItem.Width
                oFolderItem = oNewItem.Specific
                oFolderItem.Caption = "User Folder"
                '// group the folder with the desired folder item
                oFolderItem.GroupWith("7")
                '// add your own items to the form
                AddItemsToOrderForm()
                AddMatrixToForm()
                oOrderForm.PaneLevel = 1
            End If
            'If pVal.EventType = SAPbouiCOM.BoEventTypes.et_CLICK And pVal.Before_Action = True Then
            'oOrderForm.PaneLevel = 5
            'End If
            If pVal.ItemUID = "UserFolder" And pVal.EventType = SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED And pVal.Before_Action = True Then
                '// when the new folder is clicked change the form's pane level
                '// by doing so your items will apear on the new folder
                '// assuming they were placed correctly and their pane level
                '// was also set accordingly
                oOrderForm.PaneLevel = 9
            End If
        End If
    End Sub
Thanks & Best Regards
B.Lakshmi Narayanan