cancel
Showing results for 
Search instead for 
Did you mean: 

Pop of Delivery when click image in grid using vb.net

Former Member
0 Kudos

Hi,

How to get the delivery form when i click the arrow image in grid using vb.net.

Thanks,

yughandar.

Accepted Solutions (0)

Answers (2)

Answers (2)

Former Member
0 Kudos

Very helpfull to me

Former Member
0 Kudos

Hello,

You should put the DocEntry value of Delivery note into the column, and define a LinkedObjectType as delivery note on the column

See the folllowing thread:

or this example

Sub GridwithLinkedButton()

        Dim oForm As SAPbouiCOM.Form = sbo_application.Forms.Add("GRIDTEST")
        oForm.Visible = True
        oForm.Width = 300
        oForm.Height = 400

        oForm.DataSources.DataTables.Add("GRIDTEST")
        oForm.DataSources.DataTables.Item("GRIDTEST").Clear()
        Dim sSQL As String = "SELECT top 10 T0.DocEntry,  T0.NumAtCard, T0.DocDate FROM ODLN T0 WHERE T0.DocStatus = 'O' ORDER BY T0.DocNum"
        oForm.DataSources.DataTables.Item("GRIDTEST").ExecuteQuery(sSQL)

        Dim oItem As SAPbouiCOM.Item = oForm.Items.Add("GRIDTEST", SAPbouiCOM.BoFormItemTypes.it_GRID)
        oItem.Top = 10
        oItem.Left = 10
        oItem.Width = oForm.Width - 20
        oItem.Height = oForm.Height - 100

        Dim oGrid As SAPbouiCOM.Grid = oItem.Specific

        oGrid.DataTable = oForm.DataSources.DataTables.Item("GRIDTEST")
        Dim oEditTextColumn As SAPbouiCOM.EditTextColumn = oGrid.Columns.Item("DocEntry")
        oEditTextColumn.LinkedObjectType = SAPbobsCOM.BoObjectTypes.oDeliveryNotes

    End Sub

Regards,

J