egtbeamwall/EgtBEAMWALL.ViewerOptimizer/ProdManager/ProdManagerVM.vb

Imports System.Collections.ObjectModel
Imports System.IO
Imports EgtBEAMWALL.Core
Imports EgtBEAMWALL.Core.ConstBeam
Imports EgtBEAMWALL.DataLayer.DatabaseModels
Imports EgtUILib
Imports EgtWPFLib5

Public Class ProdManagerVM
   Inherits VMBase

#Region "FIELDS & PROPERTIES"

   Private m_ProdManager_IsEnabled As Boolean = True
   Public ReadOnly Property ProdManager_IsEnabled As Boolean
      Get
         Return m_ProdManager_IsEnabled
      End Get
   End Property

   Private m_CurrProd As ProdFileVM
   Friend Property CurrProd As ProdFileVM
      Get
         Return m_CurrProd
      End Get
      Set(value As ProdFileVM)
         m_CurrProd = value
      End Set
   End Property

   ' indice ultimo progetto
   Private m_nLastProdId As Integer
   Friend ReadOnly Property nLastProdId As Integer
      Get
         Return m_nLastProdId
      End Get
   End Property

   Friend m_MruFiles As New MruList
   Public ReadOnly Property MruFileNames As ObservableCollection(Of String)
      Get
         Dim IdAndBTLFileNames As New ObservableCollection(Of String)
         For Each FileName In m_MruFiles.FileNames
            Dim PdId As Integer = 0
            Dim sPdId As String = Path.GetFileNameWithoutExtension(DirectCast(FileName, String).Replace("__", "_"))
            Integer.TryParse(sPdId, PdId)
            Dim PdFileM = DbControllers.m_ProdController.FindCoreByProdId(PdId)
            Dim PdFileVM = New ProdFileVM(PdFileM)
            IdAndBTLFileNames.Add(sPdId & " | " & PdFileVM.sBTLFileName)
         Next
         Return IdAndBTLFileNames
      End Get
   End Property

   ' Definizione comandi
   Private m_cmdOpen As ICommand
   Private m_cmdOpenMruFile As ICommand
   Private m_cmdSave As ICommand
   Private m_cmdGoToProj As ICommand

#Region "ToolTip"

   'Proprietà ToolTip
   Public ReadOnly Property OpenToolTip As String
      Get
         Return EgtMsg(MSG_TOPCOMMANDBAR + 2)
      End Get
   End Property
   Public ReadOnly Property SaveToolTip As String
      Get
         Return EgtMsg(MSG_TOPCOMMANDBAR + 3)
      End Get
   End Property
   Public ReadOnly Property AddProj_ToolTip As String
      Get
         Return EgtMsg(61921)
      End Get
   End Property
   Public ReadOnly Property GoToProj_ToolTip As String
      Get
         Return EgtMsg(61922)
      End Get
   End Property

#End Region ' ToolTip

#End Region    ' Fields & Properties

#Region "CONSTRUCTOR"

   Sub New()
      ' Creo riferimento a questa classe in Map
      Map.SetRefProdManagerVM(Me)
      ' Leggo ultimo indice di progetto
      m_nLastProdId = GetMainPrivateProfileInt(S_GENERAL, K_PRODSINDEX, 1)
      ' Impostazioni MruLists
      m_MruFiles.Init(S_MRUPRODFILES, 8)
   End Sub

#End Region    ' CONSTRUCTOR

