Emmanuele Sassi
81 lines
2.4 KiB
VB.net
81 lines
2.4 KiB
VB.net
Imports System.IO
|
|
Imports EgtUILib
|
|
|
|
Public Class ProjFileM
|
|
Inherits ProjectFileM
|
|
|
|
Protected m_dtExportDate As DateTime
|
|
Public ReadOnly Property dtExportDate As DateTime
|
|
Get
|
|
Return m_dtExportDate
|
|
End Get
|
|
End Property
|
|
|
|
Protected m_sListName As String
|
|
Public ReadOnly Property sListName As String
|
|
Get
|
|
Return m_sListName
|
|
End Get
|
|
End Property
|
|
|
|
Protected m_sBTLFileName As String = String.Empty
|
|
Public Property sBTLFileName As String
|
|
Get
|
|
Return m_sBTLFileName
|
|
End Get
|
|
Set(value As String)
|
|
m_sBTLFileName = value
|
|
End Set
|
|
End Property
|
|
|
|
Protected m_sDescription As String = String.Empty
|
|
Public Property sDescription As String
|
|
Get
|
|
Return m_sDescription
|
|
End Get
|
|
Set(value As String)
|
|
m_sDescription = value
|
|
End Set
|
|
End Property
|
|
|
|
Protected m_nProjCloudId As Integer
|
|
Public Property nProjCloudId As Integer
|
|
Get
|
|
Return m_nProjCloudId
|
|
End Get
|
|
Set(value As Integer)
|
|
m_nProjCloudId = value
|
|
End Set
|
|
End Property
|
|
|
|
#Region "CONSTRUCTORS"
|
|
|
|
Protected Sub New()
|
|
End Sub
|
|
|
|
Public Shared Function CreateNewProjFileM() As ProjFileM
|
|
Return New ProjFileM
|
|
End Function
|
|
|
|
Public Shared Function CreateProjFileM(nProjId As Integer, nProdId As Integer, dtCreateProjDate As DateTime, dtExportDate As DateTime, sListName As String, sBTLFileName As String, sDescription As String, IsNew As Boolean, IsLocked As Boolean, nType As BWType, sMachine As String, bIsActive As Boolean, bIsArchived As Boolean, Optional nProjCloudId As Integer = 0) As ProjFileM
|
|
Dim NewProjectFileM As New ProjFileM
|
|
NewProjectFileM.m_nProjId = nProjId
|
|
NewProjectFileM.m_nProdId = nProdId
|
|
NewProjectFileM.m_dtCreateDate = dtCreateProjDate
|
|
NewProjectFileM.m_dtExportDate = dtExportDate
|
|
NewProjectFileM.m_sListName = sListName
|
|
NewProjectFileM.m_sBTLFileName = sBTLFileName
|
|
NewProjectFileM.m_sDescription = sDescription
|
|
NewProjectFileM.m_bIsNew = IsNew
|
|
NewProjectFileM.m_bIsLocked = IsLocked
|
|
NewProjectFileM.m_nType = nType
|
|
NewProjectFileM.m_sMachine = sMachine
|
|
NewProjectFileM.m_bIsActive = bIsActive
|
|
NewProjectFileM.m_bIsArchived = bIsArchived
|
|
NewProjectFileM.m_nProjCloudId = nProjCloudId
|
|
Return NewProjectFileM
|
|
End Function
|
|
|
|
#End Region ' CONSTRUCTORS
|
|
|
|
End Class |