Emmanuele Sassi
101 lines
3.3 KiB
VB.net
101 lines
3.3 KiB
VB.net
Imports System.IO
|
|
Imports EgtUILib
|
|
|
|
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
|
|
|
|
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 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, Optional nProjCloudId As Integer = 0) As ProdFileM
|
|
Dim NewProjectFileM As New ProdFileM
|
|
NewProjectFileM.m_nProdId = nProdId
|
|
NewProjectFileM.m_nProjIdList = nProjIdList
|
|
NewProjectFileM.m_dtCreateDate = dtCreateProjDate
|
|
NewProjectFileM.m_sName = sName
|
|
NewProjectFileM.m_nType = nType
|
|
NewProjectFileM.m_sMachine = sMachine
|
|
NewProjectFileM.m_sLockedBy = sLockedBy
|
|
NewProjectFileM.m_dtLock = dtLock
|
|
NewProjectFileM.m_bIsActive = bIsActive
|
|
NewProjectFileM.m_bIsProduced = bIsProduced
|
|
NewProjectFileM.m_bIsArchived = bIsArchived
|
|
NewProjectFileM.m_nProjCloudId = nProjCloudId
|
|
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
|
|
NewProjectFileM.m_nProdId = nProdId
|
|
NewProjectFileM.m_nProjIdList = nProjIdList
|
|
NewProjectFileM.m_dtCreateDate = dtCreateProjDate
|
|
NewProjectFileM.m_sName = sName
|
|
NewProjectFileM.m_nType = nType
|
|
NewProjectFileM.m_sMachine = sMachine
|
|
NewProjectFileM.m_sLockedBy = sLockedBy
|
|
NewProjectFileM.m_dtLock = dtLock
|
|
NewProjectFileM.m_bIsActive = bIsActive
|
|
NewProjectFileM.m_bIsProduced = bIsProduced
|
|
NewProjectFileM.m_bIsArchived = bIsArchived
|
|
NewProjectFileM.m_ProjMList = ProjMList
|
|
Return NewProjectFileM
|
|
End Function
|
|
|
|
#End Region ' CONSTRUCTORS
|
|
|
|
End Class |