#Region "METHODS"

   Friend Function InitNewProject(ByRef nProjId As Integer, ByRef nProdId As Integer, ByRef sProjectDir As String) As Boolean
      ' richiedo indice nuovo progetto
      nProdId = DbControllers.m_ProdController.GetNextIndex(nProjId)
      If nProdId <= 0 Then Return False
      sProjectDir = refMainWindowVM.MainWindowM.sProdsDir & "\" & nProdId.ToString("0000")
      ' creo cartella nuovo progetto
      If Not Directory.Exists(sProjectDir) Then
         Directory.CreateDirectory(sProjectDir)
      Else
         Dim di As System.IO.DirectoryInfo = New DirectoryInfo(sProjectDir)
         For Each file As FileInfo In di.EnumerateFiles()
            file.Delete()
         Next
         For Each dir As DirectoryInfo In di.EnumerateDirectories()
            dir.Delete(True)
         Next
      End If
      Return True
   End Function

   Public Function SetCurrProd(nProdId As Integer) As Boolean
      Dim CurrProdM As ProdFileM = DbControllers.m_ProdController.FindCoreByProdId(nProdId)
      If IsNothing(CurrProdM) Then Return False
      Map.refProdManagerVM.CurrProd = New ProdFileVM(CurrProdM)
      Return True
   End Function

   Public Sub ResetCurrProd()
      CurrProd = Nothing
   End Sub

   Friend Sub SetProdManagerIsEnabled(bIsEnabled As Boolean)
      m_ProdManager_IsEnabled = bIsEnabled
      NotifyPropertyChanged(NameOf(ProdManager_IsEnabled))
   End Sub

#End Region    ' METHODS

#Region "COMMANDS"

#Region "OpenCommand"

   ''' <summary>
   ''' Returns a command that do Open.
   ''' </summary>
   Public ReadOnly Property OpenCommand As ICommand
      Get
         If m_cmdOpen Is Nothing Then
            m_cmdOpen = New Command(AddressOf Open)
         End If
         Return m_cmdOpen
      End Get
   End Property

   ''' <summary>
   ''' Execute the Open.  This method is invoked by the OpenCommand.
   ''' </summary>
   Friend Sub Open()
      ' verifico se progetto modificato, e chiedo se salvare
      If Not ProdFileVM.VerifyProjectModification(CurrProd) Then Return
      OpenProject(Nothing)
   End Sub

   Friend Sub OpenProject(TempCurrProd As ProdFileVM)
      Dim sFilePath As String = ""
      ' se la string è vuota
      Dim OpenProjectFileDialogVM As OpenProjectFileDialogVM = Nothing
      If IsNothing(TempCurrProd) Then
         ' apro dialogo di scelta file
         OpenProjectFileDialogVM = New OpenProjectFileDialogVM
         Dim OpenFile As New OpenProjectFileDialogV(Application.Current.MainWindow, OpenProjectFileDialogVM)
         Dim DialogResult As Boolean? = OpenFile.EgtShowDialog(ProjectType.PROD)
         If IsNothing(DialogResult) OrElse Not DialogResult Then Return
         sFilePath = OpenProjectFileDialogVM.SelProject.sProdPath
         TempCurrProd = OpenProjectFileDialogVM.SelProject
      Else
         sFilePath = If(Not IsNothing(TempCurrProd.sProdPath), TempCurrProd.sProdPath, "")
      End If
      If File.Exists(sFilePath) Then
         ' apro un nuovo contesto per leggere il tipo progetto senza caricare nel programma il progetto intero
         Dim nCurrCtx As Integer = EgtGetCurrentContext()
         Dim nTempCtx As Integer = EgtInitContext()
         If nTempCtx <> 0 Then
            EgtOpenFile(sFilePath)
            Dim nBTLProjType As Integer
            Dim ProjectType As ProjectType = If(Map.refMainMenuVM.SelPage = Pages.VIEW, ProjectType.PROJ, ProjectType.PROD)
            Dim ProjId As Integer = If(ProjectType = ProjectType.PROJ, Map.refProjManagerVM.nLoadingProjId, 0)
            Dim nBTLInfoId As Integer
            Dim sValue As String = String.Empty
            ' se devo filtrare un progetto
            If ProjId > 0 Then
               ' cerco tra i layer BTLInfo
               Dim nBTLInfoLayerId As Integer = EgtGetFirstNameInGroup(GDB_ID.ROOT, BTLINFO)
               While nBTLInfoLayerId <> GDB_ID.NULL
                  ' verifico se il layer appartiene al ProjId
                  Dim nBTLInfoLayerProjId As Integer
                  EgtGetInfo(nBTLInfoLayerId, BTL_PRT_PROJ, nBTLInfoLayerProjId)
                  If nBTLInfoLayerProjId = ProjId Then
                     nBTLInfoId = nBTLInfoLayerId
                     Exit While
                  End If
                  nBTLInfoLayerId = EgtGetNextName(nBTLInfoLayerId, BTLINFO)
               End While
            Else
               nBTLInfoId = EgtGetFirstNameInGroup(GDB_ID.ROOT, BTLINFO)
            End If
            EgtGetInfo(nBTLInfoId, BTL_GEN_PROJTYPE, nBTLProjType)
            ' verifico che il tipo di progetto sia congruo al tipo di macchina corrente
            Dim bOkType As Boolean = True
            Select Case CurrentMachine.nType
               Case Core.ConstBeam.MachineType.NULL
                  bOkType = False
               Case Core.ConstBeam.MachineType.BEAM
                  If nBTLProjType <> BWType.BEAM Then bOkType = False
               Case Core.ConstBeam.MachineType.WALL
                  If nBTLProjType <> BWType.WALL Then bOkType = False
               Case Core.ConstBeam.MachineType.BOTH
                  ' non fare niente
            End Select
            ' torno sul contesto corrente
            EgtSetCurrentContext(nCurrCtx)
            EgtDeleteContext(nTempCtx)
            ' se il tipo non è congruo mostro msg d'errore ed esco dall'apertura progetto
            If Not bOkType Then
               MessageBox.Show(EgtMsg(61881), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Error)        'Error
               Return
            End If
         End If
         If Map.refSceneHostVM.MainController.OpenProject(sFilePath, False) Then
            SectionXMaterial.SetType(Map.refProjectVM.BTLStructureVM.nPROJTYPE)
            ' aggiorno le colonne in base al tipo progetto
            Map.refRawPartListVM.UpdateColumns(Map.refProjectVM.BTLStructureVM.nPROJTYPE)
            Map.refPartInRawPartListVM.UpdateColumns(Map.refProjectVM.BTLStructureVM.nPROJTYPE)
            m_CurrProd = TempCurrProd
            DbControllers.m_ProdController.LockByProdId(m_CurrProd.nProdId, True)
            ' seleziono primo gruppo
            Map.refProjectVM.MachGroupPanelVM.SelFirstMachGroup()
         End If
      Else
         MessageBox.Show(EgtMsg(61871))
         Map.refSceneHostVM.MainController.NewProject()
         Map.refMainWindowVM.SetTitle("New - EgtBEAMWALL")
      End If
      ' aggiorno titolo
      Map.refMainWindowVM.UpdateTitle()
      NotifyPropertyChanged(NameOf(MruFileNames))
   End Sub

