HistoryItemVM.vb

Imports System.Collections.ObjectModel
Imports System.ComponentModel
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Input
Imports ComplianceManager.Model
Imports Microsoft.Win32
Imports SPS.ViewModel.Infrastructure

Public Class HistoryItemVM
    Inherits ViewModelBase

    Friend _historyItem As Model.HistoryItem
    Public settPath As String
    Public saveFolder As String = settPath & "\" & Now.Year & "\"
    Private _db As Context.CompContext
    Private IsUserAdmin As Boolean = False

    Public Event Refresh()
    Private AreThereChanges As Boolean = False

    Public Sub New()

        If DesignerProperties.GetIsInDesignMode(New DependencyObject) Then
            _historyItem = New HistoryItem() With {.CreatedBy = "User", .CreationDate = Now, .Description = "Description of HistoryItemVM", .LastChange = Now, .LastEditedBy = "User", .Title = "Title"}
            _historyItem.Attachments = New List(Of Model.ComplianteAttachment)
            _historyItem.Attachments.Add(New ComplianteAttachment() With {.CreatedBy = "User", .CreationDate = Now, .LastChange = Now, .LastEditedBy = "User", .Title = "Test1"})
            _historyItem.Attachments.Add(New ComplianteAttachment() With {.CreatedBy = "User", .CreationDate = Now, .LastChange = Now, .LastEditedBy = "User", .Title = "Test2", .RelativeFilePath = "Test2.png", .IsDeleted = True})
            _historyItem.Attachments.Add(New ComplianteAttachment() With {.CreatedBy = "User", .CreationDate = Now, .LastChange = Now, .LastEditedBy = "User", .Title = "Test3", .RelativeFilePath = "Test3.png", .IsDeleted = True})
        Else
            _historyItem = New Model.HistoryItem
            AviableUsers = _db.Users.Where(Function(u) u.IsActive = True).ToList
            'Using settDb As New Context.CompContext
            '    settPath = settDb.Settings.Where(Function(s) s.Key = "AttachmentsPath").FirstOrDefault.Value
            'End Using
            'If _historyItem.Attachments Is Nothing Then _historyItem.Attachments = New List(Of ComplianteAttachment)
            AreThereChanges = False
        End If



    End Sub


    Public Sub New(hItem As Model.HistoryItem, db As Context.CompContext)
        _historyItem = hItem
        If _historyItem.Attachments Is Nothing Then _historyItem.Attachments = New List(Of ComplianteAttachment)
        _db = db
        Using settDb As New Context.CompContext
            settPath = settDb.Settings.Where(Function(s) s.Key = "AttachmentsPath").FirstOrDefault.Value
            IsUserAdmin = settDb.Users.Where(Function(u) u.UserName = Environment.UserName).First.IsAdmin
        End Using
        AviableUsers = _db.Users.Where(Function(u) u.IsActive = True).ToList
        AreThereChanges = False
    End Sub

    Public Sub RefreshView()
        RaisePropertyChanged("Attachments")
        RaisePropertyChanged("Attachments")
        RaisePropertyChanged("Attachments")
        RaiseEvent Refresh()
    End Sub


    Private _aviableUsers As List(Of Model.User)
    Public Property AviableUsers() As List(Of Model.User)
        Get
            Return _aviableUsers
        End Get
        Set(ByVal value As List(Of Model.User))
            _aviableUsers = value
        End Set
    End Property


    Public Property CreationDate As DateTime
        Get
            Return _historyItem.CreationDate
        End Get
        Set(value As DateTime)
            _historyItem.CreationDate = value
            AreThereChanges = True
            RaisePropertyChanged("CreationDate")
            RaisePropertyChanged("CreatedString")
        End Set
    End Property


    Public ReadOnly Property CreatedString As String
        Get
            Return String.Format("Erstellt am {0} durch {1}", CreationDate.ToShortDateString, CreatedBy)
        End Get
    End Property


    Public ReadOnly Property ChangedString As String
        Get
            Return String.Format("Zuletzt geändert durch {0} am {1}", LastEditedBy, LastChange.ToShortDateString)
        End Get
    End Property

    Public Property CreatedBy As String
        Get
            Return _historyItem.CreatedBy
        End Get
        Set(value As String)
            _historyItem.CreatedBy = value
            RaisePropertyChanged("CreatedBy")
            RaisePropertyChanged("CreatedString")
            AreThereChanges = True
        End Set
    End Property


    Public Property LastEditedBy As String
        Get
            Return _historyItem.LastEditedBy
        End Get
        Set(value As String)
            _historyItem.LastEditedBy = value
            RaisePropertyChanged("LastEditedBy")
            RaisePropertyChanged("ChangedString")
            AreThereChanges = True
        End Set
    End Property


    Public Property LastChange As DateTime
        Get
            Return _historyItem.LastChange
        End Get
        Set(value As DateTime)
            _historyItem.LastChange = value
            RaisePropertyChanged("LastChange")
            RaisePropertyChanged("ChangedString")
            AreThereChanges = True
        End Set
    End Property

    Public Property Title As String
        Get
            Return _historyItem.Title
        End Get
        Set(value As String)
            _historyItem.Title = value
            RaisePropertyChanged("Title")
            AreThereChanges = True
        End Set
    End Property

    Public Property Description As String
        Get
            Return _historyItem.Description
        End Get
        Set(value As String)
            _historyItem.Description = value
            RaisePropertyChanged("Description")
            AreThereChanges = True
        End Set
    End Property

    ' Private _attachments As ObservableCollection(Of ComplianteAttachment)
    Public Property Attachments As ICollection(Of ComplianteAttachment)
        Get
            Return _historyItem.Attachments
        End Get
        Set(value As ICollection(Of ComplianteAttachment))
            _historyItem.Attachments = value
            RaisePropertyChanged("Attachments")
            AreThereChanges = True
        End Set
    End Property

    'Private _addItemCommand As ICommand
    'Public Property AddItemCommand() As ICommand
    '    Get
    '        If _addItemCommand Is Nothing Then _addItemCommand = New RelayCommand(AddressOf AddItemCommand_Execute, AddressOf AddItemCommand_CanExecute)
    '        Return _addItemCommand
    '    End Get
    '    Set(ByVal value As ICommand)
    '        _addItemCommand = value
    '        RaisePropertyChanged("AddItemCommand")
    '    End Set
    'End Property

    'Private Function AddItemCommand_CanExecute(obj As Object) As Boolean
    '    Return True
    'End Function

    'Private Sub AddItemCommand_Execute(obj As Object)
    '    Using settDb As New Context.CompContext
    '        Dim settPath As String = settDb.Settings.Where(Function(s) s.Key = "AttachmentsPath").FirstOrDefault.Value
    '        Dim saveFolder As String = settPath & "\" & Now.Year & "\"
    '        If Not IO.Directory.Exists(saveFolder) Then IO.Directory.CreateDirectory(saveFolder)

    '        Dim ofDiag As New Forms.OpenFileDialog
    '        ofDiag.Multiselect = True
    '        ofDiag.RestoreDirectory = True
    '        ofDiag.Title = "Wählen Sie die Dateien welches Sie hinzufügen möchten..."
    '        If Attachments Is Nothing Then Attachments = New List(Of Model.ComplianteAttachment)
    '        Attachments.Add(New ComplianteAttachment())

    '        If ofDiag.ShowDialog = Forms.DialogResult.OK Then
    '            If Attachments Is Nothing Then Attachments = New List(Of Model.ComplianteAttachment)
    '            For Each f In ofDiag.FileNames
    '                Dim fi As IO.FileInfo = New IO.FileInfo(f)
    '                Attachments.Add(New ComplianteAttachment() _
    '                                With {.Title = fi.Name, .RelativeFilePath = Now.Year & "\" & fi.Name, .CreatedBy = Environment.UserName, .LastChange = Environment.UserName})
    '            Next
    '        End If
    '    End Using
    'End Sub




    Private _editCommand As ICommand
    Public Property EditCommand() As ICommand
        Get
            If _editCommand Is Nothing Then _editCommand = New RelayCommand(AddressOf EditCommand_Execute, AddressOf EditCommand_CanExecute)
            Return _editCommand
        End Get
        Set(ByVal value As ICommand)
            _editCommand = value
            RaisePropertyChanged("EditCommand")
            AreThereChanges = True
        End Set
    End Property

    Private Function EditCommand_CanExecute(obj As Object) As Boolean
        Return Environment.UserName = Me.CreatedBy OrElse IsUserAdmin
    End Function

    Private Sub EditCommand_Execute(obj As Object)
        ' Using db As New Context.CompContext
        Dim win As New MahApps.Metro.Controls.MetroWindow
        win.Title = "Historie bearbeiten..."
        win.Width = 800
        win.Height = 600
        win.WindowStartupLocation = Windows.WindowStartupLocation.CenterScreen

        win.DataContext = Me
        win.Content = New ContentPresenter With {.Content = Me}

        If win.ShowDialog Then




            If Attachments Is Nothing Then Attachments = New List(Of ComplianteAttachment)
            If AreThereChanges Then
                LastChange = Now
                LastEditedBy = Environment.UserName
            End If
            Dim anz As Integer = _db.SaveChanges()

            RefreshView()
            RaiseEvent Refresh()
        End If
        ' End Using
    End Sub


    Private _addAttachmentCommand As ICommand
    Public Property AddAttachmentCommand() As ICommand
        Get
            If _addAttachmentCommand Is Nothing Then _addAttachmentCommand = New RelayCommand(AddressOf AddAttachmentCommand_execute, AddressOf AddAttachmentCommand_CanExecute)
            Return _addAttachmentCommand
        End Get
        Set(ByVal value As ICommand)
            _addAttachmentCommand = value
            RaisePropertyChanged("AddAttachmentCommand")
        End Set
    End Property

    Private Function AddAttachmentCommand_CanExecute(obj As Object) As Boolean
        Return True
    End Function

    Private Sub AddAttachmentCommand_execute(obj As Object)
        'Using settDb As New Context.CompContext
        Dim settPath As String = _db.Settings.Where(Function(s) s.Key = "AttachmentsPath").FirstOrDefault.Value
        Dim saveFolder As String = settPath & "\" & Now.Year & "\"
        If Not IO.Directory.Exists(saveFolder) Then IO.Directory.CreateDirectory(saveFolder)

        Dim ofDiag As New Forms.OpenFileDialog
        ofDiag.Multiselect = True
        ofDiag.RestoreDirectory = True
        ofDiag.Title = "Wählen Sie die Dateien welches Sie hinzufügen möchten..."
        If Attachments Is Nothing Then Attachments = New List(Of Model.ComplianteAttachment)
        'Attachments.Add(New ComplianteAttachment())

        If ofDiag.ShowDialog = Forms.DialogResult.OK Then
            If Attachments Is Nothing Then Attachments = New List(Of Model.ComplianteAttachment)
            For Each f In ofDiag.FileNames
                Dim fi As IO.FileInfo = New IO.FileInfo(f)
                Dim NewFilename As String = Now.Ticks & Mid(fi.Name, fi.Name.Length - 3, 4)
                IO.File.Copy(fi.FullName, settPath & Now.Year & "\" & NewFilename)
                Attachments.Add(New ComplianteAttachment() _
                                    With {.Title = Replace(fi.Name, fi.Extension, ""), .RelativeFilePath = Now.Year & "\" & NewFilename, .CreatedBy = Environment.UserName, .LastEditedBy = Environment.UserName})
            Next
        End If

        'End Using
        RefreshView()
        RaiseEvent Refresh()
    End Sub



    Private _deleteAttachmentCommand As ICommand
    Public Property DeleteAttachmentcommand() As ICommand
        Get
            If _deleteAttachmentCommand Is Nothing Then _deleteAttachmentCommand = New RelayCommand(AddressOf DeleteAttachmentcommand_Execute, AddressOf DeleteAttachmentcommand_Canexecute)
            Return _deleteAttachmentCommand
        End Get
        Set(ByVal value As ICommand)
            _deleteAttachmentCommand = value
            RaisePropertyChanged("DeleteAttachmentcommand")
        End Set
    End Property

    Private Function DeleteAttachmentcommand_Canexecute(obj As Object) As Boolean
        Return obj IsNot Nothing AndAlso IsUserAdmin
    End Function

    Private Sub DeleteAttachmentcommand_Execute(obj As Object)
        Attachments.Where(Function(a) a.RelativeFilePath = DirectCast(obj, Model.ComplianteAttachment).RelativeFilePath).First.IsDeleted = True
        RefreshView()
        RaiseEvent Refresh()
    End Sub


    Private _dedeleteAttachmentCommand As ICommand
    Public Property DeDeleteAttachmentcommand() As ICommand
        Get
            If _dedeleteAttachmentCommand Is Nothing Then _dedeleteAttachmentCommand = New RelayCommand(AddressOf DeDeleteAttachmentcommand_Execute, AddressOf DeDeleteAttachmentcommand_Canexecute)
            Return _dedeleteAttachmentCommand
        End Get
        Set(ByVal value As ICommand)
            _dedeleteAttachmentCommand = value
            RaisePropertyChanged("DeDeleteAttachmentcommand")
        End Set
    End Property

    Private Function DeDeleteAttachmentcommand_Canexecute(obj As Object) As Boolean
        Return obj IsNot Nothing
    End Function

    Private Sub DeDeleteAttachmentcommand_Execute(obj As Object)
        Attachments.Where(Function(a) a.RelativeFilePath = DirectCast(obj, Model.ComplianteAttachment).RelativeFilePath).First.IsDeleted = False
        RefreshView()
        RaiseEvent Refresh()
    End Sub


    Private _removeHistoryItem As ICommand
    Public Property RemoveHistoryItem() As ICommand
        Get
            If _removeHistoryItem Is Nothing Then _removeHistoryItem = New RelayCommand(AddressOf RemoveHistoryItem_Execute, AddressOf RemoveHistoryItem_CanExecute)
            Return _removeHistoryItem
        End Get
        Set(ByVal value As ICommand)
            _removeHistoryItem = value
            RaisePropertyChanged("RemoveHistoryItem")
        End Set
    End Property

    Private Function RemoveHistoryItem_CanExecute(obj As Object) As Boolean
        Return IsUserAdmin AndAlso obj IsNot Nothing
    End Function

    Private Sub RemoveHistoryItem_Execute(obj As Object)
        If MsgBox("Möchtest du den Eintrag wirklich löschen?", MsgBoxStyle.YesNo, "Wirklich löschen?") = MsgBoxResult.Yes Then
            _db.HistoryItems.Remove(_db.HistoryItems.Where(Function(i) i.ID = DirectCast(obj, HistoryItemVM)._historyItem.ID).First)
            _db.SaveChanges()


            RefreshView()
            RaiseEvent Refresh()
        End If
    End Sub





    Private _OpenAttachmentCommand As ICommand
    Public Property OpenAttachmentCommand() As ICommand
        Get
            If _OpenAttachmentCommand Is Nothing Then _OpenAttachmentCommand = New RelayCommand(AddressOf OpenAttachmentCommand_execute, AddressOf OpenAttachmentCommand_CanExecute)
            Return _OpenAttachmentCommand
        End Get
        Set(ByVal value As ICommand)
            _OpenAttachmentCommand = value
            RaisePropertyChanged("OpenAttachmentCommand")
        End Set
    End Property

    Private Function OpenAttachmentCommand_CanExecute(obj As Object) As Boolean
        Return obj IsNot Nothing


    End Function

    Private Sub OpenAttachmentCommand_execute(obj As Object)
        Try
            Process.Start(settPath & DirectCast(obj, Model.ComplianteAttachment).RelativeFilePath)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.OkCancel, "Fehler beim laden der Datei")
        End Try
    End Sub
End Class