Imports System.IO
Imports EgtUILib

Public Class ProjectFileM

   Protected m_nProjectType As ProjectType
   Public ReadOnly Property nProjectType As ProjectType
      Get
         Return m_nProjectType
      End Get
   End Property
   Public Sub SetProjectType(nProjectType As ProjectType)
      m_nProjectType = nProjectType
   End Sub

   Protected m_nProjId As Integer = 0
   Public ReadOnly Property nProjId As Integer
      Get
         Return m_nProjId
      End Get
   End Property

   Protected m_nProdId As Integer = 0
   Public ReadOnly Property nProdId As Integer
      Get
         Return m_nProdId
      End Get
   End Property

   Protected m_dtCreateDate As DateTime
   Public ReadOnly Property dtCreateDate As DateTime
      Get
         Return m_dtCreateDate
      End Get
   End Property

   Protected m_dtExportDate As DateTime
   Public ReadOnly Property dtExportDate As DateTime
      Get
         Return m_dtExportDate
      End Get
   End Property

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

   Protected m_sBTLFileName As String = String.Empty
   Public ReadOnly Property sBTLFileName As String
      Get
         Return m_sBTLFileName
      End Get
   End Property

   Protected m_NewProj As Boolean
   Public Property NewProj As Boolean
      Get
         Return m_NewProj
      End Get
      Set(value As Boolean)
         m_NewProj = value
      End Set
   End Property

   Protected m_NewProd As Boolean
   Public Property NewProd As Boolean
      Get
         Return m_NewProd
      End Get
      Set(value As Boolean)
         m_NewProd = value
      End Set
   End Property

#Region "CONSTRUCTORS"

   Protected Sub New()
   End Sub

   Public Shared Function CreateNewProjectFileM() As ProjectFileM
      Return New ProjectFileM
   End Function

   Public Shared Function CreateProjectFileM(nProjectType As ProjectType, nProjId As Integer, nProdId As Integer,
                                             dtCreateProjDate As DateTime, dtExportDate As DateTime, sListName As String,
                                             sBTLFileName As String) As ProjectFileM
      Dim NewProjectFileM As New ProjectFileM
      NewProjectFileM.m_nProjectType = nProjectType
      If NewProjectFileM.m_nProjectType = ProjectType.PROJ Then
         NewProjectFileM.m_nProjId = nProjId
         NewProjectFileM.m_nProdId = nProdId
         NewProjectFileM.m_dtCreateDate = dtCreateProjDate
         NewProjectFileM.m_dtExportDate = dtExportDate
         NewProjectFileM.m_sName = sListName
         NewProjectFileM.m_sBTLFileName = sBTLFileName
      ElseIf NewProjectFileM.nProjectType = ProjectType.PROD Then
         NewProjectFileM.m_nProdId = nProdId
         NewProjectFileM.m_dtCreateDate = dtCreateProjDate
         NewProjectFileM.m_sName = sListName
      End If
      Return NewProjectFileM
   End Function

   'Sub New(nProjectType As ProjectType, nProjId As Integer, nProdId As Integer, sBTLFileName As String)
   '   m_nProjectType = nProjectType
   '   If m_nProjectType = ProjectType.PROJ Then
   '      m_nProjId = nProjId
   '      m_nProdId = nProdId
   '      m_BTLFileName = sBTLFileName
   '   ElseIf m_nProjectType = ProjectType.PROD Then
   '      m_nProdId = nProdId
   '   End If
   'End Sub

#End Region    ' CONSTRUCTORS

End Class