Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 2878

Different tabs on UI-API form

$
0
0

experts,

Create a form with two tabs.

I want to add different buttons in different tabs.

below my code

 

oMktForm.DataSources.UserDataSources.Add("FTM_DT01", SAPbouiCOM.BoDataType.dt_SHORT_TEXT)

        oItem = oMktForm.Items.Add("Ftm_Emp01", SAPbouiCOM.BoFormItemTypes.it_FOLDER)

        With oItem

          .Top = 5

          .Left = 5

          .Width = 150

        End With

        Dim oFolder As SAPbouiCOM.Folder = oItem.Specific

        oFolder.Caption = "Tipo de Empresa"

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

 

 

        oItem = oMktForm.Items.Add("Ftm_Emp02", SAPbouiCOM.BoFormItemTypes.it_FOLDER)

        With oItem

          .Top = 5

          .Left = 155

          .Width = 150

        End With

        oFolder = oItem.Specific

        oFolder.Caption = "Configuracao Filiais"

        oFolder.GroupWith("Ftm_Emp01")

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

        '

        oFolder = oMktForm.Items.Item("Ftm_Emp01").Specific

        oFolder.Select()

        '----------------------------------------------------------------------------------

 

 

        '// CheckBox

        oNewItem = oMktForm.Items.Add("FTM_CHK01", SAPbouiCOM.BoFormItemTypes.it_CHECK_BOX)

        oNewItem.Left = 20

        oNewItem.Width = 200

        oNewItem.Top = 50

        oNewItem.Height = 14

        'oNewItem.TextStyle = 1

        oNewItem.FontSize = 14

        oCheckBox = oNewItem.Specific

        oCheckBox.Caption = "Empresa Consolidadora"

        oCheckBox.Item.FromPane = 0

        oCheckBox.Item.ToPane = 1

 

 

        '// Titulo 2

        'Item modelo (Técnico)

        oItem = oMktForm.Items.Item("FTM_CHK01")

        oNewItem = oMktForm.Items.Add("FTM_CHK02", SAPbouiCOM.BoFormItemTypes.it_CHECK_BOX)

        oNewItem.Left = oItem.Left + oItem.Width + 10

        oNewItem.Width = oItem.Width

        oNewItem.Top = oItem.Top

        oNewItem.Height = oItem.Height

        'oNewItem.TextStyle = 4

        oNewItem.FontSize = 14

        oCheckBox = oNewItem.Specific

        oCheckBox.Caption = "Empresa Normal"

        oCheckBox.Item.FromPane = 0

        oCheckBox.Item.ToPane = 2


Viewing all articles
Browse latest Browse all 2878

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>