Imports EgtUILib

Public Class MachGroupM

   Protected m_Id As Integer
   Public ReadOnly Property Id As Integer
      Get
         Return m_Id
      End Get
   End Property

   Protected m_Name As String
   Public ReadOnly Property Name As String
      Get
         Return m_Name
      End Get
   End Property

   Protected m_Machine As String
   Public ReadOnly Property Machine As String
      Get
         Return m_Machine
      End Get
   End Property

   Protected m_IsEnabled As Boolean
   Public Property IsEnabled As Boolean
      Get
         Return m_IsEnabled
      End Get
      Set(value As Boolean)
         m_IsEnabled = value
      End Set
   End Property

#Region "CONSTRUCTORS"

   Protected Sub New()
   End Sub

   Public Shared Function CreateNewMachGroup() As MachGroupM
      Return New MachGroupM
   End Function

   Public Shared Function CreateMachGroup(nId As Integer, sName As String, sMachine As String) As MachGroupM
      Dim NewMachGroupM As New MachGroupM With {
         .m_Id = nId,
         .m_Name = sName,
         .m_Machine = sMachine
      }
      Return NewMachGroupM
   End Function

   Public Shared Function CreateMachGroup(sName As String, sMachine As String) As MachGroupM
      ' Creo il nuovo gruppo di lavorazione con i dati ottenuti a seconda del caso in cui mi trovo
      Dim NewMachGroupM As New MachGroupM With {
         .m_Id = EgtAddMachGroup(sName, sMachine)
      }
      If NewMachGroupM.m_Id = GDB_ID.NULL Then Return Nothing
      NewMachGroupM.m_Name = sName
      NewMachGroupM.m_Machine = sMachine
      Return NewMachGroupM
   End Function

#End Region    ' CONSTRUCTORS

End Class