RenzoL
57d087db85
- ProjectTypeWnd ora si apre con Macchina (ed eventualmente Tipo) già selezionata di default - GoToProd ora filtra le ottimizzazioni già esistenti a cui aggiungere il progetto in base a Macchina e Tipo
39 lines
1.4 KiB
VB.net
39 lines
1.4 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
Imports System.IO
|
|
Imports EgtBEAMWALL.Core
|
|
Imports EgtBEAMWALL.Core.ConstBeam
|
|
Imports EgtUILib
|
|
|
|
Public Class OpenProjectFileDialogVM
|
|
Inherits Core.OpenProjectFileDialogVM
|
|
|
|
#Region "METHODS"
|
|
|
|
Public Overrides Function Init(ProjectType As ProjectType, Optional CurrProjectList As List(Of ProjectFileVM) = Nothing, Optional GoToProd As Boolean = False) As Boolean?
|
|
m_ProjectType = ProjectType
|
|
' carico colonne
|
|
LoadColumns(ProjectType)
|
|
NotifyPropertyChanged(NameOf(SearchColumnList))
|
|
m_SelSearchColumn = m_SearchColumnList(0)
|
|
' carico lista progetti
|
|
If IsNothing(CurrProjectList) OrElse CurrProjectList.Count = 0 Then
|
|
' leggo da db
|
|
If ProjectType = ProjectType.PROD Then
|
|
Dim DbProjectList As New List(Of ProdFileM)
|
|
DbProjectList = DbControllers.m_ProdController.GetLastDesc(50)
|
|
For Each Project In DbProjectList
|
|
m_ProjectList.Add(New ProdFileVM(Project))
|
|
Next
|
|
End If
|
|
Else
|
|
m_ProjectList = New ObservableCollection(Of ProjectFileVM)(CurrProjectList)
|
|
NotifyPropertyChanged(NameOf(ProjectList))
|
|
End If
|
|
m_ProjectList_View = CollectionViewSource.GetDefaultView(m_ProjectList)
|
|
m_ProjectList_View.Filter = AddressOf ProjectFilter
|
|
End Function
|
|
|
|
#End Region ' METHODS
|
|
|
|
End Class
|