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/BusinessTransactions/Contract/ContractRows.vb

@@ -372,7 +372,8 @@ Public Class ContractRows 'Szerz
             End If
         End Set
     End Property
-    <RuleRequiredField("ContactRows-CostPlace", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.Rule5DMatrix.RequireCostPlace=True")> _
+    <RuleRequiredField("ContactRows-CostPlace", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.Rule5DMatrix.RequireCostPlace=True")>
+    <DataSourceCriteria("IsActive != False")>
     Property CostPlace As CostPlace
         Get
             Return _CostPlace
@@ -396,7 +397,8 @@ Public Class ContractRows 'Szerz
             End If
         End Set
     End Property
-    <RuleRequiredField("ContactRows-UniqueObjects", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.Rule5DMatrix.RequireUniqueObjects=True")> _
+    <RuleRequiredField("ContactRows-UniqueObjects", DefaultContexts.Save, TargetCriteria:="Contracts.ContractTemplate.Rule5DMatrix.RequireUniqueObjects=True")>
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects As UniqueObjects
         Get
             Return _UniqueObjects

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/Contracts.vb

@@ -363,6 +363,7 @@ Public Class Contracts 'Szerződések
             SetPropertyValue("DocumentBody", _DocumentBody, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property JobNumberObjects() As JobNumberObjects
         Get
 
@@ -372,6 +373,7 @@ Public Class Contracts 'Szerződések
             SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects As UniqueObjects
         Get
             Return _UniqueObjects

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractModifyData.vb

@@ -9,7 +9,7 @@ Imports DevExpress.Persistent.Base
 Imports DevExpress.Persistent.BaseImpl
 Imports DevExpress.Persistent.Validation
 
-<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), NonPersistent()> _
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), NonPersistent()>
 Public Class ContractModifyData
     Inherits BaseObject
     Public Sub New(ByVal session As Session)
@@ -45,10 +45,10 @@ Public Class ContractModifyData
     Property CurrencyName_Invoice As CurrencyName
 
     Property IsJobNumberObjects As Boolean = False
-    Property JobNumberObjects As JobNumberObjects
+    <DataSourceCriteria("IsActive != False")> Property JobNumberObjects As JobNumberObjects
 
     Property IsUniqueObjects As Boolean = False
-    Property UniqueObjects As UniqueObjects
+    <DataSourceCriteria("IsActive != False")> Property UniqueObjects As UniqueObjects
 
     Property IsHRResponsible As Boolean = False
     Property HRResponsible As HRPerson

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Contract/Popup/ContractRowsModifyData.vb

@@ -180,6 +180,7 @@ Public Class ContractRowsModifyData
             SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property IsJobNumberObjects As Boolean
         Get
             Return _IsJobNumberObjects
@@ -188,6 +189,7 @@ Public Class ContractRowsModifyData
             SetPropertyValue("IsJobNumberObjects", _IsJobNumberObjects, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects As UniqueObjects
         Get
             Return _UniqueObjects

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/DeliveryNoteIn/Popup/DeliveryNoteInToStorageInHeader.vb

@@ -24,6 +24,7 @@ Public Class DeliveryNoteInToStorageInHeader
         MyBase.AfterConstruction()
         IsRegistry = False
     End Sub
+    <DataSourceCriteria("IsActive != False")>
     Property Storage As Storage
         Get
             Return _Storage

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/DeliveryNote/Popup/DeliveryNoteView.vb

@@ -111,6 +111,7 @@ Public Class DeliveryNoteView ' -- szállítólevél készítéséhez a popup-ho
             SetPropertyValue("Note", _Note, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property Storage As Storage
         Get
             Return _Storage

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/CRM/CRMEstate_Opportunity_Rent.vb

@@ -180,7 +180,7 @@ Public Class CRMEstate_Opportunity_Rent
             SetPropertyValue("PaymentOption", _PaymentOption, value)
         End Set
     End Property
-    <RuleRequiredField("CRMEstate_Opportunity_Rent-CostHolder", DefaultContexts.Save)> _
+    <RuleRequiredField("CRMEstate_Opportunity_Rent-CostHolder", DefaultContexts.Save)>
     Property CostHolder As CostHolder
         Get
             Return _CostHolder
@@ -189,6 +189,7 @@ Public Class CRMEstate_Opportunity_Rent
             SetPropertyValue("CostHolder", _CostHolder, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property CostPlace As CostPlace
         Get
             Return _CostPlace

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordContactRow.vb

@@ -31,8 +31,8 @@ Public Class ImmovablesCostRecordContactRow
     End Property
     <Browsable(False)> Property UniqueObjects As UniqueObjects
     Property Controlling As Controlling
-    Property CostHolder As CostHolder
+    <DataSourceCriteria("IsActive != False")> Property CostHolder As CostHolder
-    Property CostPlace As CostPlace
+    <DataSourceCriteria("IsActive != False")> Property CostPlace As CostPlace
     Property JobNumberObjects As JobNumberObjects
     Property ShortName As String
     Property DateExecution As Date

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/CostRecord/ImmovablesCostRecordGroup.vb

@@ -93,6 +93,7 @@ Public Class ImmovablesCostRecordGroup
             SetPropertyValue("CostRecordBaseMode", _CostRecordBaseMode, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property CostPlace As CostPlace
         Get
             Return _CostPlace

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/Immovables.vb

@@ -171,7 +171,8 @@ Public Class Immovables
             SetPropertyValue("CustomersLessor", _CustomersLessor, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects() As UniqueObjects
         Get
             Return _UniqueObjects

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Estate/Stocks/ImmovablesGroupsParameters.vb

@@ -150,6 +150,7 @@ Public Class ImmovablesGroupsParameters
             SetPropertyValue("CostHolder", _CostHolder, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property CostPlace As CostPlace
         Get
             Return _CostPlace

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceCreditNote/InvoiceCreditNoteHeader.vb

@@ -66,7 +66,8 @@ Public Class InvoiceCreditNoteHeader
             SetPropertyValue("Customers", _Customers, value)
         End Set
     End Property
-    <RuleRequiredField("InvoiceCreditNoteHeader - Storage", DefaultContexts.Save)> _
+    <RuleRequiredField("InvoiceCreditNoteHeader - Storage", DefaultContexts.Save)>
+    <DataSourceCriteria("IsActive != False")>
     Property Storage As Storage
         Get
             Return _Storage

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceHeader.vb

@@ -1260,6 +1260,7 @@ Public Class InvoiceHeader
     <NonPersistent()>
     <VisibleInListView(False)>
     <RuleRequiredField("InvoiceHeader-row_UniqueObjects", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireUniqueObjects=True and IsCorrigendum=False")>
+    <DataSourceCriteria("IsActive != False")>
     Property row_UniqueObjects() As UniqueObjects ' -- Egyedi azonosító
         Get
             Return _row_UniqueObjects
@@ -1282,6 +1283,7 @@ Public Class InvoiceHeader
     <NonPersistent()>
     <VisibleInListView(False)>
     <RuleRequiredField("InvoiceHeader-row_CostPlace", "aToTable_Invoice_Contexts", TargetCriteria:="InvoiceType.Rule5DMatrix.RequireCostPlace=True and IsCorrigendum=False")>
+    <DataSourceCriteria("IsActive != False")>
     Property row_CostPlace() As CostPlace ' -- Költség viselő
         Get
             Return _row_CostPlace

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/InvoiceRows.vb

@@ -627,7 +627,8 @@ Public Class InvoiceRows
             SetPropertyValue("ChartOfAccounts", _ChartOfAccounts, value)
         End Set
     End Property
-    <RuleRequiredField("InvoiceRows-UniqueObjects", DefaultContexts.Save, TargetCriteria:="InvoiceHeader.InvoiceType.Rule5DMatrix.RequireUniqueObjects=True")> _
+    <RuleRequiredField("InvoiceRows-UniqueObjects", DefaultContexts.Save, TargetCriteria:="InvoiceHeader.InvoiceType.Rule5DMatrix.RequireUniqueObjects=True")>
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects As UniqueObjects
         Get
             Return _UniqueObjects
@@ -645,6 +646,7 @@ Public Class InvoiceRows
             SetPropertyValue("CostHolder", _CostHolder, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property CostPlace As CostPlace
         Get
             Return _CostPlace

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceAdvancePopup.vb

@@ -176,6 +176,7 @@ Public Class InvoiceAdvancePopup 'Előlegszámla készítő, ez csinál InvoiceH
         End Set
     End Property
     <RuleRequiredField("InvoiceAdvancePopup-CostPlace", DefaultContexts.Save, TargetCriteria:="InvoiceType.Rule5DMatrix.RequireCostPlace=True")>
+    <DataSourceCriteria("IsActive != False")>
     Property CostPlace As CostPlace
         Get
             Return _CostPlace
@@ -185,6 +186,7 @@ Public Class InvoiceAdvancePopup 'Előlegszámla készítő, ez csinál InvoiceH
         End Set
     End Property
     <RuleRequiredField("InvoiceAdvancePopup-UniqueObjects", DefaultContexts.Save, TargetCriteria:="InvoiceType.Rule5DMatrix.RequireUniqueObjects=True")>
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects As UniqueObjects
         Get
             Return _UniqueObjects

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Invoice/Popup/InvoiceRows_Changer_Popup.vb

@@ -9,7 +9,7 @@ Imports DevExpress.Persistent.Base
 Imports DevExpress.Persistent.BaseImpl
 Imports DevExpress.Persistent.Validation
 
-<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), NonPersistent> _
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False), NonPersistent>
 Public Class InvoiceRows_Changer_Popup
     Inherits BaseObject
     Public Sub New(ByVal session As Session)
@@ -27,10 +27,10 @@ Public Class InvoiceRows_Changer_Popup
     End Sub
 
     Property DateExecution As Date
-    Property Controlling As Controlling
+    <DataSourceCriteria("IsActive != False")> Property Controlling As Controlling
-    Property CostPlace As CostPlace
+    <DataSourceCriteria("IsActive != False")> Property CostPlace As CostPlace
-    Property CostHolder As CostHolder
+    <DataSourceCriteria("IsActive != False")> Property CostHolder As CostHolder
-    Property UniqueObjects As UniqueObjects
+    <DataSourceCriteria("IsActive != False")> Property UniqueObjects As UniqueObjects
-    Property JobNumberObjects As JobNumberObjects
+    <DataSourceCriteria("IsActive != False")> Property JobNumberObjects As JobNumberObjects
 
 End Class

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInHeader.vb

@@ -368,7 +368,7 @@ Public Class OrderInHeader
     End Property
     <NonPersistent>
     <RuleRequiredField("OrderInHeader-row_APCSheetByProducts", "aToTable_OrderIn", TargetCriteria:="OrderInParameters.IsAPCSheet=True")>
-    <ImmediatePostData(True), DataSourceCriteria("APCSheetHeader.Customers='@This.Customers' and APCSheetHeader.CustomersFrom='@This.CustomersFrom'")>
+    <ImmediatePostData(True), DataSourceCriteria("APCSheetHeader.Customers='@This.Customers' and APCSheetHeader.CustomersFrom='@This.CustomersFrom' and APCSheetHeader.IsActive=True")>
     Property row_APCSheetByProducts As APCSheetByProducts
         Get
             Return _row_APCSheetByProducts

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInParameters.vb

@@ -283,6 +283,7 @@ Public Class OrderInParameters
             SetPropertyValue("Controlling_InvoiceAdvance_Default", _Controlling_InvoiceAdvance_Default, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property CostPlace As CostPlace
         Get
             Return _CostPlace

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/OrderInRowsOther.vb

@@ -234,6 +234,7 @@ Public Class OrderInRowsOther 'Egyéb sorok
             SetPropertyValue("QualityOption", _QualityOption, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects As UniqueObjects
         Get
             Return _UniqueObjects
@@ -250,6 +251,7 @@ Public Class OrderInRowsOther 'Egyéb sorok
             SetPropertyValue("CostHolder", _CostHolder, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property CostPlace As CostPlace
         Get
             Return _CostPlace

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Orders/OrdersIn/Popup/ORI_Invoice_Popup.vb

@@ -301,6 +301,7 @@ Public Class ORI_Invoice_Popup
             SetPropertyValue("CustomerBankAccounts", _BankInformation, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property Storage As Storage
         Get
             Return _Storage

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeFrom.vb

@@ -73,6 +73,7 @@ Public Class RecipeFrom
             End If
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property Storage As Storage
         Get
             Return _Storage

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/Production/RecipeTo.vb

@@ -71,6 +71,7 @@ Public Class RecipeTo
             End If
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property Storage As Storage
         Get
             Return _Storage

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeoverProtocol.vb

@@ -151,8 +151,9 @@ Public Class TakeoverProtocolHeader
             SetPropertyValue("row_Installation", _row_Installation, value)
         End Set
     End Property
-    <NonPersistent()> _
+    <NonPersistent()>
-    <VisibleInListView(False)> _
+    <VisibleInListView(False)>
+    <DataSourceCriteria("IsActive != False")>
     Property row_UniqueObjects() As UniqueObjects
         Get
             Return _row_UniqueObjects

Nuvolar.Module/BusinessObjects/Business/BusinessTransactions/TakeOver/TakeoverProtocolRows.vb

@@ -27,6 +27,7 @@ Public Class TakeoverProtocolRows
             SetPropertyValue("Installation", _Installation, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects() As UniqueObjects
         Get
             Return _UniqueObjects

Nuvolar.Module/BusinessObjects/Business/Products/Products.vb

@@ -97,6 +97,8 @@ Public Class Products
 
     Private _CustomersOrder01 As CustomersOrder '1. beszállító
     Private _CustomersOrder02 As CustomersOrder '2. beszállító
+
+    Private _IsActive As Boolean
     Public Sub New(ByVal session As Session)
         MyBase.New(session)
     End Sub
@@ -123,6 +125,18 @@ Public Class Products
             End If
         End If
     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
     Property ProductType As eProductType
         Get
             Return _ProductType

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/In/Popup/StorageInfromDeliveryNoteInRowsHeader.vb

@@ -40,7 +40,8 @@ Public Class StorageInfromDeliveryNoteInRowsHeader
             SetPropertyValue("DeliveryNoteInHeader", _DeliveryNoteInHeader, value)
         End Set
     End Property
-    <RuleRequiredField("StorageInfromDeliveryNoteInRowsHeader.Storage", DefaultContexts.Save)> _
+    <RuleRequiredField("StorageInfromDeliveryNoteInRowsHeader.Storage", DefaultContexts.Save)>
+    <DataSourceCriteria("IsActive != False")>
     Property Storage As Storage
         Get
             Return _Storage

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/In/StorageInHeader.vb

@@ -102,7 +102,8 @@ Public Class StorageInHeader
             SetPropertyValue("ConnectInfo", _ConnectInfo, value)
         End Set
     End Property
-    <RuleRequiredField("", DefaultContexts.Save)> _
+    <RuleRequiredField("", DefaultContexts.Save)>
+    <DataSourceCriteria("IsActive != False")>
     Property Storage As Storage
         Get
             Return _Storage
@@ -111,8 +112,9 @@ Public Class StorageInHeader
             SetPropertyValue("Storage", _Storage, value)
         End Set
     End Property
-    <ImmediatePostData()> _
+    <ImmediatePostData()>
-    <RuleRequiredField("StorageInHeader - StorageFrom", DefaultContexts.Save, TargetCriteria:="StorageMoveType.MoveType=6")> _
+    <RuleRequiredField("StorageInHeader - StorageFrom", DefaultContexts.Save, TargetCriteria:="StorageMoveType.MoveType=6")>
+    <DataSourceCriteria("IsActive != False")>
     Property StorageFrom As Storage
         Get
             Return _StorageFrom

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryHeader.vb

@@ -65,6 +65,7 @@ Public Class InventoryHeader
             SetPropertyValue("DocumentNumber", _DocumentNumber, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property Storage As Storage
         Get
             Return _Storage

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Inventory/InventoryParameters.vb

@@ -38,7 +38,8 @@ Public Class InventoryParameters
             SetPropertyValue("CustomersFrom", _CustomersFrom, value)
         End Set
     End Property
-    <RuleRequiredField("InventoryParameters - Storage", DefaultContexts.Save)> _
+    <RuleRequiredField("InventoryParameters - Storage", DefaultContexts.Save)>
+    <DataSourceCriteria("IsActive != False")>
     Property Storage As Storage
         Get
             Return _Storage

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Inventory/PopUp/CreateInventoryHeader_PopUp.vb

@@ -44,7 +44,8 @@ Public Class CreateInventoryHeader_PopUp
             End If
         End Set
     End Property
-    <RuleRequiredField("CreateInventoryHeader_PopUp-Storage", DefaultContexts.Save)> _
+    <RuleRequiredField("CreateInventoryHeader_PopUp-Storage", DefaultContexts.Save)>
+    <DataSourceCriteria("IsActive != False")>
     Property Storage As Storage
         Get
             Return _Storage

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Out/StorageOutCirculation.vb

@@ -48,6 +48,7 @@ Public Class StorageOutCirculation 'Fogyási mátrix
             SetPropertyValue("CirculationType", _CirculationType, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property Storage As Storage
         Get
             Return _Storage

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Out/StorageOutHeader.vb

@@ -112,7 +112,7 @@ Public Class StorageOutHeader
         End Set
     End Property
     <RuleRequiredField("", DefaultContexts.Save)>
-    <ImmediatePostData(True), DataSourceCriteria("CustomersFrom = '@This.CustomersFrom'")>
+    <ImmediatePostData(True), DataSourceCriteria("CustomersFrom = '@This.CustomersFrom' And IsActive != False")>
     Property Storage() As Storage
         Get
             Return _Storage
@@ -128,7 +128,7 @@ Public Class StorageOutHeader
             End If
         End Set
     End Property
-    <ImmediatePostData(True), DataSourceCriteria("CustomersFrom = '@This.CustomersFrom'")>
+    <ImmediatePostData(True), DataSourceCriteria("CustomersFrom = '@This.CustomersFrom' And IsActive != False")>
     <RuleRequiredField("StorageOutHeader - StorageTo", DefaultContexts.Save, TargetCriteria:="StorageMoveType.MoveType=6")>
     Property StorageTo As Storage
         Get

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/PDA/StorageInFromPDACollectionPopup.vb

@@ -23,7 +23,8 @@ Public Class StorageInFromPDACollectionPopup
     Public Overrides Sub AfterConstruction()
         MyBase.AfterConstruction()
     End Sub
-    <RuleRequiredField("StorageInFromPDACollectionPopup-Storage", DefaultContexts.Save)> _
+    <RuleRequiredField("StorageInFromPDACollectionPopup-Storage", DefaultContexts.Save)>
+    <DataSourceCriteria("IsActive != False")>
     Property Storage As Storage
         Get
             Return _Storage

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)

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

@@ -48,6 +48,7 @@ Public Class StorageComputed '-- K
         Me.RecalculateAveragePrice()
         Me.RecalculateMinimumPrice()
     End Sub
+    <DataSourceCriteria("IsActive != False")>
     Property Storage As Storage
         Get
             Return _Storage

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

@@ -42,12 +42,7 @@ Partial Class StorageDateVC
         Me.aGenerateStorageDate.Caption = "aGenerate Storage Date"
         Me.aGenerateStorageDate.ConfirmationMessage = "Are you sure ?"
         Me.aGenerateStorageDate.Id = "aGenerateStorageDate"
-        Me.aGenerateStorageDate.ImageName = Nothing
-        Me.aGenerateStorageDate.Shortcut = Nothing
-        Me.aGenerateStorageDate.Tag = Nothing
-        Me.aGenerateStorageDate.TargetObjectsCriteria = Nothing
         Me.aGenerateStorageDate.TargetObjectType = GetType(Nuvolar.[Module].StorageDate)
-        Me.aGenerateStorageDate.TargetViewId = Nothing
         Me.aGenerateStorageDate.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
         Me.aGenerateStorageDate.ToolTip = Nothing
         Me.aGenerateStorageDate.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
@@ -57,12 +52,7 @@ Partial Class StorageDateVC
         Me.aGenerateStorageDateClearingPrice.Caption = "aGenerate Storage Date Clearing Price"
         Me.aGenerateStorageDateClearingPrice.ConfirmationMessage = "Are you sure ?"
         Me.aGenerateStorageDateClearingPrice.Id = "aGenerateStorageDateClearingPrice"
-        Me.aGenerateStorageDateClearingPrice.ImageName = Nothing
-        Me.aGenerateStorageDateClearingPrice.Shortcut = Nothing
-        Me.aGenerateStorageDateClearingPrice.Tag = Nothing
-        Me.aGenerateStorageDateClearingPrice.TargetObjectsCriteria = Nothing
         Me.aGenerateStorageDateClearingPrice.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
-        Me.aGenerateStorageDateClearingPrice.TargetViewId = Nothing
         Me.aGenerateStorageDateClearingPrice.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
         Me.aGenerateStorageDateClearingPrice.ToolTip = Nothing
         Me.aGenerateStorageDateClearingPrice.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
@@ -74,44 +64,26 @@ Partial Class StorageDateVC
         Me.aGenerateStorageDateClearingPrice_Products.Caption = "aGenerateStorageDateClearingPrice_Products"
         Me.aGenerateStorageDateClearingPrice_Products.ConfirmationMessage = Nothing
         Me.aGenerateStorageDateClearingPrice_Products.Id = "aGenerateStorageDateClearingPrice_Products"
-        Me.aGenerateStorageDateClearingPrice_Products.ImageName = Nothing
-        Me.aGenerateStorageDateClearingPrice_Products.Shortcut = Nothing
-        Me.aGenerateStorageDateClearingPrice_Products.Tag = Nothing
-        Me.aGenerateStorageDateClearingPrice_Products.TargetObjectsCriteria = Nothing
         Me.aGenerateStorageDateClearingPrice_Products.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
-        Me.aGenerateStorageDateClearingPrice_Products.TargetViewId = Nothing
         Me.aGenerateStorageDateClearingPrice_Products.ToolTip = Nothing
-        Me.aGenerateStorageDateClearingPrice_Products.TypeOfView = Nothing
         '
         'aStorageDateClearingPrice_ViewAttachments
         '
         Me.aStorageDateClearingPrice_ViewAttachments.Caption = "aStorageDateClearingPrice_ViewAttachments"
         Me.aStorageDateClearingPrice_ViewAttachments.ConfirmationMessage = Nothing
         Me.aStorageDateClearingPrice_ViewAttachments.Id = "aStorageDateClearingPrice_ViewAttachments"
-        Me.aStorageDateClearingPrice_ViewAttachments.ImageName = Nothing
         Me.aStorageDateClearingPrice_ViewAttachments.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
-        Me.aStorageDateClearingPrice_ViewAttachments.Shortcut = Nothing
-        Me.aStorageDateClearingPrice_ViewAttachments.Tag = Nothing
-        Me.aStorageDateClearingPrice_ViewAttachments.TargetObjectsCriteria = Nothing
         Me.aStorageDateClearingPrice_ViewAttachments.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
-        Me.aStorageDateClearingPrice_ViewAttachments.TargetViewId = Nothing
         Me.aStorageDateClearingPrice_ViewAttachments.ToolTip = Nothing
-        Me.aStorageDateClearingPrice_ViewAttachments.TypeOfView = Nothing
         '
         'aStorageDateClearingPrice_DateAndValueReCalculate
         '
         Me.aStorageDateClearingPrice_DateAndValueReCalculate.Caption = "aStorageDateClearingPrice_DateAndValueReCalculate"
         Me.aStorageDateClearingPrice_DateAndValueReCalculate.ConfirmationMessage = Nothing
         Me.aStorageDateClearingPrice_DateAndValueReCalculate.Id = "aStorageDateClearingPrice_DateAndValueReCalculate"
-        Me.aStorageDateClearingPrice_DateAndValueReCalculate.ImageName = Nothing
         Me.aStorageDateClearingPrice_DateAndValueReCalculate.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
-        Me.aStorageDateClearingPrice_DateAndValueReCalculate.Shortcut = Nothing
-        Me.aStorageDateClearingPrice_DateAndValueReCalculate.Tag = Nothing
-        Me.aStorageDateClearingPrice_DateAndValueReCalculate.TargetObjectsCriteria = Nothing
         Me.aStorageDateClearingPrice_DateAndValueReCalculate.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
-        Me.aStorageDateClearingPrice_DateAndValueReCalculate.TargetViewId = Nothing
         Me.aStorageDateClearingPrice_DateAndValueReCalculate.ToolTip = Nothing
-        Me.aStorageDateClearingPrice_DateAndValueReCalculate.TypeOfView = Nothing
         '
         'aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows
         '
@@ -120,15 +92,10 @@ Partial Class StorageDateVC
         Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Caption = "aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows"
         Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.ConfirmationMessage = Nothing
         Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Id = "aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows"
-        Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.ImageName = Nothing
         Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
-        Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Shortcut = Nothing
-        Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.Tag = Nothing
         Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TargetObjectsCriteria = "IsNull(InvoiceRows)=False"
         Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
-        Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TargetViewId = Nothing
         Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.ToolTip = Nothing
-        Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TypeOfView = Nothing
         '
         'aStorageDateClearingPrice_GeneterateDate2Date
         '
@@ -137,14 +104,8 @@ Partial Class StorageDateVC
         Me.aStorageDateClearingPrice_GeneterateDate2Date.Caption = "aStorageDateClearingPrice_GeneterateDate2Date"
         Me.aStorageDateClearingPrice_GeneterateDate2Date.ConfirmationMessage = Nothing
         Me.aStorageDateClearingPrice_GeneterateDate2Date.Id = "aStorageDateClearingPrice_GeneterateDate2Date"
-        Me.aStorageDateClearingPrice_GeneterateDate2Date.ImageName = Nothing
-        Me.aStorageDateClearingPrice_GeneterateDate2Date.Shortcut = Nothing
-        Me.aStorageDateClearingPrice_GeneterateDate2Date.Tag = Nothing
-        Me.aStorageDateClearingPrice_GeneterateDate2Date.TargetObjectsCriteria = Nothing
         Me.aStorageDateClearingPrice_GeneterateDate2Date.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
-        Me.aStorageDateClearingPrice_GeneterateDate2Date.TargetViewId = Nothing
         Me.aStorageDateClearingPrice_GeneterateDate2Date.ToolTip = Nothing
-        Me.aStorageDateClearingPrice_GeneterateDate2Date.TypeOfView = Nothing
         '
         'aStorageDateClearingPrice_SetSIRPrice
         '
@@ -153,15 +114,10 @@ Partial Class StorageDateVC
         Me.aStorageDateClearingPrice_SetSIRPrice.Caption = "aStorageDateClearingPrice_SetSIRPrice"
         Me.aStorageDateClearingPrice_SetSIRPrice.ConfirmationMessage = Nothing
         Me.aStorageDateClearingPrice_SetSIRPrice.Id = "aStorageDateClearingPrice_SetSIRPrice"
-        Me.aStorageDateClearingPrice_SetSIRPrice.ImageName = Nothing
         Me.aStorageDateClearingPrice_SetSIRPrice.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireSingleObject
-        Me.aStorageDateClearingPrice_SetSIRPrice.Shortcut = Nothing
-        Me.aStorageDateClearingPrice_SetSIRPrice.Tag = Nothing
         Me.aStorageDateClearingPrice_SetSIRPrice.TargetObjectsCriteria = "IsNull(StorageInRows)=False"
         Me.aStorageDateClearingPrice_SetSIRPrice.TargetObjectType = GetType(Nuvolar.[Module].StorageDateClearingPrice)
-        Me.aStorageDateClearingPrice_SetSIRPrice.TargetViewId = Nothing
         Me.aStorageDateClearingPrice_SetSIRPrice.ToolTip = Nothing
-        Me.aStorageDateClearingPrice_SetSIRPrice.TypeOfView = Nothing
         '
         'aSetBonusHUF
         '
@@ -170,16 +126,23 @@ Partial Class StorageDateVC
         Me.aSetBonusHUF.Caption = "aSet Bonus HUF"
         Me.aSetBonusHUF.ConfirmationMessage = Nothing
         Me.aSetBonusHUF.Id = "aSetBonusHUF"
-        Me.aSetBonusHUF.ImageName = Nothing
         Me.aSetBonusHUF.SelectionDependencyType = DevExpress.ExpressApp.Actions.SelectionDependencyType.RequireMultipleObjects
-        Me.aSetBonusHUF.Shortcut = Nothing
-        Me.aSetBonusHUF.Tag = Nothing
-        Me.aSetBonusHUF.TargetObjectsCriteria = Nothing
         Me.aSetBonusHUF.TargetObjectType = GetType(Nuvolar.[Module].DeliveryNoteInRRFC)
-        Me.aSetBonusHUF.TargetViewId = Nothing
         Me.aSetBonusHUF.TargetViewType = DevExpress.ExpressApp.ViewType.ListView
         Me.aSetBonusHUF.ToolTip = Nothing
         Me.aSetBonusHUF.TypeOfView = GetType(DevExpress.ExpressApp.ListView)
+        '
+        'StorageDateVC
+        '
+        Me.Actions.Add(Me.aGenerateStorageDate)
+        Me.Actions.Add(Me.aGenerateStorageDateClearingPrice)
+        Me.Actions.Add(Me.aGenerateStorageDateClearingPrice_Products)
+        Me.Actions.Add(Me.aStorageDateClearingPrice_ViewAttachments)
+        Me.Actions.Add(Me.aStorageDateClearingPrice_DateAndValueReCalculate)
+        Me.Actions.Add(Me.aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows)
+        Me.Actions.Add(Me.aStorageDateClearingPrice_GeneterateDate2Date)
+        Me.Actions.Add(Me.aStorageDateClearingPrice_SetSIRPrice)
+        Me.Actions.Add(Me.aSetBonusHUF)
 
     End Sub
     Friend WithEvents aGenerateStorageDateClearingPrice As DevExpress.ExpressApp.Actions.SimpleAction

Nuvolar.Module/BusinessObjects/Business/StorageTransactions/Storage/StorageDateVC.resx

@@ -118,31 +118,31 @@
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <metadata name="aGenerateStorageDate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 56</value>
+    <value>17, 17</value>
   </metadata>
   <metadata name="aGenerateStorageDateClearingPrice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 134</value>
+    <value>17, 56</value>
   </metadata>
   <metadata name="aGenerateStorageDateClearingPrice_Products.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 95</value>
+    <value>455, 17</value>
   </metadata>
   <metadata name="aStorageDateClearingPrice_ViewAttachments.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 251</value>
+    <value>337, 95</value>
   </metadata>
   <metadata name="aStorageDateClearingPrice_DateAndValueReCalculate.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 290</value>
+    <value>17, 134</value>
   </metadata>
   <metadata name="aStorageDateClearingPrice_ShowStorageOutDeliveryOutRows.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 173</value>
+    <value>264, 56</value>
   </metadata>
   <metadata name="aStorageDateClearingPrice_GeneterateDate2Date.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 212</value>
+    <value>17, 95</value>
   </metadata>
   <metadata name="aStorageDateClearingPrice_SetSIRPrice.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>430, 47</value>
+    <value>192, 17</value>
   </metadata>
   <metadata name="aSetBonusHUF.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>361, 290</value>
+    <value>634, 95</value>
   </metadata>
   <metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>False</value>

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

@@ -58,7 +58,11 @@ Public Class StorageDateVC
                     _StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
                     _StorageDateClearingPrice.RowIndex = 0
                     _StorageDateClearingPrice.CustomersFrom = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom
-                    _StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date
+
+                    '_StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date
+
+                    _StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.DeliveryNoteInRows.DeliveryNoteInHeader.DateExecution.Date
+
                     _StorageDateClearingPrice.DeliveryNoteInRRFC = _DeliveryNoteInRRFC
                     _StorageDateClearingPrice.Products = _DeliveryNoteInRRFC.DeliveryNoteInRows.Products
                     _StorageDateClearingPrice.QTT_In = _DeliveryNoteInRRFC.QTT_Controlled
@@ -186,7 +190,10 @@ Public Class StorageDateVC
                     _StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
                     _StorageDateClearingPrice.RowIndex = 0
                     _StorageDateClearingPrice.CustomersFrom = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom
-                    _StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date
+
+                    '_StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date
+                    _StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.DeliveryNoteInRows.DeliveryNoteInHeader.DateExecution.Date
+
                     _StorageDateClearingPrice.DeliveryNoteInRRFC = _DeliveryNoteInRRFC
                     _StorageDateClearingPrice.Products = _DeliveryNoteInRRFC.DeliveryNoteInRows.Products
                     _StorageDateClearingPrice.QTT_In = _DeliveryNoteInRRFC.QTT_Controlled
@@ -614,7 +621,10 @@ Public Class StorageDateVC
                     _StorageDateClearingPrice = New StorageDateClearingPrice(_uow)
                     _StorageDateClearingPrice.RowIndex = 0
                     _StorageDateClearingPrice.CustomersFrom = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.CustomersFrom
-                    _StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date
+                    '_StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.RegistryRowsFinancialControlling.RegistryHeader.F_DateExecution.Date
+
+                    _StorageDateClearingPrice.DateExecution = _DeliveryNoteInRRFC.DeliveryNoteInRows.DeliveryNoteInHeader.DateExecution.Date
+
                     _StorageDateClearingPrice.DeliveryNoteInRRFC = _DeliveryNoteInRRFC
                     _StorageDateClearingPrice.Products = _DeliveryNoteInRRFC.DeliveryNoteInRows.Products
                     _StorageDateClearingPrice.QTT_In = _DeliveryNoteInRRFC.QTT_Controlled

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

@@ -43,6 +43,7 @@ Public Class StorageLocation
             SetPropertyValue("ShortName", _ShortName, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property Storage As Storage
         Get
             Return _Storage

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

@@ -32,6 +32,7 @@ Public Class StorageMoveType '-- Mozg
     End Property
 
     <RuleRequiredField("StorageMoveType-Storage", DefaultContexts.Save)>
+    <DataSourceCriteria("IsActive != False")>
     Property Storage As Storage
         Get
             Return _Storage

Nuvolar.Module/BusinessObjects/Business/Worksheet/WorkPlace.vb

@@ -78,6 +78,7 @@ Public Class WorkPlace
             SetPropertyValue("Address", _Address, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property CostPlace As CostPlace
         Get
             Return _CostPlace

Nuvolar.Module/BusinessObjects/Business/Worksheet/Worksheet_Header.vb

@@ -469,7 +469,8 @@ Public Class WorkSheet_Header
             SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
         End Set
     End Property
-    <RuleRequiredField("WorkSheet_Header-UniqueObjects-Require", DefaultContexts.Save, TargetCriteria:="WorkSheetType.Rule5DMatrix.RequireUniqueObjects=True")> _
+    <RuleRequiredField("WorkSheet_Header-UniqueObjects-Require", DefaultContexts.Save, TargetCriteria:="WorkSheetType.Rule5DMatrix.RequireUniqueObjects=True")>
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects As UniqueObjects
         Get
             Return _UniqueObjects
@@ -478,7 +479,8 @@ Public Class WorkSheet_Header
             SetPropertyValue("UniqueObjects", _UniqueObjects, value)
         End Set
     End Property
-    <RuleRequiredField("WorkSheet_Header-CostPlace-Require", DefaultContexts.Save, TargetCriteria:="WorkSheetType.Rule5DMatrix.RequireCostPlace=True")> _
+    <RuleRequiredField("WorkSheet_Header-CostPlace-Require", DefaultContexts.Save, TargetCriteria:="WorkSheetType.Rule5DMatrix.RequireCostPlace=True")>
+    <DataSourceCriteria("IsActive != False")>
     Property CostPlace As CostPlace
         Get
             Return _CostPlace

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLHeader.vb

@@ -518,7 +518,8 @@ Public Class GLHeader
     <NonPersistent()>
     <VisibleInListView(False)>
     <RuleRequiredField("GLHeader-row_CostPlace-aToTable_GLAccounts_Contexts", "aToTable_GLAccounts_Contexts", TargetCriteria:="Rule5DMatrix.RequireCostPlace=True")>
-    Property row_CostPlace() As CostPlace
+    <DataSourceCriteria("IsActive != False")>
+    Property row_CostPlace As CostPlace
         Get
             Return _row_CostPlace
         End Get
@@ -529,6 +530,7 @@ Public Class GLHeader
     <NonPersistent()>
     <VisibleInListView(False)>
     <RuleRequiredField("GLHeader-row_CostHolder-aToTable_GLAccounts_Contexts", "aToTable_GLAccounts_Contexts", TargetCriteria:="Rule5DMatrix.RequireCostHolder=True")>
+    <DataSourceCriteria("IsActive != False")>
     Property row_CostHolder() As CostHolder
         Get
             Return _row_CostHolder
@@ -540,6 +542,7 @@ Public Class GLHeader
     <NonPersistent()>
     <VisibleInListView(False)>
     <RuleRequiredField("GLHeader-row_UniqueObjects-aToTable_GLAccounts_Contexts", "aToTable_GLAccounts_Contexts", TargetCriteria:="Rule5DMatrix.RequireUniqueObjects=True")>
+    <DataSourceCriteria("IsActive != False")>
     Property row_UniqueObjects() As UniqueObjects
         Get
             Return _row_UniqueObjects
@@ -551,6 +554,7 @@ Public Class GLHeader
     <NonPersistent()>
     <VisibleInListView(False)>
     <RuleRequiredField("GLHeader-row_JobNumberObjects-aToTable_GLAccounts_Contexts", "aToTable_GLAccounts_Contexts", TargetCriteria:="Rule5DMatrix.RequireJobNumberObjects=True")>
+    <DataSourceCriteria("IsActive != False")>
     Property row_JobNumberObjects() As JobNumberObjects
         Get
             Return _row_JobNumberObjects

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/GLRows.vb

@@ -294,7 +294,8 @@ Public Class GLRows
             End If
         End Set
     End Property
-    <RuleRequiredField("GLRows-JobNumberObjects", DefaultContexts.Save, TargetCriteria:="Rule5DMatrix.RequireJobNumberObjects=True and Require5DValidation=True")> _
+    <RuleRequiredField("GLRows-JobNumberObjects", DefaultContexts.Save, TargetCriteria:="Rule5DMatrix.RequireJobNumberObjects=True and Require5DValidation=True")>
+    <DataSourceCriteria("IsActive != False")>
     Property JobNumberObjects() As JobNumberObjects
         Get
             Return _JobNumberObjects
@@ -303,7 +304,8 @@ Public Class GLRows
             SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
         End Set
     End Property
-    <RuleRequiredField("GLRows-UniqueObjects", DefaultContexts.Save, TargetCriteria:="Rule5DMatrix.RequireUniqueObjects=True and Require5DValidation=True")> _
+    <RuleRequiredField("GLRows-UniqueObjects", DefaultContexts.Save, TargetCriteria:="Rule5DMatrix.RequireUniqueObjects=True and Require5DValidation=True")>
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects() As UniqueObjects
         Get
             Return _UniqueObjects
@@ -312,8 +314,9 @@ Public Class GLRows
             SetPropertyValue("UniqueObjects", _UniqueObjects, value)
         End Set
     End Property
-    <RuleRequiredField("GLRows-CostPlace", DefaultContexts.Save, TargetCriteria:="Rule5DMatrix.RequireCostPlace=True and Require5DValidation=True")> _
+    <RuleRequiredField("GLRows-CostPlace", DefaultContexts.Save, TargetCriteria:="Rule5DMatrix.RequireCostPlace=True and Require5DValidation=True")>
-    Property CostPlace() As CostPlace
+    <DataSourceCriteria("IsActive != False")>
+    Property CostPlace As CostPlace
         Get
             Return _CostPlace
         End Get
@@ -321,7 +324,8 @@ Public Class GLRows
             SetPropertyValue("CostPlace", _CostPlace, value)
         End Set
     End Property
-    <RuleRequiredField("GLRows-CostHolder", DefaultContexts.Save, TargetCriteria:="Rule5DMatrix.RequireCostHolder=True and Require5DValidation=True")> _
+    <RuleRequiredField("GLRows-CostHolder", DefaultContexts.Save, TargetCriteria:="Rule5DMatrix.RequireCostHolder=True and Require5DValidation=True")>
+    <DataSourceCriteria("IsActive != False")>
     Property CostHolder() As CostHolder
         Get
             Return _CostHolder

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsDivideH.vb

@@ -227,9 +227,10 @@ Public Class GLRowsDivideH
             SetPropertyValue("row_Controlling", _row_Controlling, value)
         End Set
     End Property
-    <NonPersistent()> _
+    <NonPersistent()>
-    <ImmediatePostData(True)> _
+    <ImmediatePostData(True)>
-    <VisibleInListView(False)> _
+    <VisibleInListView(False)>
+    <DataSourceCriteria("IsActive != False")>
     Property row_CostHolder As CostHolder
         Get
             Return _row_CostHolder
@@ -238,9 +239,10 @@ Public Class GLRowsDivideH
             SetPropertyValue("row_CostHolder", _row_CostHolder, value)
         End Set
     End Property
-    <NonPersistent()> _
+    <NonPersistent()>
-    <ImmediatePostData(True)> _
+    <ImmediatePostData(True)>
-    <VisibleInListView(False)> _
+    <VisibleInListView(False)>
+    <DataSourceCriteria("IsActive != False")>
     Property row_CostPlace As CostPlace
         Get
             Return _row_CostPlace
@@ -249,9 +251,10 @@ Public Class GLRowsDivideH
             SetPropertyValue("row_CostPlace", _row_CostPlace, value)
         End Set
     End Property
-    <NonPersistent()> _
+    <NonPersistent()>
-    <ImmediatePostData(True)> _
+    <ImmediatePostData(True)>
-    <VisibleInListView(False)> _
+    <VisibleInListView(False)>
+    <DataSourceCriteria("IsActive != False")>
     Property row_JobNumberObjects As JobNumberObjects
         Get
             Return _row_JobNumberObjects
@@ -260,9 +263,10 @@ Public Class GLRowsDivideH
             SetPropertyValue("row_JobNumberObjects", _row_JobNumberObjects, value)
         End Set
     End Property
-    <NonPersistent()> _
+    <NonPersistent()>
-    <ImmediatePostData(True)> _
+    <ImmediatePostData(True)>
-    <VisibleInListView(False)> _
+    <VisibleInListView(False)>
+    <DataSourceCriteria("IsActive != False")>
     Property row_UniqueObjects As UniqueObjects
         Get
             Return _row_UniqueObjects

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Base/Popup/GLRowsDivideR.vb

@@ -123,6 +123,7 @@ Public Class GLRowsDivideR
             SetPropertyValue("CostHolder", _CostHolder, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property CostPlace As CostPlace
         Get
             Return _CostPlace

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/BookEntryCheck.vb

@@ -10,12 +10,12 @@ Imports DevExpress.Persistent.BaseImpl
 Imports DevExpress.Persistent.Validation
 Imports DevExpress.ExpressApp.ConditionalAppearance
 
-<DefaultClassOptions()> _
+<DefaultClassOptions()>
-<NavigationItem(False), CreatableItem(False)> _
+<NavigationItem(False), CreatableItem(False)>
-<DeferredDeletion(False)> _
+<DeferredDeletion(False)>
-<Appearance("Hide ChartOfAccounts when IsManagerCheck=True", AppearanceItemType.ViewItem, "IsManagerCheck=True", TargetItems:="ChartOfAccounts", visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide ChartOfAccounts when IsManagerCheck=True", AppearanceItemType.ViewItem, "IsManagerCheck=True", TargetItems:="ChartOfAccounts", Visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)>
-<Appearance("Hide DateExecution when IsDateExecution=False", AppearanceItemType.ViewItem, "IsDateExecution=False", TargetItems:="DateExecution", visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide DateExecution when IsDateExecution=False", AppearanceItemType.ViewItem, "IsDateExecution=False", TargetItems:="DateExecution", Visibility:=DevExpress.ExpressApp.Editors.ViewItemVisibility.Hide)>
-<RuleCriteria("RuleCriteria BookEntryCheck-Controlling", "*", "Controlling.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)> _
+<RuleCriteria("RuleCriteria BookEntryCheck-Controlling", "*", "Controlling.Children.Count=0", "Csak gyermek objektum választható ki!", SkipNullOrEmptyValues:=False)>
 Public Class BookEntryCheck 'Popup a csoportos módosításhoz, és könyvelhetõség beállításához
     Inherits BaseObject
     Public Sub New(ByVal session As Session)
@@ -23,11 +23,11 @@ Public Class BookEntryCheck 'Popup a csoportos m
     End Sub
     <NonPersistent()> Public Property ChartOfAccountsYear As ChartOfAccountsYear
     <NonPersistent()> <ImmediatePostData(True), DataSourceCriteria("IsParent=False")> Public Property ChartOfAccounts As ChartOfAccounts
-    <NonPersistent()> Public Property JobNumberObjects As JobNumberObjects
+    <NonPersistent()> <DataSourceCriteria("IsActive != False")> Public Property JobNumberObjects As JobNumberObjects
-    <NonPersistent()> Public Property CostHolder As CostHolder
+    <NonPersistent()> <DataSourceCriteria("IsActive != False")> Public Property CostHolder As CostHolder
-    <NonPersistent()> Public Property CostPlace As CostPlace
+    <NonPersistent()> <DataSourceCriteria("IsActive != False")> Public Property CostPlace As CostPlace
-    <NonPersistent()> Public Property UniqueObjects As UniqueObjects
+    <NonPersistent()> <DataSourceCriteria("IsActive != False")> Public Property UniqueObjects As UniqueObjects
-    <NonPersistent()> Public Property Controlling As Controlling
+    <NonPersistent()> <DataSourceCriteria("IsActive != False")> Public Property Controlling As Controlling
     <NonPersistent(), Browsable(False), ImmediatePostData()> Public Property IsManagerCheck As Boolean = False
     <NonPersistent(), ImmediatePostData()> Public Property IsDateExecution As Boolean = False
     <NonPersistent()> Public Property DateExecution As Date

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/BookEntry/GLAccountRowsforBookEntry.vb

@@ -14,10 +14,10 @@ Imports System.Linq
 Imports System.Linq.Expressions
 Imports DevExpress.ExpressApp.ConditionalAppearance
 
-<DefaultClassOptions()> _
+<DefaultClassOptions()>
-<NavigationItem(False), CreatableItem(False)> _
+<NavigationItem(False), CreatableItem(False)>
-<Persistent("vv_GLAccountRowsforBookEntry")> _
+<Persistent("vv_GLAccountRowsforBookEntry")>
-<ImageName("BO_Report")> _
+<ImageName("BO_Report")>
 Public Class GLAccountRowsforBookEntry 'Fõkönyvi feladáshoz lista, ami alaplyán a könyvelõ tud ellenõrizni
     Inherits XPLiteObject
     Public Sub New(ByVal session As Session)

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssets.vb

@@ -65,7 +65,8 @@ Public Class FixedAssets
         End Set
     End Property
     '<RuleUniqueValue("FixedAssets-UniqueObjects", DefaultContexts.Save, criteriaevaluationbehavior:=PersistentCriteriaEvaluationBehavior.BeforeTransaction, targetcriteria:="")> _
-    <ImmediatePostData(True)> _
+    <ImmediatePostData(True)>
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects As UniqueObjects
         Get
             Return _UniqueObjects
@@ -157,6 +158,7 @@ Public Class FixedAssets
             SetPropertyValue("CostHolder_Using", _CostHolder_Using, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property CostPlace_Using As CostPlace
         Get
             Return _CostPlace_Using

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsCard.vb

@@ -112,7 +112,8 @@ Public Class FixedAssetsCard
             SetPropertyValue("Description", _Description, value)
         End Set
     End Property
-    <NonCloneable()> _
+    <NonCloneable()>
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects As UniqueObjects
         Get
             Return _UniqueObjects

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Fixed Assets/FixedAssetsUsingHeader.vb

@@ -106,6 +106,7 @@ Public Class FixedAssetsUsingHeader
             SetPropertyValue("CostHolder", _CostHolder, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property CostPalce As CostPlace
         Get
             Return _CostPlace

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Popup/GLRowsCheck.vb

@@ -12,12 +12,12 @@ Imports System.Data.SqlClient
 Imports System.Configuration
 Imports System.Linq
 Imports System.Linq.Expressions
-<DefaultClassOptions()> _
+<DefaultClassOptions()>
-<NavigationItem(False), CreatableItem(False)> _
+<NavigationItem(False), CreatableItem(False)>
-<DeferredDeletion(False)> _
+<DeferredDeletion(False)>
-<RuleCriteria("RuleCriteria GLRowsCheck-Controlling", "*", "Controlling.Children.Count=0", "Csak gyermek objektum választható ki! (Controlling) ", SkipNullOrEmptyValues:=False)> _
+<RuleCriteria("RuleCriteria GLRowsCheck-Controlling", "*", "Controlling.Children.Count=0", "Csak gyermek objektum választható ki! (Controlling) ", SkipNullOrEmptyValues:=False)>
-<RuleCriteria("RuleCriteria GLRowsCheck-DebitChartOfAccounts", "*", "DebitChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki! (DebitChartOfAccounts) ", SkipNullOrEmptyValues:=False)> _
+<RuleCriteria("RuleCriteria GLRowsCheck-DebitChartOfAccounts", "*", "DebitChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki! (DebitChartOfAccounts) ", SkipNullOrEmptyValues:=False)>
-<RuleCriteria("RuleCriteria GLRowsCheck-CreditChartOfAccounts", "*", "CreditChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki! (CreditChartOfAccounts) ", SkipNullOrEmptyValues:=False)> _
+<RuleCriteria("RuleCriteria GLRowsCheck-CreditChartOfAccounts", "*", "CreditChartOfAccounts.Children.Count=0", "Csak gyermek objektum választható ki! (CreditChartOfAccounts) ", SkipNullOrEmptyValues:=False)>
 Public Class GLRowsCheck 'Popup a csoportos módosításhoz
     Inherits BaseObject
 
@@ -28,7 +28,7 @@ Public Class GLRowsCheck 'Popup a csoportos módosításhoz
     <NonPersistent()> Public Property Controlling As Controlling
     <NonPersistent()> Public Property JobNumberObjects As JobNumberObjects
     <NonPersistent()> Public Property CostHolder As CostHolder
-    <NonPersistent()> Public Property CostPlace As CostPlace
+    <NonPersistent()> <DataSourceCriteria("IsActive != False")> Public Property CostPlace As CostPlace
     <NonPersistent()> Public Property UniqueObjects As UniqueObjects
     <NonPersistent()> <ImmediatePostData(True), DataSourceCriteria("AccountYear='@This.ChartOfAccountsYear.AccountYear'")> Public Property DebitChartOfAccounts As ChartOfAccounts
     <NonPersistent()> <ImmediatePostData(True), DataSourceCriteria("AccountYear='@This.ChartOfAccountsYear.AccountYear'")> Public Property CreditChartOfAccounts As ChartOfAccounts

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/Card/GLCardsRows.vb

@@ -217,6 +217,7 @@ Public Class GLCardsRows
             SetPropertyValue("ShortName", _ShortNameTo, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects As UniqueObjects
         Get
             Return _UniqueObjects
@@ -242,6 +243,7 @@ Public Class GLCardsRows
             SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property CostPlace As CostPlace
         Get
             Return _CostPlace

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportCashflowRows.vb

@@ -10,8 +10,8 @@ Imports DevExpress.Persistent.BaseImpl
 Imports DevExpress.Persistent.Validation
 Imports DevExpress.ExpressApp.ConditionalAppearance
 
-<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)> _
+<DefaultClassOptions(), NavigationItem(False), CreatableItem(False)>
-<Appearance("Color Blue when not from GLRows II", AppearanceItemType:="ViewItem", Fontcolor:="Blue", targetitems:="*", Criteria:="GLReportRowsState in ('eRegistry','eInvoice')")> _
+<Appearance("Color Blue when not from GLRows II", AppearanceItemType:="ViewItem", FontColor:="Blue", TargetItems:="*", Criteria:="GLReportRowsState in ('eRegistry','eInvoice')")>
 Public Class GLReportCashflowRows
     Inherits BaseObject
     Private _GLReportRowsState As eGLReportRowsState
@@ -61,7 +61,7 @@ Public Class GLReportCashflowRows
             SetPropertyValue("GLReportRowsState", _GLReportRowsState, value)
         End Set
     End Property
-    <Association("GLReportCashflowHeader-GLReportCashflowRows", GetType(GLReportCashflowHeader))> _
+    <Association("GLReportCashflowHeader-GLReportCashflowRows", GetType(GLReportCashflowHeader))>
     Property GLReportCashflowHeader As GLReportCashflowHeader
         Get
             Return _GLReportCashflowHeader
@@ -87,6 +87,7 @@ Public Class GLReportCashflowRows
             SetPropertyValue("Controlling", _Controlling, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects As UniqueObjects
         Get
             Return _UniqueObjects
@@ -95,6 +96,7 @@ Public Class GLReportCashflowRows
             SetPropertyValue("UniqueObjects", _UniqueObjects, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property CostHolder As CostHolder
         Get
             Return _CostHolder
@@ -103,6 +105,7 @@ Public Class GLReportCashflowRows
             SetPropertyValue("CostHolder", _CostHolder, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property CostPlace As CostPlace
         Get
             Return _CostPlace
@@ -111,6 +114,7 @@ Public Class GLReportCashflowRows
             SetPropertyValue("CostPlace", _CostPlace, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property JobNumberObjects As JobNumberObjects
         Get
             Return _JobNumberObjects

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/FinancialTransactions/Reports/DTR/GLReportRows.vb

@@ -141,6 +141,7 @@ Public Class GLReportRows
             SetPropertyValue("Controlling", _Controlling, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects As UniqueObjects
         Get
             Return _UniqueObjects
@@ -149,6 +150,7 @@ Public Class GLReportRows
             SetPropertyValue("UniqueObjects", _UniqueObjects, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property CostHolder As CostHolder
         Get
             Return _CostHolder
@@ -157,6 +159,7 @@ Public Class GLReportRows
             SetPropertyValue("CostHolder", _CostHolder, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property CostPlace As CostPlace
         Get
             Return _CostPlace
@@ -165,6 +168,7 @@ Public Class GLReportRows
             SetPropertyValue("CostPlace", _CostPlace, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property JobNumberObjects As JobNumberObjects
         Get
             Return _JobNumberObjects

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/ProjectPlan/ProjectPlanRows.vb

@@ -57,6 +57,7 @@ Public Class ProjectPlanRows
             SetPropertyValue("Controlling", _Controlling, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property CostHolder As CostHolder
         Get
             Return _CostHolder
@@ -65,6 +66,7 @@ Public Class ProjectPlanRows
             SetPropertyValue("CostHolder", _CostHolder, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property CostPlace As CostPlace
         Get
             Return _CostPlace
@@ -73,6 +75,7 @@ Public Class ProjectPlanRows
             SetPropertyValue("CostPlace", _CostPlace, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects As UniqueObjects
         Get
             Return _UniqueObjects
@@ -81,6 +84,7 @@ Public Class ProjectPlanRows
             SetPropertyValue("UniqueObjects", _UniqueObjects, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property JobNumberObjects As JobNumberObjects
         Get
             Return _JobNumberObjects

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryRowsFinancialControllingPopupWindow.vb

@@ -49,6 +49,7 @@ Public Class RegistryRowsFinancialControllingPopupWindow 'Popup a csoportos dolg
             SetPropertyValue("Controlling", _Controlling, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects As UniqueObjects
         Get
             Return _UniqueObjects
@@ -57,6 +58,7 @@ Public Class RegistryRowsFinancialControllingPopupWindow 'Popup a csoportos dolg
             SetPropertyValue("UniqueObjects", _UniqueObjects, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property CostHolder As CostHolder
         Get
             Return _CostHolder
@@ -65,6 +67,7 @@ Public Class RegistryRowsFinancialControllingPopupWindow 'Popup a csoportos dolg
             SetPropertyValue("CostHolder", _CostHolder, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property CostPlace As CostPlace
         Get
             Return _CostPlace

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryRowsFinancialControlling_ReInvoicePopupWindow.vb

@@ -92,7 +92,8 @@ Public Class RegistryRowsFinancialControlling_ReInvoicePopupWindow
             Return Me.RegistryRowsFinancialControlling.ReInvoiceReason
         End Get
     End Property
-    <RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.CostHolder", "Reinvoice_ok", TargetCriteria:="ContractTemplate.Rule5DMatrix.RequireCostHolder=True")> _
+    <RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.CostHolder", "Reinvoice_ok", TargetCriteria:="ContractTemplate.Rule5DMatrix.RequireCostHolder=True")>
+    <DataSourceCriteria("IsActive != False")>
     Property CostHolder As CostHolder
         Get
             Return _CostHolder
@@ -101,7 +102,8 @@ Public Class RegistryRowsFinancialControlling_ReInvoicePopupWindow
             SetPropertyValue("CostHolder", _CostHolder, value)
         End Set
     End Property
-    <RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.CostPlace", "Reinvoice_ok", TargetCriteria:="ContractTemplate.Rule5DMatrix.RequireCostPlace=True")> _
+    <RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.CostPlace", "Reinvoice_ok", TargetCriteria:="ContractTemplate.Rule5DMatrix.RequireCostPlace=True")>
+    <DataSourceCriteria("IsActive != False")>
     Property CostPlace As CostPlace
         Get
             Return _CostPlace
@@ -110,7 +112,8 @@ Public Class RegistryRowsFinancialControlling_ReInvoicePopupWindow
             SetPropertyValue("CostPlace", _CostPlace, value)
         End Set
     End Property
-    <RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.JobNumberObjects", "Reinvoice_ok", TargetCriteria:="ContractTemplate.Rule5DMatrix.RequireJobNumberObjects=True")> _
+    <RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.JobNumberObjects", "Reinvoice_ok", TargetCriteria:="ContractTemplate.Rule5DMatrix.RequireJobNumberObjects=True")>
+    <DataSourceCriteria("IsActive != False")>
     Property JobNumberObjects As JobNumberObjects
         Get
             Return _JobNumberObjects
@@ -119,7 +122,8 @@ Public Class RegistryRowsFinancialControlling_ReInvoicePopupWindow
             SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
         End Set
     End Property
-    <RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.UniqueObjects", "Reinvoice_ok", TargetCriteria:="ContractTemplate.Rule5DMatrix.RequireUniqueObjects=True")> _
+    <RuleRequiredField("RegistryRowsFinancialControlling_ReInvoicePopupWindow.UniqueObjects", "Reinvoice_ok", TargetCriteria:="ContractTemplate.Rule5DMatrix.RequireUniqueObjects=True")>
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects As UniqueObjects
         Get
             Return _UniqueObjects

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Popup/RegistryTaskGoToNewtStepWithGLAccount.vb

@@ -10,8 +10,8 @@ Imports DevExpress.Persistent.BaseImpl
 Imports DevExpress.Persistent.Validation
 Imports DevExpress.ExpressApp.ConditionalAppearance
 
-<DefaultClassOptions(), NonPersistent, CreatableItem(False), NavigationItem(False)> _
+<DefaultClassOptions(), NonPersistent, CreatableItem(False), NavigationItem(False)>
-<Appearance("Hide ReInvoice_Customers if IsReinvoice is false", AppearanceItemType.ViewItem, "IsReinvoice=False", TargetItems:="ReInvoice_Customers", visibility:=Editors.ViewItemVisibility.Hide)> _
+<Appearance("Hide ReInvoice_Customers if IsReinvoice is false", AppearanceItemType.ViewItem, "IsReinvoice=False", TargetItems:="ReInvoice_Customers", Visibility:=Editors.ViewItemVisibility.Hide)>
 Public Class RegistryTaskGoToNewtStepWithGLAccount
     Inherits BaseObject
     Public Sub New(ByVal session As Session)
@@ -21,18 +21,18 @@ Public Class RegistryTaskGoToNewtStepWithGLAccount
         MyBase.AfterConstruction()
     End Sub
 
-    <Browsable(False)> _
+    <Browsable(False)>
     Property CustomersFrom As CustomersFrom
 
     Property Controlling As Controlling
-    Property UniqueObjects As UniqueObjects
+    <DataSourceCriteria("IsActive != False")> Property UniqueObjects As UniqueObjects
-    Property JobNumberObjects As JobNumberObjects
+    <DataSourceCriteria("IsActive != False")> Property JobNumberObjects As JobNumberObjects
-    Property CostHolder As CostHolder
+    <DataSourceCriteria("IsActive != False")> Property CostHolder As CostHolder
-    Property CostPlace As CostPlace
+    <DataSourceCriteria("IsActive != False")> Property CostPlace As CostPlace
-    <ImmediatePostData()> _
+    <ImmediatePostData()>
     Property IsReinvoice As Boolean = False
 
-    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)> _
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)>
     Property SelectedTasks As ArrayList
 
 End Class

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryHeader.vb

@@ -383,6 +383,7 @@ Public Class RegistryHeader '-- iktatórendszer
             SetPropertyValue("RegistryNumber", _RegistryNumber, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property JobNumberObjects() As JobNumberObjects
         Get
             Return _JobNumberObjects
@@ -391,6 +392,7 @@ Public Class RegistryHeader '-- iktatórendszer
             SetPropertyValue("JobNumberObjects", _JobNumberObjects, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects() As UniqueObjects
         Get
             Return _UniqueObjects
@@ -895,6 +897,7 @@ Public Class RegistryHeader '-- iktatórendszer
     <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)>
     <RuleRequiredField("RegistryHeader-row_RRFC_CostPlace", "aToTable_RRFC_Contexts", TargetCriteria:="RegistryType.Rule5DMatrix.RequireCostPlace")>
     <RuleRequiredField("RegistryHeader-row_RRFC_CostPlace_T", "aToTable_RRFC_With_TContract_Contexts", TargetCriteria:="RegistryType.Rule5DMatrix.RequireCostPlace")>
+    <DataSourceCriteria("IsActive != False")>
     Property row_RRFC_CostPlace As CostPlace
         Get
             Return _row_RRFC_CostPlace
@@ -906,6 +909,7 @@ Public Class RegistryHeader '-- iktatórendszer
     <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)>
     <RuleRequiredField("RegistryHeader-row_RRFC_CostHolder", "aToTable_RRFC_Contexts", TargetCriteria:="RegistryType.Rule5DMatrix.RequireCostHolder")>
     <RuleRequiredField("RegistryHeader-row_RRFC_CostHolder_T", "aToTable_RRFC_With_TContract_Contexts", TargetCriteria:="RegistryType.Rule5DMatrix.RequireCostHolder")>
+    <DataSourceCriteria("IsActive != False")>
     Property row_RRFC_CostHolder As CostHolder
         Get
             Return _row_RRFC_CostHolder
@@ -917,6 +921,7 @@ Public Class RegistryHeader '-- iktatórendszer
     <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)>
     <RuleRequiredField("RegistryHeader-row_RRFC_JobNumberObjects", "aToTable_RRFC_RegistryTask_Contexts", TargetCriteria:="RegistryType.Rule5DMatrix.RequireJobNumberObjects")>
     <RuleRequiredField("RegistryHeader-row_RRFC_JobNumberObjects_T", "aToTable_RRFC_With_TContract_RegistryTask_Contexts", TargetCriteria:="RegistryType.Rule5DMatrix.RequireJobNumberObjects")>
+    <DataSourceCriteria("IsActive != False")>
     Property row_RRFC_JobNumberObjects As JobNumberObjects
         Get
             Return _row_RRFC_JobNumberObjects
@@ -928,6 +933,7 @@ Public Class RegistryHeader '-- iktatórendszer
     <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)>
     <RuleRequiredField("RegistryHeader-row_RRFC_UniqueObjects", "aToTable_RRFC_RegistryTask_Contexts", TargetCriteria:="RegistryType.Rule5DMatrix.RequireUniqueObjects")>
     <RuleRequiredField("RegistryHeader-row_RRFC_UniqueObjects_T", "aToTable_RRFC_With_TContract_RegistryTask_Contexts", TargetCriteria:="RegistryType.Rule5DMatrix.RequireUniqueObjects")>
+    <DataSourceCriteria("IsActive != False")>
     Property row_RRFC_UniqueObjects As UniqueObjects
         Get
             Return _row_RRFC_UniqueObjects

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryRowsFinancialControlling/RegistryRowsFinancialControlling.vb

@@ -188,7 +188,8 @@ Public Class RegistryRowsFinancialControlling
             End If
         End Set
     End Property
-    <RuleRequiredField("RegistryRowsFinancialControlling-CostHolder", "aCreateContractsRowsfromControllingRows", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostHolder")> _
+    <RuleRequiredField("RegistryRowsFinancialControlling-CostHolder", "aCreateContractsRowsfromControllingRows", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostHolder")>
+    <DataSourceCriteria("IsActive != False")>
     Property CostHolder As CostHolder
         Get
             Return _CostHolder
@@ -203,7 +204,8 @@ Public Class RegistryRowsFinancialControlling
             End If
         End Set
     End Property
-    <RuleRequiredField("RegistryRowsFinancialControlling-CostPlace", "aCreateContractsRowsfromControllingRows", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostPlace")> _
+    <RuleRequiredField("RegistryRowsFinancialControlling-CostPlace", "aCreateContractsRowsfromControllingRows", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostPlace")>
+    <DataSourceCriteria("IsActive != False")>
     Property CostPlace As CostPlace
         Get
             Return _CostPlace
@@ -212,7 +214,8 @@ Public Class RegistryRowsFinancialControlling
             SetPropertyValue("CostPlace", _CostPlace, value)
         End Set
     End Property
-    <RuleRequiredField("RegistryRowsFinancialControlling-UniqueObjects", "aCreateContractsRowsfromControllingRows", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireUniqueObjects")> _
+    <RuleRequiredField("RegistryRowsFinancialControlling-UniqueObjects", "aCreateContractsRowsfromControllingRows", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireUniqueObjects")>
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects As UniqueObjects
         Get
             Return _UniqueObjects
@@ -227,7 +230,8 @@ Public Class RegistryRowsFinancialControlling
             End If
         End Set
     End Property
-    <RuleRequiredField("RegistryRowsFinancialControlling-JobNumberObjects", "aCreateContractsRowsfromControllingRows", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireJobNumberObjects")> _
+    <RuleRequiredField("RegistryRowsFinancialControlling-JobNumberObjects", "aCreateContractsRowsfromControllingRows", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireJobNumberObjects")>
+    <DataSourceCriteria("IsActive != False")>
     Property JobNumberObjects As JobNumberObjects
         Get
             Return _JobNumberObjects

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/RegistryTasks.vb

@@ -156,9 +156,10 @@ Public Class RegistryTasks '-- Registryhez task a feladatokhoz
             SetPropertyValue("row_RRFC_Controlling", _row_RRFC_Controlling, value)
         End Set
     End Property
-    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)> _
+    <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)>
-    <RuleRequiredField("RegistryTask-row_RRFC_CostPlace", "aToTable_RRFC_RegistryTask_Contexts", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostPlace")> _
+    <RuleRequiredField("RegistryTask-row_RRFC_CostPlace", "aToTable_RRFC_RegistryTask_Contexts", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostPlace")>
-    <RuleRequiredField("RegistryTask-row_RRFC_CostPlace_T", "aToTable_RRFC_With_TContract_RegistryTask_Contexts", targetcriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostPlace")> _
+    <RuleRequiredField("RegistryTask-row_RRFC_CostPlace_T", "aToTable_RRFC_With_TContract_RegistryTask_Contexts", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireCostPlace")>
+    <DataSourceCriteria("IsActive != False")>
     Property row_RRFC_CostPlace As CostPlace
         Get
             Return _row_RRFC_CostPlace
@@ -237,6 +238,7 @@ Public Class RegistryTasks '-- Registryhez task a feladatokhoz
     <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)>
     <RuleRequiredField("RegistryTask-row_RRFC_JobNumberObjects", "aToTable_RRFC_RegistryTask_Contexts", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireJobNumberObjects")>
     <RuleRequiredField("RegistryTask-row_RRFC_JobNumberObjects_T", "aToTable_RRFC_With_TContract_RegistryTask_Contexts", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireJobNumberObjects")>
+    <DataSourceCriteria("IsActive != False")>
     Property row_RRFC_JobNumberObjects As JobNumberObjects
         Get
             Return _row_RRFC_JobNumberObjects
@@ -248,6 +250,7 @@ Public Class RegistryTasks '-- Registryhez task a feladatokhoz
     <NonPersistent(), VisibleInListView(False), VisibleInLookupListView(False)>
     <RuleRequiredField("RegistryTask-row_RRFC_UniqueObjects", "aToTable_RRFC_RegistryTask_Contexts", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireUniqueObjects")>
     <RuleRequiredField("RegistryTask-row_RRFC_UniqueObjects_T", "aToTable_RRFC_With_TContract_RegistryTask_Contexts", TargetCriteria:="RegistryHeader.RegistryType.Rule5DMatrix.RequireUniqueObjects")>
+    <DataSourceCriteria("IsActive != False")>
     Property row_RRFC_UniqueObjects As UniqueObjects
         Get
             Return _row_RRFC_UniqueObjects

Nuvolar.Module/BusinessObjects/Financial/FinancialObjects/Registry/Telephone/RegistryTelephone.vb

@@ -68,6 +68,7 @@ Public Class RegistryTelephone
             SetPropertyValue("RegistryTelephoneParameters", _RegistryTelephoneParameters, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects As UniqueObjects
         Get
             Return _UniqueObjects

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()> _
+<DefaultClassOptions()>
-<NavigationItem("FinancialStock")> _
+<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)> _
+    <VisibleInListView(False), VisibleInDetailView(False), VisibleInLookupListView(False)>
-    <Browsable(False)> _
+    <Browsable(False)>
-    <NonPersistent()> _
+    <NonPersistent()>
     Private ReadOnly Property CollectionOfUniqueObjects As XPCollection(Of UniqueObjects)
         Get
             Dim _CollectionOfUniqueObjects As New XPCollection(Of UniqueObjects)(Session, CriteriaOperator.Parse("Oid != ?", Me.Oid))

Nuvolar.Module/BusinessObjects/GeneralObjects/Cars/Cars.vb

@@ -123,6 +123,7 @@ Public Class Cars
         End Set
     End Property
 
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects As UniqueObjects
         Get
             Return _UniqueObjects

Nuvolar.Module/BusinessObjects/GeneralObjects/HR/HRPerson.vb

@@ -182,6 +182,7 @@ Public Class HRPerson
             SetPropertyValue("Post", _Post, value)
         End Set
     End Property
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects As UniqueObjects
         Get
             Return _UniqueObjects

Nuvolar.Module/BusinessObjects/GeneralObjects/Phones/Phones.vb

@@ -108,7 +108,7 @@ Public Class Phones
             SetPropertyValue("UserCreated", _UserCreated, value)
         End Set
     End Property
-
+    <DataSourceCriteria("IsActive != False")>
     Property UniqueObjects As UniqueObjects
         Get
             Return _UniqueObjects

Nuvolar.Module/Model.DesignedDiffs.xafml

@@ -4571,8 +4571,8 @@
   </NavigationItems>
   <Options NAVProgramPath="c:\NAV\abevjava_start.bat" />
   <SchemaModules>
-    <SchemaModule Name="CloneObjectModule" Version="16.2.3.0" IsNewNode="True" />
+    <SchemaModule Name="CloneObjectModule" Version="17.2.3.0" IsNewNode="True" />
-    <SchemaModule Name="SystemModule" Version="16.2.3.0" IsNewNode="True" />
+    <SchemaModule Name="SystemModule" Version="17.2.3.0" IsNewNode="True" />
   </SchemaModules>
   <Validation>
     <Contexts>
@@ -5449,7 +5449,7 @@
         <ColumnInfo Id="SumGrossMarginHUF" Removed="True" />
       </Columns>
     </ListView>
-    <ListView Id="APCSheetByProducts_ListView" AutoExpandAllGroups="True" IsListViewProcess="False" IsGroupFooterVisible="True" ImageName="Action_Grand_Totals_Row" MasterDetailMode="ListViewAndDetailView" AllowDelete="False" AllowNew="False" Criteria="[APCSheetHeader] Is Not Null And [APCSheetHeader.Customers] Is Not Null And [APCSheetHeader.CustomersFrom] Is Not Null">
+    <ListView Id="APCSheetByProducts_ListView" AutoExpandAllGroups="True" IsListViewProcess="False" IsGroupFooterVisible="True" ImageName="Action_Grand_Totals_Row" MasterDetailMode="ListViewAndDetailView" AllowDelete="False" AllowNew="False" Criteria="[APCSheetHeader] Is Not Null And [APCSheetHeader.Customers] Is Not Null And [APCSheetHeader.CustomersFrom] Is Not Null And [APCSheetHeader.IsActive] &lt;&gt; False">
       <Columns>
         <ColumnInfo Id="APCSheetHeader.APCStatus" PropertyName="APCSheetHeader.APCStatus" Index="0" GroupIndex="0" IsNewNode="True" />
         <ColumnInfo Id="APCSheetHeader.CustomersFrom" PropertyName="APCSheetHeader.CustomersFrom" Index="1" GroupIndex="1" IsNewNode="True" />
@@ -8712,8 +8712,8 @@
         <LayoutGroup Id="Main" RelativeSize="100" ImageName="">
           <LayoutGroup Id="SimpleEditors" RelativeSize="11" ImageName="">
             <LayoutGroup Id="CostHolder" RelativeSize="100" ImageName="">
-              <LayoutItem Id="ParentObject" SizeConstraintsType="Default" RelativeSize="51" ViewItem="ParentObject" />
               <LayoutItem Id="Name" ViewItem="Name" SizeConstraintsType="Default" Index="1" RelativeSize="48" IsNewNode="True" />
+              <LayoutItem Id="ParentObject" SizeConstraintsType="Default" RelativeSize="51" ViewItem="ParentObject" />
             </LayoutGroup>
             <LayoutGroup Id="HCategory" RelativeSize="8" ImageName="" Direction="Horizontal" Removed="True">
               <LayoutItem Id="Name" ViewItem="Name" Removed="True" />
@@ -8737,8 +8737,8 @@
         <LayoutGroup Id="Main" RelativeSize="100" ImageName="">
           <LayoutGroup Id="SimpleEditors" RelativeSize="11" ImageName="">
             <LayoutGroup Id="CostPlace" RelativeSize="100" ImageName="">
-              <LayoutItem Id="ParentObject" SizeConstraintsType="Default" RelativeSize="51" ViewItem="ParentObject" />
               <LayoutItem Id="Name" ViewItem="Name" SizeConstraintsType="Default" Index="1" RelativeSize="48" IsNewNode="True" />
+              <LayoutItem Id="ParentObject" SizeConstraintsType="Default" RelativeSize="51" ViewItem="ParentObject" />
             </LayoutGroup>
             <LayoutGroup Id="HCategory" RelativeSize="8" ImageName="" Direction="Horizontal" Removed="True">
               <LayoutItem Id="Name" ViewItem="Name" Removed="True" />
@@ -26627,7 +26627,7 @@
         </LayoutGroup>
       </Layout>
     </DetailView>
-    <ListView Id="StorageComputed_ListView" AutoExpandAllGroups="True" AllowDelete="False" AllowNew="False" IsGroupFooterVisible="True" MasterDetailMode="ListViewAndDetailView" IsListViewProcess="False" AllowEdit="True">
+    <ListView Id="StorageComputed_ListView" AutoExpandAllGroups="True" AllowDelete="False" AllowNew="False" IsGroupFooterVisible="True" MasterDetailMode="ListViewAndDetailView" IsListViewProcess="False" AllowEdit="True" Criteria="[Storage.IsActive] &lt;&gt; False">
       <Columns>
         <ColumnInfo Id="CustomersFrom" PropertyName="Storage.CustomersFrom" GroupIndex="0" Index="0" IsNewNode="True" />
         <ColumnInfo Id="Storage" Index="1" GroupIndex="1" />
@@ -26653,7 +26653,7 @@
       </Filters>
       <SplitLayout Direction="Vertical" />
     </ListView>
-    <ListView Id="StorageComputed_LookupListView">
+    <ListView Id="StorageComputed_LookupListView" Criteria="[Storage.IsActive] &lt;&gt; False">
       <Columns>
         <ColumnInfo Id="Storage" PropertyName="Storage" Index="0" IsNewNode="True" />
         <ColumnInfo Id="Products.ProductNumber" PropertyName="Products.ProductNumber" Index="1" IsNewNode="True" />
@@ -28515,8 +28515,8 @@
         <LayoutGroup Id="Main" RelativeSize="100" ImageName="">
           <LayoutGroup Id="SimpleEditors" RelativeSize="11" ImageName="">
             <LayoutGroup Id="UniqueObjects" RelativeSize="100" ImageName="">
-              <LayoutItem Id="ParentObject" SizeConstraintsType="Default" RelativeSize="51" ViewItem="ParentObject" />
               <LayoutItem Id="Name" ViewItem="Name" SizeConstraintsType="Default" Index="1" RelativeSize="48" IsNewNode="True" />
+              <LayoutItem Id="ParentObject" SizeConstraintsType="Default" RelativeSize="51" ViewItem="ParentObject" />
             </LayoutGroup>
             <LayoutGroup Id="HCategory" RelativeSize="8" ImageName="" Direction="Horizontal" Removed="True">
               <LayoutItem Id="Name" ViewItem="Name" Removed="True" />

Nuvolar.Module/My Project/licenses.licx

@@ -1 +1,3 @@
 DevExpress.ExpressApp.ViewController, DevExpress.ExpressApp.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+
+DevExpress.ExpressApp.SystemModule.SystemModule, DevExpress.ExpressApp.v17.2, Version=17.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

Nuvolar.Module/Updater.vb

@@ -233,30 +233,30 @@ Public Class Updater
 
         End If
 
-        SetDefaultStorage(ObjectSpace)
+        'SetDefaultStorage(ObjectSpace)
-        SetWorkflow(ObjectSpace)
+        'SetWorkflow(ObjectSpace)
-        SetCRM(ObjectSpace)
+        'SetCRM(ObjectSpace)
-        SetDefaultfixedAssets(ObjectSpace)
+        'SetDefaultfixedAssets(ObjectSpace)
 
-        '_2011_11_22(ObjectSpace, CurrentDBVersion)
+        ''_2011_11_22(ObjectSpace, CurrentDBVersion)
-        _2012_03_01(ObjectSpace, CurrentDBVersion)
+        '_2012_03_01(ObjectSpace, CurrentDBVersion)
-        _2012_03_10(ObjectSpace, CurrentDBVersion)
+        '_2012_03_10(ObjectSpace, CurrentDBVersion)
-        _2012_04_13(ObjectSpace, CurrentDBVersion)
+        '_2012_04_13(ObjectSpace, CurrentDBVersion)
-        _2012_05_02(ObjectSpace, CurrentDBVersion)
+        '_2012_05_02(ObjectSpace, CurrentDBVersion)
-        _2012_05_08(ObjectSpace, CurrentDBVersion)
+        '_2012_05_08(ObjectSpace, CurrentDBVersion)
-        _2012_08_31(ObjectSpace, CurrentDBVersion)
+        '_2012_08_31(ObjectSpace, CurrentDBVersion)
-        _2012_10_29(ObjectSpace, CurrentDBVersion)
+        '_2012_10_29(ObjectSpace, CurrentDBVersion)
-        _2012_11_08(ObjectSpace, CurrentDBVersion)
+        '_2012_11_08(ObjectSpace, CurrentDBVersion)
-        _2013_04_17(ObjectSpace, CurrentDBVersion)
+        '_2013_04_17(ObjectSpace, CurrentDBVersion)
-        _2013_04_25(ObjectSpace, CurrentDBVersion)
+        '_2013_04_25(ObjectSpace, CurrentDBVersion)
-        _2013_07_23(ObjectSpace, CurrentDBVersion)
+        '_2013_07_23(ObjectSpace, CurrentDBVersion)
-        _2013_07_23_1(ObjectSpace, CurrentDBVersion)
+        '_2013_07_23_1(ObjectSpace, CurrentDBVersion)
-        _2014_02_14(ObjectSpace, CurrentDBVersion)
+        '_2014_02_14(ObjectSpace, CurrentDBVersion)
-        _2014_03_07(ObjectSpace, CurrentDBVersion)
+        '_2014_03_07(ObjectSpace, CurrentDBVersion)
-        _2016_01_28(ObjectSpace, CurrentDBVersion)
+        '_2016_01_28(ObjectSpace, CurrentDBVersion)
-        ProductsGant(ObjectSpace)
+        'ProductsGant(ObjectSpace)
         ' ZIPHUUpdate(ObjectSpace)
-        StorageOut_Storno_Regenerate(ObjectSpace)
+        'StorageOut_Storno_Regenerate(ObjectSpace)
         'RegistryHeader_UserCreated(ObjectSpace)