Sub StoreAssyQty(asm As AssemblyDocument)
        'Get parts only BOMview
        'PartsOnlyView must be alowed
        Dim bomView As BOMView = Nothing
        For Each bomView In asm.ComponentDefinition.BOM.BOMViews
            If bomView.ViewType = BOMViewTypeEnum.kPartsOnlyBOMViewType Then
                Exit For
            End If
        Next
        If bomView Is Nothing Then Return
        For Each row As BOMRow In bomView.BOMRows
            SetItemQuantity(row.ComponentDefinitions(1), row.ItemQuantity)
        Next
    End Sub
    Private Sub SetItemQuantity(componentDefinition As ComponentDefinition, p2 As Integer)
        '...
        'TODO: Implement this method
        ' For example set user defined iProperty
    End Sub