Emmanuele Sassi
43 lines
1.1 KiB
VB.net
43 lines
1.1 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
|
|
|
|
Protected m_sName As String
|
|
Public ReadOnly Property sName As String
|
|
Get
|
|
Return m_sName
|
|
End Get
|
|
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) 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
|
|
Return NewProjectFileM
|
|
End Function
|
|
|
|
#End Region ' CONSTRUCTORS
|
|
|
|
End Class |