Skip to Content
0
Former Member
Nov 04, 2012 at 02:36 PM

Tab Control

100 Views

Hi

I want to display User Tab between Finance & Remarks tab in Employee Master Data . I have written this but it is not displaying

If ((pVal.FormTypeEx = "60100" 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) And (pVal.Before_Action = True)) Then

oNewItem = oForm.Items.Add("UserFolder", SAPbouiCOM.BoFormItemTypes.it_FOLDER)

oItem = oForm.Items.Item("147")

oNewItem.Top = oItem.Top

oNewItem.Height = oItem.Height

oNewItem.Width = oItem.Width

oNewItem.Left = oItem.Left + oItem.Width

oFolderItem = oNewItem.Specific

oFolderItem.Caption = "New Tab"

oFolderItem.GroupWith("147")

oForm.PaneLevel = 1

End If

If pVal.ItemUID = "UserFolder" And pVal.EventType = SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED And pVal.Before_Action = True Then

oForm.PaneLevel = 5

End If

End If

END SUB

Thanks