Demetrio Cassarino
68 lines
1.9 KiB
VB.net
68 lines
1.9 KiB
VB.net
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
|
|
|
|
#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) As ProjFileM
|
|
Dim NewProjectFileM As New ProjFileM With {
|
|
.m_nProjId = nProjId,
|
|
.m_nProdId = nProdId,
|
|
.m_dtCreateDate = dtCreateProjDate,
|
|
.m_dtExportDate = dtExportDate,
|
|
.m_sListName = sListName,
|
|
.m_sBTLFileName = sBTLFileName,
|
|
.m_sDescription = sDescription,
|
|
.m_bIsNew = IsNew,
|
|
.m_bIsLocked = IsLocked,
|
|
.m_nType = nType,
|
|
.m_sMachine = sMachine,
|
|
.m_bIsActive = bIsActive,
|
|
.m_bIsArchived = bIsArchived
|
|
}
|
|
Return NewProjectFileM
|
|
End Function
|
|
|
|
#End Region ' CONSTRUCTORS
|
|
|
|
End Class |