Imports System.IO
Imports MultiTool.Shared.Schemas
Imports MultiTool.Shared.Winline

Namespace Documents
    Public Class Document
        Public File As FileInfo
        Public Type As DocumentType
        Public Schema As Schema
        Public Mandator As Mandator

        Public TemplateName As String
        Public TemplateType As Integer
        Public [Option] As Integer
        Public PrintVoucher As Integer

        ''' <summary>
        ''' Original Values, read-only
        ''' </summary>
        Public Property Rows As New List(Of DocumentRow)

        Public Property Selected As Boolean = False

        Public ReadOnly Property MandatorId As String
            Get
                Return Mandator?.Id
            End Get
        End Property

        Public ReadOnly Property CreatedAt As Date
            Get
                Return File?.CreationTime
            End Get
        End Property

        Public ReadOnly Property FullName As String
            Get
                Return File?.FullName
            End Get
        End Property

        Public ReadOnly Property Name As String
            Get
                Return File?.Name
            End Get
        End Property

        Public Overrides Function Equals(obj As Object) As Boolean
            Return FullName = DirectCast(obj, Document).FullName
        End Function

        '    Public Type As DocumentType
        '    Public Data As Object
        '    Public DataOriginal As Object
        '    Public DataOutput As Object
        '    Public DataString As String

        '    Public Selected As Boolean = False


        '    Public Shared Function GetDocumentTypeFromTemplateName(pTemplateName As String) As DocumentType
        '        Return DocumentMatch.TypeMatchingTable.
        '            Where(Function(kv) pTemplateName.Contains(kv.Key)).
        '            Select(Function(kv) kv.Value).
        '            FirstOrDefault()
        '    End Function

        '    Public Shared Function GetDocumentSchemaFromDocumentType(pDocumentType As DocumentType) As Type
        '        Return DocumentMatch.SchemaMatchingTable.
        '            Where(Function(kv) pDocumentType = kv.Key).
        '            Select(Function(kv) kv.Value).
        '            FirstOrDefault()
        '    End Function
    End Class

End Namespace