How to add multiple table when creating add on using b1de

Question

Hi all,
Plz help me
How to add multiple table when creating add on using b1de.
Thanks

Answer 1

Hi dns_sap,
Can you explain a little better what you are trying to accomplish? Is it to create UserTables and UserFields in the database, when the addon runs the first time?
If so, you can use the following code
Add User Table
        Try
            Dim lRetCode As Long
            Dim oUDT As SAPbobsCOM.UserTablesMD = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserTables)
            oUDT.TableName = TableName
            oUDT.TableDescription = TableDescription
            oUDT.TableType = TableType
            lRetCode = oUDT.Add
            '// Check for error when adding the Table: if lRetCode = 0 the table was created; if lRetCode = -2035 the table already exisits
            If lRetCode <> 0 Then
                oApplication.MessageBox("Error: " & lRetCode.ToString & ", " & oCompany.GetLastErrorDescription)
            End If
        Catch ex As Exception
            oApplication.MessageBox(oCompany.GetLastErrorDescription)
        Finally
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oUDT)
            oUDT = Nothing
            lRetCode = Nothing
            GC.Collect()
        End Try
Add User Field
Try
            Dim lRetCode As Long
            Dim oUDF As SAPbobsCOM.UserFieldsMD = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserFields)
            oUDF.TableName = TableName
            oUDF.Name = FieldName
            oUDF.Description = FieldDescription
            oUDF.Type = FieldType
            lRetCode = oUDF.Add
            '// Check for error when adding the field: if lRetCode = 0 the field was created; if lRetCode = -2035, the field already exists
            If lRetCode <> 0 Then
                oApplication.MessageBox("Error: " & oCompany.GetLastErrorCode & ", " & oCompany.GetLastErrorDescription)
            End If
        Catch ex As Exception
            oApplication.MessageBox(oCompany.GetLastErrorDescription)
        Finally
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oUDF)
            oUDF = Nothing
            lRetCode = Nothing
            GC.Collect()
        End Try
Regards,
Vítor Vieira