How to add link button in purchase order and opne Business Partner base Screen ?

[Former Member]

how to add link button then after item press open Business Partner Base Screen

[Former Member · Accepted solution]

hi

This is just sample

Do some changes  ok 

i have done  in matrix..

last line you have to change  object type to business partner

Dim oMatrix As SAPbouiCOM.Matrix

                                    Dim oLinkedButton As SAPbouiCOM.LinkedButton

                                    Dim oColumn As SAPbouiCOM.Column

                                    oMatrix = oform.Items.Item("17").Specific

                                    oColumn = oMatrix.Columns.Item("V_7")

                                    oLinkedButton = oColumn.ExtendedObject

                                    oLinkedButton.LinkedObject = SAPbouiCOM.BoLinkedObject.lf_Invoice

[Former Member · Accepted solution]

At the time of form loading  you have ..

you have to create  one  edit box ok

in edit box  cardcode  number should be enter..

and then  you have to link to  lined  button

Dim oi As SAPbouiCOM.Item = oForm.Items.Add("EMP", BoFormItemTypes.it_EDIT)

        oi = oForm.Items.Add("LNK", BoFormItemTypes.it_LINKED_BUTTON)

        oi.LinkTo = "EMP"

        Dim oLinkedButton As SAPbouiCOM.LinkedButton = oi.Specific

        oLinkedButton.LinkedObject = BoLinkedObject.lf_Employee

[Former Member · Accepted solution]

hi.

have u got the answer..

i got it... little bit busy  morning..

The Below code  you can  solve your problem...

  If (pVal.FormType = "142" And pVal.EventType <> SAPbouiCOM.BoEventTypes.et_FORM_UNLOAD And (pVal.Before_Action = True)) Then

            '// get the event sending form

            oForm = SBO_Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount)

            If (pVal.EventType = SAPbouiCOM.BoEventTypes.et_FORM_LOAD) Then

                Try

                    Dim oDBDataSource As SAPbouiCOM.DBDataSource = oForm.DataSources.DBDataSources.Item("opor")

                    Dim oedit As SAPbouiCOM.EditText

                    oedit = oForm.Items.Item("4").Specific

                    oitem = oForm.Items.Add("Edi1", SAPbouiCOM.BoFormItemTypes.it_EDIT)

                    oitem.Width = oForm.Items.Item("4").Width

                    oitem.Top = oForm.Items.Item("4").Top + 70

                    oitem.Height = oForm.Items.Item("4").Height

                    oitem.Left = oForm.Items.Item("4").Left

                    oedit = oitem.Specific

                    oedit.DataBind.SetBound(True, "opor", "U_Sam")

                    Dim lb As SAPbouiCOM.LinkedButton

                    oitem = oForm.Items.Add("Link", SAPbouiCOM.BoFormItemTypes.it_LINKED_BUTTON)

                    oitem.LinkTo = "Edi1"

                    ' oitem.Width = oForm.Items.Item("4").Width

                    oitem.Top = oForm.Items.Item("Edi1").Top

                    oitem.Height = oForm.Items.Item("Edi1").Height

                    oitem.Left = oForm.Items.Item("Edi1").Left - 25

                    lb = oitem.Specific

                    lb.LinkedObject = SAPbouiCOM.BoLinkedObject.lf_BusinessPartner

                Catch ex As Exception

                    SBO_Application.MessageBox(ex.Message)

                End Try

            End If

        End If

---------------------

I think u all ready knew  below points.

you have to create udf fields  under the category of  titles  that one you have to bind it..

after loading the form ..

linked button it should not open .. until than unless  you have to give  cardcode..

and if  u  enter  miss masting   cardcode  at  cardcode after  u press linked  button

it will throw  error

no matching records found..

[Former Member]

Hi Mohammad,

When you have added a vendor to the purchase order, a LinkedButton (orange link) should be visible to let you open the Business Partner screen. This isn't enought?

Regards,

Eric