Imports System.IO
Imports EgtBEAMWALL.Core
Imports EgtUILib

Public Class ProjectFileVM
   Inherits VMBase

   Private m_ProjectFileM As ProjectFileM

   Public ReadOnly Property nProjectType As ProjectType
      Get
         Return m_ProjectFileM.nProjectType
      End Get
   End Property

   Public ReadOnly Property nProjId As Integer
      Get
         Return m_ProjectFileM.nProjId
      End Get
   End Property

   Public ReadOnly Property nProdId As Integer
      Get
         Return m_ProjectFileM.nProdId
      End Get
   End Property

   Friend ReadOnly Property sProjDirPath As String
      Get
         If IsNothing(m_ProjectFileM.nProjId) OrElse m_ProjectFileM.nProjId = 0 Then Return String.Empty
         Return refMainWindowVM.MainWindowM.sProjsDir & "\" & nProjId.ToString("0000")
      End Get
   End Property
   Friend ReadOnly Property sProjPath As String
      Get
         Dim sPath As String = String.Empty
         If IsNothing(m_ProjectFileM.nProjId) OrElse m_ProjectFileM.nProjId = 0 Then Return String.Empty
         sPath = refMainWindowVM.MainWindowM.sProjsDir & "\" & nProjId.ToString("0000") & "\" & nProjId.ToString("0000") & FILENAMESEPARATOR
         If Not IsNothing(m_ProjectFileM.nProdId) AndAlso m_ProjectFileM.nProdId > 0 Then
            sPath &= nProdId.ToString("0000")
         End If
         sPath &= FILENAMESEPARATOR & BTLFileName & ".nge"
         Return sPath
      End Get
   End Property

   Friend ReadOnly Property sProdDirPath As String
      Get
         Dim sPath As String = String.Empty
         If IsNothing(m_ProjectFileM.nProdId) OrElse m_ProjectFileM.nProdId = 0 Then Return String.Empty
         Return refMainWindowVM.MainWindowM.sProdsDir & "\" & nProdId.ToString("0000")
      End Get
   End Property
   Friend ReadOnly Property sProdPath As String
      Get
         Dim sPath As String = String.Empty
         If IsNothing(m_ProjectFileM.nProdId) OrElse m_ProjectFileM.nProdId = 0 Then Return String.Empty
         Return refMainWindowVM.MainWindowM.sProdsDir & "\" & nProdId.ToString("0000") & "\" & nProdId.ToString("0000") & ".nge"
      End Get
   End Property

   Public ReadOnly Property BTLFileName As String
      Get
         Return m_ProjectFileM.sBTLFileName
      End Get
   End Property

   Public Property NewProj As Boolean
      Get
         Return m_ProjectFileM.NewProj
      End Get
      Set(value As Boolean)
         m_ProjectFileM.NewProj = value
      End Set
   End Property

   Public Property NewProd As Boolean
      Get
         Return m_ProjectFileM.NewProd
      End Get
      Set(value As Boolean)
         m_ProjectFileM.NewProd = value
      End Set
   End Property


   ' nome del file mostrato nella finestra OpenProjFileDialog
   Public ReadOnly Property OpenFileName As String
      Get
         If m_ProjectFileM.nProjectType = ProjectType.PROJ Then
            Return m_ProjectFileM.nProjId.ToString("0000") & "  " & BTLFileName
         ElseIf m_ProjectFileM.nProjectType = ProjectType.PROD Then
            Return m_ProjectFileM.nProdId.ToString("0000")
         Else
            Return ""
         End If
      End Get
   End Property

#Region "CONSTRUCTORS"

   Sub New(ProjectFileM As ProjectFileM)
      m_ProjectFileM = ProjectFileM
   End Sub

   'Sub New(nProjectType As ProjectType, ProjectFileName As String)
   '   m_nProjectType = nProjectType
   '   If m_nProjectType = ProjectType.PROJ Then
   '      Dim DataFromFileName As String() = ProjectFileName.Split(FILENAMESEPARATOR)
   '      If Not String.IsNullOrEmpty(DataFromFileName(0)) Then
   '         Integer.TryParse(DataFromFileName(0), m_nProjId)
   '      End If
   '      If Not String.IsNullOrEmpty(DataFromFileName(1)) Then
   '         Integer.TryParse(DataFromFileName(1), m_nProdId)
   '      Else
   '         m_nProdId = 0
   '      End If
   '      If Not String.IsNullOrEmpty(DataFromFileName(2)) Then
   '         m_BTLFileName = DataFromFileName(2)
   '      End If
   '   ElseIf m_nProjectType = ProjectType.PROD Then
   '      Integer.TryParse(ProjectFileName, m_nProdId)
   '   End If
   'End Sub

   'Sub New(nProjectType As ProjectType, nProjId As Integer, nProdId As Integer, sBTLFileName As String)
   '   MyBase.New(nProjectType, nProjId, nProdId, sBTLFileName)
   'End Sub

