egtbeamwall/EgtBEAMWALL.ViewerOptimizer/ProjectFileVM/ProdFileVM.vb

Imports System.IO
Imports EgtBEAMWALL.Core
Imports EgtUILib

Public Class ProdFileVM
   Inherits Core.ProdFileVM

#Region "CONSTRUCTORS"

   Sub New(ProdFileM As ProdFileM)
      MyBase.New(ProdFileM)
      ' aggiungo nome btl
      Dim sBTLFileName As String = ""
      For Each CurrProj In nProjIdList
         Dim TempProj As ProjFileM = DbControllers.m_ProjController.FindByProjIdConv(CurrProj)
         If Not IsNothing(TempProj) Then sBTLFileName &= TempProj.sListName
      Next
      SetBTLFileName(sBTLFileName)
   End Sub

#End Region    ' CONSTRUCTORS

   Friend Function GetProjPath(nProjId As Integer)
      Dim sPath As String = String.Empty
      If nProjId = 0 Then Return String.Empty
      Return refMainWindowVM.MainWindowM.sProjsDir & "\" & nProjId.ToString("0000") & "\" & nProjId.ToString("0000") & ".nge"
   End Function

   '' 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 ProdFileVM) As Boolean
      If IsNothing(CurrProject) Then Return True
      Dim bNewProject As Boolean = False
      Dim sProjectDirPath As String = ""
      sProjectDirPath = CurrProject.sProdDirPath
      ' verifico se progetto modificato, e chiedo se salvare
      If EgtGetModified() OrElse CurrProject.bIsNew Then
         Select Case MessageBox.Show(EgtMsg(61875), "", MessageBoxButton.YesNoCancel, MessageBoxImage.Question)
            Case MessageBoxResult.Yes
               ' salvo proj
               Map.refProdManagerVM.Save()
            Case MessageBoxResult.Cancel
               Return False
            Case Else   ' No
               EgtResetModified()
               If CurrProject.bIsNew Then
                  ' lo elimino
                  Directory.Delete(sProjectDirPath, True)
                  Map.refProdManagerVM.m_MruFiles.Remove(CurrProject.sProdPath)
                  Map.refProdManagerVM.NotifyPropertyChanged(NameOf(Map.refProdManagerVM.MruFileNames))
                  DbControllers.m_ProdController.DeleteProd(CurrProject.nProdId)
                  If CurrProject.nProdId = Map.refProjManagerVM.CurrProj.nProdId Then
                     ' reset prod in path proj
                     Map.refProjManagerVM.UpdateCurrProj()
                  End If
                  Map.refProdManagerVM.CurrProd = Nothing
                  EgtResetModified()
                  Return True
               End If
         End Select
      Else
         EgtResetModified()
      End If
      DbControllers.m_ProdController.ResetController()
      DbControllers.m_ProdController.LockByProdId(CurrProject.nProdId, False)
      Return True
   End Function

End Class