Demetrio Cassarino
65 lines
1.7 KiB
VB.net
65 lines
1.7 KiB
VB.net
Imports EgtBEAMWALL.Core
|
|
|
|
Module ProjectManagerVM
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Private m_CurrProj As ProjFileVM
|
|
Friend Property CurrProj As ProjFileVM
|
|
Get
|
|
Return m_CurrProj
|
|
End Get
|
|
Set(value As ProjFileVM)
|
|
m_CurrProj = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_CurrProd As ProdFileVM
|
|
Friend Property CurrProd As ProdFileVM
|
|
Get
|
|
Return m_CurrProd
|
|
End Get
|
|
Set(value As ProdFileVM)
|
|
m_CurrProd = value
|
|
End Set
|
|
End Property
|
|
|
|
' indice progetto in caricamento
|
|
Private m_nLoadingProjId As Integer = 0
|
|
Friend Property nLoadingProjId As Integer
|
|
Get
|
|
Return m_nLoadingProjId
|
|
End Get
|
|
Set(value As Integer)
|
|
m_nLoadingProjId = value
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' Fields & Properties
|
|
|
|
#Region "METHODS"
|
|
|
|
Public Function SetCurrProj(nProjId As Integer) As Boolean
|
|
Dim CurrProjM As ProjFileM = DbControllers.m_ProjController.FindByProjIdConv(nProjId)
|
|
If IsNothing(CurrProjM) Then Return False
|
|
m_CurrProj = New ProjFileVM(CurrProjM)
|
|
If CurrProjM.nProdId > 0 AndAlso IsNothing(CurrProd) Then
|
|
SetCurrProd(m_CurrProj.nProdId)
|
|
End If
|
|
Return True
|
|
End Function
|
|
|
|
Public Function SetCurrProd(nProdId As Integer) As Boolean
|
|
Dim CurrProdM As ProdFileM = DbControllers.m_ProdController.FindCoreByProdId(nProdId)
|
|
If IsNothing(CurrProdM) Then Return False
|
|
m_CurrProd = New ProdFileVM(CurrProdM)
|
|
If CurrProdM.nProjIdList.Count > 0 AndAlso IsNothing(CurrProj) Then
|
|
SetCurrProj(m_CurrProd.nProjIdList(0))
|
|
End If
|
|
Return True
|
|
End Function
|
|
|
|
#End Region ' Methods
|
|
|
|
End Module
|