SAP Business One UI API 10.0 - Objects Reference (10.00.270)

• LoadSeries Method

  • UI API

  • • Description

      Loads into the valid values a list of the IDs of the series attached to a specific UDO.

      The UDO must have been created with the Manage Series service, and one or more series must be connected to the UDO. To check the series connected to a UDO, go to Administration --> System Initialization --> Document Numbering. An entry exists for each UDO with Manage Series.

  • • Syntax

      Visual Basic
      Public Sub LoadSeries( _    ByVal ObjectType As String, _    ByVal Mode As BoSeriesMode _ )

  • • Parameters

      ObjectType

      The unique ID of a UDO. The IDs of the series of this UDO are loaded into the valid values.

      Mode

      Value	Description
      sf_Add	All series in the current period that are open for new documents and for which the user has permission to add new documents
      sf_View	All series in all periods defined in the system

      Specifies which series to load

  • • Remarks

      You can use BusinessObject.GetNextSerialNumber to get the next number in the series.

  • • Example

      Letting user select series for UDO (Visual Basic)

      Dim f As SAPbouiCOM.Form Dim oItem As SAPbouiCOM.Item Dim oCB As SAPbouiCOM.ComboBox Dim oEdit As SAPbouiCOM.EditText Dim cp As SAPbouiCOM.FormCreationParams cp = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_FormCreationParams) cp.FormType = "myForm" cp.ObjectType = "TestUDO" cp.UniqueID = "myFormID" Try     f = SBO_Application.Forms.AddEx(cp) Catch ex As Exception     f = SBO_Application.Forms.GetForm("FrmMeal", 1)     f.Visible = True End Try ' Defining form dimentions f.ClientWidth = 370 f.ClientHeight = 300 '''''''''''''''''''''''''''''''''''''''''''''' ' Add edit box (DocNum) and combo box (Series) '''''''''''''''''''''''''''''''''''''''''''''' ' Edit box for DocNum oItem = f.Items.Add("txtDocNum", SAPbouiCOM.BoFormItemTypes.it_EDIT) oItem.Left = 200 oItem.Top = 10 oItem.AffectsFormMode = True oEdit = oItem.Specific oEdit.DataBind.SetBound(True, "@Test", "DocNum") ' Combo box for selecting series oItem = f.Items.Add("cmbMyField", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX) oItem.Left = 60 oItem.Top = 50 oItem.AffectsFormMode = True oCB = oItem.Specific oCB.DataBind.SetBound(True, "@Test", "Series") oCB.ValidValues.LoadSeries("TestUDO", SAPbouiCOM.BoSeriesMode.sf_Add) ' Add the Ok/Add/Update button oItem = f.Items.Add("1", SAPbouiCOM.BoFormItemTypes.it_BUTTON) oItem.Left = 10 oItem.Top = 270 ' Add the cancel button oItem = f.Items.Add("2", SAPbouiCOM.BoFormItemTypes.it_BUTTON) oItem.Left = 90 oItem.Top = 270 '-------------------------------------------------------- ' '********************************************************** ' Add event handler for when user selects series; set DocNum Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent     If ((FormUID = "TestUDOID") And (pVal.ItemUID = "cmbMyField") And (pVal.EventType = SAPbouiCOM.BoEventTypes.et_COMBO_SELECT) And (pVal.Before_Action = False)) Then             Dim lNum As Long             Dim series As String             Dim oForm As SAPbouiCOM.Form             oForm = SBO_Application.Forms.Item(FormUID)             Dim cmbo As SAPbouiCOM.ComboBox             cmbo = oForm.Items.Item("cmbMyField").Specific             series = cmbo.Selected.Value             lNum = oForm.BusinessObject.GetNextSerialNumber(series)             Dim oEditText As SAPbouiCOM.EditText             oEditText = oForm.Items.Item("txtDocNum").Specific()             oEditText.Value = lNum     End If End Sub

  • • See Also

      ValidValues Collection