Imports System.IO
Imports EgtUILib

Public Class ProdFileM
   Inherits ProjectFileM

   Protected m_nProjIdList As List(Of Integer)
   Public ReadOnly Property nProjIdList As List(Of Integer)
      Get
         Return m_nProjIdList
      End Get
   End Property

   Protected m_sName As String
   Public ReadOnly Property sName As String
      Get
         Return m_sName
      End Get
   End Property

#Region "CONSTRUCTORS"

   Protected Sub New()
   End Sub

   Public Shared Function CreateNewProdFileM() As ProdFileM
      Return New ProdFileM
   End Function

   Public Shared Function CreateProdFileM(nProdId As Integer, nProjIdList As List(Of Integer), dtCreateProjDate As DateTime, sName As String, nType As BWType, sMachine As String) As ProdFileM
      Dim NewProjectFileM As New ProdFileM
      NewProjectFileM.m_nProdId = nProdId
      NewProjectFileM.m_nProjIdList = nProjIdList
      NewProjectFileM.m_dtCreateDate = dtCreateProjDate
      NewProjectFileM.m_sName = sName
      NewProjectFileM.m_nType = nType
      NewProjectFileM.m_sMachine = sMachine
      Return NewProjectFileM
   End Function

#End Region    ' CONSTRUCTORS

End Class