-modifiche su proj nuova pagina

EgtBEAMWALL.ViewerOptimizer/ProjectManager/ProjectManagerVM.vb

@@ -23,6 +23,17 @@ Module ProjectManagerVM
       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
+
    Public Function SetCurrProj(nProjId As Integer) As Boolean
       Dim CurrProjM As ProjFileM = DbControllers.m_ProjController.FindByProjIdConv(nProjId)
       If IsNothing(CurrProjM) Then Return False