Public MustInherit Class GL_Val_CostAnalysis

        Inherits ErcValidate2

​

        Friend MustOverride ReadOnly Property UseProperty As String

        Friend MustOverride ReadOnly Property [Property] As String

        Friend MustOverride ReadOnly Property ErrorMessageMandatory As ErrorMessage

​

        Public Overrides Function Validate() As ErrorMessage

            If env.License.HasFeatureSet(FeatureSets.CostAnalysis) Then

                If IsMandatory() AndAlso String.IsNullOrEmpty(CStr(BC.Prop([Property]).Value)) Then

                    Return ErrorMessageMandatory

                End If

            End If

​

            Return Nothing

        End Function

​

        Private Function IsMandatory() As Boolean

            If BC.Prop(UseProperty).Value IsNot Nothing Then

                If DirectCast(BC.Prop(UseProperty).Value, UseCostAnalysis) = UseCostAnalysis.Mandatory Then

                    Return True

                End If

            End If

​

            Return False

        End Function

    End Class

​

    Public Class GL_Val_Costcenter

        Inherits GL_Val_CostAnalysis

​

        Friend Overrides ReadOnly Property ErrorMessageMandatory As ErrorMessage

            Get

                Return New ErrorMessage(env.Term.ConstructTerm(1795, "Mandatory", 8494, ":Cost center"))

            End Get

        End Property

​

        Friend Overrides ReadOnly Property [Property] As String

            Get

                Return "Costcenter"

            End Get

        End Property

​

        Friend Overrides ReadOnly Property UseProperty As String

            Get

                Return "UseCostcenter"

            End Get

        End Property

    End Class

​

    Public Class GL_Val_Costunit

        Inherits GL_Val_CostAnalysis

​

        Friend Overrides ReadOnly Property ErrorMessageMandatory As ErrorMessage

            Get

                Return New ErrorMessage(env.Term.ConstructTerm(1795, "Mandatory", 1194, ":Cost unit"))

            End Get

        End Property

​

        Friend Overrides ReadOnly Property [Property] As String

            Get

                Return "Costunit"

            End Get

        End Property

​

        Friend Overrides ReadOnly Property UseProperty As String

            Get

                Return "UseCostunit"

            End Get

        End Property

    End Class

​