Creating Tabs/Folders within the SDK.

[Former Member]

I'm designing screens in the Screen Painter which our developers are then going to put the back-end development to. I can't see how to create Tabs though.

I've found the option and have viewed an existing screen (orders) but this still doesn't help as it would appear to create only the Tabs 'tab' and not the actual space in which you would enter details. I had thought it would have something to do with the 'FromPane' and 'ToPane' fields but these are not used on the 'orders' example I've looked at.

Would you be able to point me in the right direction?

Thanks, Simon.

[Former Member · Accepted solution]

Simon, you might want to take a look at the "ComplexForm" sample issued by SAP, since folders are used (including the necessary folder logic).

This is the main code, so you don't have to search for it.

HTH Lutz Morrien

'// SAP MANAGE UI API 6.5 SDK Sample

'//****************************************************************************

'//

'// File: ComplexForm.vb

'//

'// Copyright (c) SAP MANAGE

'//

'// THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF

'// ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO

'// THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A

'// PARTICULAR PURPOSE.

'//

'//****************************************************************************

Option Strict Off

Option Explicit On

'// BEFORE STARTING:

'// 1. Add reference to the "SAP Business One UI API"

'// 2. Insert the development connection string to the "Command line argument"

'//----

---

'// 1.

'// a. Project->Add Reference...

'// b. select the "SAP Business One UI API 6.5" From the COM folder

'//

'// 2.

'// a. Project->Properties...

'// b. choose Configuration Properties folder (place the arrow on Debugging)

'// c. place the following connection string in the 'Command line arguments' field

'// 0030002C0030002C00530041005000420044005F00440061007400650076002C0050004C006F006D0056004900490056

'//

'//**************************************************************************************************

Friend Class ComplexForm

'//*****************************************************************

'// At the begining of every UI API project we should first

'// establish connection with a running SBO application.

'*******************************************************************

Private WithEvents SBO_Application As SAPbouiCOM.Application

Private oForm As SAPbouiCOM.Form

Private Sub SetApplication()

'*******************************************************************

'// Use an SboGuiApi object to establish the connection

'// with the application and return an initialized appliction object

'*******************************************************************

Dim SboGuiApi As SAPbouiCOM.SboGuiApi

Dim sConnectionString As String

SboGuiApi = New SAPbouiCOM.SboGuiApi

'// by following the steps specified above, the following

'// statment should be suficient for either development or run mode

sConnectionString = Environment.GetCommandLineArgs.GetValue(1)

'// connect to a running SBO Application

SboGuiApi.Connect(sConnectionString)

'// get an initialized application object

SBO_Application = SboGuiApi.GetApplication()

End Sub

Private Sub CreateMyComplexForm()

Dim oItem As SAPbouiCOM.Item

'// *******************************************

'// we will use the following objects to set

'// the specific values of every item

'// we add.

'// this is the best way to do so

'//*********************************************

Dim oButton As SAPbouiCOM.Button

Dim oFolder As SAPbouiCOM.Folder

Dim oOptionBtn As SAPbouiCOM.OptionBtn

Dim oCheckBox As SAPbouiCOM.CheckBox

Dim oComboBox As SAPbouiCOM.ComboBox

Dim i As Short '// to be used as a counter

'// add a new form

oForm = SBO_Application.Forms.Add("MyComplexForm", SAPbouiCOM.BoFormTypes.ft_Fixed)

'// add a user data source

'// bare in mind that every item must be connected to a data source

oForm.DataSources.UserDataSources.Add("FolderDS", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)

oForm.DataSources.UserDataSources.Add("OpBtnDS", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)

oForm.DataSources.UserDataSources.Add("CheckDS1", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)

oForm.DataSources.UserDataSources.Add("CheckDS2", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)

oForm.DataSources.UserDataSources.Add("CheckDS3", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)

'// set the form properties

oForm.Title = "Complex Form"

oForm.Left = 300

oForm.Width = 300

oForm.Top = 100

oForm.Height = 200

'//*****************************************

'// Adding Items to the form

'// and setting their properties

'//*****************************************

'/**********************

'// Adding an Ok button

'//*********************

'// We get automatic event handling for

'// the Ok and Cancel Buttons by setting

'// their UIDs to 1 and 2 respectively

oItem = oForm.Items.Add("1", SAPbouiCOM.BoFormItemTypes.it_BUTTON)

oItem.Left = 5

oItem.Width = 65

oItem.Top = 110

oItem.Height = 19

oButton = oItem.Specific

oButton.Caption = "Ok"

'//************************

'// Adding a Cancel button

'//***********************

oItem = oForm.Items.Add("2", SAPbouiCOM.BoFormItemTypes.it_BUTTON)

oItem.Left = 75

oItem.Width = 65

oItem.Top = 110

oItem.Height = 19

oButton = oItem.Specific

oButton.Caption = "Cancel"

'//****************************

'// Adding a Rectangle Item

'// for cosmetic purposes only

