SAP Business One DI API 10.0 - Objects Reference (10.00.320)

• Add a Bill Of Material sample

  • Tablelist
  • DI API
  • Service Layer

  • • Description

      The following sample code shows how to add a Bill Of Material to SAP Business One database.

  • • Example

      Sub AddProdTree()     Dim RetVal As Long     Dim ErrCode As Long     Dim ErrMsg As String     Dim vItem As SAPbobsCOM.Items     Set vItem = vCmp.GetBusinessObject(oItems)     Dim vProdTree As SAPbobsCOM.ProductTrees     Set vProdTree = vCmp.GetBusinessObject(oProductTrees)            'Get the Item I want to create as Product Tree     RetVal = vItem.GetByKey("MyProdTree")     'Set Values to the fields     vProdTree.TreeCode = "MyProdTree"     vProdTree.TreeType = iProductionTree     'Set Values to the Assembly parts of the     'First Assembly     vProdTree.Items.ItemCode = "Assembly1"     vProdTree.Items.Price = 20     vProdTree.Items.Quantity = 1     vProdTree.Items.Currency = "Eur"     'Add Line for second Assembly     vProdTree.Items.Add     'Second Assembly     vProdTree.Items.ItemCode = "Assembly2"     vProdTree.Items.Price = 20     vProdTree.Items.Quantity = 1     vProdTree.Items.Currency = "Eur"     'Adding the Product Tree     RetVal = vProdTree.Add     If (RetVal <> 0) Then         vCmp.GetLastError ErrCode, ErrMsg         MsgBox ErrCode & " " & ErrMsg     End If End Sub