Jelölő adatok IsActive

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

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/Storage.vb

@@ -30,6 +30,7 @@ Public Class Storage '-- Raktárak ------------
     Private _ReportInventory As ReportData '--Leltár nyomtatvány DataType InventorySIR
     Private _DeliveryNoteOutType_InventoryTransfer As DeliveryNoteOutType '--Szállítólevél a raktárközi átadás hoz
     Private _DeliveryNoteOutType_ReturnBack As DeliveryNoteOutType '--Szállítólevél a visszárúhoz
+    Private _IsActive As Boolean '-- Ha false, akkor NE hozza fel
 
     Public Sub New(ByVal session As Session)
         MyBase.New(session)
@@ -199,6 +200,18 @@ Public Class Storage '-- Raktárak ------------
             SetPropertyValue("DeliveryNoteOutType_ReturnBack", _DeliveryNoteOutType_ReturnBack, value)
         End Set
     End Property
+    ''' <summary>
+    ''' Aktív akkor használható
+    ''' </summary>
+    ''' <returns></returns>
+    Property IsActive As Boolean
+        Get
+            Return _IsActive
+        End Get
+        Set(value As Boolean)
+            SetPropertyValue("IsActive", _IsActive, value)
+        End Set
+    End Property
     '-------------ReadOnly--------------
     <VisibleInListView(False)> _
     Private ReadOnly Property CustomersFrom_Address As XPCollection(Of Address)