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.
|
|
|
|
|
Imports System.ComponentModel.DataAnnotations
|
|
|
|
|
|
|
|
|
|
|
|
Public Class RavenModelBase
|
|
|
|
|
|
Inherits ModelBase
|
|
|
|
|
|
Implements IRavenModelBase
|
|
|
|
|
|
|
|
|
|
|
|
<Display(Name:="ID")>
|
|
|
|
|
|
Public Property Id As String Implements IRavenModelBase.Id
|
|
|
|
|
|
|
|
|
|
|
|
<Raven.Imports.Newtonsoft.Json.JsonIgnore()>
|
|
|
|
|
|
<Newtonsoft.Json.JsonIgnore()>
|
|
|
|
|
|
Public ReadOnly Property IdNumber As Integer Implements IRavenModelBase.IdNumber
|
|
|
|
|
|
Get
|
|
|
|
|
|
If Me.Id IsNot Nothing AndAlso Me.Id.Length > 0 Then
|
|
|
|
|
|
'Dim strClassTypeName As String = Me.GetType().Name.ToLower
|
|
|
|
|
|
'Return CType(Me.Id.ToLower.Replace(strClassTypeName & "s-", ""), Integer)
|
|
|
|
|
|
Dim arr As String() = Split(Me.Id, "-")
|
|
|
|
|
|
Return arr(arr.Length - 1)
|
|
|
|
|
|
Else
|
|
|
|
|
|
Return 0
|
|
|
|
|
|
End If
|
|
|
|
|
|
End Get
|
|
|
|
|
|
End Property
|
|
|
|
|
|
|
|
|
|
|
|
End Class
|
