Emmanuele Sassi
120 lines
3.3 KiB
VB.net
120 lines
3.3 KiB
VB.net
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 |