Yahoo! Managed

' ******************************************************************************
' ** 
' **  Yahoo Finance Managed
' **  Written by Marius Häusler 2010
' **  It would be pleasant, if you contact me when you are using this code.
' **  Contact: YahooFinanceManaged@gmail.com
' **  Project Home: http://code.google.com/p/yahoo-finance-managed/
' **  
' ******************************************************************************
' **  
' **  Copyright 2010 Marius Häusler
' **  
' **  Licensed under the Apache License, Version 2.0 (the "License");
' **  you may not use this file except in compliance with the License.
' **  You may obtain a copy of the License at
' **  
' **    http://www.apache.org/licenses/LICENSE-2.0
' **  
' **  Unless required by applicable law or agreed to in writing, software
' **  distributed under the License is distributed on an "AS IS" BASIS,
' **  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
' **  See the License for the specific language governing permissions and
' **  limitations under the License.
' ** 
' ******************************************************************************


Namespace Finance

    ''' <summary>
    ''' Implements IID. Serializable. Stores informations of a company.
    ''' </summary>
    ''' <remarks></remarks>
    <Serializable()> _
    Public Class CompanyInfoData
        Implements IID
        Implements SetableID
        Private mID As String = String.Empty
        Private mCompanyName As String = String.Empty
        Private mQuotes As New MarketQuoteData
        Private mStartDate As Date
        Private mEndDate As Date = Date.Today
        Private mFullTimeEmployees As Integer = 0
        Private mSectorName As String = String.Empty
        Private mIndustryName As String = String.Empty
        ''' <summary>
        ''' The ID of the company
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public ReadOnly Property ID() As String Implements IID.ID
            Get
                Return mID
            End Get
        End Property
        Public Sub SetID(ByVal id As String) Implements SetableID.SetID
            mID = id
        End Sub

        ''' <summary>
        ''' The name of the company
        ''' </summary>
        ''' <value></value>
        ''' <returns>The name of the company</returns>
        ''' <remarks></remarks>
        Public Property Name() As String
            Get
                Return mCompanyName
            End Get
            Set(ByVal value As String)
                mCompanyName = value
            End Set
        End Property
        ''' <summary>
        ''' The market quote informations
        ''' </summary>
        ''' <value></value>
        ''' <returns>An instance of market quote informations</returns>
        ''' <remarks></remarks>
        Public Property Quotes() As MarketQuoteData
            Get
                Return mQuotes
            End Get
            Set(ByVal value As MarketQuoteData)
                mQuotes = value
            End Set
        End Property
        ''' <summary>
        ''' The first trading day of the company's stock
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Property StartDate() As Date
            Get
                Return mStartDate
            End Get
            Set(ByVal value As Date)
                mStartDate = value
            End Set
        End Property
        ''' <summary>
        ''' The last trading day of the company's stock
        ''' </summary>
        ''' <value></value>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Property EndDate() As Date
            Get
                Return mEndDate
            End Get
            Set(ByVal value As Date)
                mEndDate = value
            End Set
        End Property
        ''' <summary>
        ''' The full time employees in this company
        ''' </summary>
        ''' <value></value>
        ''' <returns>The number of employees</returns>
        ''' <remarks></remarks>
        Public Property FullTimeEmployees() As Integer
            Get
                Return mFullTimeEmployees
            End Get
            Set(ByVal value As Integer)
                mFullTimeEmployees = value
            End Set
        End Property
        ''' <summary>
        ''' The name of the sector the company is part of
        ''' </summary>
        ''' <value></value>
        ''' <returns>A sector name</returns>
        ''' <remarks></remarks>
        Public Property SectorName() As String
            Get
                Return mSectorName
            End Get
            Set(ByVal value As String)
                mSectorName = value
            End Set
        End Property
        ''' <summary>
        ''' The name of the industry the quote is part of
        ''' </summary>
        ''' <value></value>
        ''' <returns>An industry name</returns>
        ''' <remarks></remarks>
        Public Property IndustryName() As String
            Get
                Return mIndustryName
            End Get
            Set(ByVal value As String)
                mIndustryName = value
            End Set
        End Property
    End Class

End Namespace