Demetrio Cassarino
89 lines
2.8 KiB
VB.net
89 lines
2.8 KiB
VB.net
Public Class ProdFileM
|
|
Inherits ProjectFileM
|
|
|
|
Protected m_nProjIdList As List(Of Integer)
|
|
Public ReadOnly Property nProjIdList As List(Of Integer)
|
|
Get
|
|
Return m_nProjIdList
|
|
End Get
|
|
End Property
|
|
Public Sub SetProjIdList(value As List(Of Integer))
|
|
m_nProjIdList = value
|
|
End Sub
|
|
|
|
Protected m_ProjMList As List(Of ProjFileM)
|
|
Public ReadOnly Property ProjMList As List(Of ProjFileM)
|
|
Get
|
|
Return m_ProjMList
|
|
End Get
|
|
End Property
|
|
|
|
Protected m_sName As String
|
|
Public Property sName As String
|
|
Get
|
|
Return m_sName
|
|
End Get
|
|
Set(value As String)
|
|
m_sName = value
|
|
End Set
|
|
End Property
|
|
|
|
Protected m_bIsProduced As Boolean
|
|
Public Property bIsProduced As Boolean
|
|
Get
|
|
Return m_bIsProduced
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_bIsProduced = value
|
|
End Set
|
|
End Property
|
|
|
|
#Region "CONSTRUCTORS"
|
|
|
|
Protected Sub New()
|
|
End Sub
|
|
|
|
Public Shared Function CreateNewProdFileM() As ProdFileM
|
|
Return New ProdFileM
|
|
End Function
|
|
|
|
Public Shared Function CreateProdFileM(nProdId As Integer, nProjIdList As List(Of Integer), dtCreateProjDate As DateTime, sName As String, nType As BWType,
|
|
sMachine As String, sLockedBy As String, dtLock As DateTime, bIsActive As Boolean, bIsProduced As Boolean, bIsArchived As Boolean) As ProdFileM
|
|
Dim NewProjectFileM As New ProdFileM With {
|
|
.m_nProdId = nProdId,
|
|
.m_nProjIdList = nProjIdList,
|
|
.m_dtCreateDate = dtCreateProjDate,
|
|
.m_sName = sName,
|
|
.m_nType = nType,
|
|
.m_sMachine = sMachine,
|
|
.m_sLockedBy = sLockedBy,
|
|
.m_dtLock = dtLock,
|
|
.m_bIsActive = bIsActive,
|
|
.m_bIsProduced = bIsProduced,
|
|
.m_bIsArchived = bIsArchived
|
|
}
|
|
Return NewProjectFileM
|
|
End Function
|
|
|
|
Public Shared Function CreateProdFileM(nProdId As Integer, nProjIdList As List(Of Integer), dtCreateProjDate As DateTime, sName As String, nType As BWType,
|
|
sMachine As String, sLockedBy As String, dtLock As DateTime, bIsActive As Boolean, bIsProduced As Boolean, bIsArchived As Boolean, ProjMList As List(Of ProjFileM)) As ProdFileM
|
|
Dim NewProjectFileM As New ProdFileM With {
|
|
.m_nProdId = nProdId,
|
|
.m_nProjIdList = nProjIdList,
|
|
.m_dtCreateDate = dtCreateProjDate,
|
|
.m_sName = sName,
|
|
.m_nType = nType,
|
|
.m_sMachine = sMachine,
|
|
.m_sLockedBy = sLockedBy,
|
|
.m_dtLock = dtLock,
|
|
.m_bIsActive = bIsActive,
|
|
.m_bIsProduced = bIsProduced,
|
|
.m_bIsArchived = bIsArchived,
|
|
.m_ProjMList = ProjMList
|
|
}
|
|
Return NewProjectFileM
|
|
End Function
|
|
|
|
#End Region ' CONSTRUCTORS
|
|
|
|
End Class |