Adding a new item to an already existing BOM

Question

Hi,
    I am having a problem adding a new item to an already existing parent BOM.I excute the following code (as per the SDK).
    Dim vProdTree As SAPbobsCOM.ProductTrees
    Set vProdTree = vCmp.GetBusinessObject(oProductTrees)
    'Set Values to the fields
    vProdTree.TreeCode = "Item1"
    vProdTree.TreeType = iProductionTree
    'Set Values to the Assembly parts of the
    'First Assembly
    vProdTree.Items.ItemCode = Excel.Row(Cell1)
    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
If there is no parent BOM production tree with keycode Item1, then when the above code is run for the first time, it works.The issue occurs when I run change my excel, Cell1 to a different value and run the program again. The error states that the code already exists, which is correct, but does not  append the item to the existing BOM.
I have tried vProdTree.Update, but this line overwrites the original child item in the BOM, rather than appending a new item, which is what I want it to do.
Any  help is appreciated.
- Adrian.V

Answer 1

Your issue here is how the "Items" (which is actually pointing to ProductTree_Lines object) works. It is a List of items, and when you get the object is always pointing at the first item in the list.
So for example, to add a BOM with two items you would need to set the details of the first Item and then add a line using vProdTree.Items.Add() before setting the values for that item.
e.g.:
Dim vProdTree As SAPbobsCOM.ProductTrees
Set vProdTree = vCmp.GetBusinessObject(oProductTrees)
'Set Values to the fields
vProdTree.TreeCode = "Item1"
vProdTree.TreeType = iProductionTree
'Set Values to the Assembly parts of the
'First Assembly
vProdTree.Items.ItemCode = Excel.Row(Cell1)
vProdTree.Items.Price = 20
vProdTree.Items.Quantity = 1
vProdTree.Items.Currency = "Eur"
'Add a second item to the BOM
vProdTree.Items.Add
vProdTree.Items.ItemCode = Excel.Row(Cell2)
vProdTree.Items.Price = 50
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
To do what you want to do, which is get the BOM and add a new item to it, you will need to do this:
Dim vProdTree As SAPbobsCOM.ProductTrees
Set vProdTree = vCmp.GetBusinessObject(oProductTrees)
'Get your BOM by key
vProdTree.GetByKey("Item1")
'Add a second item to the BOM
'First Item exists so you need to add a new row
vProdTree.Items.Add
vProdTree.Items.ItemCode = Excel.Row(Cell1)
vProdTree.Items.Price = 50
vProdTree.Items.Quantity = 1
vProdTree.Items.Currency = "Eur"
'Update the Product Tree
RetVal = vProdTree.Update
If (RetVal 0) Then
vCmp.GetLastError ErrCode, ErrMsg
MsgBox ErrCode & " " & ErrMsg
End If
Method one allows you to add multiple lines as you add the object (which makes more sense), method 2 allows you to get the object after it has been added and add multiple lines to it. This is similar to how the Document_Lines object works.