#End Region    ' CONSTRUCTORS

   Friend Sub SetProdId(nProdId As Integer)
      ' rinomino proj con riferimento a prod
      Dim OldPath As String = sProjPath
      m_nProdId = nProdId
      Dim NewPath As String = sProjPath
      File.Move(OldPath, NewPath)
   End Sub

   Friend Sub ResetProdId()
      SetProdId(0)
   End Sub

   ' funzione che restituisce le parti di nome file
   Friend Shared Function VerifyProjectFile(nProjectType As ProjectType, ProjectFileName As String, ByRef nProjId As Integer, ByRef nProdId As Integer, ByRef sBTLFileName As String) As Boolean
      If nProjectType = ProjectType.PROJ Then
         Dim DataFromFileName As String() = ProjectFileName.Split(FILENAMESEPARATOR)
         If DataFromFileName.Count = 3 Then
            If Not String.IsNullOrEmpty(DataFromFileName(0)) Then
               Integer.TryParse(DataFromFileName(0), nProjId)
            Else Return False
            End If
            If Not String.IsNullOrEmpty(DataFromFileName(1)) Then
               Integer.TryParse(DataFromFileName(1), nProdId)
            Else
               nProdId = 0
            End If
            If Not String.IsNullOrEmpty(DataFromFileName(2)) Then
               sBTLFileName = DataFromFileName(2)
            End If
            Return True
         Else Return False
         End If
      ElseIf nProjectType = ProjectType.PROD Then
         Return Integer.TryParse(ProjectFileName, nProdId)
      Else Return False
      End If
   End Function

   ' funzione che dato un nome file e il tipo restituisce il corretto numero di progetto
   Friend Shared Function GetProjectNumber(nProjectType As ProjectType, ProjectFileName As String, ByRef nProjId As Integer, ByRef nProdId As Integer, ByRef sBTLFileName As String) As Boolean
      If String.IsNullOrWhiteSpace(ProjectFileName) Then
         nProjId = 0
         nProdId = 0
         sBTLFileName = ""
         Return False
      ElseIf ProjectFileName.Contains(FILENAMESEPARATOR) Then
         Dim DataFromFileName As String() = ProjectFileName.Split(FILENAMESEPARATOR)
         If DataFromFileName.Count = 3 Then
            If Not String.IsNullOrEmpty(DataFromFileName(0)) Then
               Integer.TryParse(DataFromFileName(0), nProjId)
            Else Return False
            End If
            If Not String.IsNullOrEmpty(DataFromFileName(1)) Then
               Integer.TryParse(DataFromFileName(1), nProdId)
            Else
               nProdId = 0
            End If
            If Not String.IsNullOrEmpty(DataFromFileName(2)) Then
               sBTLFileName = DataFromFileName(2)
            End If
            Return True
         Else Return False
         End If
      ElseIf nProjectType = ProjectType.PROJ Then
         Dim ProjectFileNameProd As String = Integer.TryParse(ProjectFileName, nProdId)
         Dim nTempProjId As Integer = 0
         Dim nTempProdId As Integer = 0
         Dim sTempBTLFileName As String = ""
         ' ricavo lista cartelle proj
         Dim AllDirsInDir As IEnumerable(Of String) = IO.Directory.EnumerateDirectories(Map.refMainWindowVM.MainWindowM.sProjsDir)
         For Each Directory In AllDirsInDir
            Dim AllFilesInDir As IEnumerable(Of String) = IO.Directory.EnumerateFiles(Directory)
            For Each File In AllFilesInDir
               If Path.GetExtension(File).ToLower() = ".nge" Then
                  If File.Contains(FILENAMESEPARATOR) Then
                     Dim DataFromFileName As String() = ProjectFileName.Split(FILENAMESEPARATOR)
                     If DataFromFileName.Count = 3 Then
                        If Not String.IsNullOrEmpty(DataFromFileName(0)) Then
                           Integer.TryParse(DataFromFileName(0), nTempProjId)
                        Else Return False
                        End If
                        If Not String.IsNullOrEmpty(DataFromFileName(1)) Then
                           Integer.TryParse(DataFromFileName(1), nTempProdId)
                        Else
                           nProdId = 0
                        End If
                        If Not String.IsNullOrEmpty(DataFromFileName(2)) Then
                           sTempBTLFileName = DataFromFileName(2)
                        End If
                        If ProjectFileNameProd = nTempProdId Then
                           nProjId = nTempProjId
                           nProdId = nTempProdId
                           sTempBTLFileName = sBTLFileName
                           Return True
                        End If
                     Else Return False
                     End If
                  End If
               End If
            Next
         Next
      End If
      Return False
   End Function

   Friend Shared Function VerifyProjectModification(CurrProject As ProjectFileVM, Type As ProjectType) As Boolean
      If IsNothing(CurrProject) Then Return False
      Dim bNewProject As Boolean = False
      Dim sProjectDirPath As String = ""
      If Type = ProjectType.PROJ Then
         bNewProject = DbControllers.m_ProjController.FindByProjId(CurrProject.m_nProjId).IsNew
         sProjectDirPath = CurrProject.sProjDirPath
      Else
         bNewProject = CurrProject.NewProd
         sProjectDirPath = CurrProject.sProdDirPath
      End If
      ' verifico se progetto modificato, e chiedo se salvare
      If (EgtGetModified() Or bNewProject) Then
         If MessageBox.Show("Salvare le modifiche apportate al progetto?", "", MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
            ' salvo proj
            If Type = ProjectType.PROJ Then
               Map.refProjManagerVM.Save()
            Else
               Map.refProdManagerVM.Save()
            End If
            Return True
         Else
            ' se da non salvare e nuovo proj
            If bNewProject Then
               ' lo elimino
               Directory.Delete(sProjectDirPath, True)
               DbControllers.m_ProjController.DeleteProj(CurrProject.m_nProjId)
               If Type = ProjectType.PROD AndAlso CurrProject.m_nProdId = Map.refProjManagerVM.CurrProj.m_nProdId Then
                  ' reset prod in path proj
                  Map.refProjManagerVM.CurrProj.ResetProdId()
               End If
               CurrProject = Nothing
            End If
            EgtResetModified()
            Return False
         End If
      End If
      Return True
   End Function

End Class