Ristrutturazione classi

2021-09-10 10:01:53 +02:00
parent d6031231e5
commit 0063ae8ab2
155 changed files with 2612 additions and 2758 deletions
@@ -0,0 +1,82 @@
+Imports System.IO
+Imports EgtUILib
+
+Public Class ProjectFileM
+
+   'Protected m_nProjectType As ProjectType
+   'Public ReadOnly Property nProjectType As ProjectType
+   '   Get
+   '      Return m_nProjectType
+   '   End Get
+   'End Property
+   'Public Sub SetProjectType(nProjectType As ProjectType)
+   '   m_nProjectType = nProjectType
+   'End Sub
+
+   Protected m_nProjId As Integer = 0
+   Public ReadOnly Property nProjId As Integer
+      Get
+         Return m_nProjId
+      End Get
+   End Property
+
+   Protected m_nProdId As Integer = 0
+   Public ReadOnly Property nProdId As Integer
+      Get
+         Return m_nProdId
+      End Get
+   End Property
+
+   Protected m_dtCreateDate As DateTime
+   Public ReadOnly Property dtCreateDate As DateTime
+      Get
+         Return m_dtCreateDate
+      End Get
+   End Property
+
+   Protected m_bIsNew As Boolean
+   Public Property bIsNew As Boolean
+      Get
+         Return m_bIsNew
+      End Get
+      Set(value As Boolean)
+         m_bIsNew = value
+      End Set
+   End Property
+
+   Protected m_bIsLocked As Boolean
+   Public Property bIsLocked As Boolean
+      Get
+         Return m_bIsLocked
+      End Get
+      Set(value As Boolean)
+         m_bIsLocked = 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
+
+#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