Imports System.IO
Imports EgtUILib

Public Class ProjectFile

   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_BTLFileName As String = String.Empty
   Public ReadOnly Property BTLFileName As String
      Get
         Return m_BTLFileName
      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

   ' temporaneo, per funzionamento vecchio senza db
   Sub New()

   End Sub

   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 Class