#End Region ' OpenCommand

#Region "OpenMruFileCommand"

   ''' <summary>
   ''' Returns a command that do Open.
   ''' </summary>
   Public ReadOnly Property OpenMruFileCommand As ICommand
      Get
         If m_cmdOpenMruFile Is Nothing Then
            m_cmdOpenMruFile = New Command(AddressOf OpenMruFile)
         End If
         Return m_cmdOpenMruFile
      End Get
   End Property

   ''' <summary>
   ''' Execute the Open.  This method is invoked by the OpenCommand.
   ''' </summary>
   Public Sub OpenMruFile(ByVal param As Object)
      ' verifico se progetto modificato, e chiedo se salvare
      If Not ProdFileVM.VerifyProjectModification(CurrProd) Then Return
      ' ricavo l'Id e il progetto associato per l'apertura di quest'ultimo
      Dim PdId As Integer = 0
      Dim arrStrPdId As String() = DirectCast(param, String).Split("|")
      Integer.TryParse(arrStrPdId(0), PdId)
      Dim PdFileM = DbControllers.m_ProdController.FindCoreByProdId(PdId)
      Dim PdFileVM = New ProdFileVM(PdFileM)
      OpenProject(PdFileVM)
   End Sub

#End Region ' OpenMruFileCommand

