Edit an Item BOM Row in Vault – VB example

Private Sub Button1_Click_WB(sender As Object, e As EventArgs) Handles Button1.Click    Dim parentItem As Item = m_selectedItem    'Change this to use an Item Number in your vault    Dim ChildItem As Item = m_connection.WebServiceManager.ItemService.GetLatestItemByItemNumber("100001")    Dim newQty As Integer = 2    updateBOMQuantity_WB(parentItem, ChildItem, newQty)End SubPrivate Sub updateBOMQuantity_WB(parentItem As Item, childItem As Item, newQty As Integer)    Dim item2 As Item = Nothing    Try        item2 = m_connection.WebServiceManager.ItemService.EditItems(New Long() {m_selectedItem.RevId})(0)        Dim options As BOMViewEditOptions = BOMViewEditOptions.Defaults Or BOMViewEditOptions.ReturnOccurrences _                     Or BOMViewEditOptions.ReturnExcluded Or BOMViewEditOptions.ReturnUnassignedComponents        ' Get the ItemBOM from the Item being edited        Dim bom As ItemBOM = m_connection.WebServiceManager.ItemService.GetItemBOMByItemIdAndDate _                                (item2.Id, DateTime.MinValue, BOMTyp.Latest, options)        ' Get the ItemAssoc from the ItemBOM being edited        Dim itemAssoc2 As ItemAssoc =            bom.ItemAssocArray.FirstOrDefault(Function(x) x.CldItemMasterID = childItem.MasterId)        Dim newBomItemAssocParam2 As New ItemAssocParam        newBomItemAssocParam2.Id = itemAssoc2.Id        newBomItemAssocParam2.EditAct = BOMEditAction.Update        newBomItemAssocParam2.Quant = newQty        Dim bom2 As ItemBOM = m_connection.WebServiceManager.ItemService.UpdateItemBOMAssociations _                  (item2.Id, {newBomItemAssocParam2}, BOMViewEditOptions.ReturnBOMFragmentsOnEdits)        m_connection.WebServiceManager.ItemService.UpdateAndCommitItems(New Item() {item2})    Catch ex As Exception        MsgBox(ex.Message)        m_connection.WebServiceManager.ItemService.UndoEditItems(New Long() {item2.Id})    End TryEnd Sub