Skip to Content
author's profile photo Former Member
Former Member

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

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

Add a comment
10|10000 characters needed characters exceeded

Related questions

2 Answers

  • Best Answer
    author's profile photo Former Member
    Former Member
    Posted on Jan 07, 2014 at 07:06 AM

    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

    Add a comment
    10|10000 characters needed characters exceeded

    • Former Member

      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..

      Linked Button.JPG (140.5 kB)
  • author's profile photo Former Member
    Former Member
    Posted on Jan 07, 2014 at 07:06 AM

    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

    Add a comment
    10|10000 characters needed characters exceeded

Before answering

You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
You must be Logged in to submit an answer.

Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.