📚 SAP Business One SDK Help

UserTable Object
See Also  Members  Example

Description

The UserTable object represents records of a user-defined table.

Object Model





Example

This sample shows how to do the following:

  1. Add a user table.
  2. Add a UDF to the user table.
  3. Add a record to the new table.


When adding a user table, two fields are created: Code (primary key) and Name. Both are mandatory.

Adding a record to a user table (Visual Basic)Copy Code
Dim ret As Long

Private Sub Add_Table_Click()
    Dim oUserTablesMD As SAPbobsCOM.UserTablesMD
    Set oUserTablesMD = oCompany.GetBusinessObject(oUserTables)

    '**************************************************
    ' When adding user tables or fields, use a prefix
    ' identifying your partner name space. This will
    ' prevent collisions from different partner add-ons
    '
    ' SAP's name space prefix is "BE_"
    '**************************************************

    'Set the two mandatory fields
    oUserTablesMD.TableName = "T1"
    oUserTablesMD.TableDescription = "Table1"

    'Add the table (which contains 2 default, mandatory fields, 'Code' and 'Name')
    ret = oUserTablesMD.Add

    If ret <> 0 Then
        oCompany.GetLastError ret, Str
        MsgBox Str
    Else
        MsgBox "Table: " & oUserTablesMD.TableName & " was added successfully"
    End If
End Sub


Private Sub Add_UDF_Click()
    Dim oUserFieldsMD As SAPbobsCOM.UserFieldsMD
    Set oUserFieldsMD = oCompany.GetBusinessObject(oUserFields)

    oUserFieldsMD.TableName = "T1"
    oUserFieldsMD.Name = "AlbUDF"
    oUserFieldsMD.Description = "Albert UDF"

    'Add the field to the table
    lRetCode = oUserFieldsMD.Add

    If lRetCode <> 0 Then
        oCompany.GetLastError ret, Str
        MsgBox Str
    Else
        MsgBox "Field: '" & oUserFieldsMD.Name & "' was added successfuly to " & oUserFieldsMD.TableName & " Table"
    End If
End Sub


Private Sub Add_Data_Click()
    Dim oUserTable As SAPbobsCOM.UserTable
    Set oUserTable = oCompany.UserTables.Item(1)

    'Set default, mandatory fields
    oUserTable.Code = "A"
    oUserTable.Name = "Albert"
    'Set user field
    oUserTable.UserFields.Fields.Item("U_AlbUDF").Value = "1"

    oUserTable.Add

    If ret <> 0 Then
        oCompany.GetLastError ret, Str
        MsgBox Str
    Else
        MsgBox "Value to field: '" & oUserTable.UserFields.Fields.Item("U_AlbUDF").Name & "' was updated successfuly to " & oUserTable.TableName & " Table"
    End If
End Sub






See Also