Imports System.Collections.ObjectModel
Imports EgtUILib

Namespace EgtCAM5

   Public Class MachGroupPanelViewModel
      Inherits ViewModelBase

#Region "FIELDS & PROPERTIES"

      Private m_MachGroupList As New ObservableCollection(Of String)
      Public Property MachGroupList As ObservableCollection(Of String)
         Get
            Return m_MachGroupList
         End Get
         Set(value As ObservableCollection(Of String))
            If value IsNot m_MachGroupList Then
               m_MachGroupList = value
            End If
         End Set
      End Property

      ' Definizione comandi
      Private m_cmdSetCurrMachGroup As ICommand
      'Private m_cmdAddMachGroup As ICommand

#End Region    ' FIELDS & PROPERTIES

#Region "CONSTRUCTOR"

      Sub New()
         Application.Msn.Register(Application.INITIALIZEMACHGROUPS, Sub()
                                                                       InitializeMachGroups()
                                                                    End Sub)
      End Sub

#End Region    ' CONSTRUCTOR

#Region "METHODS"

      Private Sub InitializeMachGroups()
         Dim bOk As Boolean
         Dim nId = EgtGetFirstMachGroup()
         If nId <> GDB_ID.NULL Then
            bOk = EgtSetCurrMachGroup(nId)
         Else
            bOk = (EgtAddMachGroup("Mach01") <> GDB_ID.NULL)
            Dim sInitScriptPath As String = String.Empty
            EgtUILib.GetPrivateProfileString(S_DISPOSITION, K_INITSCRIPT, "", sInitScriptPath, IniFile.m_sCurrMachIniFilePath)
            If bOk And Not String.IsNullOrEmpty(sInitScriptPath) Then
               sInitScriptPath = IniFile.m_sCurrMachScriptsDirPath & "\" & sInitScriptPath
               If Not EgtLuaExecFile(sInitScriptPath) Then
                  EgtOutLog("Error executing disposition init script " & sInitScriptPath)
                  MessageBox.Show(EgtMsg(MSG_DISPOSITIONERRORS + 1), EgtMsg(MSG_DISPOSITIONERRORS + 2) & " " & sInitScriptPath, MessageBoxButton.OK, MessageBoxImage.Exclamation)
               End If
            End If
         End If
         LoadMachGroups()
         Application.Msn.NotifyColleagues(Application.MACHGROUPSRESULT, bOk)
      End Sub

      Private Sub LoadMachGroups()
         ' Pulisco la lista
         MachGroupList.Clear()
         ' Carico i gruppi di lavorazione nella lista
         Dim nId = EgtGetFirstMachGroup()
         While nId <> GDB_ID.NULL
            Dim sName As String = String.Empty
            EgtGetMachGroupName(nId, sName)
            MachGroupList.Add(sName)
            nId = EgtGetNextMachGroup(nId)
         End While
      End Sub

#End Region

#Region "COMMANDS"

#Region "SetCurrMachGroupCommand"

      ''' <summary>
      ''' Returns a command that set the selected MachGroup as the Current one.
      ''' </summary>
      Public ReadOnly Property SetCurrMachGroupCommand As ICommand
         Get
            If m_cmdSetCurrMachGroup Is Nothing Then
               m_cmdSetCurrMachGroup = New RelayCommand(AddressOf SetCurrMachGroup)
            End If
            Return m_cmdSetCurrMachGroup
         End Get
      End Property

      Public Sub SetCurrMachGroup(ByVal param As Object)
         EgtSetCurrMachGroup(EgtGetMachGroupId(DirectCast(param, String)))
         EgtDraw()
         Application.Msn.NotifyColleagues(Application.LOADOPERATIONLIST, -1)
      End Sub

#End Region ' SetCurrMachGroupCommand

#End Region    ' COMMANDS

   End Class

End Namespace