- aggiornate classi per ProjCloudId

EgtBEAMWALL.Core/ProjectFileVM/ProjFileM.vb

@@ -29,25 +29,35 @@ Public Class ProjFileM
     End Property
 
     Protected m_sDescription As String = String.Empty
-    Public Property sDescription As String
-        Get
-            Return m_sDescription
-        End Get
-        Set(value As String)
-            m_sDescription = value
-        End Set
-    End Property
+   Public Property sDescription As String
+      Get
+         Return m_sDescription
+      End Get
+      Set(value As String)
+         m_sDescription = value
+      End Set
+   End Property
+
+   Protected m_nProjCloudId As Integer
+   Public Property nProjCloudId As Integer
+      Get
+         Return m_nProjCloudId
+      End Get
+      Set(value As Integer)
+         m_nProjCloudId = value
+      End Set
+   End Property
 
 #Region "CONSTRUCTORS"
 
-    Protected Sub New()
+   Protected Sub New()
    End Sub
 
    Public Shared Function CreateNewProjFileM() As ProjFileM
       Return New ProjFileM
    End Function
 
-   Public Shared Function CreateProjFileM(nProjId As Integer, nProdId As Integer, dtCreateProjDate As DateTime, dtExportDate As DateTime, sListName As String, sBTLFileName As String, sDescription As String, IsNew As Boolean, IsLocked As Boolean, nType As BWType, sMachine As String, bIsActive As Boolean, bIsArchived As Boolean) As ProjFileM
+   Public Shared Function CreateProjFileM(nProjId As Integer, nProdId As Integer, dtCreateProjDate As DateTime, dtExportDate As DateTime, sListName As String, sBTLFileName As String, sDescription As String, IsNew As Boolean, IsLocked As Boolean, nType As BWType, sMachine As String, bIsActive As Boolean, bIsArchived As Boolean, nProjCloudId As Integer) As ProjFileM
       Dim NewProjectFileM As New ProjFileM
       NewProjectFileM.m_nProjId = nProjId
       NewProjectFileM.m_nProdId = nProdId
@@ -62,6 +72,7 @@ Public Class ProjFileM
       NewProjectFileM.m_sMachine = sMachine
       NewProjectFileM.m_bIsActive = bIsActive
       NewProjectFileM.m_bIsArchived = bIsArchived
+      NewProjectFileM.m_nProjCloudId = nProjCloudId
       Return NewProjectFileM
    End Function