Link Button to UDO in my Grid

Question

hi,
is ther a way to implement a link button im my Grid Column and bind it to an existing UDO ?
I'm using SBO 2007A SP00 PL37.
the following code, shows the link button and links to an item
oGrid.Columns.Item(0).Type = SAPbouiCOM.BoGridColumnType.gct_EditText
        oCol = oGrid.Columns.Item(0)
        oCol.LinkedObjectType = 4
i tried to link to my udo by the following but without success:
oGrid.Columns.Item(0).Type = SAPbouiCOM.BoGridColumnType.gct_EditText
        oCol = oGrid.Columns.Item(0)
        oCol.LinkedObjectType = "UDO_VM_CONTRACT"
I'm looking for a way of direct linking. Now i try to do the following workaround, but maybe there is a better way to solve this problem:
Case SAPbouiCOM.BoEventTypes.et_MATRIX_LINK_PRESSED
                        If pVal.BeforeAction = False Then
                            BubbleEvent = False
                            moSboApplication.ActivateMenuItem("VmContract")
                        End If
best regards
Markus
Edited by: Markus Rewak on Jul 10, 2008 11:11 PM
Edited by: Markus Rewak on Jul 10, 2008 11:12 PM

Answer 1

Hi Madhu,
the udo object type is not working. To get the drill down functionality you have to use the item-object (4) and catch the matrix link pressed event and search the udo by your own logic.
' Add a link button to a column
        oGrid.Columns.Item(0).Type = SAPbouiCOM.BoGridColumnType.gct_EditText
        oCol = oGrid.Columns.Item(0)
        oCol.LinkedObjectType = 4
Case SAPbouiCOM.BoEventTypes.et_MATRIX_LINK_PRESSED
                            If pVal.ColUID = "Vnr" And pVal.BeforeAction = True Then
                                BubbleEvent = False
                            Dim sLink As String
                            Dim oGrid As SAPbouiCOM.Grid
                            oGrid = oForm.Items.Item("Gcont").Specific
                            oGrid.DataTable = oForm.DataSources.DataTables.Item("DTcont")
                            sLink = oGrid.DataTable.GetValue(0, pVal.Row)
                            moSboApplication.ActivateMenuItem("VMarkus")
                            moSboApplication.Forms.ActiveForm.Mode = SAPbouiCOM.BoFormMode.fm_FIND_MODE
                            moSboApplication.Forms.ActiveForm.ActiveItem = "txtdocnum"
                            moSboApplication.Forms.ActiveForm.Items.Item("txtdocnum").Specific.value = sLink
                            moSboApplication.Forms.ActiveForm.Items.Item("1").Click(SAPbouiCOM.BoCellClickType.ct_Regular)
                            End If
                End Select
This works very well.
have fun
Markus