Emmanuele Sassi
52 lines
1.4 KiB
VB.net
52 lines
1.4 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_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
|
|
|
|
#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) 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
|
|
Return NewProjectFileM
|
|
End Function
|
|
|
|
#End Region ' CONSTRUCTORS
|
|
|
|
End Class |