- Correzzione warning

- Cambiata gestione tipo progetto e macchina associata

EgtBEAMWALL.Core/ProjectFileVM/ProjectFileM.vb

@@ -54,29 +54,28 @@ Public Class ProjectFileM
       End Set
    End Property
 
-    Protected m_nType As BWType
-    Public Property nType As BWType
-        Get
-            Return m_nType
-        End Get
-        Set(value As BWType)
-            m_nType = value
-        End Set
-    End Property
+   Protected m_nType As BWType
+   Public Property nType As BWType
+      Get
+         Return m_nType
+      End Get
+      Set(value As BWType)
+         m_nType = value
+      End Set
+   End Property
+
+   Protected m_sMachine As String
+   Public Property sMachine As String
+      Get
+         Return m_sMachine
+      End Get
+      Set(value As String)
+         m_sMachine = value
+      End Set
+   End Property
 
 #Region "CONSTRUCTORS"
 
-    'Sub New(nProjectType As ProjectType, nProjId As Integer, nProdId As Integer, sBTLFileName As String)
-    '   m_nProjectType = nProjectType
-    '   If m_nProjectType = ProjectType.PROJ Then
-    '      m_nProjId = nProjId
-    '      m_nProdId = nProdId
-    '      m_BTLFileName = sBTLFileName
-    '   ElseIf m_nProjectType = ProjectType.PROD Then
-    '      m_nProdId = nProdId
-    '   End If
-    'End Sub
-
 #End Region    ' CONSTRUCTORS
 
 End Class