#Region "SaveCommand"

   ''' <summary>
   ''' Returns a command that do Save.
   ''' </summary>
   Public ReadOnly Property SaveCommand As ICommand
      Get
         If m_cmdSave Is Nothing Then
            m_cmdSave = New Command(AddressOf Save)
         End If
         Return m_cmdSave
      End Get
   End Property

   ''' <summary>
   ''' Execute the Save.  This method is invoked by the SaveCommand.
   ''' </summary>
   Public Sub Save()
      If IsNothing(m_CurrProd) Then Return
      Map.refSceneHostVM.SaveProject()
      Map.refMainWindowVM.UpdateTitle()
      Dim MyMachGroupList As New List(Of MyMachGroupM)
      If Not IsNothing(Map.refProjectVM.MachGroupPanelVM) Then
         For Each MachGroup In Map.refProjectVM.MachGroupPanelVM.m_MyMachGroupPanelM.MachGroupMList
            MyMachGroupList.Add(MachGroup)
         Next
      End If
      ' aggiorno pezzi su Db
      DbControllers.m_ProdController.UpdateMachGroup(CurrProd.nProdId, MyMachGroupList)
      ' se nuovo progetto
      If m_CurrProd.bIsNew Then
         ' resetto stato new
         ' DbControllers.m_ProdController.Reset(CurrProd.nProjId)
         m_CurrProd.bIsNew = False
      End If
      NotifyPropertyChanged(NameOf(MruFileNames))
   End Sub

#End Region ' SaveCommand

#Region "GoToProj"

   ''' <summary>
   ''' Returns a command that do Open.
   ''' </summary>
   Public ReadOnly Property GoToProj_Command As ICommand
      Get
         If m_cmdGoToProj Is Nothing Then
            m_cmdGoToProj = New Command(AddressOf GoToProj)
         End If
         Return m_cmdGoToProj
      End Get
   End Property

   ''' <summary>
   ''' Execute the Open.  This method is invoked by the OpenCommand.
   ''' </summary>
   Friend Sub GoToProj()
      ' recupero Proj associati da Db
      Dim ProjFileMList As List(Of ProjFileM) = DbControllers.m_ProjController.GetByProdAsc(m_CurrProd.nProdId)
      Dim nProjId As Integer = 0
      ' verifico se salvare progetto corrente
      If Not ProdFileVM.VerifyProjectModification(Map.refProdManagerVM.CurrProd) Then Return
      ' se piu' di uno
      If IsNothing(ProjFileMList) Then
         Return
      ElseIf ProjFileMList.Count = 1 AndAlso ProjFileMList(0).nProjId > 0 Then
         nProjId = ProjFileMList(0).nProjId
      ElseIf ProjFileMList.Count > 1 Then
         Dim ProjFileVMList As New List(Of ProjectFileVM)
         For Each Project In ProjFileMList
            ProjFileVMList.Add(New ProjFileVM(Project))
         Next
         ' apro finestra di scelta
         Dim OpenProjectFileDialogVM As New OpenProjectFileDialogVM
         Dim ChooseProjFileDialog As New OpenProjectFileDialogV(Application.Current.MainWindow, OpenProjectFileDialogVM)
         Dim DialogResult As Boolean? = ChooseProjFileDialog.EgtShowDialog(ProjectType.PROJ, ProjFileVMList)
         If IsNothing(DialogResult) OrElse Not DialogResult Then Return
         ' se proj selezionato
         If Not IsNothing(OpenProjectFileDialogVM.SelProject.nProdId) AndAlso OpenProjectFileDialogVM.SelProject.nProdId > 0 Then
            nProjId = OpenProjectFileDialogVM.SelProject.nProjId
         End If
      Else Return
      End If
      ' apro progetto proj
      Map.refProjManagerVM.SetCurrProj(nProjId)
      ' ricarico progetto se il prod e' nullo (quindi e' stato cancellato)
      Map.refProjManagerVM.CurrProj.SetReloadProject(IsNothing(CurrProd))
      ' vado in pagina proj
      Map.refMainMenuVM.SetSelPage(Pages.VIEW, False)
   End Sub

#End Region ' GoToProj

#End Region    ' Commands

End Class