Result.vb

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Reflection
Imports System.Threading.Tasks

Public Class Result

    Public Sub New()
        Me.Errors = New List(Of String)
        Me.Warnings = New List(Of String)


        Me.EnumErrors = New List(Of EnumErrorResult)
        Me.EnumWarnings = New List(Of EnumWarningResult)
        Me.EnumSuccesses = New List(Of EnumSuccesResult)

    End Sub

    Public Property Errors As ICollection(Of String)
    Public Property Warnings As ICollection(Of String)

    Protected Property EnumErrors As ICollection(Of EnumErrorResult)
    Protected Property EnumWarnings As ICollection(Of EnumWarningResult)
    Protected Property EnumSuccesses As ICollection(Of EnumSuccesResult)

    Public Function geterrors() As ICollection(Of EnumErrorResult)
        Return Me.EnumErrors
    End Function

    Public Function getwarnings() As ICollection(Of EnumWarningResult)
        Return Me.EnumWarnings
    End Function

    Public Function getsuccess() As ICollection(Of EnumSuccesResult)
        Return Me.EnumSuccesses
    End Function

    Public Sub AddError(enumError As EnumErrorResult, Optional customerror As String = Nothing)
        Me.EnumSuccesses.Clear()
        Me.Errors.Add(enumError)

        If customerror <> Nothing Then
            Me.Errors.Add(customerror)
        End If

    End Sub

    Public Sub AddWarning(warning As EnumWarningResult)
        Me.EnumWarnings.Add(warning)
    End Sub

    Public Sub AddSuccess(success As EnumSuccesResult)
        Me.Errors.Clear()
        Me.EnumSuccesses.Add(success)
    End Sub

    Public ReadOnly Property isSuccess As Boolean
        Get
            If Errors.Count = 0 Then
                Return True
            End If
            Return False
        End Get
    End Property

    Private Function GetEnumDescription(ByVal EnumConstant As System.Enum) As String

        Dim fi As FieldInfo = EnumConstant.GetType().GetField(EnumConstant.ToString())
        Dim attr() As DescriptionAttribute =
                      DirectCast(fi.GetCustomAttributes(GetType(DescriptionAttribute),
                      False), DescriptionAttribute())

        If attr.Length > 0 Then
            Return attr(0).Description
        Else
            Return EnumConstant.ToString()
        End If

    End Function

    Public Function AddErrorsAndWarningsOfAnotherResult(r As Result) As Boolean

        For Each item In r.Errors
            Me.Errors.Add(item)
        Next

        For Each item In r.Warnings
            Me.Warnings.Add(item)
        Next

        Return True
    End Function

    Public Function AddErrorsAndWarningsOfAnotherResultAsWarning(r As Result) As Boolean

        For Each item In r.Errors
            Me.Warnings.Add(item)
        Next

        For Each item In r.Warnings
            Me.Warnings.Add(item)
        Next

        Return True
    End Function

End Class

Public Class SaveFileResult
    Inherits Result

    Public Property fullurl As String
End Class

Public Class ChangePasswordResult
    Inherits Result

    Public Property newpassword As String
End Class


Public Enum EnumErrorResult
    Undefined
End Enum

Public Enum EnumWarningResult
    Undefined
End Enum

Public Enum EnumSuccesResult
    Undefined
    IPublicUserAccountService_RegisterCompanyAsync_Success
End Enum