Copy From Button similar to Purchase Order

Question

Dear Members,
I have a user defined for named Quotation. I want to create a Copy from button  in Purchase Order through coding, similar to those present in sale order and copy the contents in quotation to  Purchase Order.
Please send some sample coding to create a  Copy From  button  in Purchase Order  , and to list  my user defined form quotation,
similar to present in sale order Copy to A/R Invoice.
Help will be appreciated to solve this issue.
Thanks and Regards,
Venkatesh.R

Answer 1

could somebody explain me why cannot text in code format and its in one line? - i cannot insert the code for few weeks. thx
Enable email in your profile and Ill send the code to email - i cannot insert it here.
Edited by: Petr Verner on Jul 24, 2009 10:22 AM
If pVal.FormTypeEx = "142" And pVal.BeforeAction And pVal.EventType = SAPbouiCOM.BoEventTypes.et_FORM_LOAD Then
                Dim oform As SAPbouiCOM.Form
                oform = SBO_Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount)
                oform.Items.Add("combo", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX)
                oform.Items.Add("button", SAPbouiCOM.BoFormItemTypes.it_BUTTON)
                Dim oitem As SAPbouiCOM.Item
                Dim obutton As SAPbouiCOM.Button
                Dim ocombo As SAPbouiCOM.ComboBox
                oitem = oform.Items.Item("combo")
                oitem.Left = -1 * oform.Items.Item("10000329").Left - 100
                oitem.Top = 399
                oitem.Width = 100
                ocombo = oitem.Specific
                ocombo.ValidValues.Add("1", "First")
                ocombo.ValidValues.Add("2", "Seccond")
                oitem = oform.Items.Item("button")
                oitem.Width = 100
                oitem.Left = oform.Items.Item("10000329").Left - 100
                oitem.Top = 400
                obutton = oitem.Specific
                obutton.Caption = "Copy From"
            End If
If pVal.ItemUID = "button" And pVal.FormTypeEx = "142" And pVal.BeforeAction = False And pVal.EventType = SAPbouiCOM.BoEventTypes.et_CLICK Then
                Dim oform As SAPbouiCOM.Form
                oform = SBO_Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount)
                Dim oitem As SAPbouiCOM.Item
                Dim ocombo As SAPbouiCOM.ComboBox
                oitem = oform.Items.Item("combo")
                oitem.Left = oform.Items.Item("10000329").Left - 100
                ocombo = oitem.Specific
                oitem.Click(SAPbouiCOM.BoCellClickType.ct_Regular)
                oitem = oform.Items.Item("button")
                oitem.LinkTo = "combo"
                oitem.Update()
            End If
Edited by: Petr Verner on Jul 24, 2009 10:31 AM