Precision.vb

Imports System.Data.Entity
Imports System.Linq

<AttributeUsage(AttributeTargets.[Property], AllowMultiple:=False)>
Public Class Precision
    Inherits Attribute

    Public Property precision As Byte
    Public Property scale As Byte

    Public Sub New(_precision As Byte, _scale As Byte)
        precision = _precision
        scale = _scale
    End Sub

    Public Shared Sub ConfigureModelBuidler(modelBuilder As DbModelBuilder)
        modelBuilder.Properties().Where(Function(x) x.GetCustomAttributes(False).OfType(Of Precision).Any()).Configure(Function(c) c.HasPrecision(c.ClrPropertyInfo.GetCustomAttributes(False).OfType(Of Precision).First().precision, c.ClrPropertyInfo.GetCustomAttributes(False).OfType(Of Precision).First().scale))
    End Sub

End Class