'//****************************

oItem = oForm.Items.Add("Rect1", SAPbouiCOM.BoFormItemTypes.it_RECTANGLE)

oItem.Left = 0

oItem.Width = 194

oItem.Top = 22

oItem.Height = 80

'//***************************

'// Adding Folder items

'//***************************

For i = 1 To 3

oItem = oForm.Items.Add("Folder" & i, SAPbouiCOM.BoFormItemTypes.it_FOLDER)

oItem.Left = (i - 1) * 100

oItem.Width = 100

oItem.Top = 6

oItem.Height = 19

oFolder = oItem.Specific

'// set the caption

oFolder.Caption = "Folder" & i

oFolder.DataBind.SetBound(True, "", "FolderDS")

If i = 1 Then

oFolder.Select()

Else

oFolder.GroupWith(("Folder" & i - 1))

End If

Next i

'//****************************

'// Adding Option button items

'//****************************

For i = 1 To 3

oItem = oForm.Items.Add("OpBtn" & i, SAPbouiCOM.BoFormItemTypes.it_OPTION_BUTTON)

oItem.Left = 20

oItem.Width = 100

oItem.Top = 30 + (i - 1) * 19

oItem.Height = 19

'// set the Item's Pane Level.

'// by setting the Form's pane level

'// this value will determine the Items visibility

oItem.FromPane = 1

oItem.ToPane = 1

oOptionBtn = oItem.Specific

'// set the caption

oOptionBtn.Caption = "Option Button" & i

If i > 1 Then

oOptionBtn.GroupWith(("OpBtn" & i - 1))

End If

oOptionBtn.DataBind.SetBound(True, "", "OpBtnDS")

Next i

'//***************************

'// Adding Check Box items

'//***************************

For i = 1 To 3

oItem = oForm.Items.Add("CheckBox" & i, SAPbouiCOM.BoFormItemTypes.it_CHECK_BOX)

oItem.Left = 100

oItem.Width = 100

oItem.Top = 30 + (i - 1) * 19

oItem.Height = 19

'// set the Item's Pane Level.

'// by setting the Form's pane level

'// this value will determine the Items visibility

oItem.FromPane = 1

oItem.ToPane = 2

oCheckBox = oItem.Specific

'// set the caption

oCheckBox.Caption = "Check Box" & i

'// binding the Check box with a data source

oCheckBox.DataBind.SetBound(True, "", "CheckDS" & i)

Next i

'//***************************

'// Adding edit text items

'//***************************

For i = 1 To 3

oItem = oForm.Items.Add("EditText" & i, SAPbouiCOM.BoFormItemTypes.it_EDIT)

oItem.Left = 100

oItem.Width = 100

oItem.Top = 30 + (i - 1) * 19

oItem.Height = 19

'// set the Item's Pane Level.

'// by setting the Form's pane level

'// this value will determine the Items visibility

oItem.FromPane = 3

oItem.ToPane = 3

'oCheckBox = oItem.Specific

'// set the caption

'oCheckBox.Caption = "Check Box" & i

''// binding the Check box with a data source

'oCheckBox.DataBind.SetBound(True, "", "CheckDS" & i)

Next i

'//****************************************

'// Show the Form:

'// we will use the Item Event to Control

'// the behavior of this form

'//****************************************

oForm.PaneLevel = 1

End Sub

Public Sub New()

MyBase.New()

'//*************************************************************

'// set SBO_Application with an initialized application object

'//*************************************************************

SetApplication()

'//*************************************************************

'// Create the Form

'//*************************************************************

CreateMyComplexForm()

oForm.Visible = True

oForm.Items.Item("OpBtn1").Specific.Selected = True

oForm.Items.Item("Folder1").Specific.Select()

End Sub

Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent

If FormUID = "MyComplexForm" Then

oForm = SBO_Application.Forms.Item(FormUID)

Select Case pVal.EventType

Case SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED

'//************************************************************

'// Check if the event was raised by one of the Folder items

'// and change the form's pane level

'//************************************************************

If pVal.ItemUID = "Folder1" Then

oForm.PaneLevel = 1

End If

If pVal.ItemUID = "Folder2" Then

oForm.PaneLevel = 2

End If

If pVal.ItemUID = "Folder3" Then

oForm.PaneLevel = 3

End If

Case SAPbouiCOM.BoEventTypes.et_FORM_CLOSE

End

End Select

End If

End Sub

Private Sub SBO_Application_AppEvent(ByVal EventType As SAPbouiCOM.BoAppEventTypes) Handles SBO_Application.AppEvent

Select Case EventType

Case SAPbouiCOM.BoAppEventTypes.aet_ShutDown

SBO_Application.MessageBox("A Shut Down Event has been caught" & _

Environment.NewLine() & "Terminating 'Complex Form' Add On...")

'//**************************************************************

'//

'// Take care of terminating your AddOn application

'//

'//**************************************************************

End

End Select

End Sub

End Class