'**********************************************************************************
'* Copyright (C) 2007,2016 Hitachi Solutions,Ltd.
'**********************************************************************************

#Region "Apache License"
'
' 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.
'
#End Region

'**********************************************************************************
'* クラス名        ：BaseViewModel
'* クラス日本語名  ：BaseViewModel
'*
'* 作成日時        ：－
'* 作成者          ：生技
'* 更新履歴        ：
'*
'*  日時        更新者            内容
'*  ----------  ----------------  -------------------------------------------------
'*  20xx/xx/xx  ＸＸ ＸＸ         ＸＸＸＸ
'**********************************************************************************

Imports Touryo.Infrastructure.Business.Util
Imports Touryo.Infrastructure.Framework.Util

Namespace Models.ViewModels
    ''' <summary>BaseViewModel</summary>
	<Serializable> _
    Public Class BaseViewModel

        ''' <summary>UserName</summary>
        Public Shared ReadOnly Property UserName() As String
            Get
                Dim myUserInfo As MyUserInfo = DirectCast(UserInfoHandle.GetUserInformation(), MyUserInfo)
                If myUserInfo Is Nothing Then
                    Return "anonymous"
                Else
                    Return myUserInfo.UserName

                End If
            End Get
        End Property
    End Class
End Namespace
