You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
44 lines
1.1 KiB
44 lines
1.1 KiB
Imports System.ComponentModel.DataAnnotations
|
|
Imports Raven.Client
|
|
Imports System.Web
|
|
|
|
Public Class RepresentationSetting
|
|
Inherits RavenModelBase
|
|
|
|
Public Property Key As String
|
|
Public Property HasContactPossibility As Boolean = False
|
|
|
|
Public Sub New()
|
|
Me.CreatedAt = Format(DateTime.Now, "dd.MM.yyyy HH:mm:ss")
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
Public Class RepresentationSettings
|
|
|
|
Public Shared Function GetByKey(key As String) As RepresentationSetting
|
|
|
|
Dim model As RepresentationSetting
|
|
|
|
Using ds As IDocumentSession = DataDocumentStore.Session
|
|
|
|
Dim query = ds.Query(Of RepresentationSetting)() _
|
|
.Where(Function(s) s.Key = key)
|
|
|
|
If query.Count > 0 Then
|
|
model = query.First()
|
|
Else
|
|
model = New RepresentationSetting()
|
|
model.Key = key
|
|
model.CreatedBy = HttpContext.Current.User.Identity.Name
|
|
ds.Store(model)
|
|
ds.SaveChanges()
|
|
End If
|
|
|
|
End Using
|
|
|
|
Return model
|
|
|
|
End Function
|
|
|
|
End Class |