File Manager

Current Directory: \\10.5.0.10\iis\Sites\goprint2.com\www\

File Preview: Imports Microsoft.VisualBasic Imports System.Web Imports System.Web.Security Public Class UserPI Private _userId As Guid Private _userName As String Private _storeId As Integer Private _storeName As String Private _fname As String Private _lname As String Private _flname As String Private _address As String Private _address1 As String Private _city As String Private _state As String Private _zip As String Private _country As String Private _phone As String Private _phoneExt As String Private _fax As String Private _email As String Private _userRole As String Private _webWS As New WebWS Public ReadOnly Property UserId() As Guid Get Return _userId End Get End Property Public ReadOnly Property StoreId() As String Get Return _storeId End Get End Property Public ReadOnly Property UserName() As String Get Return _userName End Get End Property Public Property FName() As String Get Return _fname End Get Set(ByVal value As String) _fname = value End Set End Property Public Property LName() As String Get Return _lname End Get Set(ByVal value As String) _lname = value End Set End Property Public ReadOnly Property FullName() As String Get Return _fname & " " & _lname End Get End Property Public Property StoreName() As String Get Return _storeName End Get Set(ByVal value As String) _storeName = value End Set End Property Public Property Address() As String Get Return _address End Get Set(ByVal value As String) _address = value End Set End Property Public Property Address1() As String Get Return _address1 End Get Set(ByVal value As String) _address1 = value End Set End Property Public Property City() As String Get Return _city End Get Set(ByVal value As String) _city = value End Set End Property Public Property State() As String Get Return _state End Get Set(ByVal value As String) _state = value End Set End Property Public Property Country() As String Get Return _country End Get Set(ByVal value As String) _country = value End Set End Property Public Property Zip() As String Get Return _zip End Get Set(ByVal value As String) _zip = value End Set End Property Public Property Phone() As String Get Return _phone End Get Set(ByVal value As String) _phone = value End Set End Property Public Property PhoneExt() As String Get Return _phoneExt End Get Set(ByVal value As String) _phoneExt = value End Set End Property Public Property Fax() As String Get Return _fax End Get Set(ByVal value As String) _fax = value End Set End Property Public Property Email() As String Get Return _email End Get Set(ByVal value As String) _email = value End Set End Property Public Property UserRole() As String Get Return _userRole End Get Set(ByVal value As String) _userRole = value End Set End Property Public Sub New(ByVal storeId As Integer) Dim _user As MembershipUser = Membership.GetUser() _userId = _user.ProviderUserKey _userName = _user.UserName _email = _user.Email _userRole = Roles.Provider.GetRolesForUser(_userName)(0).ToString() End Sub Public Sub New() Dim _user As MembershipUser = Membership.GetUser() _userId = _user.ProviderUserKey _userName = _user.UserName _email = _user.Email _userRole = Roles.Provider.GetRolesForUser(_userName)(0).ToString() 'Dim _profile As New ProfileCommon 'Try ' _storeId = _profile.StoreId 'Catch ex As Exception ' _storeId = 0 'End Try 'Try ' _storeName = _profile.Item("StoreName") 'Catch ex As Exception ' _storeName = "" 'End Try 'Try ' _fname = _profile.Item("FName") 'Catch ex As Exception ' _fname = "" 'End Try 'Try ' _lname = _profile.Item("LName") 'Catch ex As Exception ' _lname = "" 'End Try 'Try ' _flname = _fname & " " & _lname 'Catch ex As Exception ' _flname = "" 'End Try 'Try ' _address = _profile.Item("Address") 'Catch ex As Exception ' _address = "" 'End Try 'Try ' _address1 = _profile.Item("Address1") 'Catch ex As Exception ' _address1 = "" 'End Try 'Try ' _city = _profile.Item("City") 'Catch ex As Exception ' _city = "" 'End Try 'Try ' _state = _profile.Item("State") 'Catch ex As Exception ' _state = "" 'End Try 'Try ' _zip = _profile.Item("Zip") 'Catch ex As Exception ' _zip = "" 'End Try 'Try ' _country = _profile.Item("Country") 'Catch ex As Exception ' _country = "" 'End Try 'Try ' _phone = _profile.Item("Phone") 'Catch ex As Exception ' _phone = "" 'End Try 'Try ' _phoneExt = _profile.Item("PhoneExt") 'Catch ex As Exception ' _phoneExt = "" 'End Try 'Try ' _fax = _profile.Item("Fax") 'Catch ex As Exception ' _fax = "" 'End Try End Sub 'Public Sub New(ByVal guid As Guid) ' Dim _user As MembershipUser = Membership.GetUser(guid) ' _userId = guid ' _userName = _user.UserName ' _email = _user.Email ' _userRole = Roles.Provider.GetRolesForUser(_userName)(0).ToString() ' Dim _profile As New ProfileCommon ' Try ' _storeId = _profile.StoreId ' Catch ex As Exception ' _storeId = "" ' End Try ' Try ' _storeName = _profile.StoreName ' Catch ex As Exception ' _storeName = "" ' End Try ' Try ' _fname = _profile.FName ' Catch ex As Exception ' _fname = "" ' End Try ' Try ' _lname = _profile.LName ' Catch ex As Exception ' _lname = "" ' End Try ' Try ' _flname = _fname & " " & _lname ' Catch ex As Exception ' _flname = "" ' End Try ' Try ' _address = _profile.Address ' Catch ex As Exception ' _address = "" ' End Try ' Try ' _address1 = _profile.Address1 ' Catch ex As Exception ' _address1 = "" ' End Try ' Try ' _city = _profile.City ' Catch ex As Exception ' _city = "" ' End Try ' Try ' _state = _profile.State ' Catch ex As Exception ' _state = "" ' End Try ' Try ' _zip = _profile.Zip ' Catch ex As Exception ' _zip = "" ' End Try ' Try ' _country = _profile.Country ' Catch ex As Exception ' _country = "" ' End Try ' Try ' _phone = _profile.Phone ' Catch ex As Exception ' _phone = "" ' End Try ' Try ' _phoneExt = _profile.PhoneExt ' Catch ex As Exception ' _phoneExt = "" ' End Try ' Try ' _fax = _profile.Fax ' Catch ex As Exception ' _fax = "" ' End Try 'End Sub End Class