Jelölő adatok IsActive

Mezőgazdaság termeltetés IsActive
Számviteli készletnél szállítólevél DateExecution

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/Controlling.vb

@@ -39,7 +39,7 @@ Public Class Controlling
     Private _RequireCars As Boolean = False
     Private _RequireHRPerson As Boolean
     Private _RequirePhones As Boolean = False
-
+    Private _IsActive As Boolean
     Public Sub New(ByVal session As Session)
         MyBase.New(session)
         If session.IsObjectsLoading = False And session.IsObjectsSaving = False Then
@@ -78,7 +78,18 @@ Public Class Controlling
         Next
         Me.ReconfigureGroup(Nothing, Me, False)
     End Sub
-
+    ''' <summary>
+    ''' Használatban van ?
+    ''' </summary>
+    ''' <returns></returns>
+    Property IsActive As Boolean
+        Get
+            Return _IsActive
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsActive", _IsActive, value)
+        End Set
+    End Property
     <ImmediatePostData(True), DataSourceProperty("CollectionOfControlling")>
     <NonPersistent>
     Property ParentObject As Controlling

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostHolder.vb

@@ -13,11 +13,23 @@ Imports DevExpress.Persistent.Validation
 <NavigationItem("FinancialStock")> _
 Public Class CostHolder
     Inherits HCategory
+    Private _IsActive As Boolean
     Public Sub New(ByVal session As Session)
         MyBase.New(session)
 
     End Sub
-
+    ''' <summary>
+    ''' Használatban van ?
+    ''' </summary>
+    ''' <returns></returns>
+    Property IsActive As Boolean
+        Get
+            Return _IsActive
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsActive", _IsActive, value)
+        End Set
+    End Property
     <VisibleInListView(False), VisibleInLookupListView(False)> _
     ReadOnly Property HRPersonCostHolder As XPCollection(Of HRPersonCostHolder)
         Get

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/CostPlace.vb

@@ -13,9 +13,22 @@ Imports DevExpress.Persistent.Validation
 <NavigationItem("FinancialStock")> _
 Public Class CostPlace
     Inherits HCategory
+    Private _IsActive As Boolean
     Public Sub New(ByVal session As Session)
         MyBase.New(session)
     End Sub
+    ''' <summary>
+    ''' Használatban van ?
+    ''' </summary>
+    ''' <returns></returns>
+    Property IsActive As Boolean
+        Get
+            Return _IsActive
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsActive", _IsActive, value)
+        End Set
+    End Property
     <NonPersistent>
     <ImmediatePostData(True), DataSourceProperty("CollectionOfCostPlace")>
     Property ParentObject As CostPlace

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/JobNumberObjects.vb

@@ -13,10 +13,18 @@ Imports DevExpress.Persistent.Validation
 <NavigationItem("FinancialStock")> _
 Public Class JobNumberObjects
     Inherits HCategory
+    Private _IsActive As Boolean
     Public Sub New(ByVal session As Session)
         MyBase.New(session)
     End Sub
-
+    Property IsActive As Boolean
+        Get
+            Return _IsActive
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsActive", _IsActive, value)
+        End Set
+    End Property
     <NonPersistent>
     <ImmediatePostData(True), DataSourceProperty("CollectionOfJobNumberObjects")>
     Property ParentObject As JobNumberObjects

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Stocks/5D/UniqueObjects.vb

@@ -9,20 +9,21 @@ Imports DevExpress.Persistent.Base
 Imports DevExpress.Persistent.BaseImpl
 Imports DevExpress.Persistent.Validation
 
-<DefaultClassOptions()> _
-<NavigationItem("FinancialStock")> _
+<DefaultClassOptions()>
+<NavigationItem("FinancialStock")>
 Public Class UniqueObjects
     Inherits HCategory
 
     Private _Cars As Cars
     Private _Phones As Phones
     Private _HRPerson As HRPerson
+    Private _IsActive As Boolean
 
     Public Sub New(ByVal session As Session)
         MyBase.New(session)
     End Sub
 
-    <Browsable(False)> _
+    <Browsable(False)>
     Property Cars As Cars
         Get
             Return _Cars
@@ -31,7 +32,7 @@ Public Class UniqueObjects
             SetPropertyValue("Cars", _Cars, value)
         End Set
     End Property
-    <Browsable(False)> _
+    <Browsable(False)>
     Property Phones As Phones
         Get
             Return _Phones
@@ -40,7 +41,7 @@ Public Class UniqueObjects
             SetPropertyValue("Phones", _Phones, value)
         End Set
     End Property
-    <Browsable(False)> _
+    <Browsable(False)>
     Property HRPerson As HRPerson
         Get
             Return _HRPerson
@@ -49,7 +50,18 @@ Public Class UniqueObjects
             SetPropertyValue("HRPerson", _HRPerson, value)
         End Set
     End Property
-
+    ''' <summary>
+    ''' Használatban van ?
+    ''' </summary>
+    ''' <returns></returns>
+    Property IsActive As Boolean
+        Get
+            Return _IsActive
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsActive", _IsActive, value)
+        End Set
+    End Property
     <NonPersistent>
     <ImmediatePostData(True), DataSourceProperty("CollectionOfUniqueObjects")>
     Property ParentObject As UniqueObjects
@@ -60,9 +72,9 @@ Public Class UniqueObjects
             MyBase.Parent = value
         End Set
     End Property
-    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
-    <Browsable(False)> _
-    <NonPersistent()> _
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)>
+    <Browsable(False)>
+    <NonPersistent()>
     Private ReadOnly Property CollectionOfUniqueObjects As XPCollection(Of UniqueObjects)
         Get
             Dim _CollectionOfUniqueObjects As New XPCollection(Of UniqueObjects)(Session, CriteriaOperator.Parse("Oid != ?", Me.Oid))