Definizione oggetti ProjectM e sistemazioni

EgtBEAMWALL.ViewerOptimizer/OpenProjectFileDialog/OpenProjectFileDialogVM.vb

@@ -1,4 +1,5 @@
 Imports System.IO
+Imports EgtBEAMWALL.Core.ConstBeam
 Imports EgtUILib
 
 Public Class OpenProjectFileDialogVM
@@ -47,8 +48,8 @@ Public Class OpenProjectFileDialogVM
       End Get
    End Property
 
-   Private m_ProjectList As New List(Of ProjectFileVM)
-   Public ReadOnly Property ProjectList As List(Of ProjectFileVM)
+   Private m_ProjectList As New List(Of ProjFileVM)
+   Public ReadOnly Property ProjectList As List(Of ProjFileVM)
       Get
          Return m_ProjectList
       End Get
@@ -58,12 +59,12 @@ Public Class OpenProjectFileDialogVM
       'End Set
    End Property
 
-   Private m_SelProject As ProjectFileVM
-   Public Property SelProject As ProjectFileVM
+   Private m_SelProject As ProjFileVM
+   Public Property SelProject As ProjFileVM
       Get
          Return m_SelProject
       End Get
-      Set(value As ProjectFileVM)
+      Set(value As ProjFileVM)
          m_SelProject = value
       End Set
    End Property
@@ -96,11 +97,11 @@ Public Class OpenProjectFileDialogVM
    ' Definizione comandi
    Private m_cmdProjectDoubleClick As ICommand
 
-   Public Function Init(ProjectType As ProjectType, Optional ProjectList As List(Of ProjectFileVM) = Nothing) As Boolean?
+   Public Function Init(ProjectType As ProjectType, Optional ProjectList As List(Of ProjFileVM) = Nothing) As Boolean?
       m_ProjectType = ProjectType
       If IsNothing(ProjectList) OrElse ProjectList.Count = 0 Then
          ' leggo da db
-         Dim DbProjectList As New List(Of Core.ProjectFileM)
+         Dim DbProjectList As New List(Of Core.ProjFileM)
          If ProjectType = ProjectType.PROJ Then
             DbProjectList = DbControllers.m_ProjController.GetLastDesc(50)
          ElseIf ProjectType = ProjectType.PROD Then
@@ -121,7 +122,7 @@ Public Class OpenProjectFileDialogVM
             Dim nProjId As Integer = 0
             Dim nProdId As Integer = 0
             Dim sBTLFileName As String = ""
-            If ProjectFileVM.VerifyProjectFile(m_ProjectType, Path.GetFileNameWithoutExtension(File), nProjId, nProdId, sBTLFileName) Then
+            If ProjFileVM.VerifyProjectFile(m_ProjectType, Path.GetFileNameWithoutExtension(File), nProjId, nProdId, sBTLFileName) Then
                m_ProjectList.Add(New ProjectFileVM(m_ProjectType, nProjId, nProdId, sBTLFileName))
             End If
          End If