56 lines
1.2 KiB
VB.net
56 lines
1.2 KiB
VB.net
Imports System.IO
|
|
Imports EgtUILib
|
|
|
|
Public Class ProdFileM
|
|
Inherits ProjectFileM
|
|
|
|
#Region "Protected Fields"
|
|
|
|
Protected m_nProjIdList As List(Of Integer)
|
|
Protected m_sName As String
|
|
|
|
#End Region
|
|
|
|
#Region "Protected Constructors"
|
|
|
|
Protected Sub New()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Public Properties"
|
|
|
|
Public ReadOnly Property nProjIdList As List(Of Integer)
|
|
Get
|
|
Return m_nProjIdList
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property sName As String
|
|
Get
|
|
Return m_sName
|
|
End Get
|
|
End Property
|
|
|
|
#End Region
|
|
|
|
#Region "Public Methods"
|
|
|
|
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) 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
|
|
|
|
Return NewProjectFileM
|
|
End Function
|
|
|
|
#End Region
|
|
|
|